Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27228 / 76732

←次へ　｜　前へ→


	【54827】Re:転記したワークシートのデーターをユーザーフォームで閲覧する

Regina - 08/3/31(月) 22:30 -


	引用なし

	パスワード

▼Hirofumi さん：
的確なご指摘ありがとうございました。UserFormのあとに番号を入力していました。表示が出来るようになりました。すごく嬉しいです。
------------------------------------------------------------------------
Private Sub UserForm_Activate()
　
　　'入力フォーム指定なら
　　If blnInput Then
　　　　'入力ボタン、削除ボタンを使用可に
　　　　CommandButton1.Enabled = True
　　　　CommandButton2.Enabled = True
　　　　'データ範囲にデータが有るなら
　　　　If lngRows > 0 Then
　　　　　　'操作行を最終行+1に
　　　　　　lngCurrent = lngRows + 1
　　　　　　'スクロールバーを操作行に設定
　　　　　　ScrollBar1.Value = lngCurrent
　　　　Else
　　　　　　'操作行を先頭行に
　　　　　　lngCurrent = 1
　　　　　　GetData lngCurrent
　　　　End If
　　Else
　　　　'入力ボタン、削除ボタンを使用不可に
　　　　CommandButton1.Enabled = False
　　　　CommandButton2.Enabled = False
　　　　'操作行を先頭行に
　　　　lngCurrent = 1
　　　　GetData lngCurrent
　　End If
　
End Sub
-----------------------------------------------------------
上記コードも番号を外しました。CommandButton1と2は入力ボタンと行削除ボタンですが、ボタンの部分の表示が使えないようになって表示されています。これも私のどこかの設定ミスでしょうか？

まったくデーターの無いレコードの部分にスクロールバーを移動しても、＞次のボタンを押しても、新しいレコードを登録フォームからデーター入力しても、患者ＩＤのTextBoxに常に２１１９７と表示されます。

これは、CommandButton1と2のボタンが表示されないことに関係ありますか？
重ね重ねの質問で大変恐縮ですが、お時間の宜しい時にご回答下さい。

また、教えていただいた、コードを学ぶためにはどのような書籍を使えば宜しいですか？今は、初心者用のエクセルのＶＢＡの本を数冊持っています。

1 hits

▼

【54674】転記したワークシートのデーターをユーザーフォームで閲覧する Regina 08/3/25(火) 22:25