[[20120409120424]]　『串刺しで日付自動入力』（おまめ）　ページの最後に飛ぶ

『串刺しで日付自動入力』（おまめ）

こんにちは、sheet1～365の同じセル番号に1月1日から12月31日まで入力したいのですが
ひとつひとつ入力してたら時間が掛かってしまいます。ダブってたり抜けてたりもして...
自動で入力出来る方法はありますか？
初心者ゆえ質問も上手く伝わらないかもしれませんが、よろしくお願いします。

WindowsXP　Excel2007

 回答ではありません。
老婆心ながら、日付分シートを作成するのはやめた方が良いと思いますよ。。。
　
み○ほ○んさんの失敗談です。（勝手な掲載、ご容赦を＾＾；）
http://miyahorinn.fc2web.com/schooltxt/Ex060120.html
(ROUGE)

ROUGEさん、ありがとうございます。
なるほど、勉強になりました。
シートを増やし過ぎると、後々困った事になるということなんですね（汗）
違う方法でブックの設計を考え直します(^_^)

ちなみに後学のためにお聞きしたいのですが、
やはりマクロを使わないと出来ないのでしょうか？

(おまめ)

 運用としては ROUGE さんのおっしゃるとおりですが、やるとしたらマクロ以外は大変だと
 思います。
 興味本位からのサンプルですが、

 Sub MakeOneYearWSs() 
    Set wb = Workbooks.Add() 
    Application.ScreenUpdating = False 
    For d = DateSerial(2012, 1, 1) To DateSerial(2012, 12, 31) 
        With wb.Worksheets.Add(after:=wb.Worksheets(wb.Worksheets.Count)) 
            .Name = Application.Text(d, "mmdd") 
            .Range("A1").Value = Application.Text(d, "mm月dd日") 
        End With 
    Next 
    Application.ScreenUpdating = True 
 End Sub
 (Mook)

 シート名がSheet1、Sheet2、Sheet3、…、Sheet365だったら全シートを選択してからセルに
 ="2011/12/31"+REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1))+5,"")
 って入力するとまとめて日付を入力できるよ。

 日付は"2011/12/31"にシート名の数値部分を足した日付になるよ。
 (だから上記の場合だと365シート目は2012/12/30になるよ)

 追記
 もし、#VALUE!エラーになる時は、いったんブックを保存してみてね。
 (春日野馨)

Mookさん、ありがとうございました。
私にはちんぷんかんぷんですが参考にさせていただきます。

春日野馨さん、ありがとうございました。
なるほど、いろんな考え方ややりかたがあるんですね。
とても勉強になりました。

みなさまご親切にありがとうございました(^_^)

(おまめ)

コメント返信：

[ 一覧(最新更新順) ]

[[20120409120424]] 『串刺しで日付自動入力』（おまめ） ページの最後に飛ぶ

[[20120409120424]]　『串刺しで日付自動入力』（おまめ）　ページの最後に飛ぶ