docomoプラン見直し（8/31 Xiプラン申し込み終了対策）

FOMAケータイで、Xiカケホーダイプランにしていたのですが、
iPhoneの方が月額が安いことが判明。

遅ればせながら、
iPhoneをXiカケホーダイにして、FOMAケータイはメール使いホーダイプランに
することを考えました。

で、151に電話して分かったことが
　・XiからFOMAへの変更では、バリュープランが選べないらしい。
　　--> ということは、タイプXiにねん ¥743 -> ベーシックプラン ¥1,543
　　　ほぼ倍。
　　--> Xiトーク24だと、 タイプXiにねん ¥743 + Xiカケホーダイ ¥667 = ¥1,410
　　　変更前とゼンゼン同じじゃないですか・・・

　・一方、iPhoneは、MNPなので、月々¥2,978
　　--> Xiカケホーダイ for iPhone ¥667 / 2 = ¥334
　　　なので、¥2,560 + ¥334 = ¥2,894

トータルでの計算
　1. Xi カケホーダイ（FOMA) + iPhone
　　　¥1,410
　　+ ¥2,560
　　ーーーーー
　　　¥3,970

　2. メール使いホーダイ（FOMA) + iPhone w/ Xiカケホーダイ
　　　¥1,543
　　+ ¥2,849
　　ーーーーー
　　　¥4,392

さて、もう少し安くなるように検討しましょうかね〜

かばん新調

新生活も始まり早二ヶ月ですが

いかがお過ごしでしょうか？

春先はイロイロ物入りですが、

私の場合引越しも5月にしたので

かなりの出費です。

さて、

サラリーマンたるもの

持って行くもの無くとも

カバンを持って仕事に行くわけなのですが、
今使っているカバンは結婚当初に購入したもので、穴も空き始めてました。

しかも、ほぼ毎日PCを持ち歩くのに

普通のブリーフケースだと重いわ持ちにくいわで、ソロソロ替え時かな〜

というところでした。

ただ、流石吉田カバン、10年以上前に購入したにも関わらず、ナカナカ丈夫で長持ちだったのですね〜

今回もイロイロ眺めたのですが

やはり吉田カバンで行こうかと

クラチカまで行ってきました。

クレカに落ちた話と信用情報の確認方法

消費税が上がり

日々の生活にボディーブローの様に

8%が覆いかぶさってます。

対策という訳でもないですが、

少しでもお得になりたくて

還元率の高いクレカに応募したのは、

先月末の話しです。

その後、申し込んだクレカ会社から

「ご意向に添い兼ねる」旨の封書が届いちゃいました(~_~;)

イロイロ考えましたが

思い当たる節もなく

思い切って信用情報を確認してみました。

[レビュー] モバイルバッテリーは無接点充電に限る

今の職場は、

個人の電源使用が禁止されています。

これは、ネット中毒の自分にはとてもツラい。

何せ、iPhone5sときたら

とても電池喰いで、充電が一日持ったためしがないのです。

となると、

モバイルバッテリーが必需品になりますよね。

もう、お判りでしょうが、

そんな、こんなでモバイルバッテリーを入手しました。

今回はヤマダ電気さんのポイントで交換です。

♯ありがとう、Macくん

購入したのは無接点充電対応のQE-PL203です。

ヨドバシ店頭では¥3800のところ

ヤマダでは¥3390でした。

しかも3000ポイントがあったので

タバコよりお安くゲットです。

チャリがパンク

一週間前のお話しですが・・・
先週月曜の夜、何時ものように

駅からチャリで帰宅してると

後輪に違和感が…

よく見ると空気が抜けていました。

帰宅後、一応テストのために

空気を入れてその一時間後に改めてタイヤを見ましたが、

やはり、パンクのようです。

今は自分のチャリではなく

嫁から借りたチャリだったのですが

長いこと乗っていなかったので

ゴムが劣化している感じでした。

幸いな事に昨日のウチに自分用の

時期支援通勤車を発注した後だったのは不幸中の幸いでしたね。

納車されるまでは

車で駅に行かなきゃですね。

次のチャリは納車されたら記事をアップしましょう。

Excel VBA：シート名を取得して目次を作成するマクロ

こんばんは〜
仕事や家庭でExcelを使う機会があるかと思いますが、
Excelファイル中の全シート名を一覧に出来たら楽だな〜
と思ったことはありませんか？
自分はよくあります。
特に仕事で・・・・
相手から送られてきたExcelファイルのシートが100近くなんてこともちらほら。
するとこのマクロの出番です。




以下のVBA記述を個人用マクロブックに保存することで
どのExcelファイルを開いてもシート名の一覧とそのシートのセルA1への
ハイパーリンクが作成されます。

ちなみに、今の記述では「シート一覧」というシートが存在するとエラーで終了します。
その場合は、「NS=・・・」の記述の「シート一覧」を別な名前に変更しておくか
事前にそのシートを削除orリネームしておく必要があります。
＃そのうち改善したものをアップしますね。

Sub シート名取得()
'
' Macro1 Macro
'

'

 Dim cellPosX As Integer
 Dim ListWS As Worksheet
 Dim mySCnt As Integer

 NS = "シート一覧"

 Set ListWS = Worksheets.Add()
 ListWS.Name = NS
 mySCnt = ThisWorkbook.Sheets.Count

 For Each MySh In Sheets
    mySN = MySh.Name
    cellPosX = mySCnt + 1

    ListWS.Cells(cellPosX, 2).Value = mySN
   
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Cells(cellPosX, 2), _
        Address:="", _
        SubAddress:="'" & mySN & "'" & "!A1", _
        TextToDisplay:=mySN

    mySCnt = mySCnt + 1
 Next

End Sub

--
以上
今日はここまで
ほな、さいなら〜

お財布ケータイ（SH-07D購入しまつた）

この4月からの電車通勤に備えて
3月末にお財布ケータイを探して東奔西走していました。

狙い目は、2012年夏モデルXperiaSX。

でも、これがなかなか難しい。

当然新品は手に入らないわけですが、

中古でも2万から3万とかなり高めです。なぜXperiaSXかと言うと、iPhoneとの2台持ちを考えると小さなスマホが良いのです。