Ribbon 开发利器－Ribbon Commander

2163kjh

https://club.excelhome.net/thread-1635677-1-1.html
ribbon xml editor  完美汉化版

smsn

一个新制作工具 https://club.excelhome.net/thread-1655755-1-1.html

joelzhang

下载学习下，感谢！！！！！！

zyhui1961

守柔 发表于 2015-7-10 16:06
二、自定义功能区的实例对照
以下代码用于比照Excel 2003中的菜单开发，Excel 2007中自定义功能区的开发以 ...

老师您好！
请你帮忙：下面是我录制的宏的内容，单独运行没有问题。
    Sheets("成绩查询").Select
    Range("AA5:AA69").Select
    Selection.Copy '复制文本
    Range("Z5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=F
alse, Transpose:=False '粘贴数值
    Range("Z5").Select
可是我加一个工作表事件，为什么就运行不了？
Private Sub Worksheet_Change(ByVal Target As Range) '工作表触发事件
    Set Myrng = Range("A1")   
    Sheets("成绩查询").Select
    Range("AA5:AA69").Select'老是从这个地方开始卡住了
    Selection.Copy '复制文本
    Range("Z5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False '粘贴数值
    Range("Z5").Select
End Sub