Excel VBA質問箱 IV

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

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


11426 / 13645 ツリー ←次へ | 前へ→

【16153】Cellsによる選択書式 おの 04/7/17(土) 22:32 質問[未読]
【16154】Re:Cellsによる選択書式 IROC 04/7/17(土) 23:15 回答[未読]
【16163】Re:Cellsによる選択書式 おの 04/7/18(日) 8:44 お礼[未読]

【16153】Cellsによる選択書式
質問  おの  - 04/7/17(土) 22:32 -

引用なし
パスワード
   セルの選択なのですが下の書式1だと問題ないのですが
同じ動作と思われる書式2だとアプリケーションの定義また
はオブジェクト定義のエラーとなります。
どこかまずいのでしょうか?
よろしくご教授ください。

Sub data_add_rect(Sheets_Name As String, hori_int As Integer)

'書式1
Sheets(Sheets_Name).Range("A68:B68").Select
'書式2
Sheets(Sheets_Name).Range(Cells(68, 1), Cells(68, 2)).Select

End sub

【16154】Re:Cellsによる選択書式
回答  IROC  - 04/7/17(土) 23:15 -

引用なし
パスワード
   cells にもシートを指定する必要があります。

with WorkSheets(Sheets_Name)
  .Range(.Cells(68, 1), .Cells(68, 2)).Select
End with

【16163】Re:Cellsによる選択書式
お礼  おの  - 04/7/18(日) 8:44 -

引用なし
パスワード
   ありがとうございました。
ちゃんと動きました。

▼IROC さん:
>cells にもシートを指定する必要があります。
>
>with WorkSheets(Sheets_Name)
>  .Range(.Cells(68, 1), .Cells(68, 2)).Select
>End with

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