パイオニア、再生支援機能を搭載したスリム型ポータブルDVDドライブ--薄さ18.9mm:ニュース - CNET Japan
リンク: パイオニア、再生支援機能を搭載したスリム型ポータブルDVDドライブ--薄さ18.9mm:ニュース - CNET Japan.
パイオニア、再生支援機能を搭載したスリム型ポータブルDVDドライブ--薄さ18.9mm
ある意味タイムリーなニュース
リンク: パイオニア、再生支援機能を搭載したスリム型ポータブルDVDドライブ--薄さ18.9mm:ニュース - CNET Japan.
パイオニア、再生支援機能を搭載したスリム型ポータブルDVDドライブ--薄さ18.9mm
ある意味タイムリーなニュース
リンク: キーボードのキーの働きについて (1).
《CapsLock・英数 キー》
[shift]キーを押しながら[CapsLock・英数]キーを押すと、Caps Lockランプが点灯し、アルファベットの大文字が入力できる状態になります。
モードを解除するには、もう一度[shift]キーを押しながら[CapsLock・英数]キーを押します。
また、日本語入力システムがオンのときに[CapsLock・英数]キーを押すと英数字モードになります
英数キーの使い方知らなかった。
リンク: 私たち、トラックボールじゃなきゃダメなんです!.
北村:俺はマイクロソフトの「Trackball Explorer」(2001年4月発売、販売終了)を今でも使っています。使い始めたのはこれより前世代の、「Intellimouse Trackball」(1997年11月発売、販売終了)からですね。もう7年以上はトラックボールです。
え~、Trackball Explorer販売終了なの。
こいつは愛用のトラックボールなのですが、おそらく2001年の終わり頃から使っているのでかれこれ8年選手になります。ボールの受けの金属部分がかなり摩耗しており、寿命も近づいていますが、こいつに横スクロール機能が付いた後継機種が出るまで大事に使うことにします。
リンク: asahi.com(朝日新聞社):エルマガジン、2月号で休刊へ 関西情報誌の老舗 - 社会.
同誌は77年創刊。関西情報誌の草分け的存在で、東京の出版社が発行する情報誌が関西に進出してきた後も、手厚い地域情報で存在感を発揮してきた。最盛期 の83年ごろには約15万部の実売部数があったが、近年はインターネットやフリーペーパー(無料情報誌)の普及で苦戦していた。
が休刊するそうだ。関西に住んでいたのは、情報誌など必要のなかった高校生までだったので、実際に読んだことはないのだけど、ヤンタンでコマーシャルされていたので、よく覚えています。東京では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
Recent Comments