DaichanUpdate

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

Daichan — 2009-04-23T23:39:31+09:00

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

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

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

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

Daichan — 2008-11-20T01:07:19+09:00

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

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

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

Daichan — 2008-10-14T22:44:27+09:00

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

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

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

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

Daichan — 2008-10-14T22:24:24+09:00

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

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

エルマガジン

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

ハチ公バス

Daichan — 2008-09-23T12:22:20+09:00

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

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

海老蔵はかっこいい

Daichan — 2008-09-15T22:11:40+09:00

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

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

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

昼の部

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

義賢最期

竹生島遊覧

実盛物語

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

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

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

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

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

あほ入店禁止

Daichan — 2008-08-23T22:59:55+09:00

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

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

Daichan — 2008-07-22T23:13:59+09:00

上のセルの値で空白セルを埋める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

チェブラーシカ

Daichan — 2008-07-19T16:54:23+09:00

着ぐるみって言うな！

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

Daichan — 2008-07-13T20:36:38+09:00

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