VBAの書き方についてご質問させていただきます。

画像

Visual Basic16閲覧xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0

その他の回答(1件)

0

Sub Sample() Dim 日付 As Date: 日付 = #1/4/2021# Dim 検索範囲 As Range: Set 検索範囲 = Range("D1:L1") Dim 入力先 As Range: Set 入力先 = Range("A1") Dim 見つかったセル As Range Set 見つかったセル = 検索範囲.Find(what:=日付) '見つからなかったら処理を抜ける If 見つかったセル Is Nothing Then Exit Sub Dim 列番号 As Long: 列番号 = 見つかったセル.Column Dim 列文字 As String: 列文字 = Split(Cells(1, 列番号).Address, "$")(1) 入力先.Value = 列文字 End Sub