带你入门VBA系列之：不懂的代码快点贴过来

houcunjian

CommandButton1.MousePointer =fmMousePointerCross
语句使CommandButton1上的鼠标指针变成十字，我想让鼠标在图表上变成十字，怎么处理？

星语心愿

Sub 显示()
  Dim sh As Worksheet
  For Each sh In Worksheets
    sh.Range("B8:B200").EntireRow.Hidden = False
  Next sh
End Sub
Sub 隐藏()
  Dim sh As Worksheet, rw As Range
  Application.ScreenUpdating = False
  For Each sh In Worksheets
    For Each rw In sh.Range("B8:B200")
      If rw = 0 Then rw.EntireRow.Hidden = True
    Next rw
  Next sh
  Application.ScreenUpdating = True
End Sub

麻烦哪位注释一下这段代码好吧？

原帖在http://club.excelhome.net/viewthread.php?tid=199676&replyID=&skin=0

rzz8118

请教"For i = 100 To 7 Step -1"与"For i = 100 To 7 "有什么区别?谢谢!

lpz001

Sub xxx()
Dim arr(1 To 4), i As Byte
For i = 1 To 4
    arr(i) = [a1].Offset(Evaluate("1/MAX((A1:A100=" & i & ")/ROW(A1:A100))") - 1, 0).Resize(Evaluate("sumproduct(1*(A1:A100=" & i & "))"), 3)
Next
End Sub

我不理解 1/MAX((A1:A100=" & i & ")/ROW(A1:A100))和sumproduct(1*(A1:A100=" & i & "))这两句，请帮我解释一下，好吗？

jsyffs

请教elseif是什么意思？谢谢!!

lovezehua

置顶的帖子,怎么不见解释代码了

yj3043

兰老师总能别出心裁的让我们有学习的好地方

谢谢兰老师

12345xulu

Sub Solve()
 SloverOk SetCell:="$B53$", MaxMinVal:=1, ValueOf:="0", ByChange:="$A$43:$A$49"
 Sloverslove UserFinish:=True
 End Sub

请问老师，这段代码中Sloverok的参数各代表什么意思，以后如果我再碰到这类问题，应该到什么地方去查找solve（）函数一类的参数意思。

stx1980710

QUOTE:

以下是引用星语心愿在2006-11-14 9:21:49的发言：

Sub 显示()
  Dim sh As Worksheet
  For Each sh In Worksheets‘在所有的工作表中循环
    sh.Range("B8:B200").EntireRow.Hidden = False’显示符合条件的行
  Next sh
End Sub
Sub 隐藏()
  Dim sh As Worksheet, rw As Range
  Application.ScreenUpdating = False
  For Each sh In Worksheets‘在所有的工作表中循环

    For Each rw In sh.Range("B8:B200")‘在每个工作表中指定的范围循环

      If rw = 0 Then rw.EntireRow.Hidden = True‘隐藏符合条件的行

    Next rw
  Next sh
  Application.ScreenUpdating = True
End Sub

麻烦哪位注释一下这段代码好吧？

原帖在http://club.excelhome.net/viewthread.php?tid=199676&replyID=&skin=0

stx1980710

QUOTE:

以下是引用rzz8118在2006-11-15 12:59:13的发言：

请教"For i = 100 To 7 Step -1"与"For i = 100 To 7 "有什么区别?谢谢!

测试了一下

For i = 100 To 7 Step -1可以执行

For i = 100 To 7 不能执行，通常的写法为 i = 7 to 100 默认step 为1