说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

最后的分 求 Excel 宏 实例 一个

编辑:说三道四文库 发布时间:2018-08-17 06:04
HTML文档下载 WORD文档下载 PDF文档下载
内容比较简单 
就是写一个 可以向EXCEL里一条一条添加记录 还有就是分别给工作薄中的部分单元格加个密码!
以前没有做个这个 望高手相助 不胜感激!
pcl8396@163.com 

QQ 12553603
在Excel中,用录制'宏',然后用Visual Basic 编辑器打开宏
就可以看到你的操作对应的VB代码!
Private Sub Command3_Click()
On Error GoTo err1
    Dim i As Long
    Dim j As Long
    Dim objExl As Excel.Application   '声明对象变量
    Me.MousePointer = 11            '改变鼠标样
    Set objExl = New Excel.Application '初始化对象变量
    objExl.SheetsInNewWorkbook = 1  '将新建的工作薄数量设为1
    objExl.Workbooks.Add          '增加一个工作薄
    objExl.Sheets(1).Name = "book1"  '改变新工作薄的名称
    objExl.Sheets.Add               '再次增加一个工作薄
    objExl.Sheets(1).Name = "book2"  '修改工作薄名称
    objExl.Sheets("book2").Select     '选中工作薄<book2>
    For i = 1 To 5                   '循环写入数据
        For j = 1 To 5
            objExl.Cells(i, j) = i & j
        Next
    Next
    objExl.Sheets("book1").Select    '选中工作薄<book1>
    For i = 5 To 10                  '循环写入数据
        For j = 5 To 10
            objExl.Cells(i, j) = i & j
        Next
    Next

    objExl.Sheets("book1").Select                   '选中工作薄<book1>
    objExl.ActiveWindow.View = xlPageBreakPreview  '设置显示方式
    objExl.ActiveWindow.Zoom = 100                 '设置显示大小
    '保护工作表
    objExl.ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

    objExl.Sheets("book2").Select                   '选中工作薄<book2>
    objExl.ActiveWindow.View = xlPageBreakPreview  '设置显示方式
    objExl.ActiveWindow.Zoom = 100                 '设置显示大小
    '保护工作表
    objExl.ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

    objExl.Visible = True                          '使EXCEL可见
    objExl.Application.WindowState = xlMaximized    'EXCEL的显示方式为最大化
    objExl.ActiveWindow.WindowState = xlMaximized  '工作薄显示方式为最大化
    objExl.SheetsInNewWorkbook = 3                 '将默认新工作薄数量改回3个
   
    Set objExl = Nothing    '清除对象
    Me.MousePointer = 0   '修改鼠标
Exit Sub
err1:
objExl.SheetsInNewWorkbook = 3
objExl.DisplayAlerts = False  '关闭时不提示保存
objExl.Quit                '关闭EXCEL
objExl.DisplayAlerts = True   '关闭时提示保存
Set objExl = Nothing
Me.MousePointer = 0

End Sub
这一句给加上密码
objExl.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
ding
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘