暖かくなってきたので、自転車の後輪(チューブ・タイヤ)を交換しました。
少し時間はかかりましたが成功!!
何ヶ月か前、Amazonでチューブ・タイヤX2個をほしいものリストに登録、たまたま見たら登録時(2,500円)よりかなり安く(1,380円)なっていたので即注文しました。
寒い時期に手に入れて、暖かくなるのを待っていました。見事に交換でき、なんか得した気分です。
おそらく自転車屋さんに頼んだら5,000円くらいはしたでしょう。
チャレンジしてみるもんですねえ!!
やはり「BOSE」でしょう。
最高品質の音を出力してくれ、間違いなし!
悩む必要なしです。
こんな良い情報があります。
とりあえず買っておいて時期が来たらプレゼントに!
https://www.bose.co.jp/ja_jp/better_with_bose/newyear_2017.html
年末にEXCELで月/日で1月以降を入力すると年が翌年にならない
1/10は2016/1/10になってしまいます。
2017/1/10で入力すれば問題は解消されるのですが普段から/の入力なので面倒です。
そこでマクロ作りました。
①EXCELで範囲指定(ドラッグ)します。
②範囲指定された1月、2月は翌年(2017)に変換します。
まずEXECLの
「変換したいEXCELファイル」と
「日付変換(年).xlsm」を開きます。
①
②マクロを起動します。[開発]ー[マクロ]
(日付CONV)を選択します。
一瞬で変換します。
戻るボタンはきかないのでバックアップ取って試してください。
プログラムサンプル
Sub 日付CONV() Dim x As Range, i As Long For Each x In Selection If IsDate(x.Value) = True Then work_dt = c.Value If work_dt >= #1/1/2016# And work_dt < #3/1/2016# Then x.Value = DateAdd("yyyy", 1, work_dt) End If End If Next x End Sub