Excel VBA

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

Sub testfunc() Dim cft A ...

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

書式
LenB(文字列)
使用例

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

使用例

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

Excel VBA

使用例

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

Excel VBA

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

Excel VBA

書式

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

使用例

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

Excel VBA

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

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

Excel VBA

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

Excel VBA

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

Sub funcA ...