献血10回目記念品

こんな感じでした。
綺麗だけど、家でお酒をほとんど飲まないので、他のものと選べると嬉しかったかな。
調べたら、20回、30回と色違いが続くらしい・・・うーむ。

はるやま商事のi-shirt（アイシャツ）がいい感じ

公式HP

ストレッチだから、肩がこらない。軽い、しわにならずにアイロンがいらないと、いいことづくめ。
触感が少し冷たいのと袖口が固い以外はほとんど不満のない商品。
昔オーダーで作ったワイシャツよりも、疲れないのはすごい。

テンションが上がったので、はるやま商事の株を買ってみた。年に一回シャツを一枚もらえるそうなので、シャツはずっとこれでいけるかも。

美人はみんなやっている○○の習慣 ←これ

美人がやっているからといって、その習慣のおかげで美人なのかは、わからない。
○やったから美人なのか
○やらなくても美人なのか
が不明瞭だからだ。

したがって、美人になる方法を探していくためには、
不美人が行っている習慣をヒアリングし、
「美人にならない習慣」を集計して除外するのが大切である。

（美人が行っている習慣は、特に不美人にならない習慣としては有用である）

アダム・サヴェッジ: コスプレへの愛・・・の感想

Japanese translation by Yasushi Aoki, reviewed by Claire Ghyselen.

怪しい伝説のアダム・サヴェッジのトーク。彼の情熱は子供の頃に作ったダンボールの宇宙服から、プロディーサーとしての仕事に生かされ、
コミコンでの活動につながっている。
愛と銘打つからにはその情熱は半端ではなく、コスプレへの話題になると一層大きな声になるのが嬉しくなるところ。
全体的にジョークが散りばめられたトークはテンポよく進み、何も考えずに最後の『千と千尋の神隠し』の話まで流れていく。
コミコンというものをよく知らなかったのだけれど、アダムの話では参加者の多くがコスプレをロールプレイングのツールとして使っているのが察せられる。
集まったオタクの方々が世界観を共有するイベントであり、その門扉としてコスチュームがあるのだと、アダムは語る。
遠巻きに見る・ネットで写真を目にすることしかなかった僕は、残念ながらまだ味わったことのない経験だ。

演じる人・見る人・撮る人の割合が、日本と違うのだろう。
例えば僕がコスプレをやる・見に行く・撮る・・・と考えても
「ちょっと引かれないかな」「写真撮られて同僚に見られたらどうしよう」「声をかけるのが恥ずかしい」
といった発想が自分に染み込んでいるのがわかる。
楽しんだもの勝ち、凄いと思ったらすぐに受け入れたたえる。イベント上手な彼らが、素直にうらやましい。
スタンディングオベーションはなし・少なめ

【vbs】ダウンロードが終了したらシャットダウンするプログラム（案）

なんとか便とかで数ギガ単位のファイルをダウンロードしなければならず、
ダウンロードが終わるまで帰れない・・・という時のために。
ダウンロードフォルダのサイズを監視して、サイズが更新されていればカウントダウンをリセットするというもの。
ただ、ダウンロードが続いていてもフォルダサイズが更新されないことがある。
要修正かな。

Dim monitorFolder
Dim lastSize
Dim currentSize
Dim shutDownCount
Dim WSH
Dim fso


Call selectFolder

Sub selectFolder()

    Set objShell = WScript.CreateObject("Shell.Application")
    lastSize = 0
    shutDownCount = 10
    Set monitorFolder = objShell.BrowseForFolder(0, "監視するフォルダを選択してください", 0)
    If monitorFolder Is Nothing Then Exit Sub
    Call repeat

End Sub

Sub measureFolder()

    Set fso = CreateObject("Scripting.FileSystemObject")
    currentSize = fso.GetFolder(monitorFolder.Items.Item.Path).Size
    Set WSH = CreateObject("WScript.Shell")
    If currentSize <> lastSize Then
        lastSize = currentSize
        shutDownCount = 10
        Else
        shutDownCount = shutDownCount - 1
    End If

    If shutDownCount = -1 Then
        Call shutdownevent
    Else
        Set WSH = CreateObject("WScript.Shell")
        WSH.Popup "shutdown :" & shutDownCount & " " & lastSize & " / " & currentSize   , 5, "count down", vbInformation

        Call repeat
    End If

End Sub

Sub repeat()

    WScript.Sleep 60000
    Call measureFolder()
    'Range("B3").Value = shutDownCount
    'Application.OnTime Now + TimeValue("00:01:00"), "measureFolder"

End Sub

Sub shutdownevent()

Set ws = WScript.CreateObject("WScript.Shell")
ws.Run "%WINDIR%\system32\shutdown.exe -s -t 60", 0

    Set WSH = Nothing

End Sub

【VBA】カレンダー作成マクロ

列に並んだ要素を組み合わせて、indesign用のテーブルを作成する仕事があったので、慣れないエクセルを使って作ってみた。
Aの列に日付、B～Fの列に六曜やら九星やらの情報が入っているとする。
それらを組み合わせて、カレンダーを作る。

Sub カレンダー()

Dim hidari As Variant
Dim migi As Variant
Dim currentMonth As Integer
Dim currentRow As Integer
Dim endcell As Integer
Dim readRow As Integer

endcell = Cells(Rows.Count, "A").End(xlUp).Row

hidari = Array("H", "J", "L", "N", "P", "R", "T")
migi = Array("I", "K", "M", "O", "Q", "S", "U")

currentMonth = 1
currentRow = 1 'カレンダーを作る行
Range("H" & currentRow).Value = "日"
Range("J" & currentRow).Value = "月"
Range("L" & currentRow).Value = "火"
Range("N" & currentRow).Value = "水"
Range("P" & currentRow).Value = "木"
Range("R" & currentRow).Value = "金"
Range("T" & currentRow).Value = "土"

currentRow = 2
readRow = 1 '読み取る行

    For readRow = 1 To endcell
    tmpMonth = Month(Range("A" & readRow).Value)
    If currentMonth <> tmpMonth Then
        currentRow = currentRow + 3
        Range("H" & currentRow).Value = "日"
        Range("J" & currentRow).Value = "月"
        Range("L" & currentRow).Value = "火"
        Range("N" & currentRow).Value = "水"
        Range("P" & currentRow).Value = "木"
        Range("R" & currentRow).Value = "金"
        Range("T" & currentRow).Value = "土"
        currentRow = currentRow + 1
        currentMonth = currentMonth + 1
    End If
    Range(hidari((readRow - 1) Mod 7) & currentRow).Value = Day(Range("A" & readRow).Value)
    Range(migi((readRow - 1) Mod 7) & currentRow).Value = Range("B" & readRow).Value & vbLf & Range("C" & readRow).Value & vbLf & Range("D" & readRow).Value & vbLf & Range("E" & readRow).Value
    Range(hidari((readRow - 1) Mod 7) & (currentRow + 1)) = Range("F" & readRow).Value
    If readRow Mod 7 = 0 Then
        currentRow = currentRow + 2
    End If
    Next readRow

End Sub

【Atom】ファイルを必ず新規タブで開きたい

プレビュータブを使うのチェックを外す。
ぐぐっても
Allow Pending Pange Items
を・・・と出るので、一応メモ。