excel 为什么我的用户表单上的标签标题没有改变？

wi3ka0sx 于 2023-05-23 发布在其他

关注(0)|答案(3)|浏览(117)

我试图使用一个简单的“x + 1”函数来在用户表单中添加标签，但是标签标题根本没有改变。我是不是忽略了一些简单的东西？
我的标签（SalesForm.BHSDROWLABELLF）的标题为1，我希望有人单击按钮并将标题从1变为2。

Private Sub BHSDNEXTTAPBUTTONLF_Click()

X = SalesForm.BHSDROWLABELLF.Caption

X = X + 1

SalesForm.BHSDADDRESSLF.Value = Worksheets("GG").Cells(X, 23)
End Sub

excel

来源：https://stackoverflow.com/questions/76293528/why-is-my-label-caption-not-changing-on-my-userform

3条答案

按热度按时间

xuo3flqw1#

您的代码可以大大减少到

Private Sub BHSDNEXTTAPBUTTONLF_Click()
    With BHSDROWLABELLF
        .Caption = Val(.Caption) + 1

        BHSDADDRESSLF.Value = Worksheets("GG").Cells(.Caption, 23)
    End With
End Sub

我假设表单的名称是SalesForm

赞(0）回复(0）举报 2023-05-23

brjng4g32#

Private Sub BHSDNEXTTAPBUTTONLF_Click()
   Dim X as Variant
   '@T.M comment > use Me instead of SalesForm
   X = Me.BHSDROWLABELLF.Caption
   If IsNumeric(X) Then
      X = Val(X) + 1
   
      Me.BHSDROWLABELLF.Caption = X  ' Cstr(X)  @Siddharth Rout comment

      Me.BHSDADDRESSLF.Value = Worksheets("GG").Cells(X, 23)
   End If
End Sub

赞(0）回复(0）举报 2023-05-23

muk1a3rh3#

问题是在单击按钮时向标签标题添加1。

Private Sub BHSDNEXTTAPBUTTONLF_Click()
Me.BHSDROWLABELLF.Caption = Me.BHSDROWLABELLF.Caption + 1
End Sub

赞(0）回复(0）举报 2023-05-23

我来回答

excel 为什么我的用户表单上的标签标题没有改变？

3条答案

相关问题

热门标签

最新问答