[Excel] 簡単なマクロメモ

文字列の検索

e.g.
Sheet1!A2の文字列を検索
戻り値は Cells(lngYLine, intXLine) の形式

Dim lngYLine As Integer
Dim intXLine As Integer
Dim Obj As Object
   
Set Obj = Worksheets("Sheet2").Cells.Find(Worksheets("Sheet1").Range("A2").Value)
    If Obj Is Nothing Then
        MsgBox "日付が見つかりませんでした。"
    Else
        lngYLine = Worksheets("Sheet2").Cells.Find(Worksheets("Sheet1").Range("A2").Value).Row
        intXLine = Worksheets("Sheet2").Cells.Find(Worksheets("Sheet1").Range("A2").Value).Column
        Worksheets("Sheet2").Cells(lngYLine, intXLine + 1).Value = Worksheets("Sheet1").Range("D14")
    End If

現在の日付を取得

e.g.
2012年1月24日 のような形式。
Formatで変更可。

Dim myDate As Date
myDate = Date
Worksheets("Sheet1").Range("A2").Value = Format(myDate, "Long Date")