エクセルの学校：全文検索：Hyper Estraier： cell filename

Results of 1 - 1 of about 295 for cell filename (0.001 sec.)

cell (1170), filename (1981)

[[20051109121705]]: #score: 11170; @digest: 558813389d51658d71acb1f50bd5cdae; @id: 18079; @mdate: 2005-11-11T04:00:11Z; @size: 3408; @type: text/plain; #keywords: 20051101171201 (6198), 然デ (5655), 連リ (5365), 浦上 (3819), formular1c1 (3272), 間頂 (2965), 名変 (2639), 更後 (2495), tomo (2137), 枚目 (1954), activecell (1829), 頂戴 (1743), select (1466), デバ (1287), 「ab (1247), ト名 (1013), filename (955), クシ (952), 変更 (900), ト見 (873), シー (869), バッ (809), 保護 (751), 貴重 (715), 記マ (693), ート (691), sheets (680), ーク (656), ワー (598), 不安 (586), お時 (570), ト数 (549); 『ワークシートの名前』（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) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200511/20051109121705.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ