作者:乔山办公网日期:
返回目录:excel表格制作
第一个代码是工作表zhidao代码
'工作表代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "TEST"
End Sub
第二个代码是工作簿代内码
'工作簿代码
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox "TEST"
End Sub
有什么不懂得欢迎继续追问,满意请及时容采纳
vb可以zhidao调用Excel,并运行其中的宏的:
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Set xlsApp = New Excel.Application
Set xlsBook = xlsApp.Workbooks.Open(App.Path + "\test.xls") '打开你的EXCEL文档
Set xlsSheet = xlsBook.Worksheets(1)
xlsApp.Visible = False
Call xlsApp.Run("复制专放样坐标12") '运行你的宏属
Dim xlsApp As Excel.Application
Dim wrdApp As Word.Application
Private Sub Command1_Click()
CommonDialog1.InitDir = App.Path
CommonDialog1.DialogTitle = "电子表格7a64e78988e69d83362"
CommonDialog1.Filter = "电子表格|*.xls"
CommonDialog1.ShowOpen
Label1.Caption = CommonDialog1.FileName
Dim wjm As String
wjm = CommonDialog1.FileName
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(wjm) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
xlSheet.Activate
Dim i As Integer
For i = 1 To xlSheet.UsedRange.Rows.Count
List1.AddItem (i)
For j = 1 To 5
List1.AddItem (xlSheet.Cells(i, j))
Next
Next
'List1.AddItem (xlSheet.UsedRange.Rows)
'xlSheet.Cells(Row, col) = 值 '给单元格(row,col)赋值
'xlSheet.PrintOut '打印工作表
'xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
'Set xlApp = Nothing '释放xlApp对象
'xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
'xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
End Sub
最好是【百度云盘】(一个使用百度帐号登录的可以对话和传文件的应用软件zd)联系,传文件做好回你。
你这个代码是产生不重复的随机数,可以录制新宏、编辑、粘贴在End Sub之前,回或者自己答按ALT+F11输入代码,但是需要一定的编程基础,可能一时半会不容易掌握。
还有把b = Int(1 + Rnd * 36)改成b = Int([B1] + Rnd * [D1] )