Question

我希望你能帮助我，因为我在新的VBA项目开始时遇到困难，到目前为止还没有在互联网上找到任何有用的东西。

我正在尝试创建一个excel表，该表根据用户表单中的条目略有不同。我坚持的是以下内容：我需要使用输入到userform中的信息填充单元格： XXYYZZ - LL

XX是年份的最后两位数字（作为userform dd.mm.yyyy的日期输入） YY是来自组合框的数据（几种可能性） ZZ是某种计数器（由于计数器应该上升取决于之前使用相同的XXYY生成了多少数据表，所以还没弄清楚如何计数） LL是在userform

中输入文本框的数字或字母

有什么办法可以实现这个目标还是没有希望？我能想到解决这个问题的唯一方法是

range("A1").value = [yy&combobox1.text&ZZ&" - "&textbox1.text]

这可能吗？有更好的想法吗？还是要找出一种计算方法。

Answer 1

像下面这样的东西应该这样做。您仍然需要确定如何填充“ZZ” - 在此示例中，我将其设置为1.我的示例假设TextBox1中的值采用日期格式，ComboBox1只有2字符值以及TextBox2中输入的值始终为2个字符。需要将此代码分配给用户表单上的命令按钮：

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

您可以实施一些控件，以确保输入的数据采用此代码生效所需的格式，但这应该至少可以帮助您开始。

与用户表单条目相关的单元格数据

1 个答案: