Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


27207 / 76732 ←次へ | 前へ→

【54848】Re:転記したワークシートのデーターをユーザーフォームで閲覧する
回答  Hirofumi  - 08/4/1(火) 19:15 -

引用なし
パスワード
   VBWASURETAさんフォローありがとうございます

>上記コードも番号を外しました。
>CommandButton1と2は入力ボタンと行削除ボタンですが、
>ボタンの部分の表示が使えないようになって表示されています。
>これも私のどこかの設定ミスでしょうか?
>
>まったくデーターの無いレコードの部分にスクロールバーを移動しても、
>>次のボタンを押しても、新しいレコードを登録フォームからデーター入力しても、
>患者IDのTextBoxに常に21197と表示されます。
>
>これは、CommandButton1と2のボタンが表示されないことに関係ありますか?
>重ね重ねの質問で大変恐縮ですが、お時間の宜しい時にご回答下さい。
>
>また、教えていただいた、コードを学ぶためにはどのような書籍を使えば宜しいですか?
>今は、初心者用のエクセルのVBAの本を数冊持っています。

先ず、このUserFormはカッコ良く言えば、
入力・修正モードと閲覧モードの切り替えが利くように 成っています
この切り替えは、UserFormの呼出コード中で行います
Upしたコードの一番下に、以下の様なコードが書いて有った筈です

UserFormを呼び出すコード(標準モジュール)

Public Sub ViewOnly()
  With UserForm1
    .blnInput = False
    .Show
  End With  
End Sub

Public Sub InputForm()
  With UserForm1
    .blnInput = True
    .Show
  End With
End Sub

これを説明すると、

1、「Sub InputForm」を実行
 UserFormは、「入力・修正モード」で立ち上がります
 この場合、UserForm表示する行は新規入力行です(Listの最終行の下)
 そして、TextBox1に表示される番号は、Listの「患者ID」の最大値+1です
 これは、簡易的な自動連番機能を持たせて在る為にこう成ります
 ここで、振り出された番号で入力したい場合、TextBox1に番号を入力します
 入力後、フォーカスをTextBox2に移すと、TextBox1の番号がListにない場合
 そのまま、新規入力と成ります
 また、TextBox1の番号がListに有る場合、
 UserFormの表示は、その番号が有る行に移動してその行の修正モードと成ります
 この様に入力・修正を行った後、入力ボタンを押すと、新規入力なら最下行に
 レコードが追加され、次の新規入力行に表示が移動します
 また、修正モードの場合、表示されている行が変更され、表示は新規入力行に移動します
 詰まり、このモードでは、UserFormに表示されているレコードが変更対象となります
 また、修正は、CommandButton9、10で移動するか、スクロールバーで移動した
 UserFormの表示行でも行えます
 
2、「Sub ViewOnly」を実行
 UserFormは、「閲覧モード」で立ち上がります
 この場合、UserFormは、先頭行を表示し、「入力」「行削除」ボタンは使用不可と成ります
 詰まり、閲覧専用と成ります

この違いは、見ての通り、各プロシージャの「With UserForm1」
(UserForm1は、Reginaさんが作ったUserFormの名前に合わせて下さい)
の下「.blnInput = True」「.blnInput = False」で
「.blnInput = True」を指定すれば「入力・修正モード」
「.blnInput = False」を指定すれば、「閲覧モード」で立ち上がります
(明示的に書きましたがこれを指定せず立ち上げた場合、「.blnInput = False」を指定したと同じになります)

尚、シートにボタンを設けてUserFormを立ち上げる場合、
ボタンのコードを上記の標準モジュールのコードを参考にして下さい
1 hits

【54674】転記したワークシートのデーターをユーザーフォームで閲覧する Regina 08/3/25(火) 22:25 質問
【54693】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/26(水) 13:20 質問
【54704】Re:転記したワークシートのデーターをユー... Regina 08/3/26(水) 19:50 発言
【54705】Re:転記したワークシートのデーターをユー... Regina 08/3/26(水) 20:00 発言
【54711】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/27(木) 12:26 質問
【54733】Re:転記したワークシートのデーターをユー... Regina 08/3/27(木) 22:57 発言
【54735】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/28(金) 2:13 質問
【54736】Re:転記したワークシートのデーターをユー... Regina 08/3/28(金) 7:14 発言
【54737】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/28(金) 9:09 回答
【54774】Re:転記したワークシートのデーターをユー... Regina 08/3/29(土) 11:04 発言
【54776】Re:転記したワークシートのデーターをユー... ツル 08/3/29(土) 13:01 回答
【54785】Re:転記したワークシートのデーターをユー... Regina 08/3/30(日) 0:26 発言
【54786】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/30(日) 0:56 回答
【54794】Re:転記したワークシートのデーターをユー... Regina 08/3/30(日) 13:24 発言
【54795】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/30(日) 13:37 回答
【54803】Re:転記したワークシートのデーターをユー... Regina 08/3/30(日) 22:27 発言
【54817】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/31(月) 15:08 発言
【54823】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/31(月) 18:13 回答
【54825】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/31(月) 20:33 回答
【54826】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/31(月) 21:30 回答
【54827】Re:転記したワークシートのデーターをユー... Regina 08/3/31(月) 22:30 発言
【54830】Re:転記したワークシートのデーターをユー... VBWASURETA 08/4/1(火) 9:55 発言
【54843】Re:転記したワークシートのデーターをユー... Regina 08/4/1(火) 16:08 発言
【54844】Re:転記したワークシートのデーターをユー... VBWASURETA 08/4/1(火) 16:51 発言
【54847】Re:転記したワークシートのデーターをユー... わさび 08/4/1(火) 18:29 発言
【54848】Re:転記したワークシートのデーターをユー... Hirofumi 08/4/1(火) 19:15 回答
【54849】Re:転記したワークシートのデーターをユー... Hirofumi 08/4/1(火) 19:34 回答
【54850】Re:転記したワークシートのデーターをユー... Regina 08/4/1(火) 23:12 発言
【54873】Re:転記したワークシートのデーターをユー... Hirofumi 08/4/2(水) 19:17 回答
【54877】Re:転記したワークシートのデーターをユー... Regina 08/4/3(木) 0:14 お礼

27207 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free