ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

°£¿ù

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-11-1 00:36 ½s¿è

¦^´_ 1# ÂŤÑÄR¦À

¦]¬°¹q¸£§ä¤£¨ì§A­nªºÀx¦s®æ!
.Offset(1).Cells(1, -1)=­ì¨ÓÀx¦s®æ¦V¤U¤@®æ¡A¦V¥ª2®æ

Á|¨Ò
[C2].Offset(1).Cells(1, -1).Select  '=A3

¦ý¬O·í­ì¨ÓÀx¦s®æ¦¡²Ä2Äæ®É¡A­nÅýµ{¦¡§ä¥ªÃä2Ä檺Àx¦s®æ¡A¹q¸£·|§ä¤£¨ì¡A´N·|¸õ¥X¿ù»~!
Á|¨Ò¦p¤U¡A§ä¤£¨ìBÄæ¦A©¹¥ª2Ä檺Äæ¦ì¡A©Ò¥Hµo¥Í¿ù»~
[B2].Offset(1).Cells(1, -1).Select '=?3

¦]¬°§Aªº¸ê®Æ±q²Ä2Äæ´N¦³¶}©l¦³­È¡A©Ò¥H".Offset(1).Cells(1, -1)"´N·|²£¥Í¿ù»~

ÁÙ¦³ÅÞ¿è¹Bºâ¬O±q«á­±©¹«eºâ
Á|¨Ò¨Ó»¡
MsgBox True Or False And False  '=MsgBox True Or (False And False)=True
¦Ó¤£¬O
MsgBox (True Or False) And False '=False

­Y¤£·Q·d²M·¡­þ­Ó¥ý¹Bºâªº¸Ü¡A³Ì¦n¥[¤W¬A©·¡A¤ñ¸û¤£·|¥X¿ù
­×§ï¦p¤U:
If (.Row = 2 Or .Row > 2) And .Value <> Rng.Value Then

.Row = 2 Or .Row > 2 ¥i²¤Æ¬°  .Row>=2

§Aªºµ{¦¡«Ü¦h¦a¤è¥i¥H²¤Æ
.Offset(1).Cells(1, -1).Resize(, 1) = Rng.Cells(, -1).Resize(, 1).Value
¤W¤@¦æµ¥®Ä©ó¤U¤@¦æ(¥u¦³¤@­ÓÀx¦s®æ¡A¤£»Ý­nResize)
.offset(1,-2)=Rng(,-1).value
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 3# n7822123

For cts = 2 To 101
Set Rng = Cells(2, cts)
...
...

¸É¥R¡A§Aªºcts±q2¶}©l
©Ò¥H "Rng(, -1).Value"¡A­n§ä¨ì©¹¥ª¨âÄ檺­È¡A¤]¬O¤£¥i¯àªº
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-11-5 02:56 ½s¿è

¦^´_ 9# faye59



«y«y......¨ä¹ê§Ú¤]¦³¦a¤è¨SÁ¿²M·¡¡A
¬°¤FÁקK»~¾É§O¤H¡A§ÚÁÙ¬O¦Û§ÚªÈ¥¿¤@¤U¡A
ÅÞ¿è¹Bºâ¬O±q«á­±©¹«eºâ
³o¥y¸Ü¥u¦³For¸Ó¹Bºâ¦¡
¹ê»Ú¤W¬O "And" ·|¤ñ "Or" ¥ýºâ
©Ò¥H¸Ó¦¡·|Åܦ¨«á­±ªº¥ýºâ
¦pªG·Q­nOr¥ýºâ¡A»Ý­n¥[¤W¬A©·
¬Ý¤F¤U¹Ï´N©úÁA¤F

111.png
2018-11-5 02:47
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD