¦p¦ó¤~¯à§ä´M©Ò­nªºÃC¦â¤å¦r¸ê®Æ¨Ã¦b¸Ó¦CªºÀx¦s®æ¶î¤WÃC¦â¤Î¶ñ¤J¤å¦r?

agwhk

·í(¹Ï 1) BÄæ¥X²{ÂŦâ¤å¦r¤Î¬õ¦â¤å¦r®É¡A¦p¦ó
¦b¸Ó¦CªºÀx¦s®æ¶î¤WÃC¦â¤Î¶ñ¤J¤å¦r¦p (¹Ï 2)©Ò¥Ü?

¤U¸ü (30.13 KB)

2011-5-22 22:15

dechiuan999

§A¦n¡G
  ½Ð¸Õ¸Õ¦p¤U¡G
Sub aa()
   
    Dim mSht As Worksheet
    Dim  s%
    Dim Rng As Range, mRng As Range
   
    Set mSht = Worksheets(1)
    With mSht
        Set mRng = .Range("b1:b7")
        For Each Rng In mRng
            s = Rng.Font.ColorIndex
            Select Case s
            
            Case 5
                Rng.Offset(, -1).Interior.ColorIndex = 4
                Rng.Offset(, 2).Value = "L"
            Case 3
                Rng.Offset(, 1).Interior.ColorIndex = 4
                Rng.Offset(, 2).Value = "R"
            End Select            
            
        Next
    End With
        
End Sub

agwhk

«Ü¦hÁÂdechiuan999¤j¤jªº¦^¼i«ü¾É¡A¸Õ¥Î¹L¦X¥Î¦A¤@¦¸ÁÂÁÂ!!!!

agwhk

¦pªG¥u¦b¿z¿ï¥X¨Óªº¸ê®Æ¤~°õ¦æ¦¹¥\¯à¡AÁôÂ꺸ê®Æ«h¤£§@¥ÎÀ³¦p¦ó­×§ï©O? ÁÂÁÂ

Hsieh

Set mRng = .Range("b1:b7").SpecialCells(xlCellTypeVisible)

agwhk

ÁÂÁ±z­Ì¨C¤@¦ì¼ö¤ßªºªB¤Í¡A¨Ï§ÚÀò¯q¨}¦h...ÁÂÁÂ