Excel VBA質問箱 IV

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

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


74628 / 76738 ←次へ | 前へ→

【6572】Re:シート名の変更について
回答  パピー(PAPIー)  - 03/7/11(金) 8:33 -

引用なし
パスワード
   こんにちは。

この様な事でしょうか?
サンプルを作ってみました。
試して見て下さい。
外していたらごめんなさい。

Private Sub CommandButton1_Click()
  On Error GoTo ErrHandler
  
  Worksheets.Add.Move after:=Worksheets(Worksheets.Count) '最後のシートの後へ追加
  Worksheets(Worksheets.Count).Name = TextBox1.Text    '名前の変更
  Exit Sub
ErrHandler:   '同一名のシートが存在した場合の処置
  TextBox1.Text = TextBox1.Text + "_1"
  Resume
End Sub

0 hits

【6570】シート名の変更について Salem 03/7/10(木) 19:50 質問
【6572】Re:シート名の変更について パピー(PAPIー) 03/7/11(金) 8:33 回答
【6573】Re:シート名の変更について Salem 03/7/11(金) 9:21 お礼

74628 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free