別のワークシートのように挿入されたワークシートの名前を付けよう

Question

ブック内に新しいシートを追加し、その後ろに'という名前のワークシートと同じ名前を付けたいとします。 アクティブシートの名前が0908の場合は、新しく挿入されたワークシートの名前を0908'にします。

私はちょっと調べましたが、他のワークシート内の値だけを参照してシートに名前を付ける方法を見ました。

これは、他のワークシート内を参照するためのコードです。

Worksheets.add.Name = Worksheets("MENU").Range("B2").value 

Answer 1

何かがうまくいくはずです。

Worksheets.add.Name = ActiveSheet.Name & "xxx" 

アクティブシートの名前を読み取り、それに文字列を追加するだけで済みます。

しかし、シートの最後のアポストロフィは機能しません。

Worksheets.add.Name = ActiveSheet.Name & "'s" 

Answer 2

あなたはこのようなコードを探している可能性があります：それはのように別の文字が続いている場合
にのみ許可されます。

Dim WsName As String 
Dim Ws As Worksheet 

WsName = ActiveSheet.Name 
Set Ws = Worksheets.Add(After:=Worksheet(Worksheets.Count)) 
Ws.Name = WsName & "1" 

Answer 3

あなたは「'」の後の文字を持ってきたように、あなたが後にスペースを追加する

Worksheets.Add.Name = ActiveSheet.Name & "' " 

使用することができます "あなたが探していた影響を与えるだろう。