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

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

cell (1170), filename (1984)

[[20140222152934]]: #score: 11157; @digest: 4a1e6cd4ac80ab4c2801b5108a5d9c33; @id: 64566; @mdate: 2014-02-24T02:49:30Z; @size: 3299; @type: text/plain; #keywords: nextmonth (23453), キク (7014), 月xx (4966), 力", (3228), 回日 (3105), 分作 (2873), dateserial (2838), filename (2543), 後シ (2161), ト毎 (1949), 式案 (1880), cell (1877), 月", (1753), start (1740), 部選 (1657), 度見 (1473), 日分 (1184), num (1081), 大切 (923), 2014 (883), 日付 (803), inputbox (773), date (688), 土) (655), month (639), ト全 (637), right (631), substitute (623), 一度 (616), sheet1 (586), worksheets (533), 成す (461); 『シート毎に日付を入れたい』（キク）
会社で日誌を入力しているのですが、シート毎に日付け自動入力したくて今までの質問の中から色々試してみましたが完成させる事ができませんシートを一度に31日分作成する事は出来てますそこからが、できずA1セルにどうしたら日付けの連番が入るでしょうか＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- やりたいことの説明も大切ですが、ご自身のやったことを只「できませんでした」というのではなく、何を、どのようにやったけれど、どこがうまくいかなかった。ということを説明してはどうでしょうか。そうすれば、躓いた点に対する回答もできますし、やり方をこう変えたらどうか、という提案もできます。 >シートを一度に31日分作成する事は出来てます。はどのようにやっているのでしょうか。そのタイミングで、日付を入れるだけのような気もしますが。（Mook） 2014/02/22(土) 16:08 ---- 済みません初めての投稿でどう説明するかわからないのです先ずシートはこのコードをコピーして作成しました Sub copysheet() Dim Start_Num As Long Dim End_Num As Long Dim i As Long Start_Num = 1 End_Num = 31 For i = Start_Num To End_Num Sheets("Sheet1").Copy After:=ActiveSheet ActiveSheet.Name = "3月" & i Next i End Sub 一度保存して次に =DATE(YEAR(Sheet1!$A$1),MONTH(Sheet1!$A$1),RIGHT(MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31),2)) このコードを貼り付けしたのです左に1枚のシートがありA1セルに2014/3/1の入力してますその後シート全部選択して、シートのA1セルに貼り付けましたその作業が間違っているのでしょうか本当に済みませんよろしくお願いします。（キク） 2014/02/22(土) 17:16 ---- 提示の方法は Sheet1 を常に参照してしまいますが、それはそれでよいのでしょうか。数式を使用して実装する方法もあるでしょうが、マクロでシートコピーしているなら直接日付を入れても良いと思います。 Sheet1を1か月分コピーするというのであれば、Sheet1 のA1 のセルの書式を日付にしておいて、下記のようでどうでしょうか。 Sub CopySheets() Dim nextMonth As Date nextMonth = DateSerial(Year(Date), Month(Date) + 1, 1) Dim y As Long y = InputBox("作成する年を入力してください", "年入力", Year(nextMonth)) Dim m As Long m = InputBox("作成する月を入力してください", "月入力", Month(nextMonth)) Dim dt As Date For dt = DateSerial(y, m, 1) To Application.EoMonth(DateSerial(y, m, 1), 0) Sheets("Sheet1").Copy After:=Worksheets(Worksheets.Count) With Worksheets(Worksheets.Count) .Name = Format(dt, "M月D日") .Range("A1").Value = dt End With Next End Sub （Mook） 2014/02/22(土) 17:55 ---- 数式案をもう一度見てみましたが、日付が1桁の時にうまくいかなそうですね。 Sheet1 に毎回日付を入れておくのもちょっと大変そうです。最初の提示されたコードだと「xx月xx」なので日付だけを取り出すのであれば、 RIGHT(MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31),2) だけでなく、 SUBSTITUTE(RIGHT(MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31),2),"月","") にしたらできそうです。ですから、最初に Sheet1 の A1に =DATE(2014,3,SUBSTITUTE(RIGHT(MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31),2),"月","")) としてから、最初のマクロを実行すればそれでもできるように思います。（Mook） 2014/02/22(土) 18:13 ---- ありがとうございました本日実施してみます（キク） 2014/02/24(月) 11:49 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201402/20140222152934.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ