おぺら ぷらす あるふぁ。

会社で依頼を受けたので、ぐぐってみたら参考になりそうなページを見つけた。

■Mactopia Japan : Excel Solution - データの変換や日付の計算に、各種の関数を活用する
http://www.microsoft.com/japan/mac/officesolution/xlsolution/11.mspx

で、下記のような計算式に。

=DATE(YEAR(TODAY()),A1,(7-WEEKDAY(DATE(YEAR(TODAY()),A1,1),3))+(C1-1)*7)

A1に月、C1に第○日曜日かを入れると、その日付が出てくる。
テストブックを添付してみたので、参考に。
weekdaytest.xls

ちなみに、第6日曜日とかにすると、次の月の日曜日が出てきますよ。

---
追記(2007/10/02 11:43)

でもって、月～日曜日まで対応してみた。
年は端末の設定日時の年を取得してくるようになってるので、必要ならToday()の部分を適宜変更してくらはい。
weekdaytest2.xls

計算式は以下の通り。

=DATE(YEAR(TODAY()),A1,(1-WEEKDAY(DATE(YEAR(TODAY()),A1,1),3))+(C1-1)*7)
=DATE(YEAR(TODAY()),A2,(2-WEEKDAY(DATE(YEAR(TODAY()),A2,1),3))+(C2-1)*7)
=DATE(YEAR(TODAY()),A3,(3-WEEKDAY(DATE(YEAR(TODAY()),A3,1),3))+(C3-1)*7)
=DATE(YEAR(TODAY()),A4,(4-WEEKDAY(DATE(YEAR(TODAY()),A4,1),3))+(C4-1)*7)
=DATE(YEAR(TODAY()),A5,(5-WEEKDAY(DATE(YEAR(TODAY()),A5,1),3))+(C5-1)*7)
=DATE(YEAR(TODAY()),A6,(6-WEEKDAY(DATE(YEAR(TODAY()),A6,1),3))+(C6-1)*7)
=DATE(YEAR(TODAY()),A7,(7-WEEKDAY(DATE(YEAR(TODAY()),A7,1),3))+(C7-1)*7)

オプションでコメント・変更履歴の表示・非表示を切り替えることが出来るが、これはそのパソコンのみの設定を切り替えるだけ。

ファイル自体の変更履歴を消して最新の校正の状態にするには、「ツールバー」から「チェック/コメントツールバー」を表示し、「変更の承諾」ボタンの横の▼から「ドキュメント内のすべての変更を反映」を選ぶ。

ってか、社内の帳票に変更履歴つけっぱなしにしておくなよぉ。。


■Odysseygate.com » Blog Archive » [Word] 変更履歴を反映する/消す
http://www.odysseygate.com/archives/440

プログラム→Excelの場合は、ツール→オプション→「全般」の「新しいブックのシート数」を一枚にすればいいのですが、デスクトップで右クリック→新規作成→Excelで作成したブックのシート数は変わりません。

そんな時は、C:\WINDOWS\SHELLNEW（インストール時の設定によって違う場合あり。OSインストールフォルダ以下にある）のEXCEL9.XLSを起動して、不要なシートを削除すればおっけぇです。

■インストラクターのネタ帳　デスクトップで新規作成だとシートが1枚じゃない
http://www.relief.jp/itnote/archives/000034.php

■Excel
例えば、A1に誕生日を入力しておく。
で、年齢を入れたいセルに以下の計算式を入力する。

=IF(A1<>"",DATEDIF(A1,TODAY(),"y"),"")

すると、今日の時点での年齢が分かる、と。

計算式の解説をすると、
=IF(開始日<>"",DATEDIF(開始日,終了日,期間の単位),"")

つまり、「開始日が空白であった場合は、空白にしなさい。そうでない場合は、開始日から終了日の期間の単位に対する期日を求めなさい」ということになる感じ。

分かりにくいかもしれんけど、やってみたら分かると思われ。
そして意外と便利。


■Access
誕生日の入っているボックスの名前は「誕生日」にしておくこと。

=DateDiff("yyyy",[誕生日],Now())+Int(Format(Now(),"mmdd")<Format([誕生日],"mmdd"))