[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『引き算 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 >
>VBA(初心者)
始めから複雑な処理を考えると難しくなりますから、
B2セル、およびC2セルが""でないときに、D2セルに計算結果を書き込む
とりあえず↑のように考えてみてはどうですか?
(もこな2) 2022/01/16(日) 13:12
>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.