[求助]：Excel VBA中的数据录入？

SLMin

用Excel VBA做了一个数据录入窗口。（如图）

输入数据后单击添加，将数据添加到指定的单元格中！

上面三个是固定的，添加一次就可以了！

看着MS的帮助文件，凭着以前的一点VB基础，捣鼓了几行代码，

可是单击添加后只能添加在第六行，没辙了！

如何实现逐行添加呢？

[php]Private Sub CommandButton1_Click()
      Sheets("sheet1").Range("a6") = TextBox4.Text
      Sheets("sheet1").Range("b6") = TextBox5.Text
      Sheets("sheet1").Range("c6") = TextBox6.Text
      Sheets("sheet1").Range("d6") = ComboBox1.Text
      Sheets("sheet1").Range("e6") = TextBox7.Text
End Sub


Private Sub CommandButton2_Click()
End
End Sub

Private Sub CommandButton3_Click()
Sheets("sheet1").Range("c4") = TextBox1.Text
Sheets("sheet1").Range("e4") = TextBox2.Text
Sheets("sheet1").Range("i4") = TextBox3.Text
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Q235B"
ComboBox1.AddItem "20#"
ComboBox1.AddItem "20G"
ComboBox1.AddItem "20g"
ComboBox1.AddItem "16Mn"
ComboBox1.AddItem "16MnR"
ComboBox1.AddItem "19Mn6"
ComboBox1.AddItem "12Cr1MoV"
ComboBox1.AddItem "15CrMo"
ComboBox1.AddItem "12Cr1MoVG"
ComboBox1.AddItem "15CrMoG"
ComboBox1.AddItem "1Cr18Ni9"
ComboBox1.AddItem "1Cr18Ni9Ti"
ComboBox1.AddItem "304"
ComboBox1.AddItem "304L"
ComboBox1.AddItem "BHW355"
ComboBox1.AddItem "2Cr13"
ComboBox1.AddItem "0Cr18Ni9"
ComboBox1.AddItem "00Cr19Ni9"
ComboBox1.AddItem "20锻"
ComboBox1.AddItem "16Mn锻"
ComboBox1.AddItem "316L"
ComboBox1.AddItem "00Cr18Ni9Ti"
End Sub
[/php]

lt_zzy

slmin
请将你的那个文件传上来，免得再做那个对话框。

yi.gao

他的意思是想数据录入循环——逐行添加，而他目前的代码只能固定添加在第六行。

你的代码中都是给固定的单元格附值，结果自然不会循环。我没实践，仅仅提供一种思路。激活当前单元格A6，按下一次“添加”当前单元格下移一行。

SLMin

最初由 lt_zzy 发布
[B]slmin
请将你的那个文件传上来，免得再做那个对话框。 [/B]

谢谢了！

真像YI.GO说的一样，想到用循环，可以前的VB都还给老师了～～～～*-*7 *-*7 *-*7 *-*7 *-*7

CCHH138

试试看