用户表格和多页

问题描述

我有一个带有多页（两面）的用户窗体，我还有一个名为DATA的工作表。与列表框一样的用户窗体具有标签和文本框。一些文本框geteNames（例如Me.Name）。同样，前标签87的标签名称也为“数字”。我也有一个cmd按钮（例如2个按钮），一个在工作表DATA中找到数据，另一个在文本框以及Listbx和数据表中对CHnages进行更改。参见代码。但是此代码不起作用。我怎么了？

Private Sub UserForm_Initialize()
  Dim i As Integer
 
  With tbl_DATA
    'Überschrift der Userform aus Zelle A1 holen
    Me.Caption = .Range("A1").Value
  
    For i = 1 To 10
      Me.Controls("Label" & i).Caption = .Cells(2,i).Value
    Next i
  
    'Überschrift der ListBox aus Tabelle holen
    For i = 1 To 8
      Me.Controls("Label" & i + 10).Caption = .Cells(2,i).Value
    Next i
  End With
 
  'ListBox einstellen
  With Me.ListBox1
    .ColumnCount = 10                    'Spaltenanzahl festlegen
    .ColumnWidths = "80;80;80;80;80;80;80;80;80;10" 'Spaltenbreiten definieren
  End With
 
  'Cursor standardmäßig in die erste TextBox setzen
  Me.TextBox1.SetFocus
 
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）