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