时间戳

首页 > 解决方案 > 通过 FORM 我想将值返回给 Column

forms - 通过 FORM 我想将值返回给 Column

问题描述

私有子 CommandButton2_Click()

Dim Which_Day As Integer
Dim Damage_Average As Integer
Dim Counter As Integer

Which_Day = CByte(TextBox1.Value)

For Counter = 1 To 29 'Loops for 29 members
Damage_Average = Range("g" & Counter + 1).Value 'Reads value of celles, column G
Range("i" & Counter + 1).Value = Damage_Average

Next

结束子

现在...我已将上述内容添加到 FORM 上的执行按钮中。FORM 有一个输入字段，它只是询问“您要将数据导出到哪一天？”

如果“1”作为输入字段中的值返回，我希望该值返回到“i”列，如上所述。如果“2”作为输入字段中的值返回，我希望将值返回到“j”列。如果“3”作为输入字段中的值返回，我希望将值返回到“k”列等。等等。

我不能让它工作 - 有什么建议吗？

标签： formsinput-field

解决方案

推荐阅读