[已解决]如何动态显示窗体控件的文本

想飞的鸟

我想在工作表中插入一个按钮,上面的文本可以动态显示点击了多少次?

请问哪位高手知道??

最佳答案

月排行榜 / 总排行榜

lzclzch

2012-1-11 00:16

1、不能复位，数字会一直递增下去，我想第二次使用时，它会复位
这个问题我不明白你第二次使用是什么意思

跳转到最佳答案楼层

lzclzch

1、不能复位，数字会一直递增下去，我想第二次使用时，它会复位
这个问题我不明白你第二次使用是什么意思

lzclzch

楼主是不是这样的

lzclzch

楼主附件已更新，如果可以，请设最佳

想飞的鸟

lzclzch 发表于 2012-1-9 23:21
楼主是不是这样的

对不起,这个按钮不是窗体工具栏中的按钮,而是控件工具栏中的按钮

不过,也同样谢谢你!!

lzclzch

楼主附件已经更新

想飞的鸟

lzclzch 发表于 2012-1-10 19:08
楼主附件已经更新

看了一下,功能差不多了,但有两个问题:

1、不能复位，数字会一直递增下去，我想第二次使用时，它会复位。

2、我在程序中改了一下文字，结果再点就只有  1次了，不动了

具体改法是：
原程序：

Sub 如何动态显示窗体控件的文本()
a = Val(Sheet1.Shapes("Button 1").TextFrame.Characters.Text)
a = a + 1
Sheet1.Shapes("Button 1").TextFrame.Characters.Text = a & "次点击"
End Sub

第4行改为：

Sheet1.Shapes("Button 1").TextFrame.Characters.Text =“共下载了” & a & "次"

还想请你将你的程序解释一下,不好意思,我刚学的,请多指教.


如能改成功,我会将你的结果设为最佳的,谢谢

lzclzch

是不是打开文件把它复位，

1、不能复位，数字会一直递增下去，我想第二次使用时，它会复位?

9lee

楼上的代码严谨，通用性强，楼主初学，我就帮忙简化一下，加上注释：

1. Sub 如何动态显示窗体控件的文本()
   
2.     Dim a As String, i As Byte, s As String, ss As String
   
3.     a = Sheet1.Shapes("Button 1").TextFrame.Characters.Text '窗体控件上的文本
   
4.     For i = 1 To Len(a) '对文本的每个字符进行循环
   
5.         s = Mid(a, i, 1) '第i个字符
   
6.         If s Like "#" Then ss = ss & s '如果该字符是数字，则连接在ss后面
   
7.     Next i
   
8.     Sheet1.Shapes("Button 1").TextFrame.Characters.Text = "共下载了" & Val(ss) + 1 & "次点击" '变更窗体控件上的文本
   
9. End Sub
   

复制代码

想飞的鸟

lzclzch 发表于 2012-1-11 00:16
1、不能复位，数字会一直递增下去，我想第二次使用时，它会复位
这个问题我不明白你第二次使用是什么意思
...

你好,感谢你的帮助.你的代码符合要求,.

第二次使用,就是重新打开这个表.