ここから本文です

エクセルでA1に電流値、B1に抵抗値、C1に電圧のセルを用意して抵抗値固定で、A1を...

hiv********さん

2017/10/1119:01:39

エクセルでA1に電流値、B1に抵抗値、C1に電圧のセルを用意して抵抗値固定で、A1を入力したらC1が演算される。C1を入力したらA1が演算されるという方法を知恵袋で教えていただいたのですが、2行目、3行目…でも使える

ようにするにはどうすればいいですか?
下記のコードのwith target以降にfor nextを使えばいいのかなと思っていたのですが上手くいきません。教えて下さい。

Private Sub worksheet_change(ByVal Target As Range)
Application.EnableEvents = False

With Target
If .Row = 1 And .Column > 0 And .Column < 4 Then
If Cells(1, 2) = 0 Then
MsgBox "抵抗値を入れてください"
Else
If .Column = 3 Then
Cells(1, 1) = Cells(1, 2) * Cells(1, 3)
Else
Cells(1, 3) = Cells(1, 1) / Cells(1, 2)
End If
End If
End If
End With

Application.EnableEvents = True
End Sub

閲覧数:
34
回答数:
1

違反報告

ベストアンサーに選ばれた回答

hig********さん

2017/10/1121:33:00

2方法あります。

①質問文のマクロの「1行目」と思しき場所を全部「Targetの行番号」に変更。
つまり 1→.Row

②動作未確認なので違ってたらごめん
Private Sub worksheet_change(ByVal Target As Range)
Application.EnableEvents = False

With Target
If .Column = 1 Then
.Offset(0, 2).Value = .Value * .Offset(0, 1).Value
ElseIf .Column = 3 Then
If .Offset(0, -1).Value <> 0 Then
.Offset(0, -2).Value = .Value / .Offset(0, -1).Value
Else
.Offset(0, -2).Value = ""
End If
End If
End With

Application.EnableEvents = True
End Sub

質問した人からのコメント

2017/10/11 22:18:52

ありがとうございます。
Row = 1 の部分を変数にするのを忘れていました。おかげさまで気づくことができました。

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる