[[20220116114026]]　『引き算 3行おき』（ミキ）　ページの最後に飛ぶ

『引き算 3行おき』（ミキ）

 おはようございます

    A    B    C    D    E    F    G    H   
 1              見出し
 2       5   10    5         3    10   7 
 3
 4
 5       2    5    3         2     1   1 
 6
 7
 8       1    3    2         7    13   6

 C-B=D  G-F=H  BC FGに数字が入力されるとD Hに
 計算結果がVBA（初心者）で表示するようにできますか。
 すみなせん。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

＞数字が入力されると～
そういう場合は、Changeイベントについて調べてみるとよいと思います。

＞VBA（初心者）
始めから複雑な処理を考えると難しくなりますから、
　B2セル、およびC2セルが""でないときに、D2セルに計算結果を書き込む

とりあえず↑のように考えてみてはどうですか？

（もこな２） 2022/01/16(日) 13:12

ありがとうございます、調べて少しずつチャレンジ
してみます。時間がかかりそうなので今夜か明日トライ
します。
（ミキ） 2022/01/16(日) 13:22

 >C-B=D  G-F=H  BC FGに数字が入力されるとD Hに計算結果が

 以下のコードをシートモジュールに貼り付けてお試しください。
 https://vba-assets.net/sheet_module/

 Option Explicit
 Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    With Target
        If .Count > 1 Then Exit Sub
        If .Row Mod 3 <> 2 Then Exit Sub
        If .Column Mod 4 = 2 Then
            If .Offset(, 1).Value = "" Then Exit Sub
            If .Value <> "" Then
                .Offset(, 2).Value = .Offset(, 1).Value - Target.Value
            Else
                .Offset(, 2).Value = ""
            End If
        ElseIf .Column Mod 4 = 3 Then
            If .Offset(, -1).Value = "" Then Exit Sub
            If .Value <> "" Then
                .Offset(, 1).Value = Target.Value - .Offset(, -1).Value
            Else
                .Offset(, 1).Value = ""
            End If
        End If
    End With
    Exit Sub
 ErrorHandler:
        If Target.Column Mod 2 = 0 Then
            Target.Offset(, 2).Value = ""
        Else
            Target.Offset(, 1).Value = ""
        End If
End Sub

（ピンク） 2022/01/16(日) 19:27

↑エラー処理を少し変更しました。

（ピンク） 2022/01/16(日) 23:28

 こんばんは。
 返信遅くなりすみません、時間がなく今やってみました、
 ピンク様、出来ました、ありがとうございます。

 もこな２様
 Range("B2").Value<>""
 Range("C2").Value<>""
 まだめちゃめちゃですが、こんな感じなのでしょうか。
 もし～なら　Ifをつかうのでしょうか？
 それと、時間の計算も出来るのでしょうか
 すみません、初心者ながら興味があるので。
（ミキ） 2022/01/19(水) 19:10

コメント返信：

[ 一覧(最新更新順) ]

[[20220116114026]] 『引き算 3行おき』（ミキ） ページの最後に飛ぶ

[[20220116114026]]　『引き算 3行おき』（ミキ）　ページの最後に飛ぶ