EXCEL里点击按钮发送文字框里的数据到对应的EXCEL的表格里

xiami123

刚接触VBA求讲解下，点击按钮发送文字框里的数据到对应的EXCEL的表格里，需要每点击一次跳转到下面一行不重复，不能把上面数据给覆盖了就行。发不了图片就把压缩包发来。求大神讲解下！

hfwufanhf2006

按照你附件的参数，下面代码可以执行（在按钮“发送”里添加）：
Sheet1.cells(Sheet1.range("a10000").end(3).row + 1, 1) = TextBox1.Text
Sheet1.cells(Sheet1.range("a10000").end(3).row, 2) = TextBox2.Text
Sheet1.cells(Sheet1.range("a10000").end(3).row, 3) = TextBox3.Text
Sheet1.cells(Sheet1.range("a10000").end(3).row, 4) = TextBox4.Text
Sheet1.cells(Sheet1.range("a10000").end(3).row, 5) = TextBox5.Text
Sheet1.cells(Sheet1.range("a10000").end(3).row, 6) = TextBox6.Text
Sheet1.cells(Sheet1.range("a10000").end(3).row, 7) = TextBox7.Text

点击一次按钮“发送“就在后面添加一行；
这个代码有缺陷，不能防止重复添加，你自己再修改吧，我只是告诉你该如何使用。

xiami123

hfwufanhf2006 发表于 2019-5-7 12:52
按照你附件的参数，下面代码可以执行（在按钮“发送”里添加）：
Sheet1.cells(Sheet1.range("a10000").en ...

感谢！