2021-09-10

【EXCEL＿VBA】プルダウンのエラー

f:id:hide_kichi:20210909141613j:plain
EXCEL　VBA

　プルダウンが時々なにも表示されなくなる。

　データ入力規則でエラー。

ファイル読み込み時には、以下のエラーが表示されます。

f:id:hide_kichi:20210909113221p:plain — ファイルopen時のエラーメッセージ

EXCEL_VBAのプログラミング不具合です。

プルダウンのデータを作成する時のデータ作成に
ミスがありました。
最後の","を削除していませんでした。
f:id:hide_kichi:20210909094908p:plain

f:id:hide_kichi:20210909094755p:plain

プログラムソースはこちら

 Range("B11").Select
 WORK_S = "AAAA,BBBB,CCCC,DDDD,"               
         
               With Selection.Cells.Validation
                      .Delete
                      .Add _
                      Type:=xlValidateList, _
                      Formula1:=work_s
                
                      .ErrorTitle = "エラータイトル"
                      .ErrorMessage = "エラーメッセージ"
                       エラーメッセージ表示許可
                      .ShowError = False
                
               End With

実は、不具合を放置していました。
たいした問題ではないだろうと思い、優先順位をさげていました。
ところが最近、

　ファイルを開くことができないトラブル

　（今までに経験ないトラブル！！）

　
が発生しました。

皆さんも少しのトラブル後回しにしないで解決していきましょう！！

簡単に説明していますが、
実際には複雑で、db（データベース）から読み込んで
いろんなセルにプルダウンを作成するプログラムを作っています。

読んで頂きありがとうございます。

　「☺Ｓｍｉｌｅ☺Ｓｍｉｌｅ☺」

　
お題「わたしの仕事場」

2021-09-06

【夏の思い出】goto(5島列島）

五島

中学１年の夏休みのお盆、突然親戚のおじさんが「九州の五島へ行こう！！」と言い、

無理やり連れていかれました。

当時仲の良い友達もおじさんの親戚になるので３人で行くことになりました。

電車なので、２、３泊分の着替えと海水パンツ・シュノーケルだけ用意しました。

当時は夜間急行列車があり、尾道から博多まで、
もちろん自由席で夜は通路に新聞紙をひいて寝て行きました。（かなり昔です（笑））

朝、博多に到着し、そこから乗り換えで佐世保まで行きました。

佐世保からフェリーに乗って五島まで行くのですが、かなりの時間待ちがあり佐世保の商店街を友達と歩きました。何も覚えてないのですが女性が綺麗な人が多いのが印象的でした。これは電車の中でも思っていました。

今でも変わらないと思います。福岡、長崎の女性は綺麗な人が多いと思います。

フェリーの時間になり、佐世保から五島まで２時間３０分くらいかかったと思います。
大きなフェリーで、瀬戸内海で走っているフェリーと比べものになりませんでした。

どの港に行ったか全然覚えてませんが
佐世保―有川　片道3100円
かな？？？

五島に着くと港のすぐそばの民宿に泊まり、
２日間、レンタカーで海まで行き潜ってました（シュノーケリングです）

最高にきれいな海で、魚が無茶苦茶多く、熱帯魚のようなきれいな魚もいました。
とにかく、感動でした。

観光みたいなことは一切してないと思います。

海で泳いで、美味いもん食べて、楽しい日々もすぐに帰る日がやってきました。
帰りですが台風が来て、フェリーが出港できなく、４時間くらいの待ちでようやく乗船しました。
乗ったのはいいのですが、揺れに揺れ、船酔いをし、ずっと吐いていました。

佐世保港に着き、来た道を帰っていきました。帰りの出来事はよく覚えていません。疲れ切っていたのでしょうね。

いつかまた五島へ行ってみたいと思ってます。

同じ行き方は無理なんで、新幹線でいくか？車でいくか？飛行機？ない（フェリーに乗りたいので）

いつの日か・・・・・・・・

今現在での情報

https://ekagen.net/archives/post-22266.html#toc5

車だと高速利用して佐世保港まで６時間くらいのようです。

ただいまメンテナンス中です

読んで頂きありがとうございました。

「Smile☺スマイル☺笑顔」

今週のお題「爆発」

2021-08-31

【excel】時間を１０進表示で

f:id:hide_kichi:20210510144522j:plain

f:id:hide_kichi:20210802143240j:plain

excelでの時間計算

１０進表示する

１．時：分で計算する場合

２．分で計算する場合

説明します。

１．時：分で計算する場合

時間A＝終了時間　ー　開始時間

　　時間Ｂ=時間A＊２４

　　時間Ｂ（１０進時間）です

　　例えば

　　開始時間＝9:38 　　終了時間＝13:42

　　時間A＝13:42　ー　9:38 　= 4:04　

時間Ｂ=時間A＊２４=4.07

セルの書式を下記のように変更する必要があります。

f:id:hide_kichi:20210819164316p:plain

2:　分で計算する場合

　　時間A＝（終了時間　ー　開始時間）/ 60

　　例えば

　　開始時間=36000 終了時間=36612

　　時間A＝( 36612 ー 36000 ) / 60 = 10.20

時間B = 時間A

セルの書式を下記のように変更する必要があります。

f:id:hide_kichi:20210819164429p:plain

以上

電卓で計算していたら大変ですよね。

excelで計算しましょう。

もっと楽な方法は、

マクロで計算しちゃいましょう！！

「Smile☺スマイル☺笑顔」

2021-08-22

好きなスポーツ

今週のお題「好きなスポーツ」
f:id:hide_kichi:20201201144059j:plain

スポーツと言えば
スポーツマン・アクションスターの
「千葉真一」さんがコロナで亡くなったんですね。
ご冥福をお祈り申し上げます。

筆者は

勉強より、スポーツが好きでした。

今は、なかなかスポーツをする機会が少なくなりました。

高校生までバスケットボールをしていました。

たいした成績も残してなく

しいて言えば
高校時代、大久野島（現在：うさぎ島）ロードレースにバスケット部全員で参加して
筆者のチーム（３人１チーム）が３位になったくらいかなあ？

他校陸上部と競り合ったのを覚えています。
駅伝で有名な世羅高校もいましたが彼らはレベルが違い9Kコースでした。
筆者は6Kコースでしたが、ついていけませんでした。
次の日、学校の全体朝礼で表彰されました。
褒めてもらえるような人間ではなかったので少し嬉しかったです。
いい思い出です。
ロードレース当日まで、バスケットの練習もせずマラソンばっかり練習していました。

こんなふざけたクラブでしたが、なぜか県体にはいつも行けました。
スポーツ万能が多かったと思います。

社会人なって、テニス、スキー、水上スキーなどやりました。

スキー何十年ぶりに行ってみたいなあと思っています。（実現するかな？？？）

これから、スポーツをするにしてもなかなか難しいと思うのですが
太極拳がしたいなあ・・・（学生の頃少林寺拳法をやりたかったので）
あとは軽いジョギングくらいかなあ？？？・・・・・
山登りもいいけど難しいのでハイキングくらいかな・・・・？？

スポーツを見るのも好きです。

テニス、バトミントン、卓球、サッカー、野球、、ＸＧＡMＥなど・・・・

「海・川・山など」で遊ぶのは十分気を付けてください。

読んで頂きありがとうございました。

和「Smile☺スマイル☺笑顔」和

補足事項
１．世羅高校
 広島県立世羅高等学校

2.大久野島
 休暇村大久野島【公式】《ベストレート保証》｜瀬戸内海のうさぎ島夕陽と瀬戸内グルメを堪能できるホテル
それから
大久野島行フェリー乗り場のそばに
皆さんもご存じ
「アヲハタ」の本社があります。
アヲハタホームページ～フルーツには続きがある。～

f:id:hide_kichi:20210825130515p:plain