[[20050206020517]] 『シート名作成』(香織) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『シート名作成』(香織)

C6に文字を入力すると、シート名がA6と同じようになるようにしたいのですが
可能でしょうか?わかる方いたら教えてください。


 ご参考。
 (代奈)
[[20040929155848]]『シート名について』(へみ)


ありがとうございました。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$6" Then Exit Sub

    On Error GoTo ErrorHandler:
        Me.Name = Target.Value
    Exit Sub

を使用し作成することができました。
$C$6と同様のシート名にしたさい、"$C$6"-1というシート名にし次にシートを
"$C$6"-2というのを作成したいのですが・・・わかるかたいますか?

                         (香織)


 リンク先の私のコードのA1をC6にして、
  & "-1"  
 を付けるだけ。

 >"$C$6"-2というのを作成したいのですが
 "$C$6"-1 があるかどうか判定する必要があります。

 For i = 1 to worksheets.count
      if worksheets(i).name=range("C6").value & "-1" then
        Me.Name = Range("C6").Value & "-2"  
      else
        Me.Name = Range("C6").Value & "-1"  
      end if 
 next i

  (INA)  

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.