Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

74585 / 76732

←次へ　｜　前へ→


	【6609】Re:追加したシートのオブジェクト名について

ｂｙｋｉｎ - 03/7/14(月) 21:52 -


	引用なし

	パスワード

こんばんわ。

バージョンが書いてないけど、Excel97なんかな？
↓これやと思うねんけど・・・
http://support.microsoft.com/default.aspx?scid=kb;ja;236299
2000以降やったら問題ないと思います。

97が手元にないから確認できへんけど、シートコピーした後で直接オブジェクト名を
変更するんやったら、こんな感じかな？

Sub test()
　　Dim i As Integer
　　For i = 2 To 4
　　　　ActiveSheet.Copy before:=ActiveSheet
　　　　With Application.VBE.ActiveVBProject
　　　　　　.VBComponents(.VBComponents.Count).Name = "Sheet" & i
　　　　End With
　　Next
End Sub

実際には同じ名前が既に存在しないかとかのエラーチェックが必要になります。
応用してみてな。
ほな。

0 hits

▼

【6605】追加したシートのオブジェクト名について はるか 03/7/14(月) 16:49