Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16537 / 76734

←次へ　｜　前へ→


	【65662】Re:入力した数値分の表を作成したい

芋洗い五段 - 10/6/18(金) 23:41 -


	引用なし

	パスワード

以前に入ってた数値を取得するためにB1にA1をコピーしとくポヨ
あと合計するのは金額じゃないポヨ？勝手にC列にしたポヨ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b
a = Target
If Target.Row <> 1 Or Target.Column <> 1 Or IsNumeric(a) = False Then Exit Sub
If a < 1 Then Exit Sub
Application.EnableEvents = False 'セルをいじると再びここが呼び出されるためイベントを無効に
If Cells(1, 2) <> a Then Cells(Cells(1, 2) + 3, 3) = ""
Cells(1, 2) = a
Columns(1).Clear
Cells(1, 1) = a
Cells(2, 1) = "ナンバー"
Cells(a + 3, 3) = "=sum(C3:C" & a + 2 & ")"
For b = 3 To a + 2
Cells(b, 1) = b - 2
Next
Application.EnableEvents = True 'イベント復活
End Sub

0 hits

▼

【65652】入力した数値分の表を作成したい あや 10/6/18(金) 16:23