Excel VBA

構文
Function プロシージャ名() as 戻り値のデータ型
プロシージャ名 = 戻り値
End Function
書式
Function メソッド名(変数名) As データの型 ...

書式

Select Case 値{ Case 数値1 To 数値2 xxxCase Else 　値がどのCaseの値にも一致しない場合に実行コードEnd Select

値がCaseの値と一致すれば、一致したCaseの処理のみ ...

書式
Case Is 比較演算子
Isと比較演算子で比較しています。
Case文の後ろにIsを利用して、比較演算子で比較を行います。

使用例

Sub testFunc() Dim score ...

書式

Select Case 変数名{　　Case 値1 　　　処理コード1 xxx　　Case Else　　　Caseの値に一致しない処理コードEnd Select

値がCaseの値と一致すれば、一致したCaseの処理のみ ...

関数
WorksheetFunction.RoundDown(引数1、引数2)
引数1 切り下げる対象の数値を指定します
引数2 切り下げた結果の桁数を指定します
RoundDown は、 数値を 常に ...

関数
WorksheetFunction.Round(引数1、 引数2)
引数1 四捨五入する対象の数値を指定します
引数2 四捨五入した結果の桁数を指定します
数値num_digits 0 (ゼロ) ...

書式
WorksheetFunction.RoundUp(引数1、引数2)
引数1 数値: 切り上げの対象となる実数値を指定します。
引数2 桁数: 数値を切り上げた結果の桁数を指定します。
Round ...

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

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

使用例

Sub funA() Dim target As S ...

環境
Windows 10 64bit
Excel 2013
書式
シート名 = ActiveSheet.Name
すべてのシート数 Worksheets.Count

使用例 ...

環境
Windows 10 64bit
Excel 2013

使用例
MsgBox の引数
vbAbortRetryIgnore
、、 の各ボタン
vbOKCancel ...

環境
Windows 10 64bit
Excel 2013
シート名　arkgame
吹き出し:Shapes(1)

使用例

Sub FunA() 'シート名arkgame Sheet ...

書式
1.vbUpperCase
大文字に変換します
2.vbLowerCase
小文字に変換します
3.vbProperCase
最初の文字を大文字に変換します
　
使 ...

書式
ディクショナリ.Count
使用例

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

書式
On Error Resume Nex
使用例

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

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

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

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

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

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

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