Excel VBA

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

Excel VBA

書式

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

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

Excel VBA

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

使用例

Sub testFunc() Dim score ...

Excel VBA

書式

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

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

Excel VBA

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

Excel VBA

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

Excel VBA

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

Excel VBA

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

Excel VBA

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

使用例

Sub funA() Dim target As S ...

Excel VBA

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

使用例 ...

Excel VBA

環境
Windows 10 64bit
Excel 2013

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

Excel VBA

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

使用例

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

Excel VBA

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

Excel VBA

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

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

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