[[20051109121705]] 『ワークシートの名前』(TOMO) ページの最後に飛ぶ

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

 

『ワークシートの名前』(TOMO)
 ワークシートの名前に関しての質問なのですが
 たとえば、Sheet1のA1に「ABC」と入力すると
 Sheet2の名前がABCに変更することは可能でしょうか?
 ご教授お願い致します。

 VBAなら可能です。(seiya)

 seiyaさんご回答ありがとうございます。^−^
 VBAですね。。。調べてみます^−^;

 =RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))
 で、シート名をセルに反映できます。ご質問とは反対ですが、参考になればと
 思い、回答しました。役に立たなかったら、(若しくはご存知でしたら)すみません。
 (浦上)

 Sheet1のシート見出しを右クリックして、「コードの表示」を選択、下記コードを貼り付けてください。

 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim ws As Worksheet, temp As String
 With Target.Cells(1, 1)
    If Not .Address <> "A1" Then Exit Sub
    If IsEmpty(.Cells) Then Exit Sub
    temp = Me.Name
    On Error Resume Next
    Me.Name = .Text
    If Err.Number <> 0 Then
        MsgBox .Text & " は既に使用されているか、不適切な文字が含まれています。", vbCritical
        Me.Name = temp
        Err.Clear
    End If
 End With
 End Sub
 (seiya)

 seiyaさん・浦上さんご回答ありがとうございます。
 早速、活用させていただきます。
 貴重なお時間頂戴してありがとうございました。
 (TOMO)

 ↓関連リンクがあります。(みやほりん)
[[20051101171201]]『セルにかかれている名前[氏名]をシート名に』(jiji) 

 みやほりんさんに質問です
 マクロで固定のシート・固定のセルに数字を入力させている場合に
 上記の様に各A1セルを変更させてワークシート名を変更させた際にエラーになります

 <例>

 Sub aaa()

    ActiveCell.FormulaR1C1 = "10"
    Range("C1").Select
    Sheets("B").Select
    ActiveCell.FormulaR1C1 = "20"
    Range("C1").Select
    Sheets("C").Select
    ActiveCell.FormulaR1C1 = "30"
    Range("C1").Select
    Sheets("A").Select
    Range("B2").Select
End Sub

 sheetが3つあった場合(ワークシート名はA〜C)が初期で
 変更後はD〜Fにするとデバックしてしまいます。。。。
 これを対応する方法ってあるのでしょうか?
 お時間がある時にでもお手数ですがご教授お願い出来ませんでしょうか?
 よろしくお願い致します(TOMO)


 横から失礼します。
 >変更後はD〜Fにするとデバックしてしまいます
 上記マクロなら、変更後は A〜C が存在しないから、当然デバッグします。
 1枚目のシートが"A",2枚目のシートが"B",3枚目のシートが"C"として、それぞれをD〜Fに変更するなら、

 Sub aaa()

    Sheets(1).Select
    ActiveCell.FormulaR1C1 = "10"
    Range("C1").Select
    Sheets(2).Select
    ActiveCell.FormulaR1C1 = "20"
    Range("C1").Select
    Sheets(3).Select
    ActiveCell.FormulaR1C1 = "30"
    Range("C1").Select
    Sheets(1).Select
    Range("B2").Select
End Sub

 ですか?

 (ken)


 > たとえば、Sheet1のA1に「ABC」と入力すると
 >Sheet2の名前がABCに変更することは可能でしょうか?
   ~~~~~~~~~~~~~~~~~~~~~
とあったので、少し不安がありました。
他にもマクロがあるのなら、シート名、シート数、シートの並び順に
矛盾が出ないような運用方法やマクロ全体の組み立てが必要。
具体的には、ブックの保護を行って、シートの位置変更、
シート追加、削除ができないように対策。
この場合、シート名変更時にブックの保護解除>シート名変更>ブック保護の
手順も必要になります。
(みやほりん)


 kenさん・みやほりんさんご教授ありがとうございました。
 うまくいきました^−^
 本当、ありがとうございました!(TOMO)
 

コメント返信:

[ 一覧(最新更新順) ]


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