MS-ExcelVBA 基礎 (Visual Basic for Application)

Size: px

Start display at page:

Download "MS-ExcelVBA 基礎 (Visual Basic for Application)"

いおりしばもと
5 years ago
Views:

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

2 () If...Then () If 条件式 Then 処理 () 論理演算子 And 論理積 Or 論理和 > >= < <= <> = () 比較演算子 (0) If...Then () If 条件式 Then 処理処理 () If...Then () If 条件式 Then 処理 If 条件式処理 If 条件式処理処理 () Do While...Loop Do While 条件式処理 Loop Do...Loop から抜け出すときは, Exit Do を用いる () For...Next For 変数 = 初期値 To 終値 Step 増分値処理 Next 変数 (For に対応する変数 ) For...Next から抜け出すときは, Exit For を用いる

3 () 文字列定数 Dim str As String str = "string" () 次行への継続 ( アンダースコア ) 文 _ 文 () 配列宣言 Dim ix(,) As Integer () セル参照の設定とセルの値の参照 Dim s As String Dim x As Double Set p = Worksheets(" シート名 ").Range(" セル範囲 ") s = p.cells(, ).Text 文字列として参照する x = p.cells(, ).Value 数値として参照する () セル参照の設定とセルへの値の設定 Set p = Worksheets(" シート名 ").Range(" セル範囲 ") p.cells(, ).Value = string 文字列として設定する p.cells(, ).Value =. 数値として設定する

4 . 例題による演習. 準備 () 指定された URL からサンプルファイルをダウンロードして保存しなさい () Excel を起動してサンプルファイルを開く () Alt + F とキー操作して VBA を起動する () 新しいプロシジャを作成する挿入標準モジュール次のプログラムを入力しなさいこれはメッセージボックスで "Hello, world!" と返してくるプログラムである MsgBox 関数を使用する例である ( この罫線は記入しない ) Sub ex0() MsgBox ("Hello, world!") ( この罫線は記入しない ) () 実行ボタンをクリックして実行する ( 注 ) 中止するときはボタンをクリックする以下, 例題ごとに ()() を繰り返しす. 例題 ex0 セルの値の足し算 () C 列のつの値を足して, その結果を行目のセル (C0) に書き込むプログラムを作成しなさい左端の行番号は入力しなくてよい Sub ex0() Set p = Worksheets("a").Range("C:C0") p.cells(, ).Value = p.cells(, ).Value + p.cells(, ).Value. プロシジャの始まり ex0 はプロシジャ名 () は必須プロシジャは一般に次の構成からなる Sub プロシジャ名 () 変数の型宣言... 処理.... p をオブジェクト変数として宣言するセル範囲を指し示すオブジェクトとして使用するため. p にワークシート "a" のセル範囲 "C:E0" を設定する. セルの値を参照して足し算をする結果をセルに書き込むここで, セル範囲の最も左上のセル位置を (,) と表す Cells(,) は, セル範囲の行列目のセルを指す Cells(,) は, セル範囲の行列目のセルを指す Cells(,) は, セル範囲の行列目のセルを指す Value は, セル内の値を指すつまり p.cells(i,j).value は, セル範囲 p の,i 行 j 列目のセルの値という意味実は, セル範囲の指定を "C" とだけしてもよい結果は同じである要するに, 最も左上のセル位置さえ指定すればよい Cells(i,j) はそこからの相対位置のセルを指すことになる. プロシジャの終わり

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

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

7 0 0 0 '... p にセル範囲 "D" を設定する Set p = Worksheets("a").Range("D") '... 与えられた 0 進数を shou に設定する shou = p.cells(, 0).Value '... 行カウンタ i にを設定する ( 行目の意味 ) i = '... shou が正である限り繰り返す Do While shou > 0 '... shou をで割った余りを (i,) に設定する p.cells(i, ).Value = shou Mod '... shou をで割った商を (i,) に設定する p.cells(i, ).Value =? '... 上で求めた商を shou に設定し直す shou = p.cells(i, ).Value '... 行カウンタ i をつ増やす i = i + Loop 0 進数 shou を進数に変換する方法は, 次の通りである () shou をで割った余りを, 進数の右端から左へ向けて並べる () shou をで割った商を,shou の値に設定し直す () 上の ()() を繰り返す () shou>0 でなくなったら ( つまり shou の値が 0 になったら ), ストップするこのプログラムでは次のようにして実現している. 変数 shou,i を Integer( 整数型 ) として宣言する. 変数 p をオブジェクト変数として宣言する 0.. Do While...Loop へ入る前の初期設定をしている Do While...Loop は次の構文をしている Do While 条件式処理 Loop 条件式が True ならば, 回処理を実行するそのあと再び条件式をみる True ならば再び処理を実行するこうして, 条件式が True の間処理を実行し続ける条件式が False になったら, 処理を実行しないで,Loop の次に進む処理の過程で条件式を変更するような仕組みを組み込んでおくことが大事なポイントとなる ~0. 上に書いた ()()()() の処理に該当することを繰り返している. 再度処理の繰り返しに入る準備として,shou に商の値を設定している. 同じく処理の繰り返しに入る準備として,i に次の出力行の値を設定している ex0 並べ替え ( 整列,sort)() 00 個の整数を小さいものから順に並べるプログラムを作成しなさい方法は基本選択法であるなお,C 列の数をあらかじめ D 列にコピーした数を用いて並べ替えを実行しなさい C 列の数はそのまま

8 保存しておくものとする Sub ex0() '... 必要な変数の型宣言 Dim i, j, tmp As Integer '... p にセル範囲 "D" を設定する Set p = Worksheets("a").Range("D") '... 基準の行を表す i をからまでつずつ変えながら実行する For i = To '... 比較対象の行を表す j を i+ から 00 までつずつ変えながら実行する For j =? '... 基準の i 行目の数より j 行目の数が小さいならば If p.cells(i, ).Value > p.cells(j, ).Value Then '... i 行目の数と j 行目の数とを入れ替える tmp = p.cells(i, ).Value p.cells(i, ).Value = p.cells(j, ).Value p.cells(j, ).Value =? Next j ex0 並べ替え ( 整列,sort)() 上のプログラムのように, セルからの読み込みと, セルへの書き込みとを頻繁に行う方法は時間がかかるそこで, はじめにセルから配列にすべての数値を読み込んで, 配列内で整列を実施し, その結果をセルに書き出すようなプログラムに改良しなさい 0 Sub ex0() '... 必要な変数と配列の型宣言 Dim i, j, tmp As Integer Dim ia(00) As Integer '... p にセル範囲 "D" を設定する Set p = Worksheets("a").Range("C") '... 配列 ia にもとの数を読み込む For i = To 00 ia(i) = p.cells(i, ).Value '... 基準の行を表す i をからまでつずつ変えながら実行する For i = To

9 0 0 0 '... 比較対象の行を表す j を i+ から 00 までつずつ変えながら実行する For j = i + To 00 '... 基準の i 行目の数より j 行目の数が小さいならば If ia(i) > ia(j) Then '... i 行目の数と j 行目の数とを入れ替える tmp =?? =?? = tmp Next j '... 配列 ia の数を書き出す For i = To 00 p.cells(i, ).Value = ia(i) 以上

sinfI2005_VBA.doc

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 型!