GBKEE

¦^´_ 40# 198188
¨º»ò¬O¤£¬O­n¦bworksheets«e­±¥[¤Wworkbooks?¦ý¬O¤W¤@¥y¦WºÙ¨S¦³°ÝÃD¡H
¤u§@ªí¦WºÙµL»~!!  µ{¦¡½X: µ{§Ç©Ò¦bªº¬¡­¶Ã¯¤§¤u§@ªí, ¤£»Ý¥[¤W  workbooks  ¨ä¥L¬¡­¶Ã¯ªº¤u§@ªí­n¥[workbooks
Àx¦s®æ­n³]©³¦â,¥Î¿ý»s·s¥¨¶°¥i±oµ{¦¡½X

GBKEE

¦^´_ 42# 198188
2003ª© ¨S¦³EDIT FORMATING RULE ³o¥\¯à
¦ý¦³ «ü¥O[®æ¦¡]->[³]©w®æ¦¡¤Æ±ø¥ó] :¼g¤½¦¡ ,«ü©wÃC¦â
©Î¬OVBA

1. Option Explicit
   
2. Sub Ex()  'Äæ³]©w¦pªGBÄæ¬O­È¤j¹L0 ©M¤£µ¥©óAÄæ´NÅÜÃC¦â
   
3.     'Á|¨Ò [A1]:[B1]
   
4.     If [B1] >= 0 And [B1] <> [A1] Then
   
5.         With Range("A1")
   
6.             .Interior.Color = vbYellow  '©³¦â    :¶À
   
7.             .Font.Color = vbRed         '¦rÅé¦â  :¬õ
   
8.             .Font.Size = 15             '¦rÅé¤Ø¤o:15
   
9.         End With
   
10.     End If
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 43# 198188

1. Do
   
2. '
   
3. '
   
4. MSGBOX J  '¬d¬Ý J=??? ²Å¦X±ø¥ó¶Ü!!
   
5. Loop While J=2   
   
6. '°õ¦æªº±ø¥ó While (¤@ª½¬O) :  J=2
   
7. 'Â÷¶}ªº±ø¥ó UNTIL (ª½¨ì¬O):   J=2

½Æ»s¥N½X

§A¬O­nLoop While J>=2  ??
§A¬O­nLoop While J<>2  ??
§A¬O­nLoop While J<=2  ??
§A¬O­nLoop While J<2     ??