[[20220116114026]] 『引き算 3行おき』(ミキ) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『引き算 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セルに計算結果を書き込む

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

(もこな2) 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


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

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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.