|
▼peke さん:
こんばんは。
本当は、前回投稿で
>どんなデータに対して、こんな結果がでました という
>大事な大事な記述が抜けています。
B列3行目から6行目に注文番号と称されるデータが入っていることはわかりましたが、
具体的にどんなデータが入力されているのか記述されていません。
Worksheetfunction.Countは、数値だけをカウントします。
例えば セルB3に A0001と入力されていてもカウントされません。
また、123と入力されていても セルの書式が「文字列」ならば、
123は数値として認識されず、Worksheetfunction.Countでは カウントされません。
どのように修正するのがよいか? は、
この注文番号なるデータがどのようなデータなのかを記述されないと
はっきりは申し上げられませんが、
>Private Sub ReadData(num As Long)
>'------------------------------------------------------
>' データベースのデータを取り出して表示する
>'------------------------------------------------------
> ' 現在のレコードとデータ件数を表示する
RecordCount = WorksheetFunction.Counta(Range("データ一覧").Columns(1))
'取りあえず、CountをCountaに変更して試してみては?
>
>この現状から、1.未入力行は表示しないようにする
データ件数さえ正常に表示されれば、ある程度御希望の動作をすると思います。
後は、何もデータが入力されていないときのどのようにするかの
仕様を考えなくてはなりませんけどね!!
まだ、記述が完全ではありません。
peke さんの投稿どおりにブックを設定してもプログラムがまるで動きませんでした。
何が足りないでしょうか?
前述のとおり、プログラムを作動するためのサンプルデータの提示がありません。
ユーザーフォームにどんなコントロールを配置すればよいのか
この記述がラベル以外にはありません。他のコントロールの配置がなければ
プログラムは、現象を再現する以前に動きませんよね!!
これでは、コードを解析して私がコントロールを追加しなくてはなりません。
本来は、何も入力されていないブックから、peke さんの現状を再現するまでの
ブック作成操作、及び、ブック作成後の現象再現までの操作手順を記述して
ほしかったのです。
現象再現までは、閲覧者(回答者)は、頭をひねらなくても記述どおりに
操作すれば、現象が再現できる記述が必要なのです!!(きっぱり)。
前投稿で申し上げたとおり、大変ですけどね!!
このサイトの閲覧者や回答者がこの時点から問題解決に向けて
取り組むことが出来れば、問題解決の時間短縮につながると思いますよ!!
|
|