お気楽マスター さん プロフィール

  •  
お気楽マスターさん: 気楽にエクセルVBA
ハンドル名お気楽マスター さん
ブログタイトル気楽にエクセルVBA
ブログURLhttp://kirakunivba.seesaa.net/
サイト紹介文脱初心者!エクセルVBAでシステム構築を気楽にやりませう^^
参加カテゴリー
更新頻度(1年)情報提供152回 / 343日(平均3.1回/週) - 参加 2016/04/14 20:31

お気楽マスター さんのブログ記事

  • 業務システム!データ呼出ボタンの共有コード
  • 【 パソコン教室用システムの構築30 】※SeIToDataFmフォーム◆修正です前回の呼出ボタンのコードですが、今のところは前回のままのコードでも問題なしですが、データ入力行を使う他のボタンも存在するので、今の時点でデータ入力行を代入する変数をモジュールレベルの変数にしときます。SeIToDataFmフォームモジュールの先頭部分にPrivate M_i As Longの1行を書き込む。データ呼出ボタンのコードの変数iの宣言を削除して、コー [続きを読む]
  • 業務システム!データ呼出ボタンの不具合と共有コード
  • 【 パソコン教室用システムの構築29 】※SeIToDataFmフォーム◆終了ボタンのコードメインフォームのイメージ画像を変更するコードを書き忘れていたので追加しときます。Private Sub CmdEnd_Click()  Call HM002_MainImageSet   Unload MeEnd Sub◆呼び出されたデータの動作不良前回の続きで・・・もう一つの動作不良の対処をします。ただ、こっちの場合は動作不良ではなく仕様の問題です。簡単に書くと・・・コンボボック [続きを読む]
  • 業務システム!生徒データフォームの呼出ボタンのコード
  • 【 パソコン教室用システムの構築28 】※修正です!SeIToDataFmフォームのデータ呼出ボタンのコードをURiAGeNyuURyoKuFmフォームのデータ呼出ボタンのコードをコピペで修正を加えて作ったのですが・・・なぜかまともに動作しない。で、いろいろ試してるうちにURiAGeNyuURyoKuFmフォームの不良?コードを発見したので先に修正しときます。動作不良の対処はその後でします。◆URiAGeNyuURyoKuFmフォームのデータ呼出ボタンのコード [続きを読む]
  • 業務システム!生徒データフォームの呼び出しと終了
  • 【 パソコン教室用システムの構築27 】※MainFmフォームMainFmフォームからSeIToDataFmフォームを呼び出せるようにします。◆呼び出しボタンを作るMainFmフォーム上の任意のコマンドボタンをコピペでオブジェクト名をCmdSeIToDataに、Captionを生徒データに変更する。コマンドボタンの配置は今のところは適当でOKです。◆CmdSeIToData_MouseMoveのコード生徒データボタン上をマウスポインタが移動しているなら共有コードのHM00 [続きを読む]
  • 業務システム!生徒データフォーム
  • 【 パソコン教室用システムの構築26 】今回から予約データフォームを作るつもりでしたが・・・先に生徒データフォームを作ることにします。別に予約データフォームから作ってもいいんですが・・・私的には予約データフォームから生徒データを呼び出して予約を入れるよりも生徒データフォームから予約データフォームを呼び出して予約を入れる方がいいような気がするので先に生徒データフォームを作ることにします。※SeIToDataFm [続きを読む]
  • 業務システム!私流追加コード3
  • 【 パソコン教室用システムの構築25 】※MainFmフォームのコマンドボタンを見易くするバック画像で見難いコマンドボタンの文字を見易くするコードを書くのですが、他でもバック画像を利用するフォームの実装を予定してるのでコードは共有コードとして標準モジュールHM002に書きます。◆MainFmフォームフォームのコード一番最初のコードがユーザーフォーム上をマウスポインタが移動しているときのコードで後のコードがそれぞれの [続きを読む]
  • 業務システム!私流追加コード2
  • 【 パソコン教室用システムの構築24 】※BackLblの色を操作する前回の続きで、コード中の薄い黄色で反転してるコードがBackLblの色を変えるコードで薄い赤色で反転してるコードが変更なり修正を加えたコードです。◆URiAGeNyuURyoKuFmフォーム・データ呼出ボタンのコードここも警告等でコードを中止する場合のBackLblのリセットコードはSaISyuU:という形で一番下に書いてます。・小計ボタンのコード青枠のコードは元々は・・・If [続きを読む]
  • 業務システム!私流追加コード1
  • 【 パソコン教室用システムの構築23 】前回のSiNKiURiAGeFmフォームのデータ入力ボタンのコードの修正です・・・Call HM002_URiAGeInput(URiAGeNyuURyoKuFm, SyoRiCode)の引数URiAGeNyuURyoKuFmをSinKiURiAGeFmに修正してください。以上で修正は完了です。※BackLblの色を操作する確認,注意,警告のメッセージごとにBackLblの色を操作し、おまけでメッセージボックスのアイコンをプラスします。色やアイコンはお好きにどうぞです [続きを読む]
  • 業務システム!コードの見直し3
  • 【 パソコン教室用システムの構築22 】※SiNKiURiAGeFmフォームとURiAGeNyuURyoKuFmフォーム◆データ入力ボタンの共有コード前回の共有コードはあえてFunctionプロシージャで書きましたが・・・私的にはSubプロシージャの方がいいのかな?と思うのでSubプロシージャで書き直したいと思います。まずは標準モジュールHM100のHM100_URiAGeInputプロシージャを切り取って標準モジュールHM002のHM002_URiAGeKeISaNプローシージャの下 [続きを読む]
  • 業務システム!コードの見直し2
  • 【 パソコン教室用システムの構築21 】※HM002_URiAGeKeISaN◆SiNKiURiAGeFmフォームのUserForm_Initializeプロシージャのコードここでの呼び出しコードを全く書いてませんでしたね。書かなくても分かるかな?とも思いますが・・・一応、書いときます。Private Sub UserForm_Initialize()   Call HM002_URiAGeKeISaN(TxtSoNoTa, TxtSoNoTaBuN, TxtSyoUHiZeI, "NyuUKaI")   TxtNo.Text = SiNKiToURoKuFm.TxtNo.Text  T [続きを読む]
  • 業務システム!コードの見直し1
  • 【 パソコン教室用システムの構築20 】では、現時点での修正も含めたコードの見直しをやっていきたいと思います。※標準モジュールHM001◆先頭部分Public Const GC_PFix3 As Integer = 3現時点ではグローバル定数として必要としていないので削除します。※標準モジュールHM100上記定数を使用するなら・・・Const PFix3 As Integer = 3ここでのこの定数は必要なしですが・・・今のところはここ1箇所でしか使わないのでここで宣言 [続きを読む]
  • 業務システム!URiAGeNyuURyoKuFmフォームの完成です
  • 【 パソコン教室用システムの構築19 】では、今回はとりあえずですが・・・URiAGeNyuURyoKuFmフォームを完成させたいと思います。※URiAGeNyuURyoKuFmフォームデータ入力ボタンとリセットボタンが残ってますが・・・データ入力ボタンの最後のコードのコントロールをフォームを呼び出した状態に戻すコードがリセットボタンと同じなのでモジュールレベルの共有コードにする。◆M_FmResetプロシージャのコードPrivate Sub M_FmReset [続きを読む]
  • 業務システム!売上入力フォームの小計ボタンのコード
  • 【 パソコン教室用システムの構築18 】※修正ですちょっと風邪でダウンしてる間に記事を読み返したのですが・・・とりあえず気付いた、説明が抜けてる部分と不良コードは説明と修正をしておきます。◆SiNKiURiAGeFm,URiAGeNyuURyoKuFmフォーム両フォームの授業料,テキスト,その他,うち消費税ボックスのTagにIを入力しておく。◆MainDataファイル同姓同名列の追加説明が中途半端だったので・・・表示形式がユーザー定義の日付形式 [続きを読む]
  • 業務システム!売上入力フォームのデータ呼出ボタンのコード
  • 【 パソコン教室用システムの構築17 】※新規登録フォームの生年月日について新規登録フォームの生年月日の入力の説明ですが・・・入会申込書にS40年1月1日と書かれていたならs40/1/1の入力で自動的に1965/01/01に変換されます。ちなみに年号のsは小文字でOKです。次の年号の頭文字がhかsで始まったら・・・?※売上入力フォームの修正データの呼び出しをNOとなまえのどちらからでもできる仕様にしてましたが、よくよく考え [続きを読む]
  • 業務システム!売上入力フォームの実装準備
  • 【 パソコン教室用システムの構築16 】さて、今回から新しいフォームの実装なんですが・・・何からやるか多すぎて迷いますが・・・ま、一番簡単な通常の売上入力フォームをサクッと作っていくことにしましょう。こいつを完成させてから新規登録も含めてきっちりと動作確認をしたいと思います。まずは売上入力フォームを単独で作ってから新規売上フォームと共有できるコードがあるなら処理をしていきます。後、余分なことも含めた [続きを読む]
  • 業務システム!新規登録フォームの完成です
  • 【 パソコン教室用システムの構築15 】あけおめです・・・今年も頑張っていきませう^^では、前回の続きで・・・SiNKiToURoKuFmフォームのSiNKiURiAGeFmフォームから正常に帰って来た以降のコードを書いていきたいと思いますが、その前に前回の修正の追加を一つだけしときます。シートの当日変更を削除してSiNKiToURoKuFmフォームの当日変更ボックスを削除したので、ボックスに対するコードが書かれたCmbToUJiTuHeNKoU_Enterプ [続きを読む]
  • 業務システム!新規売上フォーム完成
  • 【 パソコン教室用システムの構築14 】今回は、新規売上フォームのコードを完成させたいと思いますが・・・その前に多少の?修正をします。◆MainDataファイル・セル名の変更授業料:uriagejyugyouryou → jyugyouryouテキスト:uriagetekisuto → tekisutoその他:uriagesonota → sonotauriageを外しました・・・ループ処理の邪魔になるので外すことにしました。・当日変更削除列ごと削除で・・・セル名はしつこく残ってるので [続きを読む]
  • 業務システム!小計ボタンのコード作成
  • 【 パソコン教室用システムの構築13 】前回の続きで、新規売上フォームのコードを作っていきます。※共有コード入力された値が正の整数であるかどうかを判定して、そうならTrueを、そうでないならFalseを返すFunctonプロシージャを作っておきます。一応、今回はモジュールレベルで作りました。名前がM_URiAGeCheckで、調べるデータの値と調べるデータの項目名を文字列で引数として受け取る。GetDataが数字として認識されなければ [続きを読む]
  • 業務システム!新規入会入金入力システム構築の準備
  • 【 パソコン教室用システムの構築11 】今回は順番通りに入会入金処理を実装していきます。日々の授業料等の売上入金処理もほぼ同じなのですが、フォームは新規入会用として作ることにします。※領収証の作成せっかくなので・・・一連の作業の中で簡単な領収証の発行システムを実装してみます。今回は、B5の縦半分のユーザー定義用紙を使用しています。ユーザー定義用紙の設定は自力でおねです。できない場合はB5で作っておいてく [続きを読む]
  • 業務システム!修正と全エラートラップの実装
  • 【 パソコン教室用システムの構築10 】※修正と残りのエラートラップの実装◆コンボボックスのプロパティの修正全てのコンボボックスのMatchRequiredの値をTrueにする。・MatchRequiredテキスト部分に値を入力することは可能ですがリスト部分にある値以外ならコントロールから離れられない。リストから値を選択しろということですね。◆エラートラップコード修正後の生年月日のコードから残りの全てのエラートラップコードです。 [続きを読む]
  • 業務システム!データ入力ボタンコードの実装中
  • 【 パソコン教室用システムの構築9 】※SiNKiToURoKuFmフォーム◆コンボボックスコンボボックスにセットする項目はコード内で書きます。項目に変更が発生しないなら問題ないんですが、変更が発生する項目で変更が発生したならその都度コードの変更も必要になる。ま、MainDataで項目を管理するべきなんでしょうが、今回は作成が簡単なのでコード内で書くことにします。では、全てのコンボボックスのコードです。Private Sub CmbSeI [続きを読む]
  • 業務システム!新規登録コードの実装準備
  • 【 パソコン教室用システムの構築7 】まずは修正からです。SiNKiToURoKuFmフォームのTxtMeADoボックスのIMEModeが2になってますが3の間違いです。MainDataファイルの項目名以降の11行〜最終行までのセルの表示形式で、日付のユーザー定義の項目で年齢と書きましたが、生年月日の間違いです。今更ですが・・・どこかで説明した記憶がないのでセルの表示形式の日付のユーザー定義の設定方法を書いときます。表示形式を変更したいセ [続きを読む]
  • 業務システム!新規登録フォーム
  • 【 パソコン教室用システムの構築6 】※新規登録フォームの作成登録後のデータの呼び出しキーワードを何にするかを考えましたが、やっぱり名前になるのかな、ということで同姓同名チェック項目を追加します。MainDataファイルのS1シートのAD列を右 から挿入を で列を追加する。で、セルAD10に同姓同名と入力して、セルAD1の名前をdouseidoumeiとする。これで・・・準備OKです。では、新規登録フォームです。コン [続きを読む]