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

[µo°Ý] Excel VBA ¨Ì±ø¥óÀx¦s®æ¤Ï¦â

[µo°Ý] Excel VBA ¨Ì±ø¥óÀx¦s®æ¤Ï¦â

¥»©«³Ì«á¥Ñ msmplay ©ó 2018-11-18 17:49 ½s¿è

20109231JnRA4msWOk.png
2018-11-18 17:24

½Ð°Ý¦p¦ó¨Ï¥ÎVBA(«D®æ¦¡¤Æ±ø¥ó)¡AÅý½d³òB2:V20¥i¨Ì±ø¥óÄæ¤Î¦C¤Ï©³¦â+²ÊÅé¡A±ø¥ó¦p¤U:

B2:V2Äæ¡A¦WºÙ¬° "¥Ø¼Ð" ¸ÓÄæ¤Ï²LÂŦâ+²ÊÅé¡C


B2:V2Äæ¡A¦WºÙ¬° "¹F¦¨" ¸ÓÄæ¤Ï²`ÂŦâ+²ÊÅé¡C


D3:D20¦C¡A¦WºÙ¬° "All" ¸Ó¦C¤Ï²L¦Ç¦â+²ÊÅé¡C


C3:C20¦C¡A¦WºÙ¬° "All" ¸Ó¦C¤Ï¦Ç¦â+²ÊÅé¡C


B3:B20¦C¡A¦WºÙ¬° "All" ¸Ó¦C¤Ï²`¦Ç¦â+²ÊÅé¡C


´£¿ô¡G³]©w±ø¥ó»Ý¥Ñ1~5¨Ì§Ç¤Ï¦â¡A¦p¦¹¤~¯à¨Ì»Ý¨DÂл\¨ä¥L©³¦â¡C


71s5o.Rashad.Becker..Traditional.Music.Of.Notional.Species.Vol.II.2016.k5t8u.iji8f.zip (283.88 KB)

´ú¸ÕÀÉ http://www.FunP.Net/248291

*¦v¤k¤@ªTµL»~*

­«·s§ó·s´ú¸ÕÀɳsµ²¥t¥~¤w­«·s§ó·s´ú¸ÕÀɳsµ²¡A«D±`·PÁÂ~~~
https://drive.google.com/file/d/1iwqU0gEUAywjFtgxYDuURwzm1QcZCc7A/view?usp=sharing
*¦v¤k¤@ªTµL»~*

TOP

ªþ¥ó¤W¶Ç¬°¦ó¤£¥Î¥»½×¾Âªº¤è¦¡???

TOP

¦^´_ 3# ­ã´£³¡ªL
­ã¤j~~~~¦]¬°¥DÃD¤w¸g¤£¯à½s¿è¡A¤£¹L©êºp¡A¨Sª`·N¨ì­ì¨Ó¦^ÂФ]¯à¦A¦¸¤W¶Çªþ¥ó¡A¤w¸É¤W´ú¸ÕÀÉ


    ´ú¸Õ.rar (15.22 KB)
*¦v¤k¤@ªTµL»~*

TOP

Sub ifcolor_1()
Dim R&, C&, xR As Range, Cv%, Cr, i&, j%
R = Cells(Rows.Count, 2).End(xlUp).Row
C = Cells(2, Columns.Count).End(xlToLeft).Column
Cr = Array(16, 48, 15) '¾î¦Vªº¦â¸¹(¦Û¦æ§ó§ï)
With [B2].Resize(R - 1, C - 1)
     .Interior.ColorIndex = xlNone: .Font.Bold = False
     For Each xR In .Rows(1).Cells
         Cv = Switch(xR = "¥Ø¼Ð", 34, xR = "¹F¦¨", 33, xR = xR, 0) 'Áa¦Vªº¦â¸¹(¦Û¦æ§ó§ï)
         If Cv > 0 Then
            With xR.Resize(R - 1): .Interior.ColorIndex = Cv: .Font.Bold = True: End With
         End If
     Next
     For i = 2 To R - 1:  For j = 1 To 3
         If .Cells(i, j) = "All" Then
            With .Cells(i, j).Resize(1, C - j)
                 .Interior.ColorIndex = Cr(j - 1): .Font.Bold = True
            End With
            Exit For
         End If
     Next:  Next
End With
End Sub

TOP

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


   ­ã¤jÁÂÁ§A³á~~~~~°ÝÃD¤w¸Ñ¨M¡A¦A¦¸·PÁÂ
*¦v¤k¤@ªTµL»~*

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD