| |
▼れいな さん：
今晩は。下の意味を十分意味が把握できていないかも知れませんが・・
>キーボードから読み込んだ数字をR1C4セルに表示し、次に読み込んだ数字をR2C4セルに、その次に読み込んだ数字をR3C4セルに．．．というように4列1行目のセルから順に下に表示するというのを繰り返したいのです。キーボードから数字の「0」が入力されたら、それまでに入力された数の合計をR7C1セルに表示させた後、マクロを終了させたいのです。
こんな感じで作成しました
Ｃ列の１行目に合計
Ｃ列の２行目から順次３行目･･･順次10行目･･･など数字を入れ、最終集計したい
列にきたら「０」を入れる。
完全な回答で無いかも知れません、これをひとつの「たたき台」に展開できれば
使ってください。
(シート１に)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
On Error Resume Next
Sheets(1).Columns("C").SpecialCells(xlCellTypeFormulas).ClearContents
On Error GoTo 0
With Worksheets(1)
Set rng = .Range(.Cells(2, 3), .Cells(.Rows.Count, 3).End(xlUp))
With rng
If Range("C65536").End(xlUp).Value = 0 Then
If .Row > 1 Then Cells(1, 3).Formula = "= SUBTOTAL(9," & .Address & ")"
End If
End With
End With
End Sub
|
|
Ｍａｒｉ
- 06/11/19(日) 21:06 -
