恥晒し - 2010/09

カスがググったら、こうなった…的な。
カテゴリ
ググルヒト
恥晒し/一覧 (10)



2010年9月
     
   

新着エントリ
Outlook Express 6 でエラー 0x800c0133 (6/6)
EXCEL 自Bookを複製するマクロ (4/19)
EXCEL 勝手にセルの色が塗られる (3/13)
SQL Serverからのメッセージが消えない (12/3)
日本語変換が思い通りにいかない (4/23)
VB コンソールへの文字列復帰 (10/28)
タスクからのバッチファイル(*.BAT)実行結果が0x4 (10/5)
VB 標準モジュールが開かない (9/29)
EeePcの無線LANがつながらない (9/28)
EXCELエクセルVBAでエラー400 (9/23)

新着トラックバック/コメント


アーカイブ
2010年 (5)
9月 (3)
10月 (2)
2011年 (2)
4月 (1)
12月 (1)
2012年 (3)
3月 (1)
4月 (1)
6月 (1)


アクセスカウンタ
今日:26
昨日:33
累計:105,343


RSS/Powered by 「のブログ

[PR]



2010年09月29日(Wed)▲ページの先頭へ
VB 標準モジュールが開かない

Q:VB6の標準モジュールを読み込めません。

A:読み込めません…じゃ分からない。
  他にも何かメッセージ、出てるだろ!

Q:読み込めないんだよぉ!!


=====================

...ということで自分で調べたのだが...


分からない。



通常、以下のようなモジュールをダブルクリックすると
VBのエディタがサクっと開くはずなんだけど...






やっぱり開かない。








ちなみに、モジュールの中身はこんな感じ↓
┌─┬───────────────────────────────────────────
│01│Attribute VB_Name = "ModuleCommon"
│02│Option Explicit
│03│'〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
│04│' Common Module
│05│'〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
│06│Public Function WaitTimer(WTime As Single)
│07│ Dim sv As Single
│08│ sv = Timer
│09│ Do Until Timer > sv + WTime
│10│ DoEvents
│11│ Loop
│12│End Sub
└─┴───────────────────────────────────────────







何が悪い?







1行づつ・1文字づつ検証したところ・・・
┌─┬───────────────────────────────────────────
│01│Attribute VB_Name = "ModuleCommon"
│02│Option Explicit
│03│'〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
│04│' Common Module
│05│'〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
│06│Public Function WaitTimer(WTime As Single)
│07│ Dim sv As Single
│08│ sv = Timer
│09│ Do Until Timer > sv + WTime
│10│ DoEvents
│11│ Loop
│12│End Sub
└─┴───────────────────────────────────────────



これだと開けた。







違いは、何?






3行目だ






コメント行の「〓」の数が40個か、36個か? それだけ。







いや、そんな理由な訳がない。






何かコーディング上の規約みたいなモノがあるはず。


もう少し調査してみよう!













・・・と思ったが・・・




ま、開けるようになったからイイや。





そのうち気が向いたら、ちゃんと調べる。





 





2010年09月28日(Tue)▲ページの先頭へ
EeePcの無線LANがつながらない

Q:普段使っているEeePcの無線LANが突然使えなくなりました。

A:環境をいじったんじゃないの?

Q:何もしていないっ!昨日まで使えていたのにぃ!

=====================

...ということで自分で調べた結果。


何てことはない。
EeePcには無線LANの機構自体をOn/Offできるスイッチが付いていた。


[Fn]キーと[F2]キーを同時に押下すると、On/Off切り替えされる。
ようは、これがOffになっていただけなのだ。




よく考えてみれば、どこかしこでも無線LANが有効になっているのも
按配は良く無いし、こういったスイッチが付いているのは理解できる。




ちなみに、この機構をOffにするとネットワーク接続のプロパティから
ワイヤレスネットワーク接続のアイコン自体も消えた。

一見すると、無線の機能が壊れたのか?と勘違いしてしまいそうだ。




まぁ、知っている人からすると当たり前のことかもしれないが、
自分にとっては難問であった。





ちなみに、誰がこのスイッチをOffにしたのだろう・・・

自分には全く身に覚えが無い。





恐らくウチの猫がうっかり踏みつけて、押しちゃったんだろうなっ

















ウチには猫は居ない・・・









 

2010年09月23日(Thu)▲ページの先頭へ
EXCELエクセルVBAでエラー400

Q:エクセルのVBAでエラー400が発生。

A:400だけじゃ分からない
  他にも何かメッセージ、出てるだろ!

Q:だから、400しか出てないんだって!


=====================

...ということで自分で調べた結果。

Microsoft Excel Objects の方にこのようなマクロを記述した場合に発生する様子。


でも、こうすればエラーは出なくなった。


ようはsheetを特定できないようなマクロは書くな!...ってことだろう。
これは、覚えておくことにする。

でも、最初から標準モジュール(Module1)に記載しておけば、
エラーにはならないみたいだ。


よく分からんが、エラーを発生させない方法は分かった。



ちなみに、1行づつトレースしたところ別のエラーが出た。



実行時エラー 1004
アプリケーション定義またはオブジェクト定義のエラーです。





よく分からないが、同じ原因だろうな、たぶん。

これについては、また別の機会にでも調べよう...