yut********

2022/1/18 15:01

33回答

エクセルのVBAについてご教授下さい。 表のようにF1に言葉を入れると、それより右にある数字がクリアされるVBAをお教え下さい。クリアする範囲はA列からC列までとします。

エクセルのVBAについてご教授下さい。 表のようにF1に言葉を入れると、それより右にある数字がクリアされるVBAをお教え下さい。クリアする範囲はA列からC列までとします。 ※今回の場合だとF1に『さ』と入力すると、『6，6，87』のみがクリアされる状態です。行を上げないようにお願いします。 よろしくお願いします。

画像

Excel | Visual Basic・83閲覧

ベストアンサー

1
tak********

2022/1/18 15:23

以下のようなものでしょうか？ ・「Private Sub CommandButton1_Click()」は実施環境にあわせてください。 Private Sub CommandButton1_Click() Dim iRow As Long On Error Resume Next iRow = 0 iRow = Application.WorksheetFunction.Match(Range("F1").Value, Range("A:A"), 0) On Error GoTo 0 If (iRow > 0) Then Cells(iRow, "B").Resize(, 3).ClearContents End If End Sub

1人がナイス！しています

yut********

質問者2022/1/20 15:42

お返事が遅くなりすみませんでした。 試行錯誤で何時間分もかけていましたが出来ず、こちらで投稿させていただきましたが、わずか数十分で出来るとは… 色んな方法でも出来ることを学びました。 ありがとうございました。

その他の回答（2件）

1
1150246010

2022/1/19 20:59

添付図のような結果で良いのでしょうか。 但し、マクロの実行はフォームコントロールのボタンで起動させます。 よければ、プログラムは以下の通りです。 Sub ボタン3_Click() Dim n0 As Integer For n0 = 3 To 1000 If Cells(n0, 1).Value = "" Then Exit For ElseIf Cells(1, 6).Value = Cells(n0, 1).Value Then Range(Cells(n0, 2), Cells(n0, 4)).Value = "" Exit For End If Next End Sub

画像

1人がナイス！しています

1
tra********

カテゴリマスター

2022/1/18 15:33

シートモジュール（シートタブを右クリック＞コードの表示から表示されるところ）に記述してください。 Private Sub Worksheet_Change(ByVal Target As Range) Dim i If Target.Address = "$F$1" Then i = Application.Match(Range("F1").Value, Range("A:A"), 0) If Not IsError(i) Then Cells(i, 2).Resize(, 3).ClearContents End If End Sub

1人がナイス！しています

yut********

質問者2022/1/20 15:41

お返事が遅くなりすみませんでした。 試行錯誤で何時間分もかけていましたが出来ず、こちらで投稿させていただきましたが、わずか数十分で出来るとは… ありがとうございました。