Excel VBA質問箱 IV

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

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


73828 / 76732 ←次へ | 前へ→

【7377】Re:差分を求めたいのですが、、、
回答  トシ坊  - 03/9/3(水) 15:42 -

引用なし
パスワード
   ▼nibu さん:
>時間の差分を求めるマクロを作成しているのですが、コマンドボタンを押すと
>1行目に100,70,80,60,78,78というような数字が出力されます。
>7行目に合計が出力されます。内容は1行目と同じです。
>2〜6行目に数字を手動で入力していくと1行目の数字が減少していく。
>
>例)
>    40 30 40 30 40 40
>    30 20 10 10 18 18
>    20 10 20 10 10 10
>    10 10 10 10 10 10
>
>合計 100 70 80 60 78 78
>
>1行目が入力された状態でこのようなマクロは組めるのでしょうか?
INAさん横レスすみません。

下記のマクロで良いとおもいます。

Private Sub Worksheet_Change(ByVal Target As Range)
'  MsgBox "行=" & Target.Row & "列=" & Target.Column
  If (Target.Row = 1) Then
    Cells(7, Target.Column).Value = Cells(Target.Row, Target.Column).Value
    Cells(Target.Row, Target.Column) = "=R[6]C-(SUM(R[1]C:R[5]C))"
  End If
End Sub

0 hits

【7332】差分を求めたいのですが、、、 nibu 03/9/2(火) 17:31 質問
【7335】Re:差分を求めたいのですが、、、 INA 03/9/2(火) 18:15 回答
【7337】Re:差分を求めたいのですが、、、 nibu 03/9/2(火) 18:40 発言
【7377】Re:差分を求めたいのですが、、、 トシ坊 03/9/3(水) 15:42 回答

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