| |
▼ｂｙｋｉｎ さん：
すでに解決済みの質問になってますが、便乗で追加質問させてください。
シートのコピーをたくさんするため、シートのオブジェクト名が長くなりすぎてコピーができなくなるのを回避するために、シートのオブジェクト名を変更しようと思い、下のコードを参考にさせていただきました。
下のコードを実行すると、プロジェクトエクスプローラでは【Sheet○】というように変更されますが、
プロパティウィンドウで確認すると、オブジェクト名は変更されていません。
オブジェクト名を変更するにはどうすればいいでしょうか？
>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
>
>実際には同じ名前が既に存在しないかとかのエラーチェックが必要になります。
>応用してみてな。
>ほな。
|
|
ばば
- 03/7/30(水) 16:14 -
