Excel VBA質問箱 IV

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

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


9475 / 76732 ←次へ | 前へ→

【72819】Re:スピンボタンの表示
お礼  ume  - 12/9/21(金) 13:13 -

引用なし
パスワード
   ▼UO3 さん:
>▼ume さん:
>
>こんばんは
>
>最初に最終行を表示するというのは、横に置いて。
>
>まず、現在のコードは表示したとき、データは1件目(つまりシートの2行目)ということですね。
>ですから、シートに、たとえばタイトル行も含めて、1行あれば、データは2行目から11行目までの10件。
>ユーザーフォームが表示されたときの状態は、TextBox1 が 1/10 。そのほかのテキストボックスには1件目
>つまりシートの2行目の値が表示されている。これはいいですね?


はい、いいです


>
>でも、今回アップされたコードでは、TextBox5 は 0/10 になっているはずです。
>
>仕掛けを説明しておきますと、Initializeルーティンで SpinButton1 のMin に 1 をいれていますね。
>元々の値(初期値)は 0 ですから、ここでSupinButton1 「Changeイベント」が発生します。
>で、その値(1)をもって、データ表示が実行されます。
>で、その最初の、TextBox5.Value = x & "/" & レコード数 で TextBox5 は 1/10 になります。
>
>なのに、その後、Initializeルーティンに戻るわけですが、そこで またもや
>TextBox5.Value = x & "/" & レコード数 がありますねぇ??
>Initializeルーティンでは Dim x As Long と宣言していますが、このプロシジャ内では値をセット
>していませんので、 x は 初期値 0 のままです。
>
>結果的に、せっかく 1/10 とセットしたのに、そのあと、 0/10 に強制的に置き換えられています。
>なぜ、こうされたのですか?


ユーザーフォームを開いたときにTextBox5.Value = x & "/" & レコード数を入れないと、テキスト5は空白になってしまうので、わざわざ入れたのですがそこで初期値を0に戻してしまっているのですね・・・気がつきませんでした


>Initializeルーティンの TextBox5.Value = x & "/" & レコード数 は削除してください。
>
>で、表示したときに、最終行のデータを表示させるということなら
>
>  With SpinButton1
>    .Max = レコード数
>    .Min = 1
>  End With
>
>これを
>
>  With SpinButton1
>    .Max = レコード数
>    .Value = .Max
>    .Min = 1
>  End With
>
>こうしてください。
>
>繰り返しますが、Initializeルーティンの TextBox5.Value = x & "/" & レコード数 は削除してくださいね。


はい、上記の記述で完ぺきに動作しております
いつもいつも、教えていただきほんとに感謝です
まだまだ、機能を付けていきますが
また つまずいた時にはご教授よろしくお願いいたします。
1 hits

【72745】スピンボタンの表示 ume 12/9/14(金) 14:20 質問
【72746】Re:スピンボタンの表示 UO3 12/9/14(金) 22:06 発言
【72766】Re:スピンボタンの表示 ume 12/9/18(火) 11:07 質問
【72767】Re:スピンボタンの表示 UO3 12/9/18(火) 12:24 発言
【72771】Re:スピンボタンの表示 ume 12/9/18(火) 17:47 質問
【72772】Re:スピンボタンの表示 UO3 12/9/18(火) 19:19 発言
【72768】Re:スピンボタンの表示 UO3 12/9/18(火) 13:07 発言
【72769】Re:スピンボタンの表示 UO3 12/9/18(火) 13:29 発言
【72787】Re:スピンボタンの表示 ume 12/9/19(水) 10:31 質問
【72788】Re:スピンボタンの表示 ume 12/9/19(水) 10:34 質問
【72789】Re:スピンボタンの表示 ume 12/9/19(水) 10:37 質問
【72790】Re:スピンボタンの表示 UO3 12/9/19(水) 11:36 発言
【72791】Re:スピンボタンの表示 ume 12/9/19(水) 13:39 質問
【72792】Re:スピンボタンの表示 UO3 12/9/19(水) 14:45 発言
【72795】Re:スピンボタンの表示 ume 12/9/19(水) 15:41 発言
【72793】Re:スピンボタンの表示 UO3 12/9/19(水) 15:07 発言
【72797】Re:スピンボタンの表示 ume 12/9/19(水) 16:24 お礼
【72799】Re:スピンボタンの表示 ume 12/9/19(水) 18:07 質問
【72800】Re:スピンボタンの表示 UO3 12/9/19(水) 20:44 発言
【72801】Re:スピンボタンの表示 UO3 12/9/19(水) 20:56 発言
【72810】Re:スピンボタンの表示 ume 12/9/20(木) 17:59 質問
【72815】Re:スピンボタンの表示 UO3 12/9/20(木) 21:28 発言
【72819】Re:スピンボタンの表示 ume 12/9/21(金) 13:13 お礼

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