マクロ文法の最近のブログ記事

Format(Cells(L, C).Value, "##,###")

If T = 51 Then
	Head = "大:"
ElseIf T = 52 Then
	Head = "小:"
ElseIf T = 53 Then
	Head = "サブ1:"
ElseIf T = 54 Then
	Head = "サブ2:"
ElseIf T = 55 Then
	Head = "サブ3:"
End If

mystr = "たけうち　とおる" 
myArray = Split(mystr, "　") 

'名字 
MsgBox (myArray(0)) 
'名前 
MsgBox (myArray(1))

mystr = "0123456789" 
midStr = Mid(mystr, 2, 5) 
MsgBox (midStr) 

buf2 = Left(Cells(N, 3), 5)

long = InStr([start, ]targetstring, serchstring[, compare])

        For C = 5 To MaxCellCount
            '処理
        Next

        For C = 5 To MaxCellCount Step 2 
            '処理
        Next

    loopendcount = 0
    Do While loopendcount < 20
        If Sheets(motoSheet).Cells(L + 1, 7).Value = "" Then
            loopendcount = loopendcount + 1
        Else
            loopendcount = 0
        End If
        '処理をかく
        L = L + 1
    Loop

    L = 2 '初期値
    Do While Cells(L , 1).Value <> ""
         'イロイロ処理をする
        L = L + 1
    Loop