|
●実践編として、いろんなことに挑戦していくよ!!
技術的にも、少しハイレベルになってくるので、
しっかり、ガンバッテねぇ ｑ(^◎＾＊)ｐ
まず、今回は３つのシートを作成する。
下の図のような、名簿表シート、ハガキ印刷シート、それと入力表のシート!!を作成
それぞれがシート同士関連をもつことになるんだけど
順を追って、作っていくことにしよう!!
レイアウトは↓のような感じで作成していきます!!φ(^･^)
１．名簿表
２．ハガキ印刷
３．入力表
まず、入力表と名簿表のリンクをスクロールバーを使ってみようと思う、
で、方法はセルA１が鍵になる。
前回作成したスクロールバーをここで使うことにしよう!!
これでスクロールバーの配置はOK!!だよね
データの内訳は、B３〜B１４ 役職から備考まで
実際に入力するのはC３〜C１４とします!!
入力するのに便利な方法として、セルを選択したときに日本語入力
（実際には、役職、氏名、名称、住所、備考欄）
数字だけを入れたいとき、英語入力という風にしたいよね、
そんなときには入力規則を使えばいい!!
ここで是非これをマスターしたいものだ!!
（そういえば、これって、まだ説明していなかったけ？ φ(？。？) ）
●入力規則
まず、C３からC５までドラッグ、そしてC８とＣ１２、C１４はCTRLを押しながら
クリック、一気に日本語入力欄を選択する。（セルが反転していればＯＫ!!）
【ファイルメニュー】から【データ】を選択しポップアップした【入力規則】を
クリックする。
そうすると、入力規則の日本語入力を選択。
▼ボタン（コンボボックス）を押して、【ひらがな】を選択しよう!!
同じように、郵便番号、丁目、番、号、電話番号は【オフ（英語モード）】
を選択しておこう!!
ついでに、こういうこともできる。
●設定
↑ここでの条件は種類は整数で
データは次の値の間を選択し
最小値０ （または、１００つまり３桁最小値）から
最大値999までの数値、これ以外だとエラーメッセージをだすようにする
●入力時のメッセージは、必要がないので
【セルの選択時にメッセージを表示する】にノーチェックしておこう!!
●エラーメッセージ
↑こんな風にエラーメッセージを入れてみた
1000を入力してみるとアシスタントのイルカ君が出てきて
 ←こんなエラーメッセージがでたよ!!
999まだ→999までに訂正!! 入力ミスじゃわい ヽ(∇⌒ヽ)
と、まぁ、こんな具合に入力規則を決めれば
シートでもかなり入力しやすい、あるいはデータ入力のミスがないように
することができるわけだ!!
●日本語入力IME２０００を使って住所入力をする
IME2000には再変換モードがある。辞書のプロパティで郵便番号辞書を
チェックしておこう!!
もし、この辞書が入っていなければ、IME２０００のCDから取り込んでおく!!
（方法については、ここではパスするよ、自分で調べてね (･.･;) ）
●マクロで住所入力の作業を簡単に
さぁ、ここで、一つ目のマクロを作ることにしよう!!
つまり、郵便番号 例 上では ５４３ と ５１（表示形式で0000にしてある）
をマクロで組み合わせ、５４３−００５１にして住所欄（Ｃ8）に、この文字を
代入させるというものだ!!
そうすれば、この文字は再変換で住所入力がいとも簡単にできるはずだ!!
と考えた!!
順だって考えよう!!
１．シートのコード表示
これは↓の図のようにシートタブ（名前は入力とした）を右クリック
 そうするとシートタブのショートカットが
表示されるので
一番下の【コードの表示】
これをクリックする。
２．ワークシートのイベント
そうすると↑のうようなシートのコードが出てきただろう!!
（General）の▼を押してみよう
そうすると↑のようにうリスト表示されているWorksheetをクリックしてみよう
自動的に
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub |
という記述が入力されたはずだ!!
こればワークシートのRange（セルのこと）が変化すれば
マクロが動かせるイベント
でも、これじゃ、自分で住所を入力したら、その後でイベントが始まってしまうことになる
つまり折角住所を入力しても、その後に郵便番号が入力されてしまうわけだから
このイベントは使えない。
そこでWorksheetのイベントで他にはないかということで左のDeclarations
がSelectionChangeに変わっているはずだ!!
そこで右の▼をクリックしてみよう!!
このなかで、ダブルクリックっていうのがあるよね!!
今↑で選択している状態だよね!!
これをクリックすれば、今度は
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub |
と表示されたはずだ!!
これだと、ダブルクリックするときだけ、イベントがおきる。
今回の場合、これを使うことにしよう。
※１（ByVal・・・ ）については、少し難しいので後述することにして、次に進むが
大事なことでもあるので、是非見ておいてくだされ!!
つまり、住所を入力するときに、郵便番号がわかっていれば
そのセル（C８）でダブルクリック、郵便番号が入力というマクロを
作成すればいいことになる
これを、まだはじめたばかりの諸君には難しいので
これは、ちょっと先輩のたこちゅーが作ってみたので参考にしてくだされ!!
（まぁ、もっといい方法があるとおもうけど、結果よしということで御勘弁願う）
コードは次のとおり
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim A As String
Dim P1 As Integer
Dim P2 As Integer
If Target.Address(0, 0) <> "C8" Then Exit Sub
On Error GoTo Myline
P1 = Range("C6")
On Error GoTo Myline
P2 = Range("C7")
If P2 < 10 Then
Range("C8") = P1 & "-000" & A
ElseIf P2 > 9 And P2 < 100 Then
A = Range("C7")
Range("C8") = P1 & "-00" & A
ElseIf P2 > 99 And P2 < 1000 Then
A = Range("C7")
Range("C8") = P1 & "-0" & A
ElseIf P2 > 999 Then
A = Range("C7")
Range("C8") = P1 & "-" & A
End If
Myline:
On Error GoTo 0
End Sub |
初心者の方は、↑のコードだけでまっ青になっているかもしれないよね〜 o(TヘTo)
VBAをかじっている人には楽勝っていう人もいるだろう
でも、ここは初心者のため・・・・であるから
やはりここは、じっくり説明しておこうね、
３．Option Explicit（オプションステートメントのひとつ）
これはおまじないみたいなもんである。
（ちなみに、BBSに来てくださるoyajiさんに教えてもらったのじゃな ）
標準モジュールっていうのは、自動マクロを作ったときにできていただろう、
シートにも、同じようにコードがかけるようになっている。
シートモジュールって言うのかどうかは、
ちょっとわからないけど（まぁ、そんなに深くかんがえないでください）
そこで、これを一番上に宣言しておくと（書いておくと）
変数（プログラム実行中に変化する値を入れておく入れ物のことですなぁ）
を強制宣言するわけです。
つまり、変数というのは最初に宣言するわけですが、
今回のようにフロシージャ内で次の宣言をした
例 Dim A As String
Dim P1 As Integer
Dim P2 As Integer
そして、フロシージャ内で、これ以外の変数を使っていると、
そんな変数は使ってまへんで!!
と、教えてくれるのがこのおまじないというわけですなぁ
（こんな説明でいいと思うのだけど
違っていたら、教えてくださいませ、なにせ独学でございます故）
４．変数の宣言
Dim は 難しい言葉でいえば変数の適用宣言なんですが、
これは、プロシージャ、つまり↑のような
Private Sub ・・・
〇
〇
End Sub
で一つのプログラムが構成されている。
このようなものをフロシージャという（説明が前後無茶苦茶じゃが許されたし）
で、↑の場合、このプログラム内だけで有効っていうわけだ。
もちろんこの Dim は モジュール内でも有効なので
Optionの後と、プログラム前の間（プログラム外）に宣言しておけば
そのモジュール（シートモジュール）内で有効というわけである。
つまりその範囲内であればどこでも使えるというわけだが、
この場合、気をつけなければならないのは、そのプログラムが
終了しても、変数はひきづり他のプログラムに影響の恐れがある
場合もあるので、記述する場合は注意しよう!!
５．As
これは、「は」と思えばいいだろう
つまり
Dim A As String の宣言は
「適用範囲はこのフロシージャ（プログラム）内で
A は String です」 という意味になる
６． 変数
ここで使った変数だけ紹介する
Stringは「文字」ですよ
Integerは「整数」ですよ って意味!!
まぁ、これ以上話してもきりがないよね、前にすすまないので次に進むとしよう!!
７．if文
If Target.Address(0, 0) <> "C8" Then Exit Sub
これはTargetのアドレス が セルC８以外は このプログラムから脱出せよ!!
という意味、Exitは駅などで、出口なんて書いてあるから御存知ですよね!!
If は 「もし・・・だったら」、Then は 「のときは」の意味
８．On Error GoTo Myline
P1 = Range("C6")でP１は整数なのに例えば整数以外の文字が入ってしまったら
このプログラムはエラーになる。だから、そんなときは
こんな時は、↑の構文を使って
エラーがでたら Mylineに行ってね、って導いてやる方法がこれだ!!
On Error GoTo 0 は エラー処理を無効にする構文
入れなくてもいい場合が多いけど、入れておいたほうが無難かな？
その他にはエラーを無視する
On Error Resume Next もよく使う。
これはエラーがでても、まったく無視することができるのだ。
ここで覚えておこうね!!
９．メインプログラムの意味（たいしたもんではないけど）
If P2 < 10 Then 'P２つまりセルC7が１０以下だったら
Range("C8") = P1 & "-000" & A
文字は""の間に入れておけば文字として認識される、
P1は実際は５４３そして-000と１桁の数字Aとの組合わせとなる
↑の場合、Aは５１なので、ここは通過しないことになる
※「""」はエクセルの関数でも同じ意味だね、
つまり -000 は文字として認識されることになる
EElseIf P2 > 9 And P2 < 100 Then
P２は整数なので >9 は１０以上、 <100 100未満つまり９９の意味になる
A = Range("C7")
Range("C8") = P1 & "-00" & A
１０以上、１００未満で、 P１と-00とA の組合わせということになるな！！
↑の場合、５１はこの条件を満たすので
結果として 543-0051 となるわけである
以下同様に、3桁の数字のとき、４桁の数字のときの分岐条件である
End If
これは、 If に対して、ここで終わりという宣言をしておかなくてはならない
結末文である。
End ・・・で終わるものや Next（Next ・・・） で終わるもの
宣言文に対しては、必ず結末文があるということを覚えておいてほしい
これを抜くと必ずエラーになる
つまり Ifに対しては End If で終わる
If ・・・ Then ・・・・ で終わってしまえば、一行で完結しているので
End If はいらない（こういう場合もある）
１０．最後に
というわけで、セルC8をダブルクリックすれば
この↑のマクロ（プログラム）が働いて
セルＣ8に郵便番号が入力されることになる
入力されたら、この文字を選択し、右クリックして再変換すれば住所が
入力されるという按配じゃ!!
まぁ、これで入力が、かなり楽になるはずじゃが
お試しアレ!!
これで第２回はおしまい。。。。次回続く・・・・
※１ ●引数
（ByVal・・・ ）内の説明はちょっと難しい!!
しかし、引数（ひきすう）というのは、とっても大事なことなので、
少しは理解しておいて欲しい。
ということで、引数のことについて説明しておきます。
関数でも、引数というのがあります。
例えばVLOOKUP関数( )では
VLOOKUP(検索値, 範囲, 列番号,
検索の型)で構成されています
VLOOKUP関数も、ひとつのフロシジャーで構成されています。
つまりプログラム関数だと理解してください。
入力値に対して、そのプログラムを動かす要素と
なるデータを呼び出すのが、引数なんですが、
それが、ここでは範囲であり、列番号であり、検索の型なんです。
なんか、わかったような、わからないような説明ですが。。。
（感覚的に「引数」っていうものが、理解できればそれでいいです？）
そこで、VBAでもフロシージャー（プログラム）からフロシージャへ
データを引き渡したり、渡されたりすることがあります。
このことを引数といいます
そして、データの引数には、フロシージャーから別のフロシージャーへ
（１）値をそのまま引渡す場合（値渡し）
（２）値の格納されている変数のある場所を指定する（参照渡し）
このふたとおりがあります。
通常は（２）だと思っておいてください。
しかし、今回の↑場合は ByValがついていましたので、これは値渡しですよ!!
というキーワードになっている決まり文句なんです。
（Valというのは、値で、Bｙ は 〜で つまり、「値で」ということになるのかな？
英語でｂｙ bicycle（自転車で）なんて習ったでしょう!!
それと同じ、結構、日本語より英語の方がわかりやすいかもしれませんねぇ〜）
説明すると限（きり）がないので、ここらへんでおきますが、
Private Sub Worksheet_BeforeDoubleClick
(ByVal Target As Range, Cancel As Boolean)
最後に、このフロシージャー内でつかう意味を訳しておきましょう!!
Privateはフロシージャy-の適用範囲を示し、
他のモジュールからのフロシージャーからの呼出しは不可ということです。
そして、ワークシート（ここではワークシート"入力"）をダブルクリックしたら
プログラムは実行されますよ!!
（）内は
引数は値渡しで、TargetはRange、CancelはBoolen
（Boolen はTrueかFalseを返す）で取り扱いますよ!!てなことかな。
【戻る】 |
|
第２回 実践で、実力UPしよう!!