エクセル（Excel）の技。知ってましたか・・・。

2017年10月30日

エクセルVBAで車庫証明発行アプリ

「小顔ハリ美肌コース」エステ体験

マイクロソフトアクセスの記事はこちら

人気ブログランキングへ

にほんブログ村

エラーメッセージ

「部屋番号」を入力されないで「印刷」ボタンを押された場合は

エラーメッセージが表示されるようにしましょう。

車庫11.png

If UserForm1.TextBox1 = "" Then

MsgBox ("部屋番号を入力してください")

Exit Sub

End If

上記のように記載しました。

内容は分かりますね。

車庫12.png

上記は部屋番号を記入せずに「印刷」ボタンを押したときの状態です。

次に「使用者と契約者の関係」で「その他」を選択した場合「関係性」を

記入しなかった場合もエラーメッセージを出しましょう。

車庫13.png

If UserForm1.OptionButton4 = True Then

If UserForm1.TextBox2 = "" Then

MsgBox ("関係性を入力してください")

Exit Sub

End If

End If

上記のように記載しました。

これも非常にシンプルに記述していますので、分かりますね。

車庫14.png

上記は部屋番号を入力し、「その他」を選択したが、「関係性」を

空白のまま「印刷」ボタンを押したときの状態です。

ここまでで、最初の仕掛けは出来たと思うので、ここからは入力に従って、

車庫証明にコピーして行きましょう。

注意するところは使用者と契約者が違う場合だけですね。

「同じ」を選択した時は、同じものをコピーすればＯＫですね。

それ以外は使用者（賃貸者）をコピーする。まあ実際はもっと

複雑ですが（本店・支店等）、今回はこのようにしましょう。

エルセーヌ

タグ：エクセルVBAで車庫証明発行アプリ

posted by yoshimatsu at 14:52 | Comment(0) | TrackBack(0) | パソコン,エクセル,小技

2017年10月19日

ExcelVBAで車庫証明発行アプリ

エルセーヌ

マイクロソフトアクセスの記事はこちら

人気ブログランキングへ

にほんブログ村

使用者と契約者の関係

初期状態は「同じ」にしましょう。

車庫9.png

上記のように「UserForm」の「Initialize」にして、

Private Sub UserForm_Initialize()

OptionButton1.Value = True

End Sub

上記のように記載しましょう。

車庫10.png

フォームを開いたときに「同じ」にチェックが入っています。

エルセーヌの大幅減量ダイエット

posted by yoshimatsu at 09:05 | Comment(0) | TrackBack(0) | パソコン,エクセル,小技

2017年10月15日

ExcelVBA車庫証明発行アプリ

マルチドメイン対応、ビジネス仕様高性能レンタルサーバー【シックスコア】
https://px.a8.net/svt/ejp?a8mat=2NR2G3+DE94S2+CO4+NUES3

マイクロソフトアクセスの記事はこちら

人気ブログランキングへ

にほんブログ村

フォームの作成

とりあえずフォームに終了ボタンと説明書を追加しましょう。

車庫8.png

説明と「終了」ボタンを追加して、レイアウトも若干さわりました。

・最初に前回のデータを消去することから始めましょう。

フォームの「印刷」ボタンをダブルクリックしてＶＢＡを記載できるようにして

下記のコードを書きました。

Private Sub CommandButton1_Click()

Sheets("車庫証明").Range("g6").ClearContents

Sheets("車庫証明").Range("g9").ClearContents

Sheets("車庫証明").Range("m7").ClearContents

Sheets("車庫証明").Range("m10").ClearContents

Sheets("車庫証明").Range("f7:g7").ClearContents

Sheets("車庫証明").Range("f10:g10").ClearContents

Sheets("車庫証明").Range("n4:r4").ClearContents

Sheets("車庫証明").Range("p6:p9").ClearContents

Sheets("車庫証明").Range("p6") = 1

Sheets("車庫証明").Range("p7") = 2

Sheets("車庫証明").Range("p8") = 3

Sheets("車庫証明").Range("p9") = 4

End Sub

とにかく一つ一つ書いてあるので非常に分かりやすいと思いますので

説明は省きます。

ClearContentsもまとめて指定することも出来ます。

例）

Sheets("車庫証明").Range("g6，g9，m7").ClearContentsとすると

3つのセルが選択され、消去されます。

エルセーヌ

posted by yoshimatsu at 09:00 | Comment(0) | TrackBack(0) | パソコン,エクセル,小技

2017年10月08日

ExcelVBA車庫証明発行アプリ

東京の人気ホテル・旅館が最大50%OFF

マイクロソフトアクセスの記事はこちら

人気ブログランキングへ

にほんブログ村

車庫証明発行

最初にメインページにフォームを開くボタンを設置しましょう。

メインページに「車庫証明発行」ボタンを設置しました。

車庫6.png

フォームを開くVBAを記載しています。

車庫7.png

メインページの「車庫証明発行」ボタンを押すと上記のようにフォームが開きます。

ここから「印刷」ボタンのＶＢＡを考えて行きましょう。

動作として考えなくてはいけない点を順不同で列挙していきます。

・「使用者と契約者の関係」で初期状態を「同じ」に設定する。

・部屋番号が入力されていない状態で「印刷」ボタンを押された場合の動作・・・

「部屋番号を入力してください」というメッセージを表示。

・「使用者と契約者の関係」で「その他」を選択された場合は、

関係性を記入してもらう必要があるが、記入せずに「印刷」ボタンを

押された場合の動作・・・関係性を入力してくださいというメッセージを表示。

・部屋番号を車庫証明シートの２か所に入力

・氏名（使用者と契約者の２か所）の入力

・電話番号の入力・・・これも２か所

・使用者と契約者の欄に丸数字で入力し、その他の場合は関係性を入力する

・車庫図面の該当区画に色を付ける

・車庫証明の印刷

・車庫図面の印刷（該当ページのみ）

・地図の印刷

・発行履歴への記載

大体このくらいでしょうか。

それから後でこのフォームに「終了」ボタンと取扱い説明を追加しましょう。

もう一つ、一度発行して、終了するとその方の部屋番号・名前・電話番号等々と

車庫図面の色が残ったままですね。

次に作成するときに残ったままだと好ましくないのでどこかのタイミングで初期化しましょう。

印刷ボタンを押して、最初にその処理を入れるか、または印刷終わってから

処理を入れるかですか、大体私は最初に入れております。

印刷後に入れた場合、何らか不具合等で印刷が実行できなかった場合、

初期化されていると入力からやり直す必要があります。

最初に処理を入れておけば、印刷が失敗しても、データーは残っているので、

個別で印刷すればＯＫだからです。

このくらいの要素を入れてＶＢＡを作成すれば問題ないでしょう。

実際は使用者と契約者の電話番号も違うので別々の処理を入れています。

また使用者と契約者が同じ場合は「同じ」というボタンを入れて処理しています。

また駐車場図面は２シートあって全部で６ページあります。

それ以外に「車庫証明発行に際して」という注意文書も一緒に印刷しております。

タグ： ExcelVBA車庫証明発行アプリ

posted by yoshimatsu at 09:34 | Comment(0) | TrackBack(0) | パソコン,エクセル,小技

2017年10月03日

ExcelVBAで車庫証明発行アプリ

===[PR]=====================================================
　　　　　月額1,980円（1年間・税別）で使えるスマホ【UQmobile】

　　　　　◇番号そのままお乗換え可能！
　　　　　◇当サイト限定初期費用＆送料無料！
　　　　　◇0円端末など豊富なラインナップ！

詳しくは↓↓
https://px.a8.net/svt/ejp?a8mat=2TIIN2+9W1A2Q+2CPQ+1BNBJN
=====================================================[PR]===

マイクロソフトアクセスの記事はこちら

人気ブログランキングへ

にほんブログ村

入力フォームの内容

　・部屋番号を入力するテキストボックス

　・使用者と契約者の関係を選択する「オプションボタン」の設置と、

　　その他を選択した場合の記入用テキストボックス

・発行ボタン

一応上記くらいですね。

実際は１家庭で２台以上持っておられる方もいますので、

駐車場のデータベースもあり、居住者のデータベースと別になっています。

そのため、「部屋番号」と「駐車場番号」の両方を入力するようになっていて、

整合性がなければ赤表示になり間違いを示唆するようになっています。

とりあえず入力フォームを作ってみました。

車庫4.png

「部屋番号を入力してください」というところは「ラベル」ですね。

そしてフレームを入れて「使用者と契約者の関係」という名前を付けています。

その他の下にあるテキストボックスは「その他」の場合にどのような関係か記入するところです。

部屋番号を入力するテキストボックスは数字が入るのでフォームの

テキストボックスのプロパティの中にある「ＩＭＥＭｏｄｅ」で「8-fmIMEModeAlpha」にします。

ここの設定の詳細ですが

車庫5.png

0-fmIMEModeNoControl・・・IMEのモードを変更しない

1-fmIMEModeOn・・・IMEをONにします

2-fmIMEModeOff・・・IMEのモードOFFにします

3-fmIMEModeDisable・・・IMEのモードをOFFにします。

このモードではユーザーのキー操作でもIMEをONすることはできなくなります

4-fmIMEModeHiragana・・・全角ひらがなにします

5-fmIMEModeKatakana・・・全角カタカナにします

6-fmIMEModeKatakanaHalf・・・半角カタカナにします

7-fmIMEModeAlphaFull・・・全角英数モードにします

8-fmIMEModeAlpha・・・半角英数モードにします

上記のようにテキストボックスのIME設定が出来ます。

タグ： ExcelVBAで車庫証明

posted by yoshimatsu at 16:46 | Comment(0) | TrackBack(0) | パソコン,エクセル,小技

広告

2017年10月30日

エクセルVBAで車庫証明発行アプリ

2017年10月19日

ExcelVBAで車庫証明発行アプリ

2017年10月15日

ExcelVBA車庫証明発行アプリ

2017年10月08日

ExcelVBA車庫証明発行アプリ

2017年10月03日

ExcelVBAで車庫証明発行アプリ