给论坛管理者的建议

zgwei050

最忌讳的提问就如这种样子：
http://club.excelhome.net/thread-818477-1-1.html

有炒菜者及工具（指版主、高手等），但没有原料菜（提问者的附件）——高手无法下手炒菜。

jizewei

一剑惊心 发表于 2012-1-16 09:45
1、会员之间的帮助都是无偿的。你不能让别人非要解答你的问题。
2、高手的帮助都是业余时间的，没有哪个高 ...

强烈同意，论坛上的很多人还是很热情的。

lrf2003

我认为论坛的问题回答的够快了，很多问题一上来就有人抢着回答，大家都很热心，不知楼主说的是什么时候没有回答他的问题？

hbdyyx

哈
还这么热
个人还想说：
1）能来到这个大家庭的，都是 exce  的实用者！！ 有的是学到即“领悟”（非常“嫉妒”他们达到“一举反三”的境地）；有的是学到也达不到“领悟”（别见笑—— 俺就是）
2）在这个大家庭，达到“一举反三”的境地老师、高手们都能热心回答求助者的问题（之所以这么说，因为 —— 我被困惑、无力解决的问题在这都得到了解决）
3）每个人都有自己的工作——这个大家庭里的老师、高手们也不可“放弃”本职工作目不转睛的盯在电脑前…….（ 嘿嘿，俺发出求助帖，不一会就有了帮助回复）
4）来到这里的求助者，应有一颗感恩之心，自己不所及而得到了老师、高手们帮助。毕竟他们都是无私的给予了我们帮助！！！！！！！！！！！！！！！
      在新春即将来临之际，向乐于回答、帮助求助者的各老师、高手们问好，并致以真诚的谢意 —— 您们辛苦了！！！ 祝福您们事业发达！！！！！！！！！！！！

hbdyyx

lrf2003 发表于 2012-1-17 18:21
我认为论坛的问题回答的够快了，很多问题一上来就有人抢着回答，大家都很热心，不知楼主说的是什么时候没有 ...

您说出了俺的心声！
顶！！！！！！！！！！！！！！！
真的搞不明白，怎么会有人发出 “异声” 呢？？？？？？？？？？

hbdyyx

也有可能是自己的“表述”不达意，或因上传附件的“受限”而“简化”的附件的缘故，也可能一时没得到即是求助的答复 —— 但要“领悟”
哈哈
现实的求助例证（今天）：
求助帖：

没有“人”了

怎么不显示“空白”， 还显示的是 10 对应的“人”的成绩呢？

帮助修正代码：当 B3单元格是“空白”，那I10:T16 区域也应是“空白”

1）

sheet  及时回复

     Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       ActiveSheet.Unprotect Password:=5784
             If Len(Range("b3")) = 0 Then Range("I10:T16 ").ClearContents
          ActiveSheet.Protect Password:=5784, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
       End Sub

2）

dragonthree  及时回复

程序最开始加一句：
Range("I10:T16 ").ClearContents
就是这样
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr, brr
Dim i&, j&
Range("I10:T16 ").ClearContents
   ReDim arr(1 To 7, 1 To 12)
    If Target.Address <> "$AC$3" And Target.Address <> "$AB$2" Then Exit Sub
……



领悟：
1）谢谢，把  If Len(Range("b3")) = 0 Then Range("I10:T16 ").ClearContents  添加在下面的位置 问题 解决了

ActiveSheet.Unprotect (5784)
If Len(Range("b3")) = 0 Then Range("I10:T16 ").ClearContents
    x = Application.WorksheetFunction.VLookup(Sheets("登记表").Range("ac3"), Sheets("信息源").Range("a4:e2000"), 5, 0)   
    ActiveSheet.Protect Password:=5784, DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFiltering:=True

2）谢谢，把  Range("I10:T16 ").ClearContents  添加在下面的位置 问题 解决了

ActiveSheet.Unprotect (5784)
  Range("I10:T16 ").ClearContents
    x = Application.WorksheetFunction.VLookup(Sheets("登记表").Range("ac3"), Sheets("信息源").Range("a4:e2000"), 5, 0)
    ActiveSheet.Protect Password:=5784, DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFiltering:=True

在这里 ，对于求助者—— 得到都是“师者”给予无私的相助！！！！！！！！！1

moon2778

可以了，所有的观点和论述基本上都已表达完毕，也没什么新观点了。为了防止楼主受到进一步的伤害，就此关闭结贴。thanks 各位。新年快乐。