各位老师帮我看看怎么实现

guoxinqiang

小弟就40金币了  全部给老师   帮小弟看看怎么实现，  小弟在线坐等答案！

guoxinqiang

没有老师能解决么

hwc2ycy

以后有问题尽管提就成了，没金币照样能提问。
只要你把问题描述清楚，大家还是很乐意帮你解决问题的。

danio112

我觉得还是每天上线领10个金币轻松多了

guoxinqiang

hwc2ycy 发表于 2014-4-22 16:09
以后有问题尽管提就成了，没金币照样能提问。
只要你把问题描述清楚，大家还是很乐意帮你解决问题的。

版主，我写的不能实现么 ····

hwc2ycy

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If ((Target.Row - 1) Mod 20) = 0 And Len(Cells(Target.Row, "g").Value) Then
   
3.         MsgBox "当前已经够20条记录了。"
   
4.     End If
   
5. End Sub
   

复制代码

这样不知成不成，在VBE中放入sheet1工作表代码模块中

guoxinqiang

小弟 重新做了下样本，老师给看看代码怎么加上
http://www.excelpx.com/thread-323481-1-1.html

guoxinqiang

hwc2ycy 发表于 2014-4-22 16:21
这样不知成不成，在VBE中放入sheet1工作表代码模块中

小弟 重新做了下样本，老师给看看代码怎么加上
http://www.excelpx.com/thread-323481-1-1.html