Excelのボタンクリックで下記コードにより上表のイニシャルがセル"B11:E13"に入力されるが下表の数字"B15"を消した場合、再度クリックしても入力されたイニシャルが消えないどんなコード入力をすれば良いのかどなたか解る方よろしくお願いします。
Sub 入力()
Dim i As Long, j As Long
On Error Resume Next
For j = 2 To 5
For i = 1 To 3
Cells(i + 10, j) = WorksheetFunction.Index(Range("A1:A9"), WorksheetFunction.Match _
(i, Range(Cells(15, j), Cells(23, j)), False))
Next i
Next j
End Sub
No.2ベストアンサー
- 回答日時:
最も簡単にはRange("B11;E13").Clearを使うことでしょう。
見つからない場合にはセルを空にするというようにするのでしたら次のようなコードになりますね。
Sub 入力()
Dim i, j As Integer
Dim x
On Error Resume Next
'Range("B11:E13").Clear この式を入れるならそれが最も簡単です。
For j = 2 To 5
For i = 1 To 3
Set x = Range(Cells(15, j), Cells(23, j)).Find(i, LookIn:=xlValues)
If Not x Is Nothing Then
Cells(i + 10, j) = WorksheetFunction.Index(Range("A1:A9"), WorksheetFunction.Match _
(i, Range(Cells(15, j), Cells(23, j)), False))
Else
Cells(i + 10, j) = ""
End If
Next i
Next j
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) VBA 税率を判定表する方法を教えて下さい。 10 2022/03/28 11:21
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) セルS2に入力した「月」と一致したB列の右隣へセルS110の値を転記する下記マクロを実行するとエラー 2 2022/12/06 17:32
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
指定した演算を実施の結果を表...
-
テキストボックスの番号を使っ...
-
クロスサイト・スクリプティン...
-
エクセルVBA テキストボックス...
-
Windowsのアプリ開発ってなんの...
-
アクセスのマクロ
-
カーソルの初期値を指定の場所...
-
VBA R1C1形式で変数の入力について
-
問い合わせフォームの作り方
-
フォームの入力項目に全角文字...
-
バーコードリーダーって、最後...
-
数字以外の入力をエラーにする...
-
ブラウザバック以外で情報を保...
-
教えて!全角文字「μ」の半角
-
phpMyAdmin/テーブル作成エラー...
-
ExcelVBA No.を自動連番で設定...
-
SQL で数値フィールドにDBNULL...
-
外部サイトからHTMLを抜き出す...
-
EC CUBEの会員登録の部分の項...
-
自分のアドレスに送信用のメー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
初歩的な事だと思います。 Sub...
-
数字以外の入力をエラーにする...
-
EXCEL VBA で指定した範囲に入...
-
Excel-VBAでInputBox+Pulldown...
-
入力フォームの値をQRコードで...
-
VBAの質問になります メッセー...
-
c#でTextBoxの入力制限
-
VBAで質問があります
-
教えて!全角文字「μ」の半角
-
VBAでInputBoxの再入力をさせる...
-
excel vba でユーザーフォーム...
-
TextBoxから数字が文字...
-
エディットボックスの入力制限...
-
accessで該当するレコードがな...
-
DataGridViewの桁数制限に関して
-
VBA R1C1形式で変数の入力について
-
「イ分」・・・フンという文字...
-
Windowsのアプリ開発ってなんの...
おすすめ情報