Excel VBA質問箱 IV

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

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


27232 / 76732 ←次へ | 前へ→

【54823】Re:転記したワークシートのデーターをユーザーフォームで閲覧する
回答  Hirofumi  - 08/3/31(月) 18:13 -

引用なし
パスワード
   >何度もすみません。教えていただいたコードを入れてみました。
>---------------------------------------------------------
>Private Sub GetData(lngRow As Long)
>
>'  1行分のListデータを各コントロールに代入
>
>  With rngList.Offset(lngRow)
>    .Activate
>    If lngRow <= lngRows Then
>      TextBox1.Text = .Offset(, 0).Value
>    Else
>      TextBox1.Text = lngMaxNum + 1
>    End If
>    TextBox2.Text = .Offset(, 1).Value
>    Frame8.Tag = .Offset(, 2).Value
>    SetOptionValue Frame8
>    TextBox3.Text = .Offset(, 3).Value
>    TextBox4.Text = .Offset(, 4).Value
>    Frame2.Tag = .Offset(, 5).Value
>    SetOptionValue Frame2
>   
>  End With
> 
>  'スクロールバーの表示位置更新
>  With ScrollBar1
>    If .Value <> lngRow Then
>      .Value = lngRow
>    End If
>  End With
> 
>  TextBox2.SetFocus
> 
>End Sub
>------------------------------------------------
>
>上記の With rngList.Offset(lngRow)  について、実行時エラーが出てしまいました。「オブジェクト変数またはWithブロック変数が設定されていません」と表示されました。
>
>どこかで、Dimを使ってオブジェクトの宣言をする必要がありますか?

UserFormのコードを記述するモジュールの先頭、「Option Explicit」の下に
以下の、宣言が記述されていますか?

Option Explicit

'探索Keyの有る列位置(基準位置からの列Offset)
Private Const clngKeys As Long = 0
'入力モードと表示モードの切り替え
Public blnInput As Boolean
'Listの先頭、最左の列見出しのセル位置
Private rngList As Range
'Listの行数(最終行)
Private lngRows As Long
'操作対象行位置(表示行)
Private lngCurrent As Long
'IDの最大値
Private lngMaxNum As Long

これが、モジュールレベル(今回はUserFormのモジュール全体で、使用可能な変数の宣言)の
変数宣言です

Reginaさんの最初の質問の以下の宣言と同じ事です(Option Explicitの上に書いてあるけど?)

>Dim 表示行 As Long
>Dim 最終行 As Long
>Option Explicit
1 hits

【54674】転記したワークシートのデーターをユーザーフォームで閲覧する Regina 08/3/25(火) 22:25 質問
【54693】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/26(水) 13:20 質問
【54704】Re:転記したワークシートのデーターをユー... Regina 08/3/26(水) 19:50 発言
【54705】Re:転記したワークシートのデーターをユー... Regina 08/3/26(水) 20:00 発言
【54711】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/27(木) 12:26 質問
【54733】Re:転記したワークシートのデーターをユー... Regina 08/3/27(木) 22:57 発言
【54735】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/28(金) 2:13 質問
【54736】Re:転記したワークシートのデーターをユー... Regina 08/3/28(金) 7:14 発言
【54737】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/28(金) 9:09 回答
【54774】Re:転記したワークシートのデーターをユー... Regina 08/3/29(土) 11:04 発言
【54776】Re:転記したワークシートのデーターをユー... ツル 08/3/29(土) 13:01 回答
【54785】Re:転記したワークシートのデーターをユー... Regina 08/3/30(日) 0:26 発言
【54786】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/30(日) 0:56 回答
【54794】Re:転記したワークシートのデーターをユー... Regina 08/3/30(日) 13:24 発言
【54795】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/30(日) 13:37 回答
【54803】Re:転記したワークシートのデーターをユー... Regina 08/3/30(日) 22:27 発言
【54817】Re:転記したワークシートのデーターをユー... VBWASURETA 08/3/31(月) 15:08 発言
【54823】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/31(月) 18:13 回答
【54825】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/31(月) 20:33 回答
【54826】Re:転記したワークシートのデーターをユー... Hirofumi 08/3/31(月) 21:30 回答
【54827】Re:転記したワークシートのデーターをユー... Regina 08/3/31(月) 22:30 発言
【54830】Re:転記したワークシートのデーターをユー... VBWASURETA 08/4/1(火) 9:55 発言
【54843】Re:転記したワークシートのデーターをユー... Regina 08/4/1(火) 16:08 発言
【54844】Re:転記したワークシートのデーターをユー... VBWASURETA 08/4/1(火) 16:51 発言
【54847】Re:転記したワークシートのデーターをユー... わさび 08/4/1(火) 18:29 発言
【54848】Re:転記したワークシートのデーターをユー... Hirofumi 08/4/1(火) 19:15 回答
【54849】Re:転記したワークシートのデーターをユー... Hirofumi 08/4/1(火) 19:34 回答
【54850】Re:転記したワークシートのデーターをユー... Regina 08/4/1(火) 23:12 発言
【54873】Re:転記したワークシートのデーターをユー... Hirofumi 08/4/2(水) 19:17 回答
【54877】Re:転記したワークシートのデーターをユー... Regina 08/4/3(木) 0:14 お礼

27232 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free