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 質問
【65656】Re:入力した数値分の表を作成したい Jaka 10/6/18(金) 16:58 発言
【65658】Re:入力した数値分の表を作成したい あや 10/6/18(金) 17:04 質問
【65662】Re:入力した数値分の表を作成したい 芋洗い五段 10/6/18(金) 23:41 回答
【65666】Re:入力した数値分の表を作成したい neptune 10/6/19(土) 13:40 発言
【65677】Re:入力した数値分の表を作成したい あや 10/6/21(月) 15:51 お礼

16537 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free