excel vba中的按回车激发事件的代码怎么写？ Excel VBA 怎样判断一个输入框控件内的按下Enter...
作者&投稿：俞纨 （若有异议请与网页底部的电邮联系）
其实工作表中的selectchange和change事件是要付出代价的。我觉得对好不要用VBA编写，还不如用自定义格式 1000我想你那个应该是个编号吧，A1为1001，A2为1002……如果是这样一定要用代码的话，那么就把飞雨飘的代码改一下为：Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 Then Target.Value = 1000 + Target.RowEnd Sub</p>
Private Sub Worksheet_Change(ByVal Target As Range) End Sub 代码为Private Sub Worksheet_Change(ByVal Target As Range) if target.address="$A$1" and target.value=1 then target.value="1001"End Sub
飞雨飘 兄的方法为你所需。具体操作步骤：
右键点该工作表的名字（在工作簿左下角呢），查看代码，粘贴上述代码。
回车激发事件好像不可以用在单元格吧！所以你就只能用楼上的那个代码
excel VBA代码，自动回车怎么写？~
Private Sub Worksheet_Change(ByVal Target As Range) End Sub 代码为Private Sub Worksheet_Change(ByVal Target As Range) if target.address="$A$1" and target.value=1 then target.value="1001"End Sub
飞雨飘 兄的方法为你所需。具体操作步骤：
右键点该工作表的名字（在工作簿左下角呢），查看代码，粘贴上述代码。
回车激发事件好像不可以用在单元格吧！所以你就只能用楼上的那个代码
excel VBA代码，自动回车怎么写？~
是要在最后定位到G9单元格吧？
代码类似于：
range("G8")=123456789
range("G9").Select
确定按钮肯定需要做的
然后把确定按钮 赋值给enter
SendKeys "{ENTER}"
或者你在textbox1 中做一个change事件 应该也可以
例如：
Private Sub TextBox1_Change()
n = Sheet3.[a65535].End(3).Row + 1
If Len(TextBox1.Value) = 6 Then
Sheet3.Range("a" & n) = TextBox1.Value
TextBox1.Value = ""
End If
End Sub
