Excel VBA質問箱 IV

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

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


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

9485 / 76738

←次へ　｜　前へ→


	【72815】Re:スピンボタンの表示

UO3 - 12/9/20(木) 21:28 -


	引用なし

	パスワード

▼ume さん：

こんばんは

最初に最終行を表示するというのは、横に置いて。

まず、現在のコードは表示したとき、データは1件目（つまりシートの2行目）ということですね。
ですから、シートに、たとえばタイトル行も含めて、１行あれば、データは2行目から１１行目までの１０件。
ユーザーフォームが表示されたときの状態は、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 に強制的に置き換えられています。
なぜ、こうされたのですか？
Initializeルーティンの　TextBox5.Value = x & "/" & レコード数　は削除してください。

で、表示したときに、最終行のデータを表示させるということなら

　　With SpinButton1
　　　　.Max = レコード数
　　　　.Min = 1
　　End With

これを

　　With SpinButton1
　　　　.Max = レコード数
　　　　.Value = .Max
　　　　.Min = 1
　　End With

こうしてください。

繰り返しますが、Initializeルーティンの　TextBox5.Value = x & "/" & レコード数　は削除してくださいね。

0 hits

▼

【72745】スピンボタンの表示 ume 12/9/14(金) 14:20