Excel VBA

説明
InStr(string1, string2)
文字列string1の先頭から検索して引数strings2の文字列が出現した位置を返します。
使用例

Sub testfunc() Dim cft A ...

書式
Case Is 比較演算子
使用例

Sub sampleFunc() Dim n As Integer n = 123 Select Case n Case Is = 123 Debug.Print "va ...

書式
Case 数値A To 数値B
使用例

Sub sampleFunc() Dim nn As Integer nn = 33 Select Case nn Case 15 To 20 Debug.Print ...

書式
LenB(文字列)
使用例

Sub funcA() Dim nn As String nn = "test123" Debug.Print LenB(nn) '文字列のバイト数 Dim kk As Stri ...

書式
LenB(StrConv(文字列,vbFromUnicode))
使用例

Sub funcA() Dim nn As String nn = "test123" Debug.Print LenB(StrCo ...

書式
Split(文字列,” “)
使用例

Sub funcA() Dim resA As Variant Dim strP As String strP = "AA01　BB02 CC0 ...

書式
変数名=”文字列1,文字列2,,”
使用例

Sub funcTest() Dim cft As Variant Dim res As String res = "A01, B02, ...

書式
Dictionary名.Exists(キー)
使用例

Sub funcA() Dim usr As Object Set usr = CreateObject("Scripting.Dictionary") ...

書式
ディクショナリ名.Remove(キー)
使用例

Sub funcA() Dim emp As Object Set emp = CreateObject("Scripting.Dictionary") em ...

書式
ディクショナリ(key) =値
ディクショナリ.item(key)=値
使用例

Sub funcA() Dim cft As Object Set cft = CreateObject("Scrip ...

書式
For Each 変数 In コレクションや配列
some code
Next
使用例

Sub sample() Dim ss As Range For Each ss In Range(" ...

使用例

Sub testFunc() Dim cft As Variant cft = Array("A001", "B002", "C003", "D004") cft(2) = "test002" Debug.Print c ...

使用例

Sub sampleFunc() Dim cftA As Variant Dim cftB As Variant cftA = Array("AA01", "BB02", "CC03") '配列をコピーする cftB = ...

環境
Windows 10 64bit
Excel 2013
シート名　arkgame
一つ目吹き出し:Shapes(1)
2つ目吹き出し:Shapes(2)
3つ目吹き出し:Shape ...

書式

If 条件式1　Then If 条件式2 Then

使用例

Sub sampleFunc() Dim xx,yy As Integer xx = 67 yy = 78 If xx = 67 Then If yy ...

書式
if (条件式1) Or (条件式2) Then
使用例

Sub ifandsample() Dim x, y As Integer x = 34 y = 56 If (x = 34) Or (y = 57 ...

環境
Windows 10 64bit
Excel 2013
ディレクトリ:C:\test10
ファイル名:Book1.xlsx result.txt
セルのB3に「横浜」、B4に「川崎」があり ...

環境
Windows 10 64bit
Excel 2013
書式
dir(フォルダ名 & ファイル名)
dirでファイルの存在確認ができます。
使用例

Sub funcA ...