雑記帳

日常の出来事や、読んだ本のあらすじや感想など書いています。

EXCEL VEA イベント

2007-04-30 22:57:14 | コンピュータ
昨日の EXCEL VBA の問題は処理したいことが
クリックしたらではなく,入力がされたら,ということで
また作ってみました。
内容はセルB8に16進数の数字が入力されたらセルF8に
10進数の数字を書き込むというものです。
これです。イベントが発生したらこのルーチンを実行します。
'------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Address = "$B$8") Then
    Range("F8").Value = Val("&h" & Range("B8").Value)
  End If
End Sub
'------------------------------------------------

こちらが先輩が書いたもの。(勝手にのせてごめんなさい。)
いつもユニークなことを考える方です。
おもしろいです。
マクロのmacsubを走らせると自作の関数macfncをセルF8に
式として書き込んでセルB8 に移動してF8の関数を起動
させるわけです。
'------------------------------------------------
Sub macsub()
  Range("F8").Select
  Selection.HorizontalAlignment = xlRight
  Selection.Formula = "=macfun(B8)"
  Range("B8").Select
End Sub
'------------------------------------------------
Function macfun(hexa As String) As String
  If (hexa = "") Then
     macfun = ""
  Else
     macfun = Trim(Str(Val("&h" & hexa)))
  End If
End Function
'------------------------------------------------

だけど一番簡単なのはセルF8 に直接式を書いてやること。
たったこれだけですみます。

=IF(TRIM(B8)="","",HEX2DEC(B8))

関数を使うのは新入社員の教育用の教材ということが
あります。

普通休みにプログラムのこと考えるなんてことありません。
でも楽しいです。
また別の問題が届いています。

EXCEL VBA あるセルをクリックしたら

2007-04-29 11:45:15 | コンピュータ
昨夜 EXCEL の VBA で あるセルをクリックしたら
マクロが起動するようにするにはどうしたらいい
だろうという話しがでました。

セルをさわればイベントが発生するだろうから
そこに実行させたいマクロを書いたらいいのでは
ということまではなんとなくわかります。
では実際にコードを書けるかと言えば書けません。

気になって今日 EXCEL を立ち上げ HELP や
EXCEL VBA のサイトを探しまくって書いてみました。

ダブルクリックした時用と、右クリックした時用です。

毎日 VBA を書いていればすらすら書けるかもしれませんが
たまに書こうとすると、手が止まって長いこと考え
こんでいます。

'-------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' ダブルクリック
  If (Target.Address = "$C$3") Then
    
    Target.Interior.ColorIndex = 37
    MsgBox "選択したセル番地は " & Target.Address & "水色にします。"
  
  Else
    MsgBox "選択したセル番地は " & Target.Address & "色を変えません。"
  End If
 

End Sub
'-------------------------------------------------
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'右クリック
  
  If (Target.Address = "$B$2") Then
    
    set_color (Target.Address)
      
  Else
    MsgBox "選択したセル番地は " & Target.Address & "色を変えません。"
  End If

End Sub
'-------------------------------------------------
Private Sub set_color(add As String)

  Range(add).Interior.ColorIndex = 38
  MsgBox "選択したセル番地は " & add & "ピンクにします。"

End Sub


連休開始です

2007-04-28 22:01:18 | 日常の出来事
今日から連休です。9日間の休みです。
来年からは派遣先が休みでも本社の休日に合わせて
出勤だ、と言ってます。
そんなこと言ったってどこへ行って何をするんでしょう。
こんな長い休みはもうないかもしれません。

今日は恒例の床のワックスがけです。
去年からの恒例です。
きれいになりました。自己満足です。

夕方から昔の仕事仲間と同窓会です。
今年は少人数で4人でした。


近所の風景

2007-04-27 22:21:54 | 最近の話題
昨日はプラスチック、紙、缶、瓶のごみを
出す日でした。
いつも家を出ての左の道へ行くのだけれど、
ごみを持って右の道へ行きました。
2,3軒先の左手に突然畑が現れました。
えっ、こんな街の真ん中に畑あったっけ。
家のすぐそばなのにどんなだか知らなかったとは。

腰ぐらいの高さの網の塀になっています。
前ってどんな風だったのかいっしょうけん
めい思い出そうとしたのですが、はっきり
頭にうかんできません。
塀で向こう側が見えなかったのだと思うの
だけれど。

見てないもんですね。
自分ながらあきれました。

バイオガソリン

2007-04-26 21:02:58 | テレビ・新聞から
ニュースでバイオガソリンの販売が首都圏の
50店舗のガソリンスタンドで開始されたと
言っていました。
フランスからの輸入だそうです。バイオエタノールを
3%今までのガソリンにまぜるのだそうです。
今回輸入したものは小麦から精製したものだそうです。
費用はほんとは高いのですが、国やガソリン業者が
高い分を支払って普通のガソリンと同等の値段で
売られるそうです。

アメリカではとうもろこし、ブラジルではさとうきび
からバイオエタノールを精製してすでに販売されて
いるそうです。

石油資源の枯渇を防ぐためと、地球環境を守るための
目的で行われています。
いいことのように思われますが食料不足を引き起こす
懸念もされています。

日本には原料とする植物が不足しており進めるのが
困難ということです。
建築廃材を利用する等の研究が進められていくとの
ことです。

忙しくても幸せ

2007-04-25 20:45:28 | 日常の出来事
独立した人がいます。
久しぶりに職場で会いました。
個人で請け負って仕事をしているのです。

いつも定時で帰るのですが門のところでよく
出会います。
帰るのはやいんだと思ったら別のところへ
行って2つ目の仕事をするのだとか。
2つ目の仕事?私ならそんなこと,とんでもないと
思う所ですが、にこにこととてもうれしそうです。
体からやるぞ、という情熱がほとばしっています。
そんなふうに楽しそうに仕事できるのいいなぁ。

ビートルズの昔の映像をみました。
人気絶頂だったころのことを書いたものを読むと
寝る時間もなく世界中を駆け巡っていやだったと
いうふうに読み取れます。
でも昔の彼らの映像が書かれたことを裏切って
います。
だって彼らの歌っている時の笑顔、あれ、笑えって
言われて笑っているのではありません。
心底楽しくてしょうがないという笑顔です。
なあんだ、楽しんでいたんじゃないと思いました。

忙しくても、体がくたくたでも心は楽しいのですね。

MICRO CADAM のACCESS

2007-04-24 20:58:07 | コンピュータ
製図の手助けをしたり要素数を調べたりする
プログラムを作ることができます。
今回の話のCADは、MICRO CADAMです。
Ver3.18BとHelixというバージョンが混在してます。
Helixが導入された時、「ソースプログラムは
修正しなくてもいいです。コンパイルとリンクを
Helix用にやり直すだけです。」という話しでした。

ところがそんなわけにはいきませんでした。
入出力部分がまるで違っています。
しょうがないので修正をしています。

昔作った自分のプログラムを解読していて
へ~、こんなことやってるんだとびっくりです。
矩形に使用可能な120色のカラーを付けて表示
するというプログラムです。
この矩形、線で四角を作って塗りつぶしてある
のかなと思ったら 文字の四角 を6つ隣との
隙間なしで書いてあります。
もう一行、前の行と重なるように書いて太く
見せてあります。
■■■■■■ こんな感じで、隙間は無しです。
おもしろいことを考えるたものです。

でも今回はどうしようかなと思案中です。
線で囲って塗りつぶしにしてみようかな。

このソフトの名前が ACCESS です。
データベースのACCESSとは別物です。

仕事のミスでの損害は

2007-04-23 21:05:07 | テレビ・新聞から
仕事でミスした損害は弁償しなければならない
のかという記事が載っています。

仕事していてミスするということは付き物です。
弁償しろなんていわれたらびくびくしてしまって
仕事なんてできません。
なんて書いてあるのだろうと興味しんしんです。

皿を割ってしまったりつり銭を払いすぎてしまったり
するささいな不注意は、織り込み済みとみなされます。
損害賠償する必要はありません。

労働者に相当の落ち度がある場合は損害賠償をしなく
てはいけないケースがあります。
それでも全額賠償されられることはほとんどありません。
裁判では多くが1/2以下だそうです。
一方的に給料から差し引くのは「賃金の全額払い」の
原則に反し許されません。

身近なところで何千万の損害を出したという話しは
聞きます。
ちょっとしたミスで大損害がでます。
それでも社員に弁償せよとは言いません。
そりゃそうですよね、弁償せよなんて言われたら
いいものなんてできません。


MACアドレス

2007-04-22 17:28:07 | コンピュータ
「MACアドレスはどうやって調べるの」と
聞かれました。

コマンドプロンプトで

>ipconfig /all

で調べられます。

表示された情報の中の次のところです。
(これは参考ででたらめな番号です)

Physical Address. . . . . . . . . : 00-88-77-66-55-11

この番号は世界中で唯一の番号で、そのパソコンを
現します。

これを知ってどうするのという話しになるわけ
ですが、エンドユーザはこの番号なんだなと思う
ばかりです。

ユーザIDは変えることがことができますが
MACアドレスは変えられません。
パソコンを特定するのに大切な番号です。

考え方

2007-04-21 15:45:22 | 日常の出来事
契約を交わす前にどのように進めていくのか
ほとんどの提案は出し尽くされます。
でもこの提案をいっしょうけんけい考え出した
相手をふって、別の所へ持っていってただこの
通りに作成してくれるよう依頼することは
たぶん違法ではないでしょう。

でもしていいことではありません。
こういうことをしていると人は鈍感になって
していいことと、悪いことがわからなくなって
いきます。


ぱらぱらと見たい

2007-04-20 21:44:18 | コンピュータ
お友達から野の花の写真が送られてきました。
名前を知っていたら教えてくださいとの
メッセージ。
そこでインターネットの植物図鑑を見てみました。
いろいろあります。
どこもきれいな写真が載っています。

でもその花は全部見てもありませんでした。
あまり知られてない花なんでしょうね。

写真はきれいで楽しかったのですがめんどうです。
まだインターネットは本には勝てません。
ぱらぱら見ていくには印刷物の方がずっと楽です。
マウスでクリックしていくのはいらいらします。
スピードも遅いです。

でもきっとそんなに遠くないうちにぱらぱらと
見られるようになるにちがいありません。
漢字変換が出てくる前、そんなこと私が生きて
いるうちにできるわけがない、と思っていました。
ところが数年のうちに出てきました。
ほんとにびっくりしました。
その時、できないことはないのだと思うように
なりました。

できることならマウスを使わず声で「スタート」
「ストップ」、「前へ」、「進め」と言って使いたいものです。
今でも音声入力はあるのですから私も使ってみたいです。
でもこれは職場では使えませんね。みんなでこれ
やったらやかましくて仕事になりません。

マウスのカチカチはけっこう疲れます。

NMAKE : fatal error U1045

2007-04-19 20:37:18 | コンピュータ
C言語でプログラムをコンパイル、リンクする時は
総合開発環境なるものの上でするのが多いと
思います。
でもこれめんどうです。
簡単なプログラムならエディタで書いてバッチで
コンパイル、リンクした方が簡単です。
そう私は思う。(世間一般は思わない。)

その時使うのが NMAKE というソフトです。
コンパイル、リンクをやるように命令を書いておいて
走らせます。
これのすごいところはしなくちゃいけないことと、
しないでもいいことを調べて、しなくちゃいけないこと
だけやってくれます。

だけど今日は次のメッセージがでて実行しません。

NMAKE : fatal error U1045: 起動に失敗しました。 : Invalid argument

半日ああでもない、こうでもないと考えました。
アーギュメントが間違っているって。
いったい何のことだ。わけわからん。

もうお手上げでこのメッセージで検索をかけて
みました。
そしたらありました。
gooの"教えて"でやはりこのエラーで困っていた人の
質問に、答えている人たちがいます。
この質問者は解決してないみたいです。
でも私は解決しました!!

結論から言えば私の単純ミスです。
「コントロールパネル」-「システム」-「詳細設定」-
「環境変数」のシステム環境変数の
ComSpec %SystemRoot%system32\cmd.exe
に間違えて書き足してしまいました。
間違いに気づいて消したのはいいのですが
….exe; のように区切り記号の ; を消し忘れたのです。
こんなこと教えてもらわなかったら気づいたかどうか
わかりません。
セミコロン一つのため半日悩みました。

このエラーメッセージが出た時は環境変数
ComSpec を確認すること!


おそらくこのエラーメッセージを出す人は何年に
一人ぐらいでしょう。
でも私は過去の質問に助けられました。
いつか同じエラーで悩む人が現れるかもしれません
ので書き残すことにしました。

もしこのエラーを解決したくてここへ来られた方は
何年か先かもしれませんがコメント残してください。

発砲事件

2007-04-18 21:31:01 | 最近の話題
今日は寒かったです。最高気温14度とちょうど
書いている時ニュースで言いました。
まだ灯油が少し残っています。暖房入れてます。
3月12日に灯油を買ったと書きました。
それでお仕舞いにできなくてもう一度18リットル
買ってしまいました。
結局それも使い切りそうです。

16日にはアメリカの大学で32人が射殺される事件が
起きたばかりなのに17日には長崎で市長が撃たれて
亡くなりました。
なんでこんな事件ばかり起きるのでしょう。
なんともやりきれない。

行政対象暴力が多くなっているのだそうです。
行政に対して無理難題をふっかけるのだそうです。
暴力で物事を推し進めようなんて許せない。
暴力が恐くて発言も少なくなっているとか。
みんなが縮こまってしまっては暴力を振るう者の
勝ちになってしまいます。
そんなことにならないようにしなくては。




行方不明の本

2007-04-17 18:50:30 | 最近の話題
1週間ほど前に図書館へ本を借りに行ったら
「1冊がまだ返却されてませんよ。」
と職員の方に言われました。
「家に帰ったら探してみます。」
家に帰って探しましたがありません。
どこかへ潜り込んでしまうような場所は
ありません。
おかしいです。

図書館は家と職場の中間にあります。
返すのは朝に図書館へ寄ってポストに入れておきます。
もしかしてチェックを忘れて書棚に戻っているのでは
と思いました。

あくる日に図書館へ寄って返却したと思いますと
告げますと、職員の方がいっしょに書棚を探して
くれました。
ありませんでした。
「みんなに連絡して気をつけて探してみます。
家でももう一度探してみてください。」

その本をアマゾン等のインターネットの書店で
見てみますと表示します。廃盤にはなっていません。
最悪弁償することはできるのでひとまず安心しました。

今日また図書館へ寄ってみました。
「見つかりましたか。」
「貸し出しのデータが消えていますので見つかった
ようです。ご心配かけました。」
「よかった!」

ほっとしました。
今度から借りた本の数、返した本の数は覚えて
おくことにします。
そしてポストに返却は止めます。

セカンドライフ

2007-04-16 21:59:32 | コンピュータ
今"セカンドライフ"が流行っているそうです。
テレビ、新聞でニュースで紹介されています。
コンピュータの中の仮想の都市にアバターと
呼ばれる自分の分身を送り込んで現実社会の
ように生活させるのだそうです。

土地を売ったり店を出したり、ファッションを
楽しんだりするんだそうです。
仮想社会で取引される通貨は現実の通貨との
交換が可能です。
動いているお金が1日2億ドルだそうです。

なんかよくわかりません。
興味ももてません。
現実の生活だけで十分です。
何も第二の人生を抱え込むことないじゃないの。
楽しそうと思うより、疲れそうと思います。

こんなことにもしのめり込んで現実世界で
生きることがおろそかになったら時間も費用も
もったいないと思います。

仮想社会で儲けるのが仕事だという人は現れる
でしょうね。
でもなんだか、いい気持ちしないです。