excel中VBA textbox换行问题。

2024年11月28日 20:56
有2个网友回答
网友(1):

创建TextBox1 和CommandButton1
sub CommandButton1_Click()
dim n as integer
dim str as string
n=sheets(1).usedrange.rows.count+1
str=textbox1.text
sheets(1).cells(n,1)=str
end sub

网友(2):

sub CommandButton1_Click()

dim n as integer

dim str as string

n=sheets(1).range("a65536").end(xlup).row+1

str=textbox1.text

sheets(1).cells(n,1)=str

end sub