Excel VBA質問箱 IV

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

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


51799 / 76732 ←次へ | 前へ→

【29790】Re:選択するシートが無かったら??
回答  MARBIN  - 05/10/13(木) 19:16 -

引用なし
パスワード
   もっとましな方法があると思いますが、識者から
の回答があるまでのつなぎとして・・・。

dim i as long
dim j as long
dim k as long
dim shtmei as string
 shtmei = "**"
 k = 0
 j =worksheets.count
 for i = i to j
  if worksheets(i).name = shtmei then
  Worksheets(i).select
  k = 1
  exit for
  end if
 next
 if k = 0 then Sheets("@@@").select

0 hits

【29787】選択するシートが無かったら?? たこ 05/10/13(木) 18:10 質問
【29790】Re:選択するシートが無かったら?? MARBIN 05/10/13(木) 19:16 回答
【29792】Re:選択するシートが無かったら?? MARBIN 05/10/13(木) 19:22 発言
【29794】Re:選択するシートが無かったら?? hine 05/10/13(木) 19:43 発言
【29795】Re:選択するシートが無かったら?? awu 05/10/13(木) 19:45 回答
【29797】Re:選択するシートが無かったら?? MARBIN 05/10/13(木) 20:12 発言
【29805】Re:選択するシートが無かったら?? たこ 05/10/13(木) 22:31 お礼
【29811】Re:シート名存在チェック関数 かみちゃん 05/10/14(金) 0:29 発言

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