[[20220727213319]]　『VBAのSelection.Value = Selection.Valueについて』（ラオウ）　ページの最後に飛ぶ

『VBAのSelection.Value = Selection.Valueについて教えてください。』（ラオウ）

Worksheets("Sheet1").Range("B2").Value = Worksheets("Sheet2").Range("A2").Value

というVBAで、Range("B2").Valueを可変にしたいです。
Sheet2のA1セルに2022/4/30という日付がある場合、それを条件に
Sheet1 A列にある日付に該当する行のB列セルにしたいです。

Sheet1
　A列
1/31/2022
2/28/2022
3/31/2022
4/30/2022
5/31/2022
6/30/2022

Sheet2
　A列
4/30/2022

どうぞよろしくお願いいたします。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

match関数で行番号を取得、その右隣に任意の値を格納
とかでも
(*^^*)ｖ。。。m(__)m
（隠居Z） 2022/07/27(水) 22:12

↑の例

 Sub test()
    Dim ws1 As workseet
    Dim ws2 As Worksheet
    Dim m

    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")

    m = Application.Match(ws2.Range("A1"), ws1.Columns("A"), 0)
    If IsNumeric(m) Then
        ws1.Range("B" & m).Value = ws2.Range("A2").Value
    End If

 End Sub

（マナ） 2022/07/27(水) 22:15

隠居Zさん、マナさん
できました。
ありがとうございました。
（ラオウ） 2022/07/27(水) 23:29

コメント返信：

[ 一覧(最新更新順) ]

[[20220727213319]] 『VBAのSelection.Value = Selection.Valueについて』（ラオウ） ページの最後に飛ぶ

[[20220727213319]]　『VBAのSelection.Value = Selection.Valueについて』（ラオウ）　ページの最後に飛ぶ