source/vba - ket@

日付取得

dateToday = Format(Date, "mmdd")

文字列をさがす

 InStr(String1, String2)

引数string2で指定した文字列を検索して、見つかった位置を返します

大文字にする

UCase("Excel VBA") 

文字列分割

 tmp = Split("123,田中,tanaka", ",")

一旦フィルタを解除

ActiveSheet.ShowAllData

シートをアクティブに

Sheets("config").Activate

---

for文

For i = 2 To 2000
    If (Range("A" & i) <> "") Then
                 arrStr(i) = Range("A" & i)
                'MsgBox arrStr(i)
     End If
Next i

For i = 2 To 2000
    If (Range("A" & i) <> "") Then
                 arrStr(i) = Range("A" & i)
                 Range("A" & i).Formula = "=VLOOKUP(Q" & i & ",config4!A2:C26,3,FALSE)"
                'MsgBox arrStr(i)
     End If
Next i

---

VLOOKUP

Range("S2").Formula = "=VLOOKUP(B2,前日データ!$B$2:$R$1048576,17,FALSE)"

vbaで使う

Range("S" & i).Formula = "=VLOOKUP(Q" & i & ",config4!A2:C26,3,FALSE)"

---

セルに色をつける　黄色

Range("H" & i).Interior.ColorIndex = 6

---

文字列を切り取る Right関数

str_hoge = "abcdefg"
str = Right(str_hoge, 2)

---

カンマを半角空白に置換

Columns("D").Replace what:=",", replacement:=" "

---

数字かどうか判定

   If IsNumeric(a) Then
       MsgBox a & "は数値です"
   Else
       MsgBox a & "は文字です"
   End If

hoge