excel打开工作簿自动运行activex控件怎么做？

fengziiiiii

有两个activex控件ComboBox1，ComboBox2，
怎么做到打开工作

1. Private Sub ComboBox1_click()
   
2. ComboBox1.List = Sheet2.Range("b2:b" & Sheet2.Range("b65536").End(xlUp).row).Value
   
3. [a30] = Me.ComboBox1.Value
   
4. 'ActiveSheet.ComboBox1.Value = Format(ActiveSheet.ComboBox1.Value, "yyyy-mm-dd")
   
5. End Sub
   
6. 
   
7. Private Sub ComboBox2_click()
   
8. ComboBox2.List = Sheet2.Range("b2:b" & Sheet2.Range("b65536").End(xlUp).row).Value
   
9. [a32] = Me.ComboBox2.Value
   
10. 'ActiveSheet.ComboBox2.Value = Format(ActiveSheet.ComboBox2.Value, "yyyy-mm-dd")
    
11. End Sub
    

复制代码

簿的时候自动执行这两个控件的vba代码？

liulang0808

工作簿open事件，假定表格codename是sheet1
Private Sub Workbook_Open()
    Sheet1.ComboBox1_click
End Sub

Sub ComboBox1_click()
ComboBox1.List = Sheet2.Range("b2:b" & Sheet2.Range("b65536").End(xlUp).row).Value
[a30] = Me.ComboBox1.Value
'ActiveSheet.ComboBox1.Value = Format(ActiveSheet.ComboBox1.Value, "yyyy-mm-dd")
End Sub

fengziiiiii

liulang0808 发表于 2020-2-5 08:45
工作簿open事件，假定表格codename是sheet1
Private Sub Workbook_Open()
    Sheet1.ComboBox1_click

感谢！感谢！

fengziiiiii

liulang0808 发表于 2020-2-5 08:45
工作簿open事件，假定表格codename是sheet1
Private Sub Workbook_Open()
    Sheet1.ComboBox1_click

显示编译错误，方法和数据成员未找到。我是放在thisworkbook里

liulang0808

fengziiiiii 发表于 2020-2-5 13:04
显示编译错误，方法和数据成员未找到。我是放在thisworkbook里

楼主整理好上传附件看看吧

fengziiiiii

liulang0808 发表于 2020-2-5 13:08
楼主整理好上传附件看看吧

工作簿2.zip (20.23 KB, 下载次数: 2)

2020-2-5 14:01 上传

点击文件名下载附件

附件已经上传，麻烦了，谢谢！

liulang0808

楼主上传的附件，没有看到具体改动，怎么能报错呢？

大灰狼1976

将两个combobox的click事件的Private Sub改成Public Sub，或者直接删除Private，变成如下形状：
Public Sub ComboBox1_click()
或
Sub ComboBox1_click()

fengziiiiii

liulang0808 发表于 2020-2-5 14:47
楼主上传的附件，没有看到具体改动，怎么能报错呢？

谢谢！可以了！！

fengziiiiii

大灰狼1976 发表于 2020-2-5 15:31
将两个combobox的click事件的Private Sub改成Public Sub，或者直接删除Private，变成如下形状：
Public Su ...

谢谢！可以了！！谢谢