[Amazonセール] 最新のロジクールマウス MX Master 2S、MX Anywhere 2Sが10%オフ

Amazon.co.jpで、AmazonとASCII.jp/週刊アスキーのキャンペーン企画で

6月15日に新発売となった、ロジクールのマウス「ＭX2100s」「ＭX1600s」「Ｍ585」が10%オフにになる先行予約クーポンを配布しています。

購入期限は6月21日です。
狙っている人は急げ〜

購入方法

こちらのサイトでクーポンコードを確認
クーポンコードをコピー or メモしましょう

「注文内容を確認・変更する」のページで忘れずにクーポンコード入力
注文確定ボタンを押すときは、
10%分の割引が入っていることのチェックを忘れずに・・・

ＭX2100sとＭX1600sは6月15日に発売されました。 Ｍ585は6月22日に発売です。
なお、下記リンクから購入してくれると、とても嬉しいです

ＭX2100s

ＭX1600s


Ｍ585

[Amazonプライム] [キャンペーン] BoseのBluetoothスピーカが当たるかも 〜6/28まで（無料体験者もOK）

Amazonプライムは度々お得なこころ惹かれるキャンペーンをやっていますが
今月のキャンペーンは久々に欲しい気持ちが満タンです。

Amazon.co.jp: Prime Musicを聴いてBoseのBluetoothスピーカーをゲット: デジタルミュージック

では、キャンペーン詳細をみましょう

キャンペーン参加方法

応募期間: 2017年6月14日（水）00時00分から2017年6月28日（水）23時59分（日本時間）まで
対象者: プライム会員（無料体験者を含む）・Amazon Student会員（有料会員）

応募方法

　1. Amazonにサインインした状態で上記ページを見る

　2. プライム会員になる

　3. PrimeMusicで1曲以上再生する

感想

なんて簡単な手順なんでしょうか。

しかも、ここ重要です。

なんと

「プライム無料体験」でも良いそうです。

¥27000のBluetoothスピーカがプレゼントだなんて
かなり素敵なキャンペーンです。

抽選ですので、必ず当たるわけではないですが、

ちょっと応募してみませんか？

気になった方はさっそくここからプライム体験へどうぞ

うんこかん字ドリル 書店では売り切れだけどamazonなら買えるみたい

漢字の練習は子供の頃から好きじゃなかった・・
でも、こんな楽しいドリルならやる気が出るよな
と思ってなかみをAmazonでチェックしていたのは4月前半でした。

その後、買ってみる気になり、本屋に行ったものの
どこも人気で売り切れ続出

で、久々にAmazon覗き込んでみたところ
ココは豊富に在庫があるようです。
漢字嫌いなお子さんにどうでしょう？


セットもあるみたいです。

[Tips] [Excel] INDIRECT関数が使えるようになると便利

セル参照を手入力したくない場合が有ります。

たとえば、

　シート名の一覧があって、

　各シートのセルA1の値を参照する場合

　「マウス+キーボード操作」で記入していくと、量が多い場合に面倒ですね。

そんな時は、INDIRECT関数を使うと便利です。

シート名、セル名が下記の場合の例を以下に示します。

　シート名が、「Sheet1」

　セル名が　「C4」

=INDIRECT("Sheet1"&"!"&"C4",TRUE)

2個の引数は、参照形式の指定です。

　A1形式の場合、TRUE

　R1C1形式の場合、FALSE

と記載します。

[Tips] コマンドラインでURLデコードする

プロバイダの明細など、Webからダウンロードした
ファイルのファイル名がURLエンコードされているとちょっと気持ちが悪いですよね。

こんな時は、
nkfとtrの組み合わせで、簡単にデコードできます。

続きは

[Tips] Outlook VBA 添付ファイルの自動保存

職場等でOutlookを使う際、

転送メールを添付メッセージにしてくる場合があります。

1回程度なら、マニュアルで操作しますが、

日に何度もだと嫌ですよね。

そんな方向けには、下記のVBAをOutlookに仕込み

振り分け設定で使用すると便利ですよ。

詳しい使い方はまた後日・・・・

' 添付ファイルの保存を行うサブ プロシージャ

Public Sub SaveAttachedMsg (obj_Msg As MailItem)

    Const SAVE_PATH = "C:\TEMP\Outlook\Attached"

    Dim var_obj_FSO As Object ' FileSystemObject

    Dim var_obj_Attach As Attachment

    Dim var_str_FileName As String

    Dim num As Integer: num = 1

    Set var_obj_FSO = CreateObject("Scripting.FileSystemObject")

    For Each var_obj_Attach In obj_Msg.Attachments

        With var_obj_Attach

            var_str_FileName = SAVE_PATH & var_obj_Attach.FileName

            While var_obj_FSO.FileExists(var_str_FileName)

                var_str_FileName = SAVE_PATH & Left(.FileName, InStrRev(.FileName, ".") - 1)  & "-" & num & Mid(.FileName, InStrRev(.FileName, "."))

                num = num + 1

            Wend

            .SaveAsFile var_str_FileName

        End With

    Next

    Set obj_Msg = Nothing

    Set var_obj_FSO = Nothing

End Sub

[Tips] Excel ファイル名 パス名取得（関数使用 VBA未使用）

久々の投稿。

Excelで関数を毎回考えて書くのはとても面倒なので、
ここに記します。

今回は、Excelのセルに、とあるファイルのフルパス名を入力した時の
ファイル名やパス名を取得する関数です

以下の関数ダケで

かんたんに取得できます

Windowsで使う場合は、下記関数例のスラッシュ("/")を、円マーク("¥")に変更してください。

ファイル名取得　方法

=RIGHT(A1,LEN(A1)-SEARCH("【",SUBSTITUTE(A1,"/","【",(LEN(A1)-LEN(SUBSTITUTE(A1,"/",""))))))

パス名取得　方法

=LEFT(A1,SEARCH("【",SUBSTITUTE(A1,"/","【",(LEN(A1)-LEN(SUBSTITUTE(A1,"/",""))))))

以上
今日はここまで・・・