Excel VBA質問箱 IV

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

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


9997 / 13646 ツリー ←次へ | 前へ→

【24367】Application.InputboxでRangeの指定に失... zhen 05/4/20(水) 17:05 質問[未読]
【24379】Re:Application.InputboxでRangeの指定に失... ウッシ 05/4/20(水) 21:20 発言[未読]
【24393】Re:Application.InputboxでRangeの指定に失... zhen 05/4/21(木) 10:08 お礼[未読]

【24367】Application.InputboxでRangeの指定に失...
質問  zhen  - 05/4/20(水) 17:05 -

引用なし
パスワード
   原因が判らず困っています。ご存知の方教えてください。

データシートから所定の書式にデータを転記する際、見出し行の該当セルを選択することで転記する項目名称・列位置を配列化させています。
※元になるデータシートの種類によって項目名称・数・列位置等が異なる為、コード内に直接記述をしていません。

 On Error Resume Next
 Do
  ・・・
  T = "[セルの選択]"
  M = "転記する項目名を選択して下さい。"
  Set Rng = Nothing
  On Error Resume Next
  Set Rng = Application.InputBox(M, T, , , , , , 8)
  ※
  On Error GoTo 0
  If Rng Is Nothing Then Exit Do・・・1.
  ・・・
 
  cnt = cnt+1
  Redim Preserve Strs(1 to cnt) as String
  Redim Preserve Clms(1 to cnt) as Long
  Strs(cnt) = Rng.Value
  Clms(cnt) = Rng.Column

  ・・・
  Set Rng = Nothing
 Loop

表示されたInputboxに選択したセルの絶対参照が表示されているのに、1.にひっかかります。
※の部分に下記を挿入したら、
  If Err.Number <> 0 Then MsgBox Err.Number & ":" & Err.Description
「424:オブジェクトが必要です」と表示されました。

同様の手段をとっている部分は他にもあり、うまくSet出来たり出来なかった
りします。色々試した結果、
・Inputboxでセルを選択する際、画面をスクロールさせると失敗する。
逆に云うと、
 Set Rng = Application.InputBox(M, T, , , , , , 8)
のコードで
・Inputboxが表示された時、画面上に見えてるセルを選択すると取得できる。

・・画面のスクロールがどういう影響を与えてるのか見当もつきません。
原因及び対策に関して教えてください。m(__)m。

【24379】Re:Application.InputboxでRangeの指定に...
発言  ウッシ  - 05/4/20(水) 21:20 -

引用なし
パスワード
   こんばんは

http://oshiete1.goo.ne.jp/kotaeru.php3?q=902312
http://www.keep-on.com/excelyou/2001lng4/200112/01120346.txt

結局解決には至っていないようですし、環境にもよるようです。

【24393】Re:Application.InputboxでRangeの指定に...
お礼  zhen  - 05/4/21(木) 10:08 -

引用なし
パスワード
   ▼ウッシ さん:

>http://oshiete1.goo.ne.jp/kotaeru.php3?q=902312
>http://www.keep-on.com/excelyou/2001lng4/200112/01120346.txt
>
>結局解決には至っていないようですし、環境にもよるようです。

情報ありがとうございました。見てきました。
・・たしかに解決してませんね。
しかし、「原因不明だけど場合によって発生する」のが判ったので、
他の手段を検討してみます。

ありがとうございました。m(__)m。

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