hide_kichiの情報

気になる情報を適当にアップしていきます

少し、トクしました

 

 

 

 

 

f:id:hide_kichi:20170406125917j:plain

 

 

暖かくなってきたので、自転車の後輪(チューブ・タイヤ)を交換しました。

少し時間はかかりましたが成功!!

何ヶ月か前、Amazonでチューブ・タイヤX2個をほしいものリストに登録、たまたま見たら登録時(2,500円)よりかなり安く(1,380円)なっていたので即注文しました。

寒い時期に手に入れて、暖かくなるのを待っていました。見事に交換でき、なんか得した気分です。

 

おそらく自転車屋さんに頼んだら5,000円くらいはしたでしょう。

チャレンジしてみるもんですねえ!!

 

 

 

 

 

 

誕生日、バレンタイン、進級祝いなど記念日にもらって嬉しい

やはり「BOSE」でしょう。

最高品質の音を出力してくれ、間違いなし!

悩む必要なしです。

 

こんな良い情報があります。

とりあえず買っておいて時期が来たらプレゼントに!

https://www.bose.co.jp/ja_jp/better_with_bose/newyear_2017.html

 

 

 

EXCEL 年末 月/日で1月以降を入力すると年が翌年にならない

f:id:hide_kichi:20161222140546p:plain

年末にEXCELで月/日で1月以降を入力すると年が翌年にならない

1/10は2016/1/10になってしまいます。

2017/1/10で入力すれば問題は解消されるのですが普段から/の入力なので面倒です。

そこでマクロ作りました。

EXCELで範囲指定(ドラッグ)します。

②範囲指定された1月、2月は翌年(2017)に変換します。

 

まずEXECLの 

「変換したいEXCELファイル」と

「日付変換(年).xlsm」を開きます。

f:id:hide_kichi:20161222141417p:plain

②マクロを起動します。[開発]ー[マクロ]

(日付CONV)を選択します。

f:id:hide_kichi:20161222141619p:plain

f:id:hide_kichi:20161222141702p:plain

一瞬で変換します。

戻るボタンはきかないのでバックアップ取って試してください。

 プログラムサンプル

    
    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
    
    
    

XMASプレゼント

自分へのクリスマスプレゼントを検討しています。

 

f:id:hide_kichi:20161218105815p:plain

Anker PowerCore 5000 (5000mAh 最小最軽量 スティック型 モバイルバッテリー) iPhone / iPad / Xperia / Android各種他対応 トラベルポーチ付属【PowerIQ & VoltageBoost搭載】

AMAZON 1900円

 

ANKERがオススメのようです。

 

imacの液晶を交換しました。

iMac 17インチ ma590j/a late2006の液晶を交換しました。

新品の液晶にしたかったのですが25,000円程度で
もったいないので中古14,000円を購入し液晶のみ利用しました。

結果、購入した中古は外部ディスプレイ接続で利用でき何か得した気分です。

 

初めての液晶修理作業なので少し緊張しましたがそんな難しい作業ではありませんでした。

ただMACは特殊ネジなので工具が必要です。

f:id:hide_kichi:20161204170255j:plain

 

f:id:hide_kichi:20161211205711j:plain

f:id:hide_kichi:20161211205640j:plain

f:id:hide_kichi:20161204170058j:plain

 工具です。AMAZONで500円で購入。(安い)

f:id:hide_kichi:20161218105256p:plain

メーカーに依頼すると結構高額になるところ、

安く修理することができました。