我希望您能帮助我,因为我陷入了新的VBA项目的开头,并且到目前为止尚未在互联网上找到任何有用的东西。
我正在尝试创建一个Excel表,该表根据用户形式的条目略有不同。我坚持的事情是以下内容:我需要在一个单元格中填充一个单元格,这些信息有点输入了用户形式:xxyyzz -ll
xx是本年度的最后两位数字(作为日期输入到Userform dd.mm.m.yyyy)yy是Combobox的数据(很少)ZZ是某种计数器(尚未弄清楚如何计算这一点,因为计数器应该会增加,具体取决于以前使用相同的xxyy制作了多少个数据表)ll是在用户形式中输入的数字或字母
有什么办法可以实现这一目标,还是这是绝望的?我可以考虑解决此问题的唯一方法是
range("A1").value = [yy&combobox1.text&ZZ&" - "&textbox1.text]
这可能吗?有更好的想法吗?仍然必须找出一种计数的方法。
类似以下内容应该这样做。您仍然需要确定如何填充" zz" - 在此示例中,我将其设置为1。我的示例假设TextBox1
中的值是日期格式的,ComboBox1
只有2个字符值,并且该值已输入TextBox2
始终是2个字符。此代码将需要分配给您的用户form上的命令按钮:
Private Sub CommandButton1_Click()
Dim counter As Long
counter = 1
ActiveSheet.Range("A1").Value = Right(DatePart("yyyy", TextBox1.Value), 2) & ComboBox1.Value & Format(counter, "00") & " - " & TextBox2.Value
Unload Me
End Sub
您可以实现一些控件,以确保输入的数据以您需要使用的格式,但这至少应该使您启动。