- ©«¤l
- 58
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 117
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-12-2
- ³Ì«áµn¿ý
- 2021-12-16
|
[µo°Ý] §PÂ_½d³ò¤º¬O§_¥X²{#NA©Î¯S©w¦r¦ê
³oÓ¥i¥¿±`¹B§@¡A¥i¥HÀò¨ú¸Ó¦æ¸I¨ì²Ä¤@Ónaªº¦ì¸m¡A¦ý§Ú¦³ºÃ°Ý
Sub test1()
Dim max_row As Integer
Dim i As Integer
Calculate '«ºâ©Ò¦³Àx¦s®æ
max_row = Sheets("contorl").Cells(Rows.Count, 2).End(xlUp).Row 'Àò¨úBÄæ³Ì«á¤@®æªº¦ì¸m(²Ä´X¦ì)
For i = 2 To max_row
If Not IsError(Range("N" & i)) Then error_var = i '¨ú±o²Ä¤@Ó¸I¨ì¬ONAªº®æ¤l
Next i
Debug.Print "¥X²{na¦ì¸m"; error_var; "Á`¦æ¼Æ"; max_row
End Sub
'³o¸ÌªºIf Not IsError(Range("N" & i)) Then error_var = i '¨ú±o²Ä¤@Ó¸I¨ì¬ONAªº®æ¤l
'·Ó§Ú²z¸ÑÀ³¸Ón¬OIf IsError(Range("N" & i)) Then error_var = i ¤~¬O¦³¸I¨ìNA§â¦ì¸mI¼g¶ierror_var¸Ì
'¦ý¹ê»Ú°õ¦æ«o¬OIf Not IsError(Range("N" & i)) Then error_var = i ¤~·|§â¸I¨ìªºNA¼g¶ierror_var¸Ì
;==================§Ú¬O¤À®æ½u====================
Sub test2()
Dim max_row As Integer
Dim i As Integer
Calculate '«ºâ©Ò¦³Àx¦s®æ
max_row = Sheets("contorl").Cells(Rows.Count, 2).End(xlUp).Row 'Àò¨ú³Ì«á¤@®æªº¦ì¸m(²Ä´X¦ì)
For i = 2 To max_row
If Range("N" & i) = "E2" Then error_var = i '¨ú±o²Ä¤@Ó¸I¨ì¬OE2ªº®æ¤l
Next i
Debug.Print error_var
End Sub
¥H¤Wªº¥¨¶°¤U±³o¥y·|³ø "°õ¦æ¶¥¬q¿ù»~ '13': «¬ºA¤£²Å¦X"
If Range("N" & i) = "E2" Then
½Ð°ÝÀ³¸Ó¦p¦óקï
¾ãÅ骺»Ý¨D¬O¥ý±q¬¡¶Ã¯contorlÀò¨úB¦C¦³¸ê®Æªº³Ì«á¤@¦æ¼Æ ¦A¥h§PÂ_½d³òN¦C¬O§_¦³¥X²{NA©ÎµÛE2¡AY¦³«h³ø¿ù
°²³]B¦C¦³10¦æ¡A´N¬O§PÂ_N2~N10¬O§_¦³¥X²{NA©ÎE2
EXCELª©¥»¬O2003 |
|