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

[µo°Ý] ½Ð°Ý·íA1¿é¤J¼Æ¦r4®É§ä¥X¤U¦C¸ê®Æ¦P¼Æ¦rªº¤½¦¡

[µo°Ý] ½Ð°Ý·íA1¿é¤J¼Æ¦r4®É§ä¥X¤U¦C¸ê®Æ¦P¼Æ¦rªº¤½¦¡

excel 2003©Î¥H«eªº ®æ¦¡¤Æ±ø¥ó ¥u¥i¥H ¦³3ºØ±ø¥ó, ¦A¥[±ø¥óªº¸Ü­n¥Î¤Wvba ¼g¤@­Ó ®æ¦¡¤Æ±ø¥ó ¥X¨Ó¤F
kimbal µoªí©ó 2010-7-13 20:39

http://forum.twbts.com/viewthread.php?tid=822
ÁÂÁÂ¥ý¶iKIMBALªº¦^¤å
¥i¥H³Â·Ðª¾¹Dªº¥ý¶i¥ÎVBA¼g®æ¦¡¤Æ±ø¥ó¶Ü?
ÁÂÁÂ..

¦^´_ 1# PD961A

§A¥i¥H¸ÕµÛ¥Î¿ý»s·s¥¨¶° ¬Ý¬Ý

TOP

¥»©«³Ì«á¥Ñ PD961A ©ó 2010-7-14 18:22 ½s¿è
¦^´_  PD961A

§A¥i¥H¸ÕµÛ¥Î¿ý»s·s¥¨¶° ¬Ý¬Ý
GBKEE µoªí©ó 2010-7-14 17:46



    GBKEEª©¥D..ÁÂÁ±z
¦ý¬O¥i¥H½Ð°Ý±z
·í²Ä¤@¦CA1.B.C~°²³]¨ìH1
¿é¤J¼Æ¦r(¹w³]¬°1~100)
¦ý¬O©³¤Uªº¸ê®Æ·|Åܰʦì¤l(¸ê®Æ·|¦]¬°¤H¬°¿é¤J¦Ó²£¥Í­«½Æªº¦a¤è)
¦]¦¹·í²Ä¤@¦C¿é¤J¤µ¤Ñ§@¦nªº¼Æ¦r¦@8Äæ(~HÄæ).....(§Æ±æ¥i¥H¤£­­¨î¨ìHÄæ)
EX:31.32.33.34.35.36.37¿é¤J§¹´N¥i¥Hª¾¹D©³¤U­þ­Ó¸ê®Æ¸ò¤W­±³o¨Ç¼Æ¦r­«½Æ¤F

³o¼Ëªº±¡ªp¤U­n¦p¦ó¿ý»s·s¥¨¶°?
ÁÂÁ±z..

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-7-14 19:37 ½s¿è

¦^´_ 3# PD961A
¬O¤£¬O³o­Ó¤è¦V
  1. Sub Macro1()
  2. ' Macro1 Macro
  3. ' hsu ¦b 2010/7/14 ¿ý»sªº¥¨¶°
  4.     Range("A2:H17").Select
  5.     Selection.FormatConditions.Delete
  6.     Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OR(A2=$A$1,A2=$B$1,A2=$C$1)"
  7. ' ¨ÌªþÀÉ¿ý»s«á­×¥¿ªº"=OR(A2=$A$1,A2=$B$1,A2=$C$1)"
  8.     Selection.FormatConditions(1).Font.ColorIndex = xlAutomatic
  9.     With Selection.FormatConditions(1).Interior
  10.         .ColorIndex = 6
  11.         .Pattern = xlSolid
  12.     End With
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE


    ÁÂÁª©¥D
¥i¥H½Ð°Ý¬O©ñ¦b¤@¯ëªºMacro1()¶Ü?
´«¹L¼Æ¦r«á¨S¦³§ï¹L
ÁÂÁ±z
1.rar (7.46 KB)

TOP

¦^´_ 5# PD961A
ªþÀÉ¥u¦³¤@­Ó¤u§@ªí µ{¦¡½X©ñ­þ¸Ì³£¤@¼Ë
·íµ{¦¡½X ¦bSHEETª«¥ó¤¤ Range("A2:H17").Select  ¬O«üSHEETª«¥ó¤u§@ªíªºRange  
·íµ{¦¡½X ¦b¤@¯ëModule¤¤ Range("A2:H17").Select  ¬O«ü°µ¥Î¤¤SHEETªºRange  
§A­n¨ì VBA ªºµøµ¡¤¤ ±N·Æ¹«²¾¨ìµ{¦¡½Xªº½d³ò¸Ì «ö¤UF5    °õ¦æ¤@¦¸  Sub Macro1()µ{¦¡ ¤~·|¦³§@¥Î

TOP

¦^´_ 5# PD961A


    ¦pªG§A¬O2003ª©¥H«eª©¥»­n¥Î±ø¥ó®æ¦¡¬O¤£¯à°µ¨ì3ºØ±ø¥ó¥H¤W
¦^¤@¯ë°Ï¬Ý­ìµo¤å¦³¨S¦³±o¨ì¸Ñµª
¦pªG¨S¦³¨º´N§â»Ý¨D»¡²M·¡
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# PD961A


    ¤p§Ì§Ú¥Î¤ñ¸û²Âªº§@ªk¡A¤£¹L©O¬O¥i¥H¹F¨ì±z­nªº®ÄªG´N¬O¤F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each a In Range(Me.[a2], Me.[h17])
        Select Case a
            Case Me.[a1]
                a.Interior.ColorIndex = 3
            Case Me.[b1]
                a.Interior.ColorIndex = 4
            Case Me.[c1]
                a.Interior.ColorIndex = 5
            Case Me.[d1]
                a.Interior.ColorIndex = 6
            Case Me.[e1]
                a.Interior.ColorIndex = 7
            Case Me.[f1]
                a.Interior.ColorIndex = 8
            Case Me.[g1]
                a.Interior.ColorIndex = 9
            Case Me.[h1]
                a.Interior.ColorIndex = 10
            Case Else
                a.Interior.Pattern = xlNone
        End Select
    Next
End Sub

TOP

ÁÂÁÂ¥ý¶iKIMBALªº¦^¤å
¥i¥H³Â·Ðª¾¹Dªº¥ý¶i¥ÎVBA¼g®æ¦¡¤Æ±ø¥ó¶Ü?
ÁÂÁÂ..
PD961A µoªí©ó 2010-7-14 08:19



    §Ú¤]¨Ó¸Ñ¸Ñ¹a§a , ÃC¦â¸ò²Ä¤@¦æªº¤@¼Ë
twbts20100715format.zip (12.22 KB)
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 9# kimbal


       «Øij¥[¤W¤@¦æ(¬õ¦r)¥ý§â¬J¦³¤§ÃC¦â®ø¥h¡A­Y§_....²Ä¤@¦C(A1~H1)§ïÅܼƦr¸Õ¸Õ¬Ý
              .....
       If c.Row <> 1 Then
             c.Interior.Color = xlNone
             For i = 1 To lngNumCols
              .....

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD