VBA常用技巧代码解析

jyjzfl

下载示例，被360杀死。

jyjzfl

试了，示例1解压不了，显示非压缩文件，后面也没有办法解压。

cxxyzjsxy

感谢大佬分享

yumz@123

学习中，，为自己加油

共同语

很强大，就是太难了

自学爱好者

非常感谢yuanzhuping和ybzdexcel两位，好人一生平安，功德无量，幸福美满

zyhui1961

老师您好！
请你帮忙：下面是我录制的宏的内容，单独运行没有问题。
    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

SOUSUO

huangcanyong 发表于 2022-1-5 16:41
请教一下，这个段代码后面为什么要加set rng=nothing ？谢谢！

#001  Sub SpecialAddress()

释放变量对对象的引用，编程的好习惯；

woaini311

yuanzhuping 发表于 2009-3-10 11:13
1-4部分Word文档

这个1-4部分Word文档的能在发一次吗？文件已损坏5555

luobin2001

经典实用，感谢楼主与作者份分享！