CANPAN ブログ検索
Loading
  • もっと見る
<< 2019年11月 >>
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
カテゴリアーカイブ
最新記事
最新コメント
「電池使用推奨期限」も月末日付で管理 [2016年03月29日(Tue)]
「電池使用推奨期限」も月末日付で管理


 包装を含めて、電池には「電池使用推奨期限」を表示しています。

 電池の液漏れなどを考えると、「電池使用推奨期限」を越えた電池を、「非常用ラジオ付き電灯」のような防災用の製品に使うことを避けた方が良いと思いす。

 ということで、「電化製品に内蔵している電池」をEXCELの表の「現況」シートに追加することにしました。

 「電池使用推奨期限」と「経過期間」の列を追加するだけの話ですが、「電池使用推奨期限」を入力するときに困りました。

 「電池使用推奨期限」は、例えば「04-2017」ならば、その月の月末の「2017/4/30」とするつもりでした。

 しかし、閏年もあり日付を間違える可能性があるため、マクロで自動的に計算することにしました。

 まず、「電池使用推奨期限」は、例えば「04-2017」ならば、その月の月初めの「2017/4/1」と入力します。

 マクロは、次のようになります。
@「I」行目「15」列目の「Cells(I, 15)」には、「2017/4/1」(「電池使用推奨期限」)というような日付が入っています。
 使用中のボタン電池のように「電池使用推奨期限」が不明の場合は、空欄になります。 日付が入っていれば、直ぐ下の処理を行いますが、空欄ならば処理を実行しません。
A日付が「1日」ならば、直ぐ下の処理を行いますが、月末の日付ならば処理を実行しません。
B日付変数「kigen」に「電池使用推奨期限」(「2017/4/1」)を入力します。
 日付変数「kigen」に「1月」を加えて(「2017/5/1」)、その後「1日」を引きます。(「2017/4/30」)
 日付変数「kigen」(「2017/4/30」)を「電池使用推奨期限」に入力します。

***マクロ開始***
If Cells(I, 15) > 0 Then
'「1日」ならば月末の日付に変換
If Day(Cells(I, 15)) = 1 Then
kigen = Cells(I, 15)
kigen = DateAdd("m", 1, kigen)
kigen = DateAdd("d", -1, kigen)
Cells(I, 15) = kigen
End If
End If
***マクロ終わり***
Posted by 山田 雄一郎 at 09:42
この記事のURL
https://blog.canpan.info/hofu_nanboku/archive/310
プロフィール

山田 雄一郎さんの画像
山田 雄一郎
プロフィール
ブログ
リンク集
https://blog.canpan.info/hofu_nanboku/index1_0.rdf
https://blog.canpan.info/hofu_nanboku/index2_0.xml