少し簡単にパターンの紹介。これはセルの値の部屋番号での着色。すべてSelect Case文、前後に着色のWith-EndWithを入れ、その中でCase で値を決め、着色します。以下、SourceSub Room_Color()'' Room_Color Macro'' Helper　Sheet上の部屋番号に着色します。Sheets("HELPER").SelectDim i, j, k As LongDim Rom_c As StringFor i = 2 To 51 For j = 5 To 33 Rom_c = Cells(j, i) If Rom_c = "" Then GoTo CO...

今日の御嶽山雲が少しあります、先日の雨はお山は雪になり、冠雪が始まりました。わかお　かずまさVegaSystems 📷📷📷📷📷📷#LAN_PRO#Bloguru#RX10M3

今日の日の出、位置は猿投山の頂上を過ぎ、南麓にかかりました。今日は、少し雲があり、発色が綺麗です。わかお　かずまさVegaSystems 📷📷📷📷📷📷#LAN_PRO#Bloguru#kuma_ichinomiya#VegaSystems#photography_Ichinomiya#S1H#sunrise_ichinomiya#Sunset_ichinomiya#日の出_一宮#夜明け_一宮

あと一ヶ月でスキーシーズンが始まります。リフトを降りて、ストックベルトを装着するの少し手間取る構造だったので新しいアイテムにしてみました。はめるのは押し込むだけ、離脱にはTOPのボタンで外れます、転倒時等の場合、強い力がかかると外れる構造です。わかお　かずまさVegaSystems 📷📷📷📷📷📷#LAN_PRO#Bloguru#kuma_ichinomiya#VegaSystems#photography_Ichinomiya#SKI...

今日は、クライアント様の新人の研修です。ネットワーク敷設の状態、各拠点との接続形態、操作上の基本注意。異常発生時の連絡と対応方法などをレクチャーします。入社は随時なので、都度、一人でも行っています、費用は月々のメンテナンス経費で賄います。わかお　かずまさVegaSystems 📷📷📷📷📷📷#LAN_PRO#Bloguru

今日の日の出時刻は6：20分ごろに。随分、時刻が遅くなりました・・・・わかお　かずまさVegaSystems 📷📷📷📷📷📷#LAN_PRO#Bloguru#kuma_ichinomiya#VegaSystems#photography_Ichinomiya#LX100M2#sunrise_ichinomiya#Sunset_ichinomiya#日の出_一宮#夜明け_一宮

シフト管理を行うExcelVBAのSource。ここでのシフトの基本は、一週間の予定を事前に決定し、それを5週分連動され、一ヶ月の予定は、この中なら切り出す仕組みとしている。具体的には、日から始まり土で終わる週予定の作成し、その5週分をセルのリンクで構築する。一ヶ月で１Bookを使う、ブック名の末尾には年と月を表す数字があるFuresia-202211.xlsm最後の6文字で年と月を表している、月次更新は、当月BookをRenameして保存する。週分の予定を確定させ、このVBAを動かすと、Book名から該当月を切り出し、月初の日付（当然01）を付加し、この日付の曜日を関数で求め、日曜日を1とす...

ExcelVBAを学ぶ上で様々な特徴がある。特筆すべきは、値の表示や受け取りが、「セル」で可能な点であろう。プログラム言語のみでは、この値の表示や受け取りを実用化するには、そのためのインターフェース（I/F)を構築せねばならず、テストはOKでも、簡単な実用プログラムを作成するにも作成が必要となる。無論、LIBが多数出ているが、今度はそのLIBを知らねばならず意外に迷う。Excelは使い慣れたI/Fがあり、値はこことのやり取りで完結する。Vega＿n＝ Range("A1")とすれば、A1の値は変数に代入することが出来る。同様に、Range("A1") = Vega_cもOKSheetを指定する...

やっと、いままでのコースを歩くようになりました。今年の1月にスキーで転倒し、数カ月は山にも行けずでした。4月に歩きはじめましたが、数百mで背中がパンパンに。その後、姿勢がおかしいのか、右足首が腫れ、また中断。暑さと、コロナなどで9月にやっと再開、体を慣らしてやっとです。加齢ゆえか、回復が遅いのですが、少しづつ良くなった来るのを体感しています。わかお　かずまさVegaSystems 📷📷📷📷📷📷#LAN_PRO#Bloguru#kuma_ichinomiya#VegaSystems#photography_Ichinomiya#トレッキング#trekking...

今日の夜明け前。文化の日、快晴です。これからお山に・・・・・わかお　かずまさVegaSystems 📷📷📷📷📷📷#LAN_PRO#Bloguru#kuma_ichinomiya#VegaSystems#photography_Ichinomiya#LX100M2#sunrise_ichinomiya#Sunset_ichinomiya#日の出_一宮#夜明け_一宮#トレッキング#trekking