[已解决]显示与隐藏Label1

一成不变变 · 发表于 2016-3-13 15:48

写了一段代码，想实现代码运行时，显示Label1，完成后隐藏Label1，一直实现不了，请帮忙，谢谢
Private Sub CommandButton1_Click()
   Dim rg As Range
         ActiveSheet.Shapes.Range(Array("Label1")).Visible = msoTrue '显示
               For Each rg In Range("a1:n50000")
                     rg = "实验"
                  rg.Interior.Color = 15773696
               Next
         ActiveSheet.Shapes.Range(Array("Label1")).Visible = msoFalse '隐藏
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-14 09:26

Private Sub CommandButton1_Click()
With ActiveSheet.Shapes.Range(Array("Label1"))
      .Visible = msoTrue '显示
      Call test
      .Visible = msoFalse '隐藏
End With
End Sub

'某个功能
Sub test()
Dim i
'                For Each rg In Range("a1:n50000")
'                      rg = "实验"
'                   rg.Interior.Color = 15773696
'                Next
For i = 1 To 10 ^ 5
      VBA.DoEvents
Next i
End Sub

2.rar (19.25 KB, 下载次数: 19)

ghostjiao · 发表于 2016-3-13 16:10

Sub demo()
Dim lab
Set lab = ActiveSheet.OLEObjects("Label1")
lab.Visible = True
lab.Visible = False
End Sub

复制代码

一成不变变 · 发表于 2016-3-13 19:30

本帖最后由一成不变变于 2016-3-13 20:06 编辑

ghostjiao 发表于 2016-3-13 16:10

首先谢谢你的回答，用你的方法也无法实现，

爱疯 · 发表于 2016-3-14 09:26

Private Sub CommandButton1_Click()
With ActiveSheet.Shapes.Range(Array("Label1"))
      .Visible = msoTrue '显示
      Call test
      .Visible = msoFalse '隐藏
End With
End Sub

'某个功能
Sub test()
Dim i
'                For Each rg In Range("a1:n50000")
'                      rg = "实验"
'                   rg.Interior.Color = 15773696
'                Next
For i = 1 To 10 ^ 5
      VBA.DoEvents
Next i
End Sub

2.rar (19.25 KB, 下载次数: 19)

		自动登录	找回密码
密码			注册