[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ワークシートの名前』(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)
早速、活用させていただきます。 貴重なお時間頂戴してありがとうございました。 (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に変更することは可能でしょうか? ~~~~~~~~~~~~~~~~~~~~~ とあったので、少し不安がありました。 他にもマクロがあるのなら、シート名、シート数、シートの並び順に 矛盾が出ないような運用方法やマクロ全体の組み立てが必要。 具体的には、ブックの保護を行って、シートの位置変更、 シート追加、削除ができないように対策。 この場合、シート名変更時にブックの保護解除>シート名変更>ブック保護の 手順も必要になります。 (みやほりん)
うまくいきました^−^ 本当、ありがとうございました!(TOMO)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.