Excel VBA質問箱 IV

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

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


35079 / 76732 ←次へ | 前へ→

【46856】Re:インプットボックス
発言  りん E-MAIL  - 07/2/19(月) 9:32 -

引用なし
パスワード
   210 さん、おはようございます。

>ありがとうございます(風邪を引いて連休にしてしまいました・・)
大変ですね。大丈夫でしたか?

>正にそうなんです。インプットBOXで選択したシートになれば良いのですが、
>プログラム前にアクティブだったシートから、『インプットBOXの選択が変えられない』という所が、ハマッテしまってどうにもならない所だったんです・・・未だに。。
私のコードをみていただけばわかりますが、ほとんどSelectはしていません。
大体の事はSelect→Selectionではなく直接の指定で出来るので、不要なSelect(Activate)をはずしていく事がポイントだと私は思っています。
なので、
Set xCell = Application.InputBox(Prompt:="X軸DATAの先頭を選択してください。", Default:="A1", Type:=8)
 xCell.Select
 b = xCell.Address
 c = Range(b).End(xlDown).Address(False, False)
 ↓
Set xCell = Application.InputBox(Prompt:="X軸DATAの先頭を選択してください。", Default:="A1", Type:=8)
 c = xCell.End(xlDown).Address(False, False)

アドレスを取得する部分は、これでエラーになりません(キャンセルの場合は必ずエラー)

ただし、
'グラフを書く
  .ChartType = xlLine
  .XValues = Range(b, c)←×
  .Values = Range(d, e)←×
  .Name = Range(f)←×
 End With

×の部分は、シートを指定していないので、InputBoxで違うシートを指定したとしても、設定される範囲はアクティブシート上の範囲になります。

0 hits

【46769】インプットボックス 210 07/2/14(水) 18:59 質問
【46770】Re:インプットボックス とおりすがり 07/2/14(水) 19:03 発言
【46790】Re:インプットボックス 210 07/2/15(木) 13:56 質問
【46795】Re:インプットボックス りん 07/2/15(木) 15:27 回答
【46798】Re:インプットボックス 210 07/2/15(木) 16:09 お礼
【46800】Re:インプットボックス りん 07/2/15(木) 16:18 発言
【46805】Re:インプットボックス 210 07/2/15(木) 18:07 質問
【46806】Re:インプットボックス りん 07/2/15(木) 18:52 発言
【46820】Re:インプットボックス りん 07/2/16(金) 11:45 回答
【46854】Re:インプットボックス 210 07/2/19(月) 8:46 お礼
【46856】Re:インプットボックス りん 07/2/19(月) 9:32 発言
【46862】Re:インプットボックス 210 07/2/19(月) 11:02 お礼
【46796】Re:インプットボックス Kein 07/2/15(木) 15:27 発言
【46799】Re:インプットボックス 210 07/2/15(木) 16:11 お礼

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