| |
UO3 さん いつもありがとうございます＜（_ _）＞
>SpinButton1.Value - 1
ここで 1 を引いている目的は何でしょうか？
SpinButton1 のValue や Min に何もセットしておられないということは
ともに初期値の 0 になっているのは認識されてるんですよね？
そうすると 1 を引けば -1 になるのは当然ですが？
1行目がタイトルなのでタイトル行を-1としました。
説明不足で申し訳ございません
0以下を回避する方法は無いものなのでしょうか
>レコード数取得 = Worksheets("新築工事台帳").Range("A1").CurrentRegion.Rows.Count - 1
想像するに１行目はタイトル行なのでしょうね。
なのでデータ件数としては Rows.Count - 1 というのは理解できますが、なぜ、
>SpinButton1.Max = レコード数取得 + 1なのでしょうか？
レコード数 + 1 までスピンボタンでのカウントアップをしたいと言うことですか？
スピンボタンのカウントが0から始まってしまうので+1にしないとタイトル行と同じになりませんでした
CurrentRegion.Rows.Count - 1 イコール SpinButton1.Max = レコード数取得 + 1
>Set TBL(2) = TextBox6
>TBL(Cnt).Value = データ範囲.Cells(行数, Cnt).Value
TBL って何でしょうか？配列ですか？
どこで定義しておられますか？何に使うのですか？
>行データをユーザーフォーム上のスピンボタンでTextBox5に表示
具体的に、TextBoxに、どんな形で、その行の複数セルの値を表示しようとしておられるのですか？
Set データ範囲 = Worksheets("新築工事台帳").Range("A1").CurrentRegion
としていまして、
Set TBL(2) = TextBox6
TBL(Cnt).Value = データ範囲.Cells(行数, Cnt).Value
スピンボタンによる行とTBL（Cnt）の列をTextBox6に表示しています
Set TBL(2) イコール Worksheets("新築工事台帳")の二列目は氏名が入っております
★それと、少なくとも行番号関係の数値は Integer型ではなくLong型で規定しましょう。
というか、整数はどんなものでもすべからくLong型規定に統一されたほうがいいと思います。
Integer型規定をするメリットって、ほとんどありませんので。
Long型の方が処理がはやいんですね
ご指摘ありがとうございます
|
|
ume
- 12/9/18(火) 11:07 -
