[已解决]请教个组合框的问题

东方智彩

当上面的组合框中不是0页时，怎么能每调用一次程序mm时,就执行一个组合框，如调用一次mm,就执行组合框1，当再次执行mm时，就执行组合框2，依次类推，当组合框中显示为0页时，就闪过继续下一个。请高手们指教谢谢！

 

En6V3syR.rar (10.14 KB, 下载次数: 1)

2010-11-1 11:43 上传

点击文件名下载附件
请教个组合框的问题

最佳答案

月排行榜 / 总排行榜

Zipall

2010-11-1 15:54

Public i As Integer
Sub mm()
    On Error Resume Next
    If i = 20 Then i = 0
    i = i + 1
    If Sheet1.OLEObjects(i).Object.Value = "0页" Then mm
    [B4] = Sheet1.OLEObjects(i).Object.Value
End Sub

跳转到最佳答案楼层

那么的帅

没搞懂啥意思

Zipall

楼主解释一下什么叫“执行组合框”。

东方智彩

呵呵可能表达的不清楚,再讲下就是每点一次程序mm ,就从组合框1-20开始选用一个,如点一次选用组合框1,再点一次就选用组合框2、将组合框中的内容显示到B4中，如果组合框中是显示的0页就闪过，继续下一个，请高指教了谢谢！

东方智彩

顶下.................

Zipall

Public i As Integer
Sub mm()
    On Error Resume Next
    If i = 20 Then i = 0
    i = i + 1
    If Sheet1.OLEObjects(i).Object.Value = "0页" Then mm
    [B4] = Sheet1.OLEObjects(i).Object.Value
End Sub

llj85

学习

东方智彩

谢谢Zipall老师了,好用!