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

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

cell (1170), filename (1984)

[[20120214113725]]: #score: 11157; @digest: 028dfec82818f0afeaa5e1db368e28c4; @id: 57719; @mdate: 2012-02-14T04:47:25Z; @size: 2073; @type: text/plain; #keywords: 日計 (9522), 計bb (7005), 得. (3963), pos1 (3769), 連日 (3344), shn (2550), ぬこ (2480), 得() (2083), 「日 (1484), 名取 (1465), 行取 (1413), 何? (1137), 計」 (1087), 計") (944), 問文 (809), worksheets (666), filename (635), 仕組 (511), シー (482), 最後 (474), cell (469), 取得 (459), ト名 (434), 終行 (429), ート (422), 宣言 (330), メソ (329), name (324), 最終 (305), sh (300), 行ま (290), 番目 (285); 『ワークシート名の一部をセルに表示するマクロ』（ぬこぬこ）
連日お世話になります。あるブックで、「日計AA」「日計BBBB」のように、「日計」が頭についてその後の文字列は2文字〜4文字のシートがあります。その「日計」がついたシートで、「日計」を省いた部分をそのシートのB2より下に表示したいと思い、 [[20030616083249]] の質問を参考に下記のマクロを作成しました Sub シート名取得() Dim shn As String, sn As String, pos1 As Integer Dim z As Long Dim i As Long For i = 3 To Worksheets.Count - 5 '左から3番目のシートから始まって最後5つのシートを除く With Worksheets(i) shn = sh.Name pos1 = InStr(shn, "日計") If pos1 > 0 Then sn = Mid(shn, 3) z = .Cells(Rows.Count, 5).End(xlUp).Row 'E列の最後の行取得 .Range("A2:A" & z).Value = "=ROW()-1" 'A列に最終行まで関数を入れる .Range("B2:B" & z).Value = sn 'B列にシート名を「日計」を除いて入れる End If End With Next i End Sub しかし shn = sh.Name の部分で「このメソッドをサポートしていません」のメッセージが出ます。 Withブロックが関係あるのかと思い、sh の前に . をつけてみたりしましたがダメでした。ちなみに元の質問文の回答にある「For Each〜」を使うと、最後のシートの名前しか取得できませんでした。宣言の間違いかと思って Dim sh As Worksheet を入れてみましたがやはりエラーです。最初はB列に =MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+3,31 の関数を入れていましたが、これを各シートのデータの最終行までコピーするのが大変で、なんとかマクロでできないかと思っています。よろしくお願いいたします。 ---- えっと。。。 shn = sh.Name ‾‾shって何? って事だと思います。過去ログでは＞For Each sh In Worksheets ここで、順番に shに設定されていくのですが、今回は無いので。 Worksheets(i).Name の事ですよね? すると、Wiht Worksheets(i) 〜 End With の間なので shn = .Name でいけるんじゃないでしょうか。 (HANA) ---- HANA様いつもありがとうございます。できました。なかなか仕組みが理解できないです… （ぬこぬこ） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201202/20120214113725.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ