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

[µo°Ý] Excel VBA ½Ð¯q

ALT-F11 ¶}±ÒVB½s¿è
¿ï¾Ü ¤u§@ªí1(AA) ¶K¤W¤U¦Cµ{¦¡

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "M1" Then
        For Each xV In Range("O10:R10")
            If xV > 0 Then
                [ZZ!K4:K99] = ""
                [ZZ!K4].Offset((Target.Value - 1) * 2).Resize(2) = xV
            End If
        Next
    End If
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD