Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
16679 / 76732 ←次へ　｜　前へ→
【65517】Re:User_formの修復について（至急！！！）
発言  Yuki  - 10/6/1(火) 19:20 -
引用なし
パスワード
   ▼八家九僧陀 さん：
気が付いた所だけ。

>Public Sub データ表示(行数 As Integer)
>Dim Cnt As Integer, vntData As Variant
>vntData = Worksheets("支給台帳").Range("A1").CurrentRegion.Rows(行数).Value
>For Cnt = 1 To 96 Step 1
>TBL(Cnt) = vntData(1, Cnt) ' ←エラーメッセージのとき、ここが黄色に反転
>Next
>Textレコード.Value = Spin移動.Value - 1 & "/" & レコード数取得
>End Sub

↓

Dim Cnt As Integer, vntData As Variant
' CurrentRegion.Rows(行数)は 96桁 あるのですか？
vntData = Worksheets(1).Range("A1").CurrentRegion.Rows(行数).Value
For Cnt = 1 To 96 Step 1
' Dim TBL(1 To 90) As Control と定義してあるのに 96 迄回している
TBL(Cnt) = vntData(1, Cnt) ' ←エラーメッセージのとき、ここが黄色に反転
Next
1 hits
▼ 【65516】User_formの修復について（至急！！！） 八家九僧陀 10/6/1(火) 17:52 質問
【65517】Re:User_formの修復について（至急！！！） Yuki 10/6/1(火) 19:20 発言≪
【65518】Re:User_formの修復について（至急！！！） よろずや 10/6/1(火) 19:43 回答
【65519】Re:User_formの修復について（至急！！！） 247b 10/6/1(火) 21:08 発言
【65520】Re:User_formの修復について（至急！！！） 八家九僧陀 10/6/2(水) 0:32 質問
【65521】Re:User_formの修復について（至急！！！） Hirofumi 10/6/2(水) 7:37 発言
【65522】Re:User_formの修復について（至急！！！） 247b 10/6/2(水) 9:14 発言
【65523】Re:User_formの修復について（至急！！！） 247b 10/6/2(水) 9:38 発言
【65524】Re:User_formの修復について（至急！！！） 八家九僧陀 10/6/2(水) 13:12 質問
【65525】Re:User_formの修復について（至急！！！） 247b 10/6/2(水) 14:41 発言
【65528】Re:User_formの修復について（至急！！！） 八家九僧陀 10/6/2(水) 15:47 質問
【65533】Re:User_formの修復について（至急！！！） 247b 10/6/2(水) 16:53 発言
【65535】Re:User_formの修復について（至急！！！） 八家九僧陀 10/6/2(水) 19:08 質問
【65536】Re:User_formの修復について（至急！！！） 247b 10/6/2(水) 20:50 発言
【65537】Re:User_formの修復について（至急！！！） 八家九僧陀 10/6/2(水) 22:06 質問
【65538】Re:User_formの修復について（至急！！！） 247b 10/6/2(水) 22:39 発言
【65539】Re:User_formの修復について（至急！！！） 247b 10/6/2(水) 22:45 発言
【65540】Re:User_formの修復について（至急！！！） 八家九僧陀 10/6/2(水) 23:42 質問
【65541】Re:User_formの修復について（至急！！！） 247b 10/6/3(木) 0:19 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
16679 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free