[Tips] awkで加算

よく使うのでメモ

awkで加算する場合のスクリプト

1. 途中結果も表示の場合
cat file | awk '{ print sum+=$1 }'


2. 最終結果のみ表示の場合
cat file | awk '{ sum+=$1 } END{print sum}'

いまならamazonでニンテンドー Switchがポチれるみたい

今年のサイバーマンデーセールは、
やはり目玉はニンテンドー Switchのようです。

昨日から始まっていますが、
タイムセール開始と共に、秒速で売り切れになったSwitchですが、
本日なら、何とか購入できるみたいですよ。

Nintendo Switch Joy-Con (L) / (R) グレー+マリオカート8 デラックス|オンラインコード版+【Amazon.co.jp限定】ギフトラッピングキット【大】 (BOX仕様:マリオキャラクターver.) +Samsung microSDXCカード 128GB EVO Plus MB-MC128GA/ECO【オリジナルマリオグッズが抽選で当たるシリアルコード配信(2018/1/8注文分まで)】

内訳は、
　Switch 本体：¥29890 x1.08 = ¥32,378
　マリオカート：¥6,458（ダウンロード版だと¥5,812、パッケージ版でも¥5,552）
　SDカード：¥5,873
合計
　¥44,709

というわけで、若干、高めな気がします。本体だけで良いのだけどなぁ

下記の価格みたいに、転売屋さんではなく、
amazonが正規に販売しているという意味では、
この時期にはありがたいのでしょうね

[クレカ] ＭIRAINO CARD募集開始

自分は、ポイントタウン経由で申し込みしてみました

住信SBI銀行口座があれば、登録が楽に成るようです。

詳しくはまた後日書きますね

amazon echoの招待メール来ないなぁ

申し込んだのが11/11ポッキーの日だったので、だいぶ出遅れ感でしょうか。

簡単にメール来るだろうと考えていましたが、なかなか招待メール来ないですね。

待ち遠しい……

[Tips] 印刷倍率

A3->A4=70

A3:297×462

A4:210×297

続：写真整理（python と exiftoolで実現）

足掛け、何年になるだろうか
写真の整理がうまく行かぬまま月日は過ぎ
そして月日とともに写真が増えていく

そんな中、ようやく便利そうな方法を見つけました。
先人の知恵に感謝です。


詳細な手順は別途まとめるとして
今日は参考サイトのリンクのみ貼り付け

リンク貼って良いか、まだ確認中なので
検索キーワードのみ
「Pythonで写真や動画ファイルを整理する」

Qiitaの登録はどのアカウントが良いのだろう？

いつもお世話になっているから、自分からも発信しなきゃね

と思い、

Qiitaで　アカウント登録しようとしてみた。

すると

　GitHub

　Twitter

　Gmail

と3種のどれでもOAuthできるみたい。

どれで登録するのが一番良いのだろうねぇ

逆に悩むよ

[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,"/",""))))))

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