|
arr2 = Array(TextBox6.Value, TextBox1.Value, TextBox2.Value, TextBox3.Value, ComboBox5.Value, _
ComboBox1.Value, ComboBox2.Value, ComboBox3.Value, ComboBox4.Value, TextBox7.Value, TextBox8.Value, _
TextBox9.Value, TextBox10.Value, TextBox11.Value, TextBox12.Value, TextBox13.Value)
.Cells(myR, 1).Resize(1, UBound(arr2) + 1) = arr2
.Cells(myR, 1).Resize(1, UBound(arr2) + 1).Borders.LineStyle = 1
Array是常量数组,里面只能用常数
像你这个,你就按个单元格填写窗体的内容就好了,没必要整这么复杂 |
|