「基本編」の編集履歴（バックアップ）一覧に戻る

基本編 - (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(配列名)　：　配列の最小要素数

----
***インプットボックス
#ref(0046.JPG)
Dim xlAPP As Application
Set xlAPP = Application
ret = xlAPP.InputBox("何か入力してね","タイトルだよ","入力しなかったとき")

合計：&counter()