- 博客(0)
- 资源 (1)
空空如也
文档的导入
VBA窗体的导入功能
Private Sub CommandButton1_Click()
hh = Range("C56636").End(xlUp).Row '提取m列的末行号
If hh = 2 Then Range("B" & hh + 1) = "'001"
If hh > 2 Then Range("B" & hh).AutoFill Destination:=Range("b" & hh & ":b" & hh + 1), Type:=xlFillDefault
Range("C" & hh + 1) = TextBox1.Text
Range("D" & hh + 1) = TextBox2.Text
Range("E" & hh + 1) = TextBox3.Text
Range("F" & hh + 1) = TextBox4.Text
Range("G" & hh + 1) = "=SUM(RC[-3]:RC[-1])"
Range("H" & hh + 1) = Now()
Range("I" & hh + 1) = TextBox5.Text
'MsgBox hh
End Sub
2015-02-14
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人