|
▼れいな さん:
今晩は。下の意味を十分意味が把握できていないかも知れませんが・・
>キーボードから読み込んだ数字をR1C4セルに表示し、次に読み込んだ数字をR2C4セルに、その次に読み込んだ数字をR3C4セルに...というように4列1行目のセルから順に下に表示するというのを繰り返したいのです。キーボードから数字の「0」が入力されたら、それまでに入力された数の合計をR7C1セルに表示させた後、マクロを終了させたいのです。
こんな感じで作成しました
C列の1行目に合計
C列の2行目から順次3行目・・・順次10行目・・・など数字を入れ、最終集計したい
列にきたら「0」を入れる。
完全な回答で無いかも知れません、これをひとつの「たたき台」に展開できれば
使ってください。
(シート1に)
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
|
|