我正在为某人接管一个宏,试图对其进行重新编码,并且用户表格从新输入的数据单元中取消。这是1个userform(此宏中有多个userforms)
Option Explicit
Private Sub UserForm_Initialize()
Me.ComboBox2.List = Sheets("Lookups").ListObjects("HilvlActivitySourceLookup").ListColumns(1).DataBodyRange.Value
End Sub
Private Sub CommandButton2_Click()
ActiveCell.Value = ComboBox2.Value
Unload Me
End Sub
Private Sub EndButton_Click()
End
End Sub
我正在考虑在Command Button 2
下添加一些代码,类似于:
rem process userform data
UserEntryFromUserform = Userform1.ListBox1.Value
但我不确定我是否正确地接近这一点。有多个用户表单,所有编码都相似,如果您可以提供一些如何自动恢复的建议,我将非常感激。提前谢谢!