sinfI2005_VBA.doc

Size: px

Start display at page:

Download "sinfI2005_VBA.doc"

ゆあおとべ
5 years ago
Views:

1 sinfi2005_vba.doc MS-ExcelVBA 基礎 (Visual Basic for Application). 主な仕様一覧 () データ型主なもの型型名型宣言文字長さ内容整数型 Integer % 2 バイト -32,768 32,767 長整数型 Long & 4 バイト -2,47,483,648 2,47,483,647 単精度浮動小数点数 Single 型! 4 バイト負値: E E-45 正値:.40298E E38 倍精度浮動小数点数 Double 型 # 8 バイト負値: E E-324 正値: E E308 文字列型 String $ オブジェクト型 Object 4 バイトオブジェクトを参照するためのアドレスバイト型 Byte バイトの正の数値ブール型 Boolean 2 バイト True(真)または False(偽) 可変長の場合約 2GB(23 )バイト (2) プロシジャの構成 Sub プロシジャ名() 変数の型宣言... 処理... End Sub (3) 注釈(コメント) ' シングルクォーテーション(')のあとは注釈とみなされる (4) 型宣言 Dim 変数名 As 型名 (5) 名前付け規則 - 名前の先頭は文字でなければならない - 名前にはスペースピリオド (.) カンマ(,) 感嘆符 (!) ハイフン(-) アットマーク(@) アンパサント(&) ドル記号($) ナンバ記号(#)などの特殊文字を使うことはできないただしアンダースコア(_)を使用することができる - 変数名にはデータ型を示す型宣言文字 %,&,!,#,$ が使用できる - 名前は 255 文字 (半角の場合) 以内でなければならない - 通常 Visual Basic の関数ステートメントおよびメソッドと同じ名前を使うことはできない (6) 演算子 & 文字列の連結 * 乗算 + 加算減算 / 除算商 ^ べき乗 Mod 剰余

2 (7) (8) (9) (0) () (2) (3)

3 (4) (5) (6) (7) (8)

4 ex02 ()

5 sinfi2005_vba.doc ex03 セルの値の足し算(2) 上の応用として行目の 2 つのセルの値を横に足して結果を行 3 列目(E8)に書き込むプログラムを作成しなさい Sub ex03() Dim p As Object Set p = Worksheets("a").Range("C8")? MsgBox ("終わりました") End Sub ex04 If...Then によるカテゴライズ 3 人について 70cm 以上を"高い" 70cm 未満を"ふつう"とカテゴライズするプログラムを作成しなさい結果を E 列に書き込みなさい Sub ex04() Dim p As Object Set p = Worksheets("a").Range("D7") '...太郎 If p.cells(, ).Value >= 70 Then p.cells(, 2).Value = "高い" Else p.cells(, 2).Value = "ふつう" '...花子? '...一郎? MsgBox ("終わりました") End Sub 次の構文は If...Then による判断と分岐の例である上のプログラムは構文 2 に当たる (構文 ) 条件式が True ならば処理を実行するジャンプ命令がなければの次へ進む条件式が False ならばの次へ進む If 条件式 Then 処理 (構文 2) 条件式が True ならば処理を実行するジャンプ命令がなければの次へ進む条件式が False ならば Else の次へ進み処理 2 を実行するジャンプ命令がなければの次へ進む If 条件式 Then 処理 Else 処理 2 (構文 3) 条件式が True ならば処理を実行するジャンプ命令がなければの次へ進む条件式が False ならば次の ElseIf へ進む条件式 2 が True ならば処理 2 を実行するジャンプ命令がなければの次へ進む 5

6 sinfi2005_vba.doc 条件式 2 が False ならば次の ElseIf へ進む条件式 3 が True ならば処理 3 を実行するジャンプ命令がなければの次へ進む条件式 3 が False ならば Else の次の処理 4 を実行するジャンプ命令がなければの次へ進む If 条件式 Then 処理 ElseIf 条件式 2 処理 2 ElseIf 条件式 3 処理 3 Else 処理 4 ex05 For...Next による繰り返し 8 人について 70cm 以上を"高い" 70cm 未満を"ふつう"とカテゴライズするプログラムを作成しなさい Sub ex05() 2 Dim p As Object 3 Dim i As Integer 4 Set p = Worksheets("a").Range("D24") 5 For i = To 8 6 If p.cells(i, ).Value >= 70 Then 7 p.cells(i, 2).Value = "高い" 8 Else 9? 0 Next i 2 MsgBox ("終わりました") 3 End Sub 2. p をオブジェクト変数として宣言する 3. i を整数型の変数として宣言する 4. p にワークシート"a"のセル範囲"D24"を設定する 5. インデックスや添え字の値が規則的に変化して同種の処理を繰り返すとき For...Next 構文を使用する次のような構文である For 変数 = 初期値 To 終値 Step 増分値処理 Next 変数これは次の意味である変数(添え字など)の値を初期値に設定して回処理を実行する次に変数の値を増分値だけ増やした値に変えて再度処理を実行する同じく変数の値を増分値だけ増やした値に変えて再度処理を実行するこれを繰り返す変数を増分値だけ増やした値が終値を超えたら処理を実行しないで Next の次へ進む Next の後の変数はなくてもよい Step のあとの増分値がのときは省略してよいこの例では変数 i をから 8 までつずつ変えて 6 行 0 行の処理を 8 回繰り返しているなお For...Next は入れ子の構文にして使用できる ex06 Do While...Loop による繰り返し与えられた 0 進数を 2 進数に変換するプログラムを作成しなさい Sub ex06() 2 3 Dim shou, i As Integer 4 Dim p As Object 6

7 ex07 sort()

8 ex08 sort(2)

MS-ExcelVBA 基礎 (Visual Basic for Application)

MS-ExcelVBA 基礎 (Visual Basic for Application). 主な仕様一覧 () データ型 ( 主なもの ) 型型名型宣言文字長さ内容整数型 Integer % バイト -, ~, 長整数型 Long & バイト -,,, ~,,, 単精度浮動小数点数型倍精度浮動小数点数型 Single! バイト負値 : -.0E ~ -.0E- 正値 :.0E- ~.0E Double