ChaichanPapa-World !

燈明日記(2007/01

◆ インデックス

◆ 2007年1月

■ 2007-01-31 秀丸矩形コピー&EXCEL列ペースト

たとえば、データをDBからTSVまたはCSVでテキストに落とし、とある列のデータだけ欲しい場合、秀丸の矩形コピーが使えます。


具体的には、Altキーを押しなが矩形(列のデータ)をドラッグするとそれがセレクトされます。そしてそれをコピーします。


つぎに、それをEXCELシートにペーストし、あとは、EXCELの機能でサム(合計)したり、ソートしたり、マージしたりetc。

■ 2007-01-30 EXCEL-VBAでのソートについて

普通、VBAでのソートは、行やセルをセレクトし、Sortメソッドでソートします。

Sortメソッドの引数の説明はマニュアルにゆずり、癖をちょっと…。


Sortメソッド内部では、基本的にSJISで処理され、同じ文字なら半角大文字、半角小文字、全角大文字、全角小文字が同等に扱われる。

また、以下のように、ふりがなが優先される。



ちなみに、Sortメソッドを使わず、ロジックでソートするとUnicodeで処理されるために、Sortメソッドの結果と一致しません。

■ 2007-01-29 VB6での漢字コードについて

VB6での漢字コードは、内部的にUnicodeで処理され、ファイル入出力や DLLへの引数の受け渡しの際に、文字列変数の内容は Unicode とANSI コード及び Shift JIS コード間での変換が行われる。


つまり、入力データがShift JISでも、VB6ではそれをUnicodeに変換して処理をし、出力の際に、Shift JIS変換して出力データにする感じです。



尚、VB6(Unicode)でソートした結果とEXCEL(Shift JIS)のSortメソッドでソートした結果は、扱うコードが違うので当然一致しません。

■ 2007-01-29 導師-U

昨日は、寒修行:法華経9番『授学無学人記品』の導師のお役を無事果たすことが出来ました。

最低3ッ個所は、噛んでしまいましたが、バックに助けれて、気持ち良く読誦することが出来ました。


本番直前は緊張で、頭が真っ白になってしまって、全く読めなくなってしまう不安がよぎり……。

しかし、バックに助けれながら、流れるように、本当に気持ち良く読誦することが出来ました。よかったよかった。


導師なので自分が引っ張らなくては…、という気持ちを途中で捨てて、バックの皆さんと一緒にと思った瞬間から、なぜか、凄く気持ちよく読誦ができました。やはり、ハーモニーが大切なのだなと改めて思いました(合掌)。


■ 2007-01-29 Mr.Adults

Mr.ChildrenでなくてMr.Adultsです。

出てくるオヤジ達、凄くいい、なんか自分を重ねてしまう。

今一番、はまっている曲です。


作詞:桜井和寿    作曲:桜井和寿

ねぇ くるみ

この街の景色は君の目にどう映るの?

今の僕はどう見えるの?

ねぇ くるみ

誰かの優しさも皮肉に聞こえてしまうんだ

そんな時はどうしたらいい?

良かった事だけ思い出して

やけに年老いた気持ちになる

とはいえ暮らしの中で

今 動き出そうとしている

歯車のひとつにならなくてはなぁ

希望の数だけ失望は増える

それでも明日に胸は震える

「どんな事が起こるんだろう?」

想像してみるんだよ

ねぇ くるみ

時間が何もかも洗い連れ去ってくれれば

生きる事は実に容易い

ねぇ くるみ

あれからは一度も涙は流してないよ

でも 本気で笑う事も少ない

どこかで掛け違えてきて

気が付けば一つ余ったボタン

同じようにして誰かが 持て余したボタンホールに

出会う事で意味が出来たならいい

出会いの数だけ別れは増える

それでも希望に胸は震える

十字路に出くわすたび

迷いもするだろうけど

今以上をいつも欲しがるくせに

変わらない愛を求め歌う

そうして歯車は回る

この必要以上の負担に

ギシギシ鈍い音をたてながら

希望の数だけ失望は増える

それでも明日に胸は震える

「どんな事が起こるんだろう?」

想像してみよう

出会いの数だけ別れは増える

それでも希望に胸は震える

引き返しちゃいけないよね

進もう 君のいない道の上へ

■ 2007-01-28 EXCELでセル合計オペレーション

EXCELを使っていると複数のセルの合計を求めたい時があります。

最近、やっとそれをマスターしました。


複数のセルを選択して、『Σ』ボタンをクリックすると、選択した中に数値があれば、それが合計されます。その合計は、選択したセルの一番下の、その下に式で表示される。

■ 2007-01-28 導師

今日、夕方から某教会で、寒修行の法華経9番『授学無学人記品』の導師を務めます。

実は、メジャーなイベントの導師は初めてです。やば! 導師なんて、ドウシよう…。

■ 2007-01-27 WithEventsキーワードとは

EXCELのVBAは、当然、EXCELのイベントが拾えます。

しかし、VB6からEXCELのイベントを拾うにはどうしたらよいでしょうか…。

それには、WithEventsキーワードを使います。

ちなみに、WithEventsキーワードは、標準モジュール内では使えません。

また、Excelを使う場合は、参照設定でそのObject Libraryをチェックする。

'クラスモジュール---------------------------------------
'
'Class1:WithEventsキーワードテストサンプルクラス
'
'-------------------------------------------------------
Private WithEvents xlsApp   As Excel.Application
Private bokWork             As Excel.Workbook
Private shtSheet            As Excel.Worksheet
Private Declare Sub Sleep Lib "kernel32" (ByVal dmMilliseconds As Long)
Private intFg As Integer    '初回フラグ

Private Sub Class_Initialize()
    '
    '初期処理:インスタンス時に呼ばれる。
    '
    intFg = 0
    Set xlsApp = CreateObject("Excel.Application")
    Set bokWork = xlsApp.Workbooks.Open(App.Path & "\" & App.EXEName & ".xls")
    Set shtSheet = bokWork.Worksheets("sheet1")
    bokWork.Activate
    shtSheet.Activate
End Sub

Private Sub Class_Terminate()
    '
    '終了処理:インスタンスNoting時に呼ばれる。
    '
    xlsApp.Quit
    Set shtSheet = Nothing
    Set bokWork = Nothing
    Set xlsApp = Nothing
End Sub

Private Sub xlsApp_WorkbookOpen(ByVal Wb As Excel.Workbook)
    '
    'ブックオープン時に呼ばれる。
    '
    MsgBox "イベントキターーーーーーーーーー"
    '初回の自分の起動以外は、起動されてもクローズする。
    If (intFg <> 0) Then
      Wb.Close
    Else
      intFg = 1
    End If
End Sub

Public Sub dmy()
    '
    'ブックオープン時に呼ばれる。
    '
    Dim i As Integer

    For i = 1 To 10
        DoEvents
        shtSheet.Cells(i, 1) = i
        Sleep 1000
    Next
    bokWork.Save
End Sub
'標準モジュール-----------------------------------------
'
'WithEventsキーワードテストサンプルプログラム
'
'-------------------------------------------------------
Sub main()
    '
    'メイン処理
    '
    Dim objClass1 As Object
    
    'クラスClass1をインスタンスする。
    Set objClass1 = New Class1
    
    'dmyメソッド実行する。
    objClass1.dmy
    
    'インスタンス破棄する。
    Set objClass1 = Nothing
End Sub
処理概説

EXCELは、MDIアプリケーションです。

全く関係のない複数のブックを起動すると『同一 Excelアプリケーション内』となって、影響し合う場合があります。

そこで、影響が想定される場合は、後から起動されたブックを即座にクローズさせれば、影響回避ができるわけです。

上記の処理は、自ブックのシートのセルにデータを格納します。

格納中に自ブック以外がオープンされた場合、WorkbookOpenイベントを拾って、即座にそれをクローズさせます。


また、上記のイベント取得はEXCELウィンドウ内ですが、ブック内、シート内のイベントを拾うには以下のようにWithEventsキーワードを指定します。

Private WithEvents bokWork   As Excel.Workbook
Private WithEvents shtSheet  As Excel.Worksheet

■ 2007-01-26 スクリーンコピー

デスクトップ機では、PrintScreenキーでデスクトップ全体を、Alt+PrintScreenキーでアクティブウィンドウを、

画像データとしてコピー&貼り付けができます。


ノート機では、Fn+PrintScreenキーでデスクトップ全体を、Fn+Alt+PrintScreenキーでアクティブウィンドウを、

画像データとしてコピー&貼り付けができます。


尚、貼り付けは、ペイントやWORD等にペーストしてください。

■ 2007-01-26 100円の折りたたみ傘

会社の帰りに西調布駅を降りたら雨が……。

駅前の99ショップで傘をさがしたら、100円の折りたたみ傘がありました。


ビニール傘なら100円でもわかるけど、結構ましな、折りたたみ傘が100円!!

時代が変りましたね。

■ 2007-01-24 パソコンデスクから席を離れるときは……

パソコンの画面を見られたくないときは、『Windowsキーを押しながらDキー』で全ウィンドウを最小化する。

元に戻すには、もう一度『WINDOWSキーを押しながらDキー』を行う。


パソコンの操作をされたくないときは、『Windowsキーを押しながらLキー』でパソコンがロックされる。

元に戻すには『Ctrlキー、Altキーを押しながらDelキー』を行い、パスワードを入力する。

■ 2007-01-23 大バグ

今日、久々にプログラムで大バグを出してしまいました。

しかし、エンドユーザには影響がおよばず、不幸中の幸いでした。


『以後、最善の注意をはらいます』と、お詫びの文言をメールしましたが、心のどこかで虚しさが…。

だって、今までも何度も同じことの繰り返し、いつになったら成長できるのか…。


もっと、意識を高くして、もっとアンテナ(何)をはって、仕事をしないと、また、例のリ……(謎)。

■ 2007-01-23 Fnキーってなに?

普通、ノートパソコンだけのキーで、デスクトップ機にはありません。

そう、キーボードの一番左下あるキーです。


Fnキーは、このキーの色と同じ色をした他のキーを併用して使います。

たとえば、F3,F6,F8,F9等を併用して、音のボリュームや画面の明暗の調整に使っているみたいです。

また、矢印キー4つは、各々デスクトップ機のHomeキー、Endキー、PageUPキー、PageDownキーに対応している場合もあります。

■ 2007-01-22 残念な思いファルコン

昨日ミニバスで、そしがやレッズに負けて、全国大会への道を絶たれたことが、

なぜか、一日経った今日、心に重くのしかかっています。

親子して放心状態です。仕事に身が入らなかったです。

やばい、早く、気合を入れなおさないと(謎)!!


保護者のお母さん方へ、お疲れさまでした。

あなたの苦労は決して無駄ではありません。

子供達にも、監督、コーチにもちゃんと届いていますよ。

将来、違った形で、きっと報われると思います。

なんたって、『良いことをすれば、良い結果が生まれる』、これ真理ですから!

■ 2007-01-22 アプリケーションキーってなに?

アプリケーションキーって何でしょうか……。

マウスを使ってWINDOWSを操作している人は、たぶん知らないと思います。

しかし、マウスを使わない人は、当然知、なのかもしれません。


キーボードには、普通、コントロールキーが左側と右側に2つあります。

右側のコントロールキーの左隣りがアプリケーションキーです。

そう、縦長の四角形のマークがついているキーです。


このキーは、マウスの右クリックメニューと同等の機能です。

つまり、マウスを使ってWINDOWSを操作している人には、なじみのないキーなのです。

実は、私も知らなかったので、ここに紹介させて頂きました。

■ 2007-01-21 お疲れさま!ファルコン関係者!!

今日、東京の深川スポーツセンターでミニバス鈴木正三杯(全国大会予選)がありました。

東京都ベスト16が集まり、我がファルコンも参加しました。


一回戦は、順当に勝ち進み、ニ回戦で深川との激戦を征した そしがやレッズに接戦で敗退……。

でも、東京都ベスト8に入りました! お疲れさま!!


宮城、清瀬、光華、深川等の強敵揃いの大会だったので、よくやりました!

ファルコン関係者の皆様、あまりがっかりしないで、関東大会に行けただけでも素晴らしいです。


あとは、三鷹大会で子供達にいい思いをさせて、つぎは、三鷹7中劇場の幕開けですよ!

■ 2007-01-21 Windowsキーってなに?

Windowsキーて何でしょうか……。

キーボードには、普通、コントロールキーが左側と右側に2つあります。

左側のコントロールキーの右隣りがWindowsキーです。

そう、Windowsロゴマークがついているキーです。

単独では、スタートメニューを開きます。

他のキーと組み合わせて使用する事により、以下の操作が出来ます。

■ 2007-01-20 WEBアンテナデザイン変更

久々に、スタイルシート(CSS)を駆使してデザインの変更をしました。

この燈明日記と同じようにサイドにリンク集をもってきました。

思うようにスタイルシートを使いこなすのは、大変ですね。改めて、そう感じました。

■ 2007-01-20 ダブルクリックしないでファイル名を変更

普通のエクスプローラでファイル名を変更する時は、ダブルクリックでなく、クリックをゆっくりと2回してから行います。

しかし、あせっていると、ついダブルクリックしてプログラムを起動してしまいます。

そのような時は、ファイル名を1回クリックし、F2キーを押すとファイル名の変更ができます。

■ 2007-01-19 EXCELでSDI風の起動(ブッククリック起動で別ウィンドウでの起動)

EXCELは、MDI(Multiple Document Interface)アプリケーションです。

全く関係のない複数のブックを起動すると『同一 Excelアプリケーション内(同ウィンドウ内)』となって、影響し合う場合があります。

そんな時は、1ウィンドウ1ブックのSDI(Single Document Interface)風に別ウィンドウで起動されるとあり難いと思うわけです。

以下にその設定方法を示します。

注意点としては、ログオンユーザ単位の設定でなく、すべてのユーザに対しての設定になります。

以上。

■ 2007-01-18 「mixiモバイル」、1日で1億PVを突破

mixiの携帯電話向けサービス「mixiモバイル」、1日で1億PVを突破

携帯からインターネットをする時代が本格的にやって来ましたね!

■ 2007-01-18 ファイル入出力はFreeFileを使おう!

普通、VB6 or VBAでファイル入出力の処理をする時に、ファイル番号を任意に割り振ります。

しかし、処理するファイルが沢山になってくると、ファイル番号の管理が大変になってきます。

そのような時は、FreeFile関数のリターン値を使うと、今空いているファイル番号で処理することが出来ます。

つまり、ファイル番号の管理を意識する必要から開放されるのです。

   Dim intFileNumber As Integer

   intFileNumber = FreeFile                     ' 未使用のファイル番号を取得します。

   Open "TEST.txt" For Output As #intFileNumber ' ファイルオープンします。
   Write #intFileNumber, "これはサンプルです。" ' 文字列を出力します。
   Close #intFileNumber                         ' ファイルをクローズします。

■ 2007-01-17 迷惑メール54億通 容疑の「出会い系」社長ら逮捕

月に約1億2000万円の売り上げがあったという

オイ、そんなに儲かるの!

■ 2007-01-17 右クリックメニューを使わず、新しいウインドウでリンク先表示!

■ 2007-01-16 ホワイトカラー・エグゼンプション

ホワイトカラー・エグゼンプションとは、日本語の意味で残業代ゼロ法案。

エグゼンプションは、プログラム言語のエグセプション(例外処理)に似ているけど、やはり除外のこと。

要は、残業を沢山している高収入の人を平社員から除外して、管理職と同じように残業代なしで働かせること。

しかし、通常国会提出を断念した模様。

まぁ、当然だろう。年収からいったら、残念ながら私には全く関係ないけど…。

■「2ch.net」ドメイン差し押さえ?

しかし、掲示板で年収1億円とは、驚いたなぁ。

WEB相談室の約1000倍やな(謎)。

■ 2007-01-14 ファルコンスタッフへ感謝の気持ち

今回、ミニバス関東大会にあたって、群馬に選手(子供達)約20名を2泊3日させました。

監督、コーチはもちろん世話役のお母さん方に、心からの感謝をいたします。ご苦労様でした。

9月24日に、東京2位になって関東大会出場権を獲得して以来、監督、コーチ、子供達、お母さん達が一丸となってことにあったてきました。


お陰様で、マチャも家内も私も良い思いができました。ありがとうございました。


本当はやさしいのに心を鬼して練習にあたる監督とコーチ。

その厳しい練習に耐える子供達。

それを見守るお母さん達。


だからこそ、通じ合う一体感、すばらしい!!

■ 2007-01-13 群馬アリーナへとデート

1月8日(日)に前橋の群馬アリーナでミニバスケットの関東大会決勝がありました。

うちの三男・マチャがファルコンというチームで、前日2連勝して1位リーグへ決勝出場となりました。

私とママの2人で、1位リーグを見に東京(三鷹)から4時間掛けて群馬アリーナへ行ってきました。


前日にネットで武蔵境駅から前橋駅までの経路と運賃を調べて、プリンタがないのでメモしました。

そしてあくる日、ママと2人で朝7:20に家を出ました。マチャの試合は12:00スタートです。


私とママは、都内や旅行に行くことが全くなく不慣れで、電車の乗り換えホームや発車時間で、あたふたあたふた……。

ネットで調べたメモは、ほとんど役にたたなかったです。

とにかく、駅は広く、電車が沢山で、何番線か分からず、あたふたあたふた……。

結局、新宿から赤羽で東北線に乗り換えて、約10:50に前橋駅へ、前橋駅から群馬アリーナへのバス停がわからず、あたふたあたふた……。

…てな感じでやっと試合開始10分前に群馬アリーナに着くことができました。よかったよかった。


ママからは、昨日ネットで調べて『これかよって』感じで責められるし…。

しかし、車中では、ママと沢山お話が出来てよかったよかった。

たまには、夫婦揃っての旅はいいものです。


群馬アリーナは、バスケットコートが4面入り、外見は代々木体育館を一回り小さくした感じでした。

小さいといっても、体育館としては大きいです。代々木と比べると小さいだけです。


で、試合の方ですが、一回戦は埼玉1位の『新宿』というチームで、大きい子ばかりで大差で負けました。

2回戦は栃木1位の『佐野』で、このチームは全国一番と言われています。

しかし、前半は互角の勝負で、後半は集中力が切れて負けてしまいました。

結局、関東3位ですが、それでも快挙です。


…ということで、マチャのお陰様で、あたふた喧嘩したり、仲良くお話できたり、結構良いデートが出来ました。

マチャ君、ありがとう。マチャ君の頑張りが、ママと私の生きる糧です。これからも頑張れファルコン!!

そうそう、今月の21日からミニバス全国大会の予選が始まるらしいです。今度は全国制覇だファルコン!!

■ 2007-01-12 ちゃいちゃんパパの法則

大殺界です。

なぜか、そうなるのです。私だけ…。

■ 2007-01-12 Google パーソナライズド ホーム

Googleホームページの右上にある『パーソナライズド ホーム』をクリックしてみて下さい。

この『パーソナライズド ホーム』凄いです。

これ、WEBページの常識破りや! すごい!

■ 2007-01-11 グーグル革命の衝撃

単なる忘れないためのメモです。


『グーグル革命の衝撃 〜あなたの人生を“検索”が変える〜』

2007年1月21日(日) 午後9時00分〜9時49分

総合テレビ



まとまった、時間が取れない(謎)……。

■ 2007-01-10 いろいろと忙しい

いろいろあって、日記を書く時間がないです。

とりあえず、メモします。

■ 2007-01-09 仕事始め

今日は、仕事始め。いきなり残業となって、疲れました。

実は、家内と二人で群馬の前橋(ミニバス関東大会)へデートした話しなどしたいのですが次回に…。

■ 2007-01-08 ファルコン、ミニバス関東大会3位&フリースロー大会1位!!

今日、前橋の群馬アリーナでミニバスケットの関東大会決勝がありました。

ほしくも、我が息子(三男)が居るチーム:ファルコンが関東3位となりました。

ちなみに、フリースロー大会は、関東1位でした。

我が息子、ゲーム中でのフリースローで10本中9本を決めたとのことで、お母さん方がべた誉めでした。

とにかく、子供が頑張っているので、親も頑張らなければ……ならん。

ママには、何よりのクスリになったようです(謎)。

(まだ、今日(1/8)の結果がアップされていないけど)

■ 2007-01-07 御親教

今日は、某教会で御親教というイベントがあり、いろいろ善い話を聞いてきましたのでここにメモしておきます。

とにかく、自らを信じて、すべてのことにあたる。

そして、感謝して、すべてのことにあたる。

そう、『自信』と『感謝』の2本柱で今年は乗り切って行こうと思います。

■ 2007-01-07 人の死にかたは、その人の生きかたが表れる

1月2日にとある知り合いのお婆さんが亡くなりなした。

このお婆さんは、某教会の教えを大変実行した方で、お子さんは教会長までしています。

元旦に親戚がみんな集まり、子供や孫、ひ孫達との団欒後、その日の夕方に気分が悪くなって、あくる日に、大きく息をしたあと急死したとのことです。

元旦までは、お元気だったとのことです。


急死ということで、大変驚きがあったのですが、ある意味、まわりに全く迷惑を掛けずに、親戚全員に見守られながら亡くなったのです。


実は、去年の同じ日の1月2日に私の父が亡くなりました。それはそれは、亡くなるまで大変でした。

『人の死にかたは、その人の生きかたが表れる。』という言葉、まさに真実です。実感をもって聞きました。


私は、父を反面教師にして、ワガママをせず、周りに迷惑をかけないように(特に子供達へ)、

良い死にかたができるように生きていこうと思います。

■ 2007-01-05 明けまして、おめでとうございます!

昨年は、父が1月2日に亡くなりました。

今日は、年が明けての1月5日なので喪中があけました。

今年こそは、私にとって良き年にしていきたいと思います。

■ 2007-01-05 今年の抱負

■ 2007-01-05 今年のキーワード

それは、『感謝』です。

そう、『すべての幸福は、感謝の気持ちがつくる』です!


今年は、気学では、九紫火星が凄く運勢が良い年とのことです。

なので、気学を信じてがんばります(謎)!

では、今年もよろしくお願いいたします。

■ 2007-01-05 燈明日記過去ログ整理

http://chaichan.lolipop.jp/src/shikan6.htm

秀丸の置換機能を駆使して、インデックス等を加えたりしました。

しかし、上手くタグ付き正規表現で、置換が出来た時は、気持ちいい…。

■ 2007-01-01 燈明日記過去ログ整理

燈明日記(2006/12)

今年もよろしくお願い致します。