「基本編」の編集履歴（バックアップ）一覧はこちら
「基本編」(2009/02/27 (金) 16:04:26) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
***変数の宣言
&bold(){＜文字列＞}
Dim file As String
文字列型の変数「file」
&bold(){＜整数型＞}
Dim count As Integer
整数型の変数「count」
&bold(){＜定数＞}
Const STR As String = "Hello"
定数の文字列型の変数「STR」に「Hello」を設定
----
***コメントの書き方
&bold(){コメントはシングルコーテーションを先頭につける}
’これはコメントです。※本当は半角のシングルコーテーション
----
***メッセージボックス
&bold(){＜簡単＞}
MsgBox "集計が完了しました。"
&bold(){＜応用＞}
#ref(0045.JPG)
Rtn = MsgBos("集計を開始しますか？",vbYesNo,"確認")
Rtnはボタンの戻り値が入る。
----
***繰り返し処理
&bold(){＜前判定＞}
&bold(){sum が 10 になるまで繰り返す}
sum = 0
Do While sum <= 10
sum = sum + 1
Loop
&bold(){＜後判定＞}
&bold(){sum が 10 になるまで繰り返す}
Do
sum = sum + 1
Loop While sum <=10
&bold(){＜for文＞}
&bold(){１から１００までの数の和を求める}
sum = 0
For i = 1 to 10 Step 1
sum = sum + i
Next i
----
***文字列の連結
&bold(){文字列の連結は「＆」で}
str = "St" & "ring"
----
***処理を終了する
&bold(){Exit Sub}
----
***型変換とか
整数型にする： CInt("22") → 22
文字列にする： CStr(22) → "22"
16進数にする： Hex(13) → D
文字コードを使う： Chr(65) → 'A'
----
***配列を使う
&bold(){配列の宣言}
Dim Array1(9) As String ： String型の要素数10の配列
Dim Array2(1 To 10) As String ： String型の要素数10の配列
&bold(){配列の要素を求める}
&bold(){UBound(Array) - LBound(Array + 1}
UBound(配列名) ： 配列の最大要素数
LBound(配列名) ： 配列の最小要素数
----
***インプットボックス
Dim xlAPP As Application
Set xlAPP = Application
ret = xlAPP.InputBox("何か入力してね","タイトルだよ","入力しなかったとき")
#ref(0046.JPG)
合計：&counter()
***変数の宣言
&bold(){＜文字列＞}
Dim file As String
文字列型の変数「file」
&bold(){＜整数型＞}
Dim count As Integer
整数型の変数「count」
&bold(){＜定数＞}
Const STR As String = "Hello"
定数の文字列型の変数「STR」に「Hello」を設定
----
***コメントの書き方
&bold(){コメントはシングルコーテーションを先頭につける}
’これはコメントです。※本当は半角のシングルコーテーション
----
***メッセージボックス
&bold(){＜簡単＞}
MsgBox "集計が完了しました。"
&bold(){＜応用＞}
#ref(0045.JPG)
Rtn = MsgBos("集計を開始しますか？",vbYesNo,"確認")
Rtnはボタンの戻り値が入る。
----
***繰り返し処理
&bold(){＜前判定＞}
&bold(){sum が 10 になるまで繰り返す}
sum = 0
Do While sum <= 10
sum = sum + 1
Loop
&bold(){＜後判定＞}
&bold(){sum が 10 になるまで繰り返す}
Do
sum = sum + 1
Loop While sum <=10
&bold(){＜for文＞}
&bold(){１から１００までの数の和を求める}
sum = 0
For i = 1 to 10 Step 1
sum = sum + i
Next i
----
***文字列の連結
&bold(){文字列の連結は「＆」で}
str = "St" & "ring"
----
***処理を終了する
&bold(){Exit Sub}
----
***型変換とか
整数型にする： CInt("22") → 22
文字列にする： CStr(22) → "22"
16進数にする： Hex(13) → D
文字コードを使う： Chr(65) → 'A'
----
***配列を使う
&bold(){配列の宣言}
Dim Array1(9) As String ： String型の要素数10の配列
Dim Array2(1 To 10) As String ： String型の要素数10の配列
&bold(){配列の要素を求める}
&bold(){UBound(Array) - LBound(Array + 1}
UBound(配列名) ： 配列の最大要素数
LBound(配列名) ： 配列の最小要素数
----
***インプットボックス
#ref(0046.JPG)
Dim xlAPP As Application
Set xlAPP = Application
ret = xlAPP.InputBox("何か入力してね","タイトルだよ","入力しなかったとき")
合計：&counter()
