上の図がプロジェクトエクスプローラです通常 VisualBasicEditor 画面の左上に配置されています Microsoft Excel Objects( ワークシート ) フォーム標準モジュールクラスモジュールなどに分かれていてそれらの集まりをプロジェクトといいます Excel のワー

Size: px

Start display at page:

Download "上の図がプロジェクトエクスプローラです通常 VisualBasicEditor 画面の左上に配置されています Microsoft Excel Objects( ワークシート ) フォーム標準モジュールクラスモジュールなどに分かれていてそれらの集まりをプロジェクトといいます Excel のワー"

つづるひきぎ
5 years ago
Views:

1 TextBox1 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 Beep なお前回の記事で IF 条件式がわかりにくいとの指摘があったのでそちらを再度説明しましょうまず上のプロシジャで KeyAscii という変数が現われますこの変数は最初に Private Sub... 文のかっこ書き部分に出て来ていますこれは VBA のシステムが KeyPress イベントの発生時 ( なにかキーを押したとき ) にユーザーが実際に押したキーを認識しそのキーの Ascii コード ( 整数 ) を KeyAscii という変数に代入してくれることを表していますしたがって ( 特殊なキーを除いては ) 数値以外のキーでもすべて押したキーのコードが KeyAscii 変数に取り込まれます ( 少なくとも印刷可能文字はすべて取り込まれます ) この場合数値以外は入力させたくないので If 条件文で 0 未満 9 を超える数値が押された場合には無効処理をさせますそれが KeyAscii=0 でこの文によって押されたキーを無効にすることができますなお ASC( ) はカッコの中の文字 ( 数値 ) を Ascii コードに変換するための関数ですこれにより KeyAscii 変数と比較できるようになります ( 基本的に条件式では方が同じでないと比較できません ) 数値 0 が Ascii コードで 46 で順に数値 9 は 57 に割り当てられていますので次のような書き方でも書けないことはありません If KeyAscii < 48 Or KeyAscii > 57 Then ただあとからこのコードを見た場合これらのコードが何のキーであるかがわかりにくいのであえて Asc() 関数を使い変換前の文字を記述しておくのが一般的ですもちろん Asc("0") は 48 をあたえ Asc("9") は 57 をあたえます ( そこにコメントを加えておく場合話は別ですが... ) さて今日の課題分に入りますワークシート内の特定のセルがクリックされた場合にフォームを開くというプロシジャは WorkSheet オブジェクトに記述します WorkSheet オブジェクトはプロジェクトエクスプローラで確認してください

上の図がプロジェクトエクスプローラです通常 VisualBasicEditor 画面の左上に配置されています Microsoft Excel Objects( ワークシート ) フォーム標準モジュールクラスモジュールなどに分かれていてそれらの集まりをプロジェクトといいます Excel のワークシートは新規作成すると自動的に 3 つのワークシートができますがそのシートが VBA

2 上の図がプロジェクトエクスプローラです通常 VisualBasicEditor 画面の左上に配置されています Microsoft Excel Objects( ワークシート ) フォーム標準モジュールクラスモジュールなどに分かれていてそれらの集まりをプロジェクトといいます Excel のワークシートは新規作成すると自動的に 3 つのワークシートができますがそのシートが VBA では自動的にオブジェクトとみなされます今回使うのは Sheet1 ですので一番上の Sheet1(Sheet1) を使います ( かっこ内は Excel におけるシート名で E xcel のシート名を変えればここも変更されますかっこ外の名前も Visual Basic Editor のプロパティウィンドウでなら変更できますが慣れないうちは変えない方がわかりやすいと思います ) まず Sheet1(Sheet1) をダブルクリックしてください Sheet1 にコードが記述されていればコードウィンドウに Sheet1 に関するコードが現われます新規のプロジェクトの場合何も表示されませんこのコードウィンドウには 2 つのプリセットがありますオブジェクトとプロシジャです選択はコードウィンドウの上部のセレクトボックスで行います上の図で (General) と Worksheet を選択するセレクトボックスがオブジェクトの選択ですそして内容は隠れていますが右に配置された (Declarations) 側がプロシジャの選択ですプロシジャの選択ではイベントハンドラを選びます先にも書きましたように今回のケースでは Worksheet に記述するので図のように Worksheet を選びます ( 上の

3 図ではセレクトボックスの下側に既にコードが表示されていますが実際には何も表示されていません ) 今回の課題である特定のセルを選んだとき... とあるので (Declarations) 側では SelectionChange を選びます ( 順序は必ずオブジェクトプロシジャの順に選択してくださいオブジェクトに固有のプロシジャがあるので順逆だとプロシジャを選択できません ) SelectionChange はセルの選択範囲が変わったときに発生するイベントです実質上特定のセルをクリックしたときにも 1 つのセルを選択したとみなされ発生します (WorkSheets オブジェクトには上の図のように Click イベントは存在しません ) オブジェクトとプロシジャを選択すると自動的に次のようなプロシジャが表示されます ( この部分は定型句です ) Private Sub Worksheet_SelectionChange(ByVal Target As Range) ( この部分に自身でコードを書いていきます ) 考え方は KeyPress と同様ですただし KeyPress ではキーが押されたときに該当のプロシジャが実行されましたが SelectionChange では選択範囲が変更されたときに実行されます今回のコードは次のように記述します Worksheet ( オブジェクト名 worksheet1) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If (Target.Row = 1 And Target.Column = 1) Then UserForm1.Show このプロシジャではワークシートでセル範囲を選択すると先の KeyAscii 変数と同様にその範囲 (Range) が Tar get という特殊なオブジェクト型変数に読み込まれますこの変数は Row( 行 ) と Column( 列 ) というプロパティを持っていますのでそれらを使います上の条件式で Row が 1 なのは 1 行目であることが想像できるでしょうが Column で 1 列目を表示する場合にも 1 で表現するのでご注意くださいなぜなら Excel のワークシートでは A1 など列はアルファベットで表示しているのでご注意くださいつまり上の If 文は選択範囲の行が 1 列目でかつ列が 1 列目であれば UserForm1 を開きなさいということになります AND によって Target.Row=1 と Target.Column=1 という複数の条件式が両方整ったら実行せよとい

4 う意味になります他の選択範囲を選んでも UserForm1 は開きませんが該当のセルが左上先頭である選択である場合に限りそれより広い範囲を選択してもフォームは開きます UserForm が開かれた時点で次のコードを用いて TextBox1 を初期化します UserForm privete sub UserForm Activate() TextBox1.Text = "" End sub これは UserForm が Activate( 活動的 ) になったら実行されるイベントプロシジャですつまり UserForm が使われるようになったら発生するイベントですこの文を要約すれば入力フォームが読み込まれたらテキストボックス (TextBox1) を初期化せよとなります As c() 関数の引数でもあったように 2 つの " に囲まれた文字は VBA では文字列をあらわしますがこの場合その間に何もないので結果 TextBox1 に空白 ( 厳密には違います ) が代入されます最後に入力フォームのテキストボックスで入力した数値をワークシートに転記するコードを記述します先に記したように KeyPress イベントが発生するとほとんどのキーコードが KeyAscii 変数に取り込まれますが例外がありそれが Enter キーや Esc キーなどの特殊キーですつまり KeyPress イベントでは Enter キーが押されたことを認識することができないのですそのため Enter キーや Esc キーのキーコードを取り込める KeyDown イベントプロシジャを用います UserForm Private Sub TextBox1_KeyDown(byVal KeyCode as Msforms ReturnInteger, ByVal Shift as Integer) If KeyCode = vbkeyescape Then UserForm1.Hide Exit Sub If KeyCode = vbkeyreturn And TextBox1.text <>"" Then Worksheets("Sheet1").Activate Worksheets("Sheet1").Range("A1").value = TextBox1.Text Worksheets("Sheet1").Range("A2").Activate UserForm1.Hide Exit Sub KeyPress イベント同様に押されたキーのコードが変数に取り込まれますが KeyDown では KeyAscii 変数ではなく KeyCode 変数です変数名は異なりますがほぼ同じようなものと考えて差し支えありませんこのプロシジャは TextBox1 内で Esc キーを押すとフォームが閉じられ入力がキャンセルされますさらに数値を入力後 Enter キーを押すと Sheet1 に表示を変え Sheet1 のセル "A1" に現在の TextBox1 の内容

5 を書き込み,UserForm を閉じます TextBox1.text<>"" はテキストボックスが空白でなければということです Worksheets("Sheet1").Range("A2").Activate はフォーカスを別のセルに移すためのコードですこれがないと A1 セルにフォーカスが残りそのまま通常の Excel のセルとして内容を書き換え可能となってしまうからです ( ここでは "A2" にしてありますが使っていないセルならどこでもかまいませんこれにより再度 A1 セルをクリックしても SelectionChange プロシジャが実行され直接セルを書き換えることはできません vbkeyescape や vbkeyreturn は VB 定数で ESC キー Enter キーそれぞれのキーコードが入っています ( 定数ですので変更はできません ) Key イベントは KeyDown KeyPress KeyUp の 3 種類がありますキーを押し下げたときには KeyDown KeyPress そして押したキーを離したときには KeyUp のそれぞれのイベントが発生します何かのボタンを押したときにはこの 3 種のイベントがすべて発生しイベントプロシジャもコードが存在すればすべて実行されますイベントの発生順序としては KeyDown KeyPress KeyUp の順になりますただしキーを押したまま離さないでいると KeyDown イベントと KeyPress イベントが交互に繰り返し発生し Ke yup イベントは発生しませんキーを離すとその時点で KeyUp イベントが発生します

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション VBA (Visual BASIC for Applications) で Body Mass Index 判定プログラムを作るユーザーフォームを用いたプログラムの作成 Graphic User Interface ( GUI ) の利用法構造化プログラムの作成複雑なプログラムを関数に分割して作る方法 VBA(Visual BASIC for Applications) のテキストはたくさんあります