はじめまして
VB初心者です。
いまさらですが、VB6.0 MSFlexGridの行数指定で悩んでいます。
過去の質問等私なりに調べたのですが、うまく検索することができなかったため、質問させていただきます。
現在、MSFlexGridに5万件程度のデータを表示しようと思っています。
その際、行数を指定するための「Rows」プロパティに行数を設定したいのですが、32767件を超えると、設定できなくなってしまいます。
ヘルプを見る限りではRowsの値はLONGと記載されていますので、設定可能では?っと思っています。
何かお気づきの点がございましたら教えていただけると助かります。
以下大した内容ではありませんが、行数設定部分の記述です。
Dim nCnt As Long
nCnt = ReadDataSheet(txtFileName.Text)
With flxDataSheet
.Cols = 5
.Rows = nCnt + 1
End With
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
.Rows = nCnt + 1
の行でエラーになるのでしょうか?
もしかして ReadDataSheetというユーザー定義関数の中でエラーになっているのではありませんか?
Form_Loadで
dim n as long
n = 50000
' n = myFunc(1)
MSFlexGrid1.Rows = n
for n = 0 to MSFlexGrid1.Rows
MSFlexGrid1.TextMatrix( n,1) = n
next
といった具合ではエラーになりません
myFuncを使うようにすると オーバーフローのエラーになりますが
Function myFunc(m as long) as Integer
myFunc = m + 32767
End Function
エラーメッセージを表示されたまま省略しないで明記してみましょう
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
vb6のVSFlexGridで選択行、列の値を取得し構造体に入れたい
Visual Basic(VBA)
-
MSFlexGridのデータ表示位置の設定
Visual Basic(VBA)
-
特定行の色を変えたい(FlexGrid)
Visual Basic(VBA)
-
-
4
テキストボックスの入力制限
Visual Basic(VBA)
-
5
VBでグローバル変数を宣言するには
Visual Basic(VBA)
-
6
VB6.0でダブルクォーテーション
その他(ソフトウェア)
-
7
[VBA] Classから他のClassを呼び出す場合
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
文字列内で括弧を使うには
-
VBAでfunctionを利用しようとし...
-
マクロで"#N/A"のエラー行を削...
-
VBA データ(特定値)のある最...
-
【VBA】ワークブックを開く時に...
-
実行時エラー 438 の解決策をお...
-
On ErrorでエラーNoが0
-
「実行時エラー '3167' レコー...
-
ApplicationとWorksheetFunctio...
-
paizaで下記コードを提出すると...
-
実行時エラー'-2147467259(8000...
-
【VBAエラー】Nextに対するFor...
-
エクセルVBA 「On Error GoTo...
-
VB.net 重複チェックがしたいです
-
error C2664: 'LPCTSTR' に変換...
-
VB2008 comboboxを連動させた...
-
インポート時のエラー「データ...
-
お助けください!VBAのファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
VBAでfunctionを利用しようとし...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
エクセル関数を教えてください
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
【VBA】ワークブックを開く時に...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
マクロの「SaveAs」でエラーが...
-
WindowsでのPythonの挙動について
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
エクセルVBA 「On Error GoTo...
-
Filter関数を用いた結果、何も...
-
ACCESSで値を代入できないとは?
おすすめ情報