GBKEE

¦^´_ 1# myleoyes
§AµLªk¨úªº¤@­Ó¦h½d³òªº­È
Sub ´£¥Ü()
    Set c = [G3:G36]
    If Application.WorksheetFunction.CountIf(c, "<=0") Then MsgBox "³o¬O·¥°ª­·ÀIªº§ë¸ê¤è®×¡I½Ð­«·sµû¦ô¡I¡I"
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Base 0          ->  ¹w³]ªº¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i°}¦C¯Á¤Þªº¹w³]¤U­­¡C
Sub ´£¥ÜA()
    Dim myRng(1) As Range   '->Dim myRng(0 to 1) As Range
  '
  '
  Dim myRng(2) As Range       ->­«½Æ«Å§iÅܼƠ     
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Base 1
Sub ´£¥ÜA()
    Dim myRng(1) As Range   '->Dim myRng( 1  to 1) As Range
    '
    '
    Dim myRng(2) As Range       ->­«½Æ«Å§iÅܼƠ