[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『シート名作成』(香織)
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.