【EXCEL】ワークシートの名前を半角文字に変更したい

お世話になっております。

ワークシートの名前に半角に変換できる全角文字があれば
マクロの処理で半角に変換したいと思っております。

とりあえずシート名を取得して、
取得した文字列を半角に変換するところまで出来ました。
※以下のマクロです

ですが、半角に変更した文字列をシート名に反映する方法がわかりません。

すいませんが、詳しい方、説明の上手な方、
コードで説明出来る方、シート名の全角文字を半角文字に変更する方法を
教えて下さい。よろしくお願いします。

追記
下記のマクロはこちらの実力をわかって頂くために記載しただけです。
シート名の全角文字を半角文字に変換出来ればいいので、
こちらのコードを利用して変更しても、新規のコードでもOKです。

---------------------
Sub sample()

MsgBox Sheets(1).Name
wsn = Sheets(1).Name
Range("A1").Value = wsn
Range("A5").Value = StrConv(Range("A1").Value, vbNarrow) '全角文字を半角文字にする

'Sheets(2).Name = Range("A5").Value
'Sheets(2).Name = wsn
'Sheets(2).Name = "wsn"

End Sub

質問者からの補足コメント

• 

  いつもご解答ありがとうございます。
  
  どちらもバッチリの解答ですが、
  先に定番の解答を頂いておりますので、
  今回はtatsu99さんの方をベストアンサーにさせて頂きます。
  
  いつもご解答ありがとうございます。
  WindFallerさん、ともども機会がありましたら、
  またお願いします。
  
  今回はご解答ありがとうございました。

    補足日時：2017/03/29 17:56

No.1 ベストアンサー 回答者： tatsu99 回答日時： 2017/03/28 16:22

全シートのシート名を半角にする場合です。

---------------------------------------------
Public Sub 全シート半角変換()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Name = StrConv(ws.Name, vbNarrow)
Next
End Sub


特定のシートのシート名を半角にする場合です。
「Ｓｈｅｅｔ１」のシート名が実在しないとエラーになります。
---------------------------------------------
Public Sub 特定シート半角変換()
Dim ws As Worksheet
Dim sheetName As String
sheetName = "Ｓｈｅｅｔ１"
Worksheets(sheetName).Name = StrConv(sheetName, vbNarrow)
End Sub

この回答へのお礼

ご解答ありがとうございます。

いつもお世話になります。
肝心なことが抜けてました。
半角に変換するのはアクティブシートの名前だけでいいです。

以下の通りでいいんですよね。（動作しました！）　
※もし、もっとシンプルなものがありましたら、またご解答頂ければうれしいです。
------------------------------
Public Sub 特定シート半角変換()
Dim ws As Worksheet
Dim sheetName As String
sheetName = ActiveSheet.Name　’アクティブシート名
Worksheets(sheetName).Name = StrConv(sheetName, vbNarrow)
End Sub
------------------------------

いつもご解答ありがとうございます。

追記
昨日はこちらのサイトを見てらっしゃらないかもしれませんが、、、。
昨日、「EXCEL2010で動作するマクロがEXCEL2000で動作しない」という質問をしました。
ですが自力で解決できました。

みなさんのおかげでだいぶ進歩したと思います。
いつもご解答、本当にありがとうございます。
機会がありましたらまたお願いします。

※他の方のアドバイスも見たいので、しばらく質問は開けておきます。

お礼日時：2017/03/28 16:52

No.2 回答者： WindFaller 回答日時： 2017/03/28 19:26

あまり大したことではありませんが、こんなふうにできます。

Sub DBSC2OnebyteChange()
With ActiveSheet
　 .Name = StrConv(.Name, vbNarrow)
End With
End Sub

※ExcelはExcelの中だけで、独自の管理をされているから可能なのですが、ファイル名は同じようには行きません。

特定のシートは、
ShName = "ＳＨＥＥＴ５"
With Worksheets(ShName)
とすれば可能です。

この回答へのお礼

ご解答ありがとうございます

上級者の方はこんな短いコードでもwithステートメントを使うんですね。
要するに、こういうことですよね？

Sub DBSC3OnebyteChange()
ActiveSheet.Name = StrConv(ActiveSheet.Name, vbNarrow)
End Sub


>特定のシートは、
ShName = "ＳＨＥＥＴ５"
With Worksheets(ShName)
とすれば可能です。

とありますが、こちらは

Sub DBSC4OnebyteChange()
ShName = "ＳＨＥＥＴ５"
With Worksheets(ShName)
.Name = StrConv(.Name, vbNarrow)
End With
End Sub

ですよね。

個人的には
DBSC3OnebyteChangeが見やすいです。
というか、求めていたコードの書き方はこれです。


http://officetanaka.net/excel/vba/function/StrCo …
を見て知ったのですが、

構文
StrConv(string, vbNarrow)　ですから。

ActiveSheet.Name　は文字列として認識されるということですよね？

だったら
Sheets(2).Name = Range("A5").Value

も動作するように思うのですが、、、。
このへんがまだわかりにくいですね。
とはいえ

Sub DBSC3OnebyteChange()
ActiveSheet.Name = StrConv(ActiveSheet.Name, vbNarrow)
End Sub

がわかったので満足です。

いつもご解答ありがとうございます。
機会がありましたら、またお願いします。

お礼日時：2017/03/28 21:38