先日の記事で紹介した「編集したいBookが使用中の時の処理」の中では「On Error Resume Next」を冒頭に記述していたが、「On Error Resume Next」は以後すべてのエラーをスキップするため重要なエラーが発生していても把握できないという欠点があった。それで使ってみたのが表題の「On Error GoTo 0」で、これはエラー処理を終了してリセットしてくれるというもの。だからこれをエラー発生が予想される箇所のすぐあとに挿入してやれば、以降のコード内でエラーが発生すればきっちり教えてくれることになる。「On Error Resume Next」と「On Error GoTo 0」はセットで使うべきもので、完全に完成されたコード以外では「On Error Resume Next」を単独で使うのは避けた方がよさそう。

【参考コード】(修正版)
 On Error Resume Next
 Open "C:\Book1.xls" For Append As #1
 Close #1
 If Err.Number > 0 Then
   MsgBox "ファイルは使用中です"
   On Error GoTo 0
 Else
   (ここに実行したいコードを記述します)
 End If


とした方が後々のことを考えると賢明だろう。(実際にこのコードに修正してみたところ、隠れていたエラーを発見し修正することができた)
[PR]
by th6969 | 2015-01-31 14:16 | Excel VBA | Comments(0)

昨日は天気が読めんかったのでショートコースから天野山を5周し天野街道で帰ろうとしたのだが、いつものギャップを避けるためにいつも通り右に寄って通過と思ったら、舗装を外れ路肩に落ちて訳の分からんままいきなり落車してしまった。頭を打った瞬間は「ヘルメット被ってて良かったな~」と冷静やったが、次に気が付いた時には右半身を下にして地面に寝転んでいた。しばらく寝転んでから頭と手足を動かし無事なのを確認してよっこらしょと起き上がったら、脇腹がイテテテテ~という感じでしばらく動けなかった。「やってしもたかな(汗)」と思いながら走り始めたら、身体の方はあまり問題ないようで痛いながらも普通に走って帰宅した。

そして痛いとは思いながらも仕事に行ったが、やはり痛みが激しく早退して病院へ行ったら「骨折」やった。肋骨の7番目がポッキリ折れてるようで、治療はとりあえずバンド巻いて様子を見るしかないようやった。その時に「自転車乗っても大丈夫かな?」と尋ねたら、「チンタラ乗る位やったら問題ないで」ということやった。ということで、しばらく休養のためチンタラ乗るだけにします。
[PR]
by th6969 | 2015-01-30 20:45 | 無題 | Comments(2)

会社でいつものように材料入庫の内容をエクセルファイルに追記しようとしたら、なぜかその当該Bookが「読み取り専用」で開かれていることに気がついた。もちろんエクセルVBAでBookを開いてそこに自動的に追記するのだが、「読み取り専用」で開かない設定のはずなのに「読み取り専用」で開いていることに目が点になってしまった。

d0036883_235010100.png
結局、他の人が使用中だったためだったのだが、VBAから開くと上の画像のようなダイアログが出ずに何と自動的に「通知」モードで「読み取り専用」で開かれてしまうようだった。「読み取り専用」では何も出来ん上に、この「通知」というのが結構余計なお世話で、使用者が編集を終えると下の画像のような「通知」が出て教えてくれるのだった。知らずに「読み取り専用」で作業してるとややこしいことになるし何か方法はないかと検索してたら、結局いつもお世話になっている「Office TANAKA」さんの「ブックが開かれているかどうか調べる」というページがヒットした。
d0036883_05950.gif


これはホンマに「なるほどな~」という感じで、エクセルのBookをファイルとして「追記モード」で開き、その時にエラーが出るかどうかで当該ファイルが使用中であるかどうかを判断するという内容だった。これはオモロイということで早速VBAのコードを変更してみたら、「ファイルは使用中です」のダイアログが出てそのまま終了できるようになった。

【参考コード】
On Error Resume Next
Open "C:\Book1.xls" For Append As #1
Close #1
If Err.Number > 0 Then
MsgBox "ファイルは使用中です"
Else
(ここに実行したいコードを記述します)
End If


このコードを実行したいコードの頭に入れ(Else以下に実行コードを記述する)ると、編集したいファイルが使用中の時は「ファイルは使用中です」のダイアログが出て終了し、使用中でない場合のみコードが実行されるようになる。Open以下に編集したいファイルのフルパスを記述する以外は、そのままコピーして使用しても問題ないはず。「On Error Resume Next」、「For Append」、「Err.Number」などについて、詳しくは下のリンクを参考にしてください。

ブックが開かれているかどうか調べる

テキストファイルを操作する

エラーに負けない

[PR]
by th6969 | 2015-01-28 23:40 | Excel VBA | Comments(0)

自宅-牛滝-和泉葛城山-塔原-蕎原-和泉葛城山-牛滝-自宅

時間:4時間25分05秒
距離:70.5km
和泉葛城山(牛滝)ヒルクライム:34分03秒 (インターバル)
和泉葛城山(蕎原)ヒルクライム:40分43秒 (インターバル)
d0036883_15425983.gif
(和泉葛城山(牛滝)ヒルクライム)

昨日は会社の送別会でたらふく食って飲んだが、朝はスッキリ起きれたので予定通り和泉葛城山へ。1本目の牛滝はダンシング100回Xシッティング200回のインターバルとした。目標心拍の設定はなしやったが、ダンシング終了時には165程度まで上がっていたようだ。シッティングでもペースを落とし過ぎないようにして、とにかく200回でダンシングに切り替えるようにしたが、まあエエ感じやったな。それで頂上にゴールしてポラールのラップボタンを押したら、ポラールの本体がバイクマウントから外れて転げ落ちてしまった(汗)。そろそろ交換時やけど面倒くさいからなぁ。
d0036883_1541515.gif
(和泉葛城山(蕎原)ヒルクライム)

そのまま塔原へ下って蕎原から2本目を開始した。しばらく走ると「道がきれいになってる~(嬉)」と言うことで、愛のパン前までの道がきれいに舗装されてメチャ走りやすくなっていた。これはタイムアップも期待できそうやな(今回は無理やが)。蕎原の激坂区間もダンシング50回Xシッティング100回のインターバルで、最初はイマイチやったが登るにつれて調子が良くなり上の道まできっちりインターバルで登り切れた。上の道もそこそこ頑張ってゴール。

今日は天気が良くて暖かく、絶好のサイクリング日和やったな。
[PR]
by th6969 | 2015-01-25 15:45 | ロード練習 | Comments(0)

これは素晴らしい演奏だ。でも、この数ヵ月後にあの飛行機事故が起こるのかと思うと、ちょっと複雑な気分。


[PR]
by th6969 | 2015-01-22 00:03 | 音楽 | Comments(0)

今日はショートコースのみで帰宅。昨日と打って変わって暖かく、登り坂では暑いくらいやった。
[PR]
by th6969 | 2015-01-21 22:51 | 自転車通勤 | Comments(0)

今日はいつもの水間観音コースの手前から府道40号で蕎原に抜け、ほの字の里、たわわの横を通って水間観音にお参りして帰宅。帰り道はメチャクチャ寒くて、久し振りに指動かん状態やった。暖かかったら山でもと思っていたが、行かなくて正解やったな(汗)。
[PR]
by th6969 | 2015-01-20 23:44 | 自転車通勤 | Comments(0)

Windows98時代から使い続けているフリーの画像閲覧ソフト「IrfanView」だが、最近のバージョンではなぜかダイアログ等が文字化けして使いにくく感じていていた。それに同じフォルダー内の画像が続けて表示できんこともあるし、何でかな~と思い悩んで検索してみたらあっさり解決方法が見つかったので報告しておこう。
d0036883_15184554.gif
こんな感じで文字化け(涙)

d0036883_15184463.gif
メニューバーの「オプション」から「表示言語の変更」をクリック

d0036883_15184517.gif
出てきたダイアログで「起動時に Unicode PlugIn を読み込む」のチェックを外す


たったこれだけの作業で鬱陶しい文字化け及び動作不良が解消(嬉)。


また、日本語化は「IrfanView」のページの「IrfanView languages」から「japanese.zip」をダウンロードし、解凍したファイルの「Languages」にある「Japanese.dll」を「IrfanView」をインストールしたフォルダ内の「Languages」フォルダにコピー。
d0036883_15184655.gif

その後「IrfanView」を立ち上げ、「Options」から「Change language」を選び、「JAPANESE.DLL」を選択して、OKを押せば日本語化が完了。

画像処理(縮小・切り抜き・色調補正など)で私のやりたい事はほぼこのソフトでできているので、興味があったら一度試してみて下さい。

 ○画像閲覧ソフト「IrfanView
[PR]
by th6969 | 2015-01-18 15:46 | フリーソフト | Comments(0)

天野山周回コース

自宅-天野街道-天野山周回-天野街道-自宅

時間:1時間57分20秒
距離:54.5km
d0036883_14201284.gif

朝起きたら天気は良かったが山は多分ビチョビチョと言うことで、10時半ごろに家を出て天野山周回コースをクルクル。さくら苑の登り、最後の登り、保育園のコーナー後、最後のコーナー後の4箇所をダンシング50回でインターバル的に走り、結局12周回して終了。日差しは暖かくて気持ちよかった。
[PR]
by th6969 | 2015-01-18 14:30 | ロード練習 | Comments(0)

今日はいつもより距離を走ろうと思い旧170号から蕎原へ抜け、いつもと逆コースで「たわわ」の横を通って水間観音と考えていたが、山の方は路面がビチョビチョのためあっさり断念(笑)。結局いつも通りの水間観音コースで帰宅。
[PR]
by th6969 | 2015-01-16 23:38 | 自転車通勤 | Comments(0)