Excel VBA質問箱 IV

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

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


2300 / 13644 ツリー ←次へ | 前へ→

【68873】activateメソッドについて VBA初心者 11/4/24(日) 1:23 質問[未読]
【68874】Re:activateメソッドについて 早起き 11/4/24(日) 5:14 回答[未読]
【68885】Re:activateメソッドについて VBA初心者 11/4/24(日) 11:40 質問[未読]
【68888】Re:activateメソッドについて かみちゃん 11/4/24(日) 13:18 発言[未読]
【68889】Re:activateメソッドについて VBA初心者 11/4/24(日) 13:27 お礼[未読]

【68873】activateメソッドについて
質問  VBA初心者  - 11/4/24(日) 1:23 -

引用なし
パスワード
   activateメソッドでWorksheetをアクティブにしようとしているのですが、下記3行目で「コンパイルエラー:Functionまたは変数が必要です。」と表示されてしまいます。
クイックウォッチでwsQueryの型を見てもWorksheetになっているのですが、構文を間違えているのでしょうか。
お手数をおかけしますがよろしくお願いします。


Dim wsQuery As Worksheet
Set wsQuery = Worksheets("クエリ")
With wsQuery.Activate
End With

【68874】Re:activateメソッドについて
回答  早起き  - 11/4/24(日) 5:14 -

引用なし
パスワード
   ▼VBA初心者 さん:
>activateメソッドでWorksheetをアクティブにしようとしているのですが、下記3行目で「コンパイルエラー:Functionまたは変数が必要です。」と表示されてしまいます。
>クイックウォッチでwsQueryの型を見てもWorksheetになっているのですが、構文を間違えているのでしょうか。
はい、間違えています。Withの使い方が変です。
With ○○ の○○には普通はオブジェクトを書きます。
単に、
wsQuery.Activate
でいいと思います。

【68885】Re:activateメソッドについて
質問  VBA初心者  - 11/4/24(日) 11:40 -

引用なし
パスワード
   >>クイックウォッチでwsQueryの型を見てもWorksheetになっているのですが、構文を間違えているのでしょうか。
>はい、間違えています。Withの使い方が変です。
>With ○○ の○○には普通はオブジェクトを書きます。
>単に、
>wsQuery.Activate
>でいいと思います。

早起きさん
ありがとうございます。
ご指摘の通りWithを外したところコンパイルできました。

>With ○○ の○○には普通はオブジェクトを書きます。

もし可能でしたら参考までに○○にオブジェクト変数を利用する場合の書き方も教えていただけますでしょうか。

【68888】Re:activateメソッドについて
発言  かみちゃん  - 11/4/24(日) 13:18 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

>>With ○○ の○○には普通はオブジェクトを書きます。
>
> ○○にオブジェクト変数を利用する場合の書き方

With wsQuery.Activate
End With



With wsQuery
 .Activate
End With

とします。

【68889】Re:activateメソッドについて
お礼  VBA初心者  - 11/4/24(日) 13:27 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>横から失礼します。
>
>>>With ○○ の○○には普通はオブジェクトを書きます。
>>
>> ○○にオブジェクト変数を利用する場合の書き方
>
>With wsQuery.Activate
>End With
>
>を
>
>With wsQuery
> .Activate
>End With
>
>とします。

かみちゃんさん
ご指摘の編集を加えたところコンパイルできました。
ありがとうございます。

早起きさん、かみちゃんさん
ありがとうございました。

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