Excel VBA質問箱 IV

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

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


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

【81522】特定のシートをスキップしたい プラプラ 20/10/12(月) 13:01 質問[未読]
【81527】Re:特定のシートをスキップしたい OK 20/10/12(月) 17:13 発言[未読]
【81530】Re:特定のシートをスキップしたい マナ 20/10/12(月) 20:48 発言[未読]
【81535】Re:特定のシートをスキップしたい プラプラ 20/10/15(木) 10:50 質問[未読]
【81536】Re:特定のシートをスキップしたい マナ 20/10/15(木) 20:35 発言[未読]

【81522】特定のシートをスキップしたい
質問  プラプラ  - 20/10/12(月) 13:01 -

引用なし
パスワード
   別ファイルのシート名を取得して一覧表示しようとしています。
その中の特定のシート名は一覧に表示したくありません。

If ws.Sheets(i).Name = "AAA"

とすると,
  実行時エラー'13'
  型一致しません
というエラーとなります。

dim ws2 as worksheet

set ws2.Name = "AAA"
If ws.Sheets(i).Name = ws2.Name

のような形でするしかないのでしょうか?

【81527】Re:特定のシートをスキップしたい
発言  OK  - 20/10/12(月) 17:13 -

引用なし
パスワード
   >一覧表示

どこに一覧表示するのでしょう?
※「配列」で一度検索してみてください。

【81530】Re:特定のシートをスキップしたい
発言  マナ  - 20/10/12(月) 20:48 -

引用なし
パスワード
   ▼プラプラ さん:

>If ws.Sheets(i).Name = "AAA"

If ws.Name = "AAA" then

If Sheets(i).Name = "AAA" then

ではないでしょうか。

また

>set ws2.Name = "AAA"

これも set はだめ。

 ws2.Name = "AAA"

【81535】Re:特定のシートをスキップしたい
質問  プラプラ  - 20/10/15(木) 10:50 -

引用なし
パスワード
   ▼プラプラ さん:
>別ファイルのシート名を取得して一覧表示しようとしています。
>その中の特定のシート名は一覧に表示したくありません。
>
>If ws.Sheets(i).Name = "AAA"
>
>とすると,
>  実行時エラー'13'
>  型一致しません
>というエラーとなります。
>
>dim ws2 as worksheet
>
>set ws2.Name = "AAA"
>If ws.Sheets(i).Name = ws2.Name
>
>のような形でするしかないのでしょうか?


ありがとうございます。

Aというブックにマクロを置いています。
Bというブックのシート名を取得し,Aのブックのセル個々に1シート名を表示しています。Bのブックにはセルに表示したくないシートがありスキップしたいです。

   sheet1    sheet1
   sheet2 →  sheet3  
   sheet3

sheet2 はセルに表示したくないということで,
 if bb.Sheet(i).Name = "sheet2" then
  (bbはブックBを設定してます。)

のように記述すると,エラーになり,セルに格納後,セルで聞いてもエラーとなります。ですが,回答いただいたことは試してみました。
他に考えられることがないでしょうか?

【81536】Re:特定のシートをスキップしたい
発言  マナ  - 20/10/15(木) 20:35 -

引用なし
パスワード
   ▼プラプラ さん:

>回答いただいたことは試してみました。

どんな風に組み込んだのですか。
そのまま、ここにコピペしてください。

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