正松舒，慢匀稳——太极字典少年班

puzh2600

很有用，学习，学习

qwqw8899

这个学习资料太棒了，谢谢版主分享。

40639174

谢谢，太完美啦

smlin777

了解下，看看能看明白不

e表格学习

山版您好。
1、Sheet34中：
将If Target.Row = 1 Then Exit Sub
补充成If Target.Row = 1 Or Target.Row = 2 Then Exit Sub
是否较完整了？
2、
sheet35中：Arr = .Range("q3:u" & .Range("q65536").End(3).Row + 1).Value
sheet36中：For i = 3 To nRow + 1
sheet37中：Arr = Sheet34.Range("q3:u" & Sheet34.Range("q65536").End(3).Row + 1).Value
sheet38中：Arr = .Range("q3:u" & .Range("q65536").End(3).Row + 1).Value
我看“+1”是多余的，没有必要把“空”加到字典里，再说，字典也不会接受空关键字吧？
3、F8逐步运行功能是否在有些“事件过程”中不允许使用（即，按F8程序没有反应）？
     并且事件过程中的数组或字典在本地窗口不会显示或显示不完整？（但愿不是我的软件有问题。）

clh0505

新人报到，想老师学习了。谢谢老师讲课！！！

jx_shangrila

谢谢花总版

clh0505

对您的分享精神表示衷心的敬佩和感谢！努力学习中----

山菊花

e表格学习 发表于 2015-5-15 21:14
山版您好。
1、Sheet34中：
将If Target.Row = 1 Then Exit Sub

你好。
1：改得对，改得正确。

2：字典可以接受空关键字，加一个空关键字是有作用的，当清除单元格内容时，可以把空值写入对应位置，效果等同于清除后面的内容。

3：不是你的软件问题，大家看到的都一样。观察程序运行过程，要根据实际需要使用本地窗口、立即窗口（debug.print）等工具。

e表格学习

山菊花 发表于 2015-5-18 17:36
你好。
1：改得对，改得正确。

山版您好！
1、确实是“把空值写入对应位置，效果等同于清除后面的内容”。
2、sheet34中，我一直“耿耿于怀”：代码清除后，其后面内容还在。现在，我按您的指导，把“+1”补上、去掉if中="'那一句，OK！
3、“2012年感动中国人物评选”表：老师能否增加几句语句，使得我们初学者可以按F8逐步运行语句？（因为不在窗口里观察逐步运行结果，逻辑关系“乱”得不好理解啊。）

开始以为“山菊花”是一位女老师，因为“她”的语言风格透露出温馨、清新、耐心、专心。最近才知道您是一位“教1”的Man Teacher，这更加令人敬佩有加……

EH有像您这样的一批老师，实在是我们学习者的幸运。好的老师（包括学习者）不仅教学生解题，也同时教了怎样做人，怎样做踏实、谦逊、幽默、乐观向上的人。

衷心谢谢您、谢谢EH论坛！