Excel VBA

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

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

書式
GoTo ラベル名
使用例

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

使用例

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

Excel VBA

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

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

Excel VBA

書式

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

使用例

Sub sampfunc() Dim cft As Inte ...

Excel VBA

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

サンプルコード

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

Excel VBA

環境
Windows 10 64bit
Excel 2013

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

Excel VBA

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

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

Excel VBA

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

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

Excel VBA

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

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