Excel VBA質問箱 IV

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

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


73130 / 76732 ←次へ | 前へ→

【8085】Re:シートのコピー後の名前
回答  INA  - 03/9/29(月) 18:16 -

引用なし
パスワード
   直書きなので、間違っているかもしれませんが、こんな感じで出来ると思います。

Dim a as long
dim b as long
dim i as long

for i = 1 to worksheets.count
 if Left(worksheets(i).name,2) = "東京" then  
  a = a + 1
 elseif Left(worksheets(i).name,2) = "大阪" then
  b = b + 1
 end if
next i

Sheets("複写").Copy Before:=Sheets(1)

if Frm1.OptionButton1=true then
  activesheet.name = "東京" & a+1 & ")"
Else
  activesheet.name = "大阪(" & b+1 & ")"
End if

0 hits

【8082】シートのコピー後の名前 conan 03/9/29(月) 17:29 質問
【8085】Re:シートのコピー後の名前 INA 03/9/29(月) 18:16 回答
【8146】Re:シートのコピー後の名前 conan 03/10/2(木) 1:18 質問
【8148】Re:シートのコピー後の名前 INA 03/10/2(木) 8:42 回答
【8168】Re:シートのコピー後の名前 conan 03/10/2(木) 15:46 お礼

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