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

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

cell (1170), filename (1981)

[[20040712094645]]: #score: 11170; @digest: 6b2bf0314c80f38b7bf4357dfca3dfaf; @id: 7684; @mdate: 2004-07-12T05:50:11Z; @size: 4107; @type: text/plain; #keywords: 目雅 (8427), 夏目 (8057), 雅子 (7587), 子似 (7172), 成16 (5011), 回設 (5011), mydate (4457), 似） (3865), （夏 (2654), selectionchange (1781), 容量 (1393), トマ (1371), 負担 (1244), worksheets (1066), 平成 (1049), cdate (999), 月d (974), イベ (927), vbexclamation (902), ー" (869), activate (789), 不正 (788), ベン (759), 郵便 (700), format (651), filename (637), 日") (616), 月1 (577), 見出 (507), ファ (436), 日ま (417), 例: (404); 『セルにシート名が入るようにしたい』（ありんこ）
教えて下さい!! 郵便の集計をしているのですが、月ごとにファイルを作っています。月ごとに1日〜30日までの営業日だけシートを作成して表の中に件数を埋めていっています。そこで、シート名が例えば6月1日と入れたらセルA1に平成16年6月1日と自動で入るようにするにはどうしたらいいでしょうか?教えて下さい ------- シートの見出しを右クリックしてコードを表示させて、そこに貼り付けて下さい。（夏目雅子似） Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("A1").Value = Me.Name End Sub で、どうでしょう? ----- ありがとうございましたすばらしいですっ!!出来ました・これを使ってセルの書式設定であらかじめ平成16年○月○日と設定しておけばいいのですね・・・ちなみにこれを1日から30日まで作成したらファイルの容量は重くなりますか?? あらかじめこのコードを入れたシートをコピーしたら同じように使用できるのでしょうか? 教えて下さい!! ---- ＞ちなみにこれを1日から30日まで作成したらファイルの容量は重くなりますか?? ファイルサイズは関係ないとおもいます。＞あらかじめこのコードを入れたシートをコピーしたら同じように使用できるのでしょうか? 教えて下さい!! コードの入ったシートの見出しにCtrlキーを押しながらマウスを当てますと +の形にかわりますから、後は、ひょういっと、、ひょういっと、、って感じで私はいつもコピーしてます。で、どうでしょう? （夏目雅子似） ---- ありがとうございましたっばっちりできましたっ・・ ---- SelectionChange を使うと、セル選択の度にマクロが実行されて CPUに負担が掛かりそうですけど・・・ 1回設定するだけなら、イベントマクロでなくても良いかと思います。 (INA) ------- はぁ、、失礼しましたぁ。。m(__)m >自動で入るようにするにはどうしたらいいでしょうか? とあったもので、、、すみませんm(__)m ↓の方が、ましですかね(・・;) もう、見てらっしゃらないかな? （夏目雅子似） Private Sub Worksheet_Activate() Range("A1").Value = Me.Name End Sub ---- ちなみにワークシート関数でもいけます。「エクセル技道場」より http://www2.odn.ne.jp/excel/waza/sheet.html#SEC5 =MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31) (KAMIYA) ----- ありゃま、見ていてくださるといいのですがぁ、、、がくっ_/￣|○。。（夏目雅子似） ---- >1回設定するだけなら、イベントマクロでなくても良いかと思います。 Sub sample() Dim wb As Workbook Dim ym As String Dim myDate As Date Dim i As Long retry: ym = Application.InputBox("年月を入力して下さい。入力例:2004/07" _ , "ブック作成マクロ", Format(Date, "yyyy/mm"), Type:=2) If ym = "False" Then MsgBox "キャンセルされました" Exit Sub ElseIf Len(ym) <> 7 Or Mid(ym, 5, 1) <> "/" Then MsgBox "入力が不正です。", vbExclamation, "エラー" GoTo retry End If Set wb = Workbooks.Add With wb myDate = CDate(ym & "/01") ym = CDate(ym & "/01") For i = 1 To 31 On Error GoTo Add_ws Worksheets(i).Name = Format(myDate, "m月d日") .Worksheets(i).Range("A1").Value = Format(myDate, "ggge年") & .Worksheets(i).Name myDate = myDate + 1 If Month(myDate) <> Month(ym) Then .Worksheets(1).Activate Exit Sub End If Next i .Worksheets(1).Activate Exit Sub Add_ws: .Worksheets.Add after:=.Worksheets(.Worksheets.Count) Resume End With End Sub (INA) ------- うぅ〜ん、、びゅちふるぅ〜〜〜(@_@) (夏目雅子似） ---- ありがとうございました分かりましたっ!! INAさんのVBAは、初心者の私には難しすぎて・・・・でも凄いです!! 書き留めておきますありがとうございました（ありんこ） ------- ありゃま、 [[20040712130032]]『条件付書式』（ありんこ）の方と同じお方様でしたかぁ、、そうとは気づきませんで重ね重ね失礼いたしました。m(__)m SelectionChangeイベントはINA様のおっしゃる通りセルを動かすだけでも発生しますから、私が最初に提示した方法はご使用にならないで KAMIYA様の関数やINA様のマクロなどを参考にして下さい。あまり考えないで回答してしまってごめんなさいですm(__)m （夏目雅子似） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200407/20040712094645.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ