Excel VBA

書式
DO
処理コード
Loop Until 条件式
使用例

Sub funcBB() Dim nn As Integer nn = 20 'Do Loop Until文 Do nn = nn + ...

書式
Open ファイル名変数 For Output As 番号
使用例

Sub excelToTxt() '出力ファイルの定義 Dim txtName As String 'ブックと同じフォルダ txtName ...

書式
Cells(行の位置、列の位置)
使用例

Sub funCC() '配列cft cft = Array(11, 22, 33, 44, 55,66) 'forループ For i = 0 To UBound( ...

書式
DO 処理コード
Loop While 条件式
使用例

Sub funcA() Dim n As Integer n = 20 Dim res As Integer ' Do　処理コード Loop ...

書式
GoTo ラベル名
使用例

Sub testFunc() Dim n As Integer n = 10 'Do Whileループ Do While n < 30 'ラベルInfoInfo: If ( ...

書式
if 条件式　Then
Exit Do
End If
使用例

Sub funcA() Dim nn As Integer nn = 21 Do While nn < 29 If (nn ...

書式
配列名「インデックス番号」
使用例

Sub getArrElement() '配列 Dim cft(3) As Integer Dim result As Integer cft(0) = 11 cft(1 ...

書式
If ワークシート変数名.Name = “ワークシート名”
使用例

Sub funcA() Dim ws As Worksheet 'For Each コレクションWorksheet ...

書式
For Each 変数名 In Range(セル範囲)
使用例

Sub funcA() Dim cft As Range ' for ech ループ For Each cft In Range("D3:E6 ...

書式
Range(セル範囲)
使用例

Sub test() Range("A1") = "AA01" '複数のセルB1 C3 Range("B1:C3") = "BB02" '複数のセルB4 D5 Range(" ...

使用例

Sub testFunc() Dim cftArr As Variant cftArr = Array(11, 22, 33, 44) Debug.Print UBound(cftArr) + 1 Debug.Print ...

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

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

書式

If (条件) Then　　some codeElseIf (条件) Then　　some codeElse　　some codeEnd If

使用例

Sub sampfunc() Dim cft As Inte ...

構文
if(条件式1) And (条件式2) Then

サンプルコード

Sub testFunc() Dim x, y As Integer x = 21 y = 123 If (x = 123) And ( ...

環境
Windows 10 64bit
Excel 2013

書式
現在のアクティブなシート名　ActiveSheet.Name
指定シート名
Worksheets(シート名).Na ...

書式
Split(配列名,区切り文字)
使用例

Sub funcA() Dim resA As Variant Dim strP As String strP = "A001, B002, C003,D004" ...

書式
シートの数　Worksheets.Count
現在のシート名　ActiveSheet.Name
使用例

Sub sampleC() '全てのシート名 For i = 1 To Worksheets. ...

書式
InStr( start, string1, string2)
引数start:検索開始位置
使用例

Sub testfunc() Dim target As String target = "TE ...