excel如何设置当a1中输入内容按回车就自动自动执行指定宏

 我来答

1个回答

#热议# 不吃早饭真的会得胆结石吗？

剑侠飞鹰
2011-09-18 · 超过32用户采纳过TA的回答

知道答主

回答量：94

采纳率：0%

帮助的人：74.7万

我也去答题访问个人页

关注

展开全部

可用下面的表事件，当单元格内容发生变化时触发：
Private Sub Worksheet_Change(ByVal Target As Range)
' 你的宏代码

End Sub

更多追问追答

追问

能说的详细一点吗，我对宏不太了解
Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+l
'
    Selection.Copy
    Range("D5").Select
    ActiveSheet.Paste
    Range("D5").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B1").Select
    Selection.ClearContents
End Sub
比如这是我的宏代码，谢谢

追答

'表事件不是放在模块中的，是放在每个表自己的代码块中，如我这就是放在Sheet2里面的：'
'下面这个事件作用，当你在包含下面代码的表中任意单元格中输入一串字符，就会自动转换成超链接：
Private Sub Worksheet_Change(ByVal Target As Range)
v = Target.Value
If v = "" Then Exit Sub

Application.EnableEvents = False '取消事件
    If Left(v, 7)  "http://" Then v = "http://" & v '在你输入的字符串前面加上 http://
    Target.FormulaR1C1 = "=HYPERLINK(""" & v & """,""" & Target.Value & """)" '将你的输入自动变为超链接
Application.EnableEvents = True '恢复事件
End Sub