½Ð°Ý¤@­Ó»yªk°ÝÃD For I = 1 To Range("§ó·s·s·s").Cells.Count

m09903020

³o¬O¤@­Ó®Ñ¤Wªº½m²ßÃD¥Ø Book1.rar (17.04 KB)

problem xl.
¤U¸ü¦¸¼Æ: 1

2012-7-5 23:35

1. Option Explicit
   
2. Sub for_next()
   
3.    
   
4.     Dim I As Integer
   
5.    
   
6.     Sheets("Sheet2").Select
   
7.    
   
8.     For I = 1 To Range("§ó·s·s·s").Cells.Count '§ÚÃhºÃ«á­±ªº¦Y¤£¶ioffice07
   
9.       
   
10.        If Range("§ó·s·s·s").Cells(I) > Range("¤j¾÷¾÷¾÷").Cells(I) Then
    
11.             
    
12.             Range("§ó·s·s·s").Cells(I).Interior.Color = vbYellow
    
13.        Else
    
14.             Range("§ó·s·s·s").Cells(I).Interior.Color = vbCyan
    
15.       
    
16.        End If
    
17.    
    
18.     Next I
    
19. 
    
20. End Sub

½Æ»s¥N½X

¤U¸ü (43.3 KB)

2012-7-5 23:30

½Ð°Ý§Ú³o¸Ì¸Ó«ç»ò´ú¸Õ ©Î §ïµ½

ÁÂÁÂ

oobird

¦]¬°§A¨S¦³©w¸q¦WºÙ
Range("§ó·s·s·s")¡ARange("¤j¾÷¾÷¾÷")³£­n©w¸q¦WºÙ¤~¥Í®Ä¡I

m09903020

¦^´_ 2# oobird


    ÁÂÁ´£¥Ü¡F¥i¥H½Ð±z¥Ü½d³oºØ½d³òªº©w¸q¤èªk¶Ü? ÁÂÁÂ

1. Dim range("¤j¾÷¾÷¾÷") As range
   
2.    
   
3. §Ú¦ü¥GÆ[©À¤£¬O«Ü²M·¡­n«ç»ò¥Î
   
4.     Dim range("§ó·s·s·s") As range
   
5.    
   
6.     range("¤j¾÷¾÷¾÷") = range(R3C1)
   
7.     range("§ó·s·s·s") = range(R3C6)
   
8.    

½Æ»s¥N½X

chen_cook

¦^´_ 1# m09903020


    ¨ç¼Æ¡B¹Ïªí...µ¥¥\¯à¤Î¨ä¥LExcel¤@¯ë¨Ï¥Î°ÝÃD
     ³o¨à¥u¯à°Ý¤W­z°ÝÃD..... vba ­n¨ìµ{¦¡°Ï

m09903020

¦^´_ 4# chen_cook

¯u¬O©êºp ²{¦b¤~µo²{µo¿ù¦ì¸m

¯u¬O¤£¦n·N«ä!