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

[µo°Ý] ¼W¥[¡i¨ú¥N¡jªº»yªk¡C

[µo°Ý] ¼W¥[¡i¨ú¥N¡jªº»yªk¡C

´ú¸ÕÀÉ :[attach]30620[/attach]

³Æµù¡J¥»ÃD´£¨Ñ6­Ó´ú¸ÕÀɮסC

¦b¥Ø«e¤w¸g±N$B$1¡J$AX$1¼Ð¥Ü¶}¼ú¸¹½Xªº©³¦â¤§«á¡A¦b¼W¥[¤U¦Cªº»Ý¨D~
»Ý¨D¡J
1_±N²Ä2­Ó¤u§@ªí(="«e3¤p")ªºAZ$1¡JCC$1ªº"¤j"¨ú¥N¬°"¤p"¡C

2_±N²Ä2­Ó¤u§@ªí(="«e3¤p")ªºAZ$1¡JCC$1ªº~
"43¸¹©³¦â(¹Ï¥Ü)"®æ¦¡"¨ú¥N¬°"40¸¹©³¦â(¹Ï¥Ü)"¡F
"8¸¹©³¦â(¹Ï¥Ü)"®æ¦¡"¨ú¥N¬°"39¸¹©³¦â(¹Ï¥Ü)"¡F
"37¸¹©³¦â(¹Ï¥Ü)"®æ¦¡"¨ú¥N¬°"45¸¹©³¦â(¹Ï¥Ü)"¡F

¥H¤W Àµ½Ð¦U¦ì¥ý¶i´f¤©½ç±Ð¬°Ã«¡IÁÂÁ¡I

¼W¥[¨ú¥Nªº»yªk.rar (124.67 KB)

¦^´_ 1# Airman
¤£¦n·N«ä¡A1#ªº´ú¸ÕÀÉ©ñ¿ù¤F^^"

§ó·s´ú¸ÕÀÉ~ ¼W¥[¨ú¥Nªº»yªk(2).rar (123.67 KB)
ÂԨѰѦÒ!ÁÂÁÂ!

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2019-5-17 21:08 ½s¿è

¦^´_ 1# Airman

¦b¥Ø«e¤w¸g±N$B$1¡J$AX$1¼Ð¥Ü¶}¼ú¸¹½Xªº©³¦â¤§«á¡A¦b¼W¥[¤U¦Cªº»Ý¨D~
¸É¥R§¹¾ãªº»¡©ú~
¦b¥Ø«e¤w¸g±N(Àɮפé´Áªº¤U¤@¦C¶}¼ú¸¹½X¤§$B$1¡J$AX$1¼Ð¥Ü©³¦â©M¼W¥["«e3¤p"ªº¤u§@¤§«á¡A¦A¼W¥[¤U¦Cªº»Ý¨D~
ÁÂÁÂ!

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2019-5-18 04:28 ½s¿è

¦^´_ 3# Airman
1.png
2019-5-18 04:16


´ú¸Õ¥DÀÉ : (¥DÀÉ)¼W¥[¨ú¥Nªº»yªk.rar (58.53 KB)

¦b¦C40~¦C56´¡¤J
                      Range("AZ1:CC1").Replace "¤j", "¤p"
                     
                      Range("AZ1:CC1").Select
                      Application.FindFormat.Interior.ColorIndex = 43
                      Application.ReplaceFormat.Interior.ColorIndex = 40
                      Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
                      :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
   
                      Application.FindFormat.Interior.ColorIndex = 8
                      Application.ReplaceFormat.Interior.ColorIndex = 39
                      Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
                      :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

                      Application.FindFormat.Interior.ColorIndex = 37
                      Application.ReplaceFormat.Interior.ColorIndex = 45
                      Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
                      :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True


½Ð°Ý :­n¦p¦ó²¤Æ¿ý»s³¡¤Àªºµ{¦¡½X?
ÁÙ¦³~©ñ¸mªº¦C¦ì¥¿½T¶Ü?
Àµ½Ð¦U¦ì¤j¤j¤£§[½ç¥¿¬O©¯!ÁÂÁÂ!

TOP

¦^´_ 4# Airman

         
           ½Ð°Ñ¦Ò¡AÀˬd¬Ý¬Ý³o¬O¤£¬O§A­nªº¡G
                      For Each Rng In .Range("AZ1:CC1")
                              Rng.Value = Replace(Rng, "¤j", "¤p")
                              If Rng.Interior.ColorIndex = 43 Then
                                    Rng.Interior.ColorIndex = 40
                              ElseIf Rng.Interior.ColorIndex = 8 Then
                                    Rng.Interior.ColorIndex = 39
                              ElseIf Rng.Interior.ColorIndex = 37 Then
                                    Rng.Interior.ColorIndex = 45
                              End If
                        Next

¤W­±ªº´N¨ú¥N¤U­±ªºÅo¡F
''''                      Range("AZ1:CC1").Replace "¤j", "¤p"
''''
''''                      Range("AZ1:CC1").Select
''''                      Application.FindFormat.Interior.ColorIndex = 43
''''                      Application.ReplaceFormat.Interior.ColorIndex = 40
''''                      Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
''''                      :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
''''
''''                      Application.FindFormat.Interior.ColorIndex = 8
''''                      Application.ReplaceFormat.Interior.ColorIndex = 39
''''                      Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
''''                      :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
''''
''''                      Application.FindFormat.Interior.ColorIndex = 37
''''                      Application.ReplaceFormat.Interior.ColorIndex = 45
''''                      Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
''''                      :=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

TOP

¥»©«³Ì«á¥Ñ Scott090 ©ó 2019-5-18 11:51 ½s¿è

¦^´_ 4# Airman



         ¦b²¤Æ¸Õ¸Õ¬Ý¡G
                With ActiveSheet
                        .Name = "«e3¤p"
                        .Tab.Color = RGB(255, 255, 0)
                        
                        For Each Rng In .Range("AZ1:CC1")
                              Rng.Value = Replace(Rng, "¤j", "¤p")
                              i = Rng.Interior.ColorIndex
          Rng.Interior.ColorIndex = IIf(i = 43, 40, IIf(i = 8, 39, IIf(i = 37, 45, i)))

                        Next
              End With

TOP

¦^´_ 6# Scott090


¸Õ¸Õ³o¥i¤£¥i
Rng.Interior.ColorIndex = Switch(i = 43, 40, i = 8, 39, i = 37, 45, i = i, i)))

TOP

¦^´_ 7# ­ã´£³¡ªL

    ­ã¤j¡G
    ¥Î Switch ¬O¤@­Ó«Ü¦nªº¼gªk¡A
     ÁÂÁ´£¿ô

TOP

¦^´_ 6# Scott090
Scott090¤j¤j :
OK¤F!ÁÂÁ±zªº¤£§[½ç¥¿^^

TOP

¦^´_ 6# Scott090
Scott090¤j¤j :
¦A½Ð±Ð¤@¤U:
¦pªG¤£¥Î°j°é  For.....Next
ÁÙ¦³¨ä¥¦ªº»yªk¶Ü?
ÁÂÁ±z^^

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD