组合框控件数据源在哪里

jy03342543

ddz79101 发表于 2023-11-6 15:16
大神，若在C10单元格显示AA001，则又怎么设置

AA001在C10下面这句改一下就好了  
把
     For I = 5 To 19
       ComboBox1.AddItem (Range("B" & I).Value)
     Next I
改成
     For I = 10 To Cells(Rows.count,"C").End(3).Row
       ComboBox1.AddItem (Range("C" & I).Value)
     Next I

ddz79101

jy03342543 发表于 2023-11-6 15:21
左边那个ActiveX组合框

大神，那若选择后怎么将其显示呀。若在C10单元格显示AA001，则又怎么设置

ddz79101

jy03342543 发表于 2023-11-6 11:55
Private Sub ComboBox1_Change()
Dim I As Integer
ComboBox1.Clear

大神！若区域不是1列，而是2列代码又怎么修改

jy03342543

ddz79101 发表于 2023-11-6 15:52
大神，那若选择后怎么将其显示呀。若在C10单元格显示AA001，则又怎么设置

已经回复了这该死的审核还没通过

jy03342543

Private Sub ComboBox1_Change()
Dim Rng As Range
ComboBox1.Clear
   For Each Rng In Range("A1:B8")
       ComboBox1.AddItem (Rng.Value)
   Next Rng
End Sub

ddz79101

jy03342543 发表于 2023-11-6 15:56
已经回复了这该死的审核还没通过

谢谢！我等会！不好意思。因为刚接触这组合框，有点不大清楚，多次打扰。

ddz79101

jy03342543 发表于 2023-11-6 15:56
已经回复了这该死的审核还没通过

在你的指导下，已大致清除这组合框是怎么操作了，就是尚有3问题：1是选择后的单元格显示问题；2是若不是1列而是2列的代码修改问题；3就是你的代码提醒了我，这组合框能否移动。先将前2个问题搞明白，第3个问题再单独论坛讨教。

jy03342543

上附件绕开审核

jy03342543

ddz79101 发表于 2023-11-6 16:14
在你的指导下，已大致清除这组合框是怎么操作了，就是尚有3问题：1是选择后的单元格显示问题；2是若不是1 ...

第一个问题 选中控件后把Text值再赋值给指定单元格就可以了。第二个问题件附件。第三个问题组合框是可以移动的设置ComboBox1属性即可。

ddz79101

jy03342543 发表于 2023-11-6 16:23
上附件绕开审核

大神！显示变量未定义