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

ªø±ø¹Ï¤¤¤£Åã¥Ü

ªø±ø¹Ï¤¤¤£Åã¥Ü

Á`ªí¤¤ªºªø±ø¹Ï¤£­nÅã¥Ü¦X­p¬°0ªº ¦³ ¤°»ò¤èªk¶Ü?

Image 1.png (16.65 KB)

Image 1.png

­pºâ.rar (11.3 KB)

ÁÙ¦³§Ú¤£­n¤â°Ê¿ï¾Ü½d³ò¡A©Î¬O§R°£¡BÁôÂÃ1¤ë4¤éªº¸ê®Æ¡A¦Ó¬O¦b§Ú¿é¤J1/1~1/4ªº¸ê®Æ«á¡Aªø±ø¹Ï´N¥i¥H¦Û°Ê¿z¥X(¤]¤£­n¥Î¦Û°Ê¿z¿ï) §Ú­nªº¸ê®Æ¡C

TOP

EXCEL¹Ï§Î¥\¯àÀ³¸Ó°µ¤£¨ì¡A¥u·Q¨ì¥ÎVBA
1. »Ý±N¹Ï§Îªº¤ô¥­¶b®y¼Ð¶b¿ï¶µ§ï¬°"¤å¦r®y¼Ð¶b"
2. ¶K¤WVBAµ{¦¡½X, °õ¦æµ{¦¡
Private Sub CommandButton1_Click()
    Dim I As Integer, RNG As Range
   
    With Sheet1
        Set RNG = .Range(.Cells(1, 1), .Cells(1, 4))
        For I = 2 To .Cells.SpecialCells(xlCellTypeLastCell).Row
            If .Cells(I, 5) <> 0 Then
                Set RNG = Union(RNG, .Range(.Cells(I, 1), .Cells(I, 4)))
            End If
        Next I
        .ChartObjects("¹Ïªí 1").Chart.SetSourceData Source:=Range(RNG.Address)
    End With
End Sub

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD