システムは全体の概要設計をしてからそこで使われる、マスター・トランザクションのファイル設計を行います。そこで決まったマスターテーブルから作成に入ります。データベースが見えないのでファイル登録・訂正・削除プログラムを作らないと運用ができません。ところがVBAはエクセルをデータベースとして使いますのでマスタープログラムがなくても運用できます。ここがVBAの特徴ですが勉強と今後の応用に使うために紹介しておきます。名簿等のマスターデータはレコード・行を決める(特定する)一意(ユニークともいう)のキーを持っております。通常そのキーは変更することがありません。今回もコード番号をキーとして追加登録をします。フォームを開いたときに最終行のデータを見つけてそのコード番号に1を加算したコード番号をラベルに表示します。登録フォームを作ってオブジェクトをあらかじめ貼り付けておかないといけません。Sub追加登録のボタンを押したときに入力したデータを名簿シートの最終行+1にコピーします。lblNo.Caption男・女の性別をオプションボタンで選択しているところはVBA実践塾の部品集フォームhttp://vba.asai.netをコピーして修正してください。2つの条件ですからif文でもselect文でも可能です。Sub(b)訂正コード番号で検索して訂正するとします。訂正がなければ照会プログラムになります。追加登録もそうでしたが今回もプログラム変数を使わず、オブジェクト変数とセル変数だけでプログラムを書いていきます。複雑な処理がなければわざわざプログラム変数を使う必要はないと思います。オブジェクト変数に意味をもたせておけばあとから見やすいプログラムになります。照会プログラムであればコード番号をテキストオブジェクトを使う以外すべてラベルオブジェクトで十分だと思います。難しいですが訂正フォームは登録フォームとほとんど同じですのでコピーを使ったらよいと思います。コピーの方法は登録フォームオブジェクトからファイルをエクスポートしてメモ帳等で中の項目とファイル名を変更してインポートで取り込めばできます。コード番号を入力したときにそのデータを検索してきて表示(テキストボックスに代入する)するところを考えていきます。Subコード番号を入力してエンターした時のコード13を取得します。その下にデータを検索するプログラムを書いていきます。Subオプションボタンの取り込みはIF文とSELECT文を書いていますので勉強してください。コード番号が見つからない時、コード番号が登録されていませんというメッセージを出す方法を考えてください。“コード番号が登録されていません”を記入するのかつける場所によって登録されているのに登録されていませんのメッセージが出たりします。そのときが勉強のチャンスです。SUBの使い方が完全にわかってきます。次は訂正登録のプログラムです。訂正する行を再度検索してオブジェクト変数をセル変数に代入します。呼び出しの逆をしています。削除は照会と同じく表示のみでよいのでラベルを使います。2)コード番号検索は訂正と同じものを使います。訂正でつけなかった見つかりませんメッセージをつけています。Sub行削除は行番号を使います。Nextのiを使います。削除は間違ってしまうと困るので確認メッセージボックスを使います。はい・いいえを選択する引数と各種記号を使ってください。