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

½Ð°Ý«ç¼Ë±N¤£¦P¦â±m¼Æ¥Ø¬Û¥[

½Ð°Ý«ç¼Ë±N¤£¦P¦â±m¼Æ¥Ø¬Û¥[


·Q°Ý°Ý¦³¤½¦¡¥i¥H±N¤£¦P¦â±m¼Æ¦r¥[°_¨Ó¶Ü
¡]­ìªí¨C¤ë°O¿ý©Ð¶¡¨Ï¥Î¦¸¼ÆÁc¦h
©Ò¥H¤£¯à²³æ¦a±NÁ`¼Æ¼Æ¥X¨Ó
·Ð½Ð¦U¦ìÀ°¦£
¤£³Ó·P¿E¡^

http://blog.xuite.net/hcm19522/twblog/205029860

TOP

¥u¤À¦­¡B¤È¡B±ß, ¤£¤À·|ij«ÇA¡BB¡BC¶Ü?

TOP

http://blog.xuite.net/hcm19522/twblog/361275175

TOP

¤£ª¾¹D VBA ¥i¤£¥i¥H±µ¨ü?
'ª`·N:¬°¤F¤é´Áªº¥iÂX®i©Ê, ­ì J1:J3 ¤w²¾¦Ü B16:B18
'½Ð®Ú¾Ú»Ý­n, ¦Û¦æ§ó§ï
Private Sub CommandButton1_Click()
    Dim Ar
    Dim R1 As Integer, C1 As Integer, LstC As Integer, CN As Integer
    Dim MC As Integer, AC As Integer, EC As Integer
   
    [B11:H13] = ""
    LstC = [IV2].End(xlToLeft).Column
    MC = [B16].Font.ColorIndex   '¤W¤ÈÃC¦â
    AC = [B17].Font.ColorIndex   '¤U¤ÈÃC¦â
    EC = [B18].Font.ColorIndex   '晩¤WÃC¦â
   
    For R1 = 2 To 8
        For C1 = 2 To LstC
            If Cells(R1, C1) <> "" Then
                CN = Cells(R1, C1).Font.ColorIndex
                If CN = MC Then
                    Cells(11, C1) = Cells(11, C1) + Cells(R1, C1)
                ElseIf CN = AC Then
                    Cells(12, C1) = Cells(12, C1) + Cells(R1, C1)
                Else
                    Cells(13, C1) = Cells(13, C1) + Cells(R1, C1)
                End If
            End If
        Next
    Next
End Sub
test.gif

TOP

http://blog.xuite.net/hcm19522/twblog/205029860
hcm19522 µoªí©ó 2015-11-30 11:31

·PÁÂ
¦n¹³¦X¥Î
¤£¹LÁÙ¥¼§Ë²M·¡
­nºCºC¬ã¨s¤@¤U

TOP

¥u¤À¦­¡B¤È¡B±ß, ¤£¤À·|ij«ÇA¡BB¡BC¶Ü?
yen956 µoªí©ó 2015-11-30 13:59

¬O·|ij«Ç¢Ï¡A¢Ð¡A¢Ñ¦b¤W¤È¡A¤U¤È©M±ß¤Wªº¨Ï¥Î¦¸¼Æ

TOP

http://blog.xuite.net/hcm19522/twblog/361275175
hcm19522 µoªí©ó 2015-11-30 15:15

³o­Ó«Ü¦³¥Î
ÁÂÁÂ

TOP

¦^´_ 5# yen956
©êºp
§ÚªºExcel¨S¦³"¶}µo¤H­û"³o¤@¶µ
©Ò¥H¥Î¤£¨ì§A´£¨Ñªº¥N½X

TOP

¦^´_ 9# K_Wing


    «ö ALT-F11 ´N¥i¥H±Ò¶}
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD