Excel VBA

書式
On Error Resume Nex
使用例

Sub testFunc()On Error Resume Next Workbooks.Open ("C:\testinfo.xlsx") Exit Sub ...

Excel VBA

書式
Sheets(シート名).Range(位置).Value
Sheets(シート名).Cells(行の位置、列の位置).Value
使用例

Sub getSampleA() 'セルB3の値を取得 De ...

Excel VBA

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

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

Excel VBA

書式
Sheets(シート名).Range(位置).Value
Sheets(シート名).Cells(行の位置、列の位置).Value
使用例

Sub sampleA() 'セルB3に値を設定 Sheet ...

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 ...