ExcelでDoEvents

時間から時間までのExcelマクロ処理
実行すると途中で止まらないので、DoEventsを入れる

onStop = False
For k = 1 To 65534
　　DoEvents
　　If onStop = True Then
　　　　End 'マクロ処理を終わらせる
　　End If
Next

Sub CommandButton1_Click()
onStop = True
End Sub

鮭

ずいぶんまえに買った鮭
筋子のオマケ？

カニの天ぷら

いただいたカニを天ぷらにする

LS-500GLからデータを取り出し

うーん、BUFFALOのLinkStation　LS-500GLがエラーになった。



エラーランプが長1回、短６回点滅している



サポートに聞くとHDDの故障らしい。

送って修理＞HDDは初期化とのこと。



まずは中のデータを取り出せるかいろいろ試してみる。



ばらしてから別のPCに、外部接続のHDDとしてつなぐ。

電源がないので電源のみLinkStationから使用。

Ext2Fsdを起動。

が、中はさっぱり見えない。



仕方ないので、外部電源を購入してつないでみる。



すると、中が見えるようになった。RAWだけど。



ためしに、HDDの電源のみ外部電源から供給して、データのケーブルをLinkStationにつないでLinkStationを起動させてみる。



きちんと見えるようになった。



つまり、何かしらの原因でLinkStationの電源供給電圧が下がったために不具合が発生したのか？

と推測できる。



同様の症状に見舞われた方は、試してみる価値あり。

ただし自己責任で実行してください。