Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11446 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   セルの選択なのですが下の書式１だと問題ないのですが
同じ動作と思われる書式２だとアプリケーションの定義また
はオブジェクト定義のエラーとなります。
どこかまずいのでしょうか？
よろしくご教授ください。

Sub data_add_rect(Sheets_Name As String, hori_int As Integer)

'書式１
Sheets(Sheets_Name).Range("A68:B68").Select
'書式２
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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11446 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free