Results of 1 - 1 of about 295 for cell filename (0.001 sec.)
cell (1170), filename (1981)
- [[20071127131855]]
- #score: 11170
- @digest: 4839839d66a0ad5c33a0482b43d0bebc
- @id: 34640
- @mdate: 2007-11-27T05:43:10Z
- @size: 1885
- @type: text/plain
- #keywords: 20061211173554 (5655), sheetname (4164), myadd (3200), sheetselectionchange (1994), filename (1911), cell (1408), 1or8 (1364), volatile (1268), 連ロ (1252), calculate (1085), 当セ (739), 数名 (669), モジ (569), ジュ (544), 準モ (509), 取得 (459), 記入 (438), ト名 (434), seiya (431), function (414), ク先 (382), formula (356), 標準 (339), 関連 (335), ドレ (326), ュー (323), right (315), ルへ (299), 衝突 (299), ログ (285), worksheet (282), 自身 (273)
- 『シート名の取得』（BB）
お世話になります。20数名の氏名がそれぞれのシートのタブに書かれています。それをそれぞれのシートのセルに記入したいのですが、自動的にシート名を取得し、それをセルに記入する関数はあるでしょうか。よろしくお願いします。 ---- [[20061211173554]]に関連ログがた〜くさんあります。(くみりん) ---- 衝突〜。マクロの場合です。 名前を入力するセルのアドレスはご自身で変更して下さい。 下記を標準モジュールに貼り付けてください。 Sub macro() Dim ws As Worksheet For Each ws In Worksheets ws.Range("A1") = ws.Name 'A1 を該当セルに変更して下さい Next End Sub (1or8) ---- リンク先はたくさんあるみたいですね! 探すと大変そうなので、というか今ちょっと暇なので ^^ヾ 式だとこんな感じ? =RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename"),1)) (1or8) ---- 標準モジュールへ Public Const myAdd As String = "A1" Sub test() Dim ws As Worksheet For Each ws In Worksheets ws.Range(myAdd).Formula = "=SheetName()" Next End Sub Function SheetName() As String Application.Volatile SheetName = ActiveSheet.Name End Function ThisWorkbookモジュールへ Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sh.Calculate End Sub (seiya) ---- (1or8)さん、(seiya)さん、ありがとうございます。 二つ目の関数を試してみましたが、下記のような記述が出て、シート名が取得されていないようです。 #VALUE! できればマクロではなく、関数で処理したいと思うのですが、どうすればよいでしょうか。 ---- そのファイルはまだ保存していませんよね? 一度保存しないとCELL関数は機能しません。 (ROUGE) ---- (1or8)さん、(seiya)さん、(ROUGE)さん、ありがとうございました。 過去ログを検索して、=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1))) を入力して解決しました。 助かりました。ありがとうございました。... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200711/20071127131855.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97013 documents and 608132 words.
訪問者：