[已解决]为什么会得到不同答案

kevin_2010

Public listnumber As Integer

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

listnumber = listnumber + 2
MsgBox ("已经建立了" & listnumber & "个列表框")

'ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _
        DisplayAsIcon:=ture, Left:=110.25, Top:=27, Width:=144, Height:= _
        116.25).Select
        'Selection.Name = "cc"
        
End Sub

以上VBA代码执行时，双击 可以得到不同的消息“已经建立了2个列表框”，再双击 “已经建立了4个列表框”...
但是如果将绿色背景部分取消注释时，却只能得到相同消息“已经建立了2个列表框”。
不知道为什么撒

最佳答案

月排行榜 / 总排行榜

zjdh

2013-4-25 18:21

可能是建立了控件，使工作表属性经历了一个复原的过程。
不光是ListBox、CommandButton、TextBox、Label还是其他控件都一样。

跳转到最佳答案楼层

zjdh

可能是建立了控件，使工作表属性经历了一个复原的过程。
不光是ListBox、CommandButton、TextBox、Label还是其他控件都一样。

jb_008

这个得看你的工作上有什么东东啦

kevin_2010

看来VB也还是有局限的

zjdh

kevin_2010 发表于 2013-4-26 11:33
看来VB也还是有局限的

你可以借用工作表的一个单元来记录次数，或者为工作表添加一个属性，用来记录次数。

zjdh

你看这个就可以啦：
Book2.rar (8.46 KB, 下载次数: 3)

2013-4-26 13:10 上传

点击文件名下载附件

kevin_2010

zjdh 发表于 2013-4-26 13:10
你看这个就可以啦：

看到了，你是跳到了文档之外，在文档自定义一个属性来解决的。非常受教！

zjdh

kevin_2010 发表于 2013-4-27 15:19
看到了，你是跳到了文档之外，在文档自定义一个属性来解决的。非常受教！

这东西很有用，可以额外记录很多东西，譬如打开次数、用户姓名、最后一次打开日期....