パイオニア、再生支援機能を搭載したスリム型ポータブルDVDドライブ--薄さ18.9mm:ニュース - CNET Japan

リンク: パイオニア、再生支援機能を搭載したスリム型ポータブルDVDドライブ--薄さ18.9mm:ニュース - CNET Japan.

パイオニア、再生支援機能を搭載したスリム型ポータブルDVDドライブ--薄さ18.9mm

ある意味タイムリーなニュース

CapsLock・英数 キー の英数キーの使い方

リンク: キーボードのキーの働きについて (1).

《CapsLock・英数 キー》

［shift］キーを押しながら［CapsLock・英数］キーを押すと、Caps Lockランプが点灯し、アルファベットの大文字が入力できる状態になります。
モードを解除するには、もう一度［shift］キーを押しながら［CapsLock・英数］キーを押します。
また、日本語入力システムがオンのときに［CapsLock・英数］キーを押すと英数字モードになります

英数キーの使い方知らなかった。

私たち、トラックボールじゃなきゃダメなんです！

リンク: 私たち、トラックボールじゃなきゃダメなんです！.

北村：俺はマイクロソフトの「Trackball Explorer」（2001年4月発売、販売終了）を今でも使っています。使い始めたのはこれより前世代の、「Intellimouse Trackball」（1997年11月発売、販売終了）からですね。もう7年以上はトラックボールです。

え～、Trackball Explorer販売終了なの。
こいつは愛用のトラックボールなのですが、おそらく2001年の終わり頃から使っているのでかれこれ8年選手になります。ボールの受けの金属部分がかなり摩耗しており、寿命も近づいていますが、こいつに横スクロール機能が付いた後継機種が出るまで大事に使うことにします。

asahi.com（朝日新聞社）：エルマガジン、２月号で休刊へ 関西情報誌の老舗 - 社会

リンク: asahi.com（朝日新聞社）：エルマガジン、２月号で休刊へ　関西情報誌の老舗 - 社会.

同誌は７７年創刊。関西情報誌の草分け的存在で、東京の出版社が発行する情報誌が関西に進出してきた後も、手厚い地域情報で存在感を発揮してきた。最盛期 の８３年ごろには約１５万部の実売部数があったが、近年はインターネットやフリーペーパー（無料情報誌）の普及で苦戦していた。

エルマガジン

が休刊するそうだ。関西に住んでいたのは、情報誌など必要のなかった高校生までだったので、実際に読んだことはないのだけど、ヤンタンでコマーシャルされていたので、よく覚えています。東京ではTOKYO WALKERは元気(に見える)けど、中小の商業誌はフリーペーパーに押されているんですね。

ハチ公バス

ハチ公バスに乗って、広尾一丁目から渋谷駅西口まで移動しました。
途中、代官山の鉢山町も通過しましたが、旧NTT関連のビルに「はてな」の表札がありました。
はてなの東京オフィスはここだったんですね。

一番後ろの席からの電話です。狭いですね。

海老蔵はかっこいい

新橋演舞場に歌舞伎を見に行きました。

リンク: 歌舞伎美人 | 新秋九月大歌舞伎の演目と配役.

新橋演舞場 新秋九月大歌舞伎 平成20年9月1日（月）～25日（木）

昼の部

一、源平布引滝（げんぺいぬのびきのたき）

• 義賢最期
• 竹生島遊覧
• 実盛物語

二、枕獅子（まくらじし）

3年ほど前に歌舞伎座の幕見席でみたことがあるのですが、今回は2等席 (通常1万円が、会社の補助で5000円でした。団体観劇扱いだったのかも。)で観劇。

2階左側2列目の席だったので、花道は見えません。席は舞台ではなく、まっすぐ反対側の座席に向いているので、首を曲げての鑑賞ですっかり首がこってしまいました。

事前にWebで筋書きを確認・プリントアウトして持参したので、イヤホンもなくても、内容はよくわかりました。

それにしても、義賢・実盛役の海老さまはかっこいいですね。美形なだけでなく、声もいい。そりゃ、米倉涼子もメロメロになるわけだ。

あほ入店禁止

東京阿波おどり見物客の乱入を避けるため、本日休店です。

[マクロ]上のセルの値で空白セルを埋める

上のセルの値で空白セルを埋めるExcelVBAマクロです。
c.textには代入できないので、"c.Value="にする必要があります。


Sub FillInCells()
For Each c In Selection
If c.Text = "" Then
c.Value = c.Offset(-1, 0).Text
End If
End Sub


チェブラーシカ

着ぐるみって言うな！

ガントチャート色塗り(超ハードコーディング)

EXCELで作るガントチャート色塗りマクロ(超ハードコーディング)

2行目に日付
3列目に開始日
4列目に終了日


Sub PaintGanttChart()
For r = 4 To 136
If ActiveSheet.Cells(r, 1) = True Then
For col = 7 To 60
ActiveSheet.Cells(r, col).Interior.ColorIndex = xlNone
If ActiveSheet.Cells(2, col).Value >= ActiveSheet.Cells(r, 3) _
And ActiveSheet.Cells(2, col).Value <= ActiveSheet.Cells(r, 4) Then
ActiveSheet.Cells(r, col).Interior.ColorIndex = 35
End If
Next
Else
For col = 7 To 60
ActiveSheet.Cells(r, col).Interior.ColorIndex = xlNone
Next
End If

Next
End Sub