Excel vba メモ

Excel vba の備忘録的なものです。
自分用のメモですので、なんだか見難くて申し訳ありません。
gooブログでもシンタックスハイライトとか出来ればいいのに・・・


#メッセージボックス
MsgBox "これは" & vbCrLf & "特に意味もない文章の羅列です"

#セルの中身を獲得
Dim oGetCell As String
oGetCell = Cells(2, 1).Value

#セルに情報入力
Cells(2, 1).Value = ”入力情報”

#データテーブルをコピー
Range("A1:C3").Copy
Range("E1").PasteSpecial Paste:=xlPasteValues

#繰り返し処理
For i = 1 To 10
MsgBox Cells(i, 1).Value
Next i

#最終行と列を取得
Cells(Rows.Count, 1).End(xlUp).Row '列
Cells(1, Columns.Count).End(xlToLeft).Column ’行

#該当Excelブックを読み取り専用で開く
Dim oWB As Workbook
Set oWB = Workbooks.Open(Filename:="D:/Book.xlsx", UpdateLinks:=0, ReadOnly:=True, IgnoreReadOnlyRecommended:=True)

#ブックを閉じる
Call oWB.Close

#文字列操作
'文字列分割
Dim oSplit As Variant
oSplit = Split("BLACK_RX", "_")
MsgBox oSplit(0)
MsgBox oSplit(1)

#指定値(BLACK)セルの隣の値を取得
Dim oTargetCell As Range
With Range("A1:H8")
    Set oTargetCell = .Find("BLACK", LookIn:=xlValues, LookAt:=xlPart)
    If Not oTargetCell Is Nothing Then
        MsgBox Range(oTargetCell.Address).Offset(0, 1).Value
    End If
End With

関連－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Python_ネイティブ機能メモ
バッチ作成メモ
編集