[µo°Ý] VBA¦p¦ó¨Ì«ü©w2­Ó±ø¥ó¦¨¥ß«á,¦A¥h°µ´M§ä»P¨ú¥NÄæ¦ì¤º®e

o939120931

½Ð°Ý¤@¤U¡G
¡@1. ¥¨¶°°õ¦æ¬O¨Ì²Ä¤@­Ó¤u§@ªí¡AA1Äæ¦ì¡i©³¦â¡j+¡i¤º®e¡j¡A2­Ó±ø¥ó¬°¨Ì¾Ú¦A¥h°µÅÜ°Ê
¡@2.­ì¥u¬O·Q§ó§ïÄæ¦ì¼Æ¦r1´N¦n
¡@2. ¦ý­ì¨Ó¼Æ¦r10ªºÄæ¦ì¡A«o¤]·|³Q§ó§ï¦¨120ªº¼Æ­È

¬O§_¦³¤èªk¸Ñ¨M¡AÁÂÁ¡ã

o939120931

¸É¤W¥¨¶°¼gªº¤º®e¡G

----------------------------------------------------------------------------------------------------------------------------------

Public Sub «ü©wÃC¦â»PBin§O§ï¦¨«ü©wBin_A1Äæ¦ì¿é¤Jª©()
     
    colorx = Sheet1.Range("A1").Interior.ColorIndex    'Àò¨ú³æ®æA1­I´º¦â
   
    BinX = Sheet1.Range("A1")  '¡i­ì¥»ªºBin§O¡j«Å¥Ü­ì¥»ªºBin§O

    BinY = Application.InputBox("¡i½Ð°Ý­n§ï¦¨¤°»òBin§O(¼Æ¦r)¡j", "½Ð¿é¤J­n¨ú¦Ó¥N¤§ªºBin§O(¼Æ¦r)", Type:=1)
    '¡i­n¨ú¥NªºBin§O¡j«Å¥Ü¨ú¥NªºBin§O
   
    For Each S In Sheets
   
      shtname = S.Name
   
      Sheets(shtname).Select  '¤Á´«¡i¤u§@ªí¡j
      
      Application.FindFormat.Clear  '²M°£®æ¦¡³]©w
        
      Application.FindFormat.Interior.ColorIndex = colorx  '´M§ä¡iÄæ¦ìÃC¦â¡j»P¡i­ì¥»ªºBin§O¡j¨Ã¨ú¥N¦¨¡i«ü©wBin§O¡j

      Cells.Replace What:=BinX, Replacement:=BinY, SearchFormat:=True
      
      Range("A1").Clear '¹ý©³²M°£A1¦ÜD4³æ®æ°Ï°ìªº¤º®e¡A¥]¬A®æ¦¡
   
    Next

End Sub

o939120931

¦^´_ 3# luhpro


   ÁÂÁ luhpro ¤j¤j§Aªº¦^ÂСA²×©ó¥i¥H¤F:loveliness: