豪雨で渋滞?(2023.06.29)

名古屋方面行きのR22の渋滞が酷い、もう1時間以上・・・・




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#GFX50S2
#kuma

ワオ!と言っているユーザー

未明から豪雨(2023.06.29)

未明から豪雨、まるで梅雨の末期のような気候です。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#GFX50S2
#kuma

ワオ!と言っているユーザー

梅雨の晴れ間(2023.06.28)

梅雨の晴れ間。
しかし、すごい湿度・・・・


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#GFX50S2
#kuma

ワオ!と言っているユーザー

NightTrail

車のライトの光跡、新しい撮影方法を試しています


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#Timelapse
#Clipchamp
#GoproHero11
#kuma

ワオ!と言っているユーザー

撮影機材の管理(乾燥剤)

撮影機材はどれも湿気を嫌います。
ケーブルなどはともかく、カメラ、レンズ、マイクなどなど・・・

私はこれらを工具ケース(蓋ロック付き)に収納し、中に乾燥剤を入れて保管します。
乾燥剤は最初サラサラしていますが、吸湿すると少し膨らんで固くなります、これが
交換時期です、半年から9ヶ月くらいのようです。
この時期に交換し、年末に交換が私のパターンです。

カメラ類の多くは防湿ケースに入れていますが、マイクは大型の撮影機は、このやり方です。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#kuma

ワオ!と言っているユーザー

今日の夜明け前(2023.06.26)

朝焼けです、天候はどうなるのでしょう。
昨晩は8時ごろ、長野から帰宅、今日も予定がいっぱいです




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#GFX50S2
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

今日の夜明け前(2023.06.25)

今日の夜明け前。
これから長野に出かけます、撮影の仕事です・・・・


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph


#Timelapse
#Clipchamp
#GoproHero9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

今日の夕景TimeLaps(2023.06.24)

今日の夕景、久々の夕焼けを見ることが出来ました。
今日は朝からトレッキング、相変わらずの遺産の森。



わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#Timelapse
#Clipchamp
#Audacity
#GoproHero9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#トレッキング
#trekking
#kuma

ワオ!と言っているユーザー

ロシアでクーデター

#kuma

ワオ!と言っているユーザー

未経験者の副業にプログラム作成は不向き

SNSでやたらと副業の案内が目につく。
この中でプログラム作成について述べる。
私のプログラム作成歴はながく、請われて教壇に立ったこともある。
その経験で言わせていただくと、プログラムを生業にするのは簡単ではない。

Webでの研修を悪いとは言わないが、生業するはまず本人の適性、特にいわゆる地頭の
良さと論理性に優れている事が重要。

つまり、これらの適性に優れた方は、すでに適職を見つけていると思う。
ある年齢に達してから一念発起するのは重要だが、プログラム業は「資格・免許」では
通用しない世界。

記憶力だけでは、副業となるようなプログラムは作成出来ない、これが現実です。






わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

ワオ!と言っているユーザー

Excel-vbaの開発

私がVBAの開発に再度乗り出したのは、あまりにもExcelの使用方法がでたらめで、
過剰装飾になっているからだ。
Excelは表計算アプリであり、PPTでもWordでもない、重要なのは数値をいか正確に
安定して演算して表示するかだと思っている。

やたら色を着けたり、セル結合するなどは必要最低限にすべきで、己の趣味や見栄え
などで決して行ってはならないのだが、昨今はまたぞろやたら見た目が派手で、中身は
無く作業時間ばかり無駄に費やした成果物を視るようにンあった。

これの問題点は、一旦これが社内の標準となると、この無駄手間を継続ぜねばならない
事にある。管理職の大半は、これが如何に無用で無駄なことであるかを理解していないので
「前と同じように・・・」などと指示をする。

そこでVBAの出番となり、手作業を排しVBAのみで「過剰装飾」を作り上げることで
生産性を向上させる、どれほどの効果があるかの一例。

そこそこの熟練者は2日かけた作業が数分で完了する、色もセル結合も全て行ってである。
バカバカしいが、こうでもしないと生産性が上がらない。

写真は私の開発環境、3画面を使っている、Excelの表示、VBAの編集画面、Sourceコード
の表示、これで生産性は著しく向上する。


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

ワオ!と言っているユーザー

GoProのリモコン

GoProは簡易防水仕様であるため、電源SWやRECなどがやや固めで操作がやや面倒です。
特に首掛けにしたり、ヘルメットに装着すると、リモコンがないと実質操作が出来ない
と言えます。
このリモコン、純正ではありませんが、ちゃんと動作します、Hero9も11でもOKです。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#GoproHero9
#GoproHero11
#kuma

ワオ!と言っているユーザー

GoProHero11

狭い場所での2Cam撮影のため、GoProを買い増ししました。
今まではHero9でしたが、今度はHero11です。
この機種はV30以上のSDカードしか認識してくれません
Hero9では大丈夫なカードでも使うことが出来ないです。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#GoproHero11
#kuma

ワオ!と言っているユーザー

今日の夕景TimeLaps(2023.06.19)

久々に落日を見ることが出来ました。
60mini 5secINT 720Pcs 30fps 24sec




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#Timelapse
#Clipchamp
#Audacity

#Gopro9

#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

今日の日の出(2023.06.19)😊

日の位置は中央アルプス空木岳の北麓を下っています。
2日後の夏至には宝剣岳あたりになり、これが日の出位置の北限となります。


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#OM_D_E_M1X
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

今日の日の出TimeLaps(2023.06.19)

今日の日の出です、霞があり直視出来ました。
日の出位置は、中央アルプス空木を下っています・・・




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#Timelapse
#Clipchamp
#Gopro9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

秘密保持契約者(NDA)

弊社が開発等をお願いする取引先と交わす、NDAの一部です。
外国籍の方の関与を排除しています。
ご異論のある方もありますが、時間と費用をかけて開発した特許の重要な部分を
開示するのです、縛れる部分は縛ります・・・・

第2条    (秘密情報等の取扱い)
1    A又はBは、相手方から開示を受けた秘密情報及び秘密情報を含む記録媒体
若しくは物件(複写物及び複製物を含む。以下「秘密情報等」という。)
の取扱いについて、次の各号に定める事項を遵守するものとする。
(1)    情報取扱管理者を定め、相手方から開示された秘密情報等を、
善良なる管理者としての注意義務をもって厳重に保管、管理する。
(2)    秘密情報等は、本取引の目的以外には使用しないものとする。
(3)    秘密情報等を複製する場合には、本取引の目的の範囲内に限って行うものとし、
その複製物は、原本と同等の保管、管理をする。また、複製物を作成した場合には、
複製の時期、複製された記録媒体又は物件の名称を別紙のとおり記録し、
相手方の求めに応じて、当該記録を開示する。 
(4)    漏えい、紛失、盗難、盗用等の事態が発生し、又はそのおそれがあることを
知った場合は、直ちにその旨を相手方に書面をもって通知する。
(5)    秘密情報の管理について、取扱責任者を定め、書面をもって取扱責任者の
氏名及び連絡先を相手方に通知する。 
(6) 取扱責任者が交代の場合には書面をもって取扱責任者の氏名及び連絡先を相手方に
通知する。 
(7) 取扱責任者は、日本国籍であり配偶者も同様であること。帰化の場合は5年以上
経過していること、
この場合は書面をもってその内容を相手方に通知する。 





わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

ワオ!と言っているユーザー

今日の夜景(2023.06.17)

午後8時前後のR22の夜景。
15sec露光、X100V F16




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#X100V
#kuma

ワオ!と言っているユーザー

今日の夕景2(2023.06.17)

今日は二箇所でほぼ同時刻にTimeLaps撮影。
このVideoはGoProを使用、台座を60分で90°回転させての
撮影です。


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#Timelapse
#Clipchamp
#Audacity
#Gopro9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

各務原遺産の森トレッキング(2023.06.17)

前回が5.21なので、一ヶ月近く間が空いてしまいました。
木々の緑は増えましたが、目的の鳥の声の収集は不発・・・・




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#トレッキング
#trekking
#kuma

ワオ!と言っているユーザー

今日の夕景(2023.06.17)

今日は午後から自宅で休養でした。
日没時刻前からTimeLapsの撮影開始、GH6で5secINT 720Pcs


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#Clipchamp
#Audacity
#GH6
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

今日の夜明け前(2023.06.17)

夜明け前の撮影、今日は快晴、やや風つよし


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#LX100M2
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

今日の日の出(2023.06.17)😊

やっと日の出位置の特定が出来ました。天候不順でなかなか
掴むことが出来なかったのです。
位置は空木の北麓を下り、宝剣岳に向かっています。


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#OM_D_E_M1X
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

今日の夜明け前2(2023.06.17)

今日は久々に日の出の瞬間を見ることが出来ました。
こちらは夜明け前のVideo です。
GH6でのTimeLaps試験撮影です。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#Timelapse
#Clipchamp
#Audacity
#GH6
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

今日の夕景(2023.06.16)

日没位置が伊吹山の北麓をくだり、北限位置(夏至)に近づいています。


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#Timelapse
#Clipchamp
#Audacity
#Gopro9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

時間の無駄遣い

Excelの使い方の悪い見本。Excelはワープロではない、VBAはもちろん、
演算式も一つもない、ただだた転記・転記・色付を手作業で黙々と行って
勤務時間を消費する。
最悪・・・・・

これを会社は「良し」とし、作業者はExcelをつかいこなしていると思っている。
この会社に将来は無いと思う。


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

ワオ!と言っているユーザー

今日の日の出(2023.06.16)😊

久々に日の出時刻が晴れていました、雲がありますが・・・・


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#Timelapse
#Clipchamp
#Audacity
#Gopro9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

マンフロットからアルカスイス

No1の写真はマンフロットの雲台ベースです。
No2は、これに変換用のベースを装着します。
No3 これでアルカスイスベースとなり、普通のカメラが装着出来ます。
これで三脚はVideo用一台で事足ります。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#X100V
#kuma

ワオ!と言っているユーザー

映像と音声132(雲台ヘッド)

雲台にカメラをセットするにはカメラ側にプレートをつけます。
このプレートと雲台を結合する部分がヘッドと呼ばれる部分ですが、スチールカメラと
ビデオカメラでは、このヘッドの形状が異なります。
前者は現時点での主流はアルカスイスと呼ばれるもの。
後者はマンフロット互換です。
この2つ、形状と大きさが異なり、三脚の共有が出来ません。
後者は、概ね重量があり、機材も重い機材となりあmすますが、前者は一部の望遠を除けば
比較的軽量モデルとなります。

この2つの共有ヘッドが写真のものです、マンフロットにアルカスイスがくっついて
います。





わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#kuma

ワオ!と言っているユーザー

夜景(2023.06.13)

雨上がりの夜景、X100V 60sec 露光




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#X100V
#kuma

ワオ!と言っているユーザー

映像と音声131(XLR-pLug加工)

Mic用のXLRプラグの加工です。
ケーブルは既製品では使用しない、4芯を使い、2本を撚り合わせ
パラレルにして使用します。
ハンダ付け加工になります、照度が低いと加工が出来ません(涙)
テストは「33」になればOK




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#kuma

ワオ!と言っているユーザー

APECカード

https://www.mofa.go.jp/mofaj/files/000144761.pdf

APECビジネスカードの期限が切れたので再申請のために案内を見たら、以前に比べ
簡単になっていました。

現在、中華人民共和国への渡航にはVISAが必要ですが、これで代行可能となっています。
問題は、APECカード申請後、訪問国への登録は、相手国の都合で行われるため、カード
を入手しても、それが「有効」の認証は別途行わねばなりません。
http://jp.china-embassy.gov.cn/jpn/lszc/hzqzyw/202302/t20230222_11029541.htm
一応記載はありますが、信用して良いものか?



わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

ワオ!と言っているユーザー

紫陽花その2

紫陽花その2




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#kuma

ワオ!と言っているユーザー

紫陽花寺本光寺




岡崎のあじさい寺での撮影。
雨の中、GoProを首掛での撮影、やはり上下のジンバル効果は無いですね。

わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#DaVinciResolve
#Audacity
#Gopro9
#kuma

ワオ!と言っているユーザー

紫陽花

幸田町本光寺での撮影
あいにくの雨



わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#X100V
#kuma

ワオ!と言っているユーザー

映像と音声130(三脚沼)

ビデオ用三脚の多くは、TOPの台座がハーフボウル(おわん)で、不整地でも
水平パンが可能になっています。
ただし、このタイプの欠点として高さ調整のポールが付けられないことです。

私の場合、スチール用の三脚(高さ可変可)の台座に、おわん機能のあるをベースを
追加しています。

この三脚、本体はカーボンで軽量、雲台は自由雲台では無く、小型のユニバーサル、
望遠を付けなければ、S1Hクラスでも使えます。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#kuma

ワオ!と言っているユーザー

Computexでは産業用の展示が大幅に・・・

産業用の伝送機器が一気に増加している・・・・




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#kuma

ワオ!と言っているユーザー

メタルから光へ・・・・・

信号伝送の基幹部分は、メタルから光に移行が始まった




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#kuma

ワオ!と言っているユーザー

Computexでの商談

Computexでの商談風景、台湾では女性のPlayerが多い、技術面よりも交渉に長けて
いる感じが強い。
日本では女性管理職を数を増やせと言っているが、私の経験では女性に管理権限をもたせ
ると失敗するケースが多い。これは同性への嫉妬が加齢とともに強くなるのではないかと
思う。PLayerとしては一流なのに管理業務は苦手との方が多すぎる。






わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#kuma

ワオ!と言っているユーザー

今日も雨(2023.06.11)

今日も雨、でもこれから紫陽花のVideo撮影に・・・・


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#OM_D_E_M1X
#kuma

ワオ!と言っているユーザー

今日の夕景2(2023.06.10)

明日は雨模様・・・・




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#Timelapse
#Clipchamp
#Audacity
#Gopro9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

今日の夕景(2023.06.10)

名神一宮IC付近が工事のため、関連する高速も一般道も混雑しています。
特にR22の岐阜方面は大混雑、木曽川ICまでを下道で抜けるためです。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#Timelapse
#Clipchamp
#Audacity
#GH5S
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

スズメの朝ごはん(2023.06.10)



今朝のご飯は、炊いたお米です。
子雀が来ています、胸元に黒の斑点がなく、全体に丸い感じが幼鳥の特徴です。
母スズメの給餌が無くなり、自分で摂取しなければなりませんが、習慣で「親鳥」に
擦りよって行きますが逃げられます。摂餌の動きはまだ緩慢です。


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#DaVinciResolve
#Gopro9
#kuma

ワオ!と言っているユーザー

Excel-VBA 曜日検出

Bookを複製しての月次更新の場合、日時と曜日にズレが出ます。
この修正を行うVBAです


Attribute VB_Name = "Module13"
Option Explicit

Sub Youbi()
Attribute Youbi.VB_ProcData.VB_Invoke_Func = " \n14"


'
' Youbi Macro
'
'
Dim XlName As String

Dim Mou As String
Dim MouED As String

Dim BookNam As String
Dim MonST_n As Long
Dim MonEN_n As Long
Dim SST_n As Long
Dim SEN_n As Long

Dim Rtn As Long

Dim i, j, k As Long
Dim Sht_nam_c(31) As String
Dim Skd_day_c(31) As String
Dim IN_job_c As String
Dim BS_job_c As String
Dim Num_n As Long


Sht_nam_c(1) = "RM102"
Sht_nam_c(2) = "RM103"
Sht_nam_c(3) = "RM105"
Sht_nam_c(4) = "RM106"
Sht_nam_c(5) = "RM107"
Sht_nam_c(6) = "RM108"
Sht_nam_c(7) = "RM110"
Sht_nam_c(8) = "RM111"
Sht_nam_c(9) = "RM112"
'-----------------------
Sht_nam_c(10) = "RM201"
Sht_nam_c(11) = "RM202"
Sht_nam_c(12) = "RM203"
Sht_nam_c(13) = "RM205"
Sht_nam_c(14) = "RM206"
Sht_nam_c(15) = "RM207"
Sht_nam_c(16) = "RM208"
Sht_nam_c(17) = "RM210"
Sht_nam_c(18) = "RM211"
Sht_nam_c(19) = "RM212"
Sht_nam_c(20) = "RM213"
Sht_nam_c(21) = "RM215"
Sht_nam_c(22) = "RM216"
Sht_nam_c(23) = "RM217"
Sht_nam_c(24) = "RM218"
Sht_nam_c(25) = "RM220"

'---------------------------------------

Skd_day_c(1) = "FRSKD-01"
Skd_day_c(2) = "FRSKD-02"
Skd_day_c(3) = "FRSKD-03"
Skd_day_c(4) = "FRSKD-04"
Skd_day_c(5) = "FRSKD-05"
Skd_day_c(6) = "FRSKD-06"
Skd_day_c(7) = "FRSKD-07"
Skd_day_c(8) = "FRSKD-08"
Skd_day_c(9) = "FRSKD-09"

Skd_day_c(10) = "FRSKD-10"
Skd_day_c(11) = "FRSKD-11"
Skd_day_c(12) = "FRSKD-12"
Skd_day_c(13) = "FRSKD-13"
Skd_day_c(14) = "FRSKD-14"
Skd_day_c(15) = "FRSKD-15"
Skd_day_c(16) = "FRSKD-16"
Skd_day_c(17) = "FRSKD-17"
Skd_day_c(18) = "FRSKD-18"
Skd_day_c(19) = "FRSKD-19"

Skd_day_c(20) = "FRSKD-20"
Skd_day_c(21) = "FRSKD-21"
Skd_day_c(22) = "FRSKD-22"
Skd_day_c(23) = "FRSKD-23"
Skd_day_c(24) = "FRSKD-24"
Skd_day_c(25) = "FRSKD-25"
Skd_day_c(26) = "FRSKD-26"
Skd_day_c(27) = "FRSKD-27"
Skd_day_c(28) = "FRSKD-28"
Skd_day_c(29) = "FRSKD-29"

Skd_day_c(30) = "FRSKD-30"
Skd_day_c(31) = "FRSKD-31"


'----------------------------------------
Application.ScreenUpdating = False
'---------------------------------------



MsgBox ("Book名の日付に従って曜日を設定します")



 '  ファイル名を取得
 XlName = ThisWorkbook.Name
 
 Debug.Print ThisWorkbook.Name
 
 
BookNam = Mid(XlName, 8, 6) ' ファイル名から年・月を切り出す、ファイル名の桁数に注意

Sheets("RM102").Select


Mou = Left(BookNam, 4) & "/" & Right(BookNam, 2) & "/01"  ' 検索用に年月日を作成

Debug.Print Mou

MouED = WorksheetFunction.EoMonth(Mou, 0)                ' 月末日の決定


'Range("A32") = Mou
'Range("A33") = WorksheetFunction.EoMonth(Range("A5").Value, 0)

MonST_n = Weekday(Mou)  ' 1日の曜日を求める

'Debug.Print MonST_n


'MonEN_n = WorksheetFunction.EoMonth(Range("A5").Value, 0)
' MonED = WorksheetFunction.EoMonth(Range("A5").Value, 0)

Range("A2") = Left(Mou, 7)

Mou = Range("A2")

Range("B2") = WeekdayName(MonST_n, True)

 Range("B2").Select
 
    Selection.AutoFill Destination:=Range("B2:AF2"), Type:=xlFillDefault
    
    Range("B2:AF2").Select

  Sheets("RM102").Select
    Range("B2:AF2").Select
    Selection.Copy
    Sheets("RM103").Select
    Range("B2").Select
    ActiveSheet.Paste
    
For i = 2 To 25

   Sheets(Sht_nam_c(i)).Select
   
    
    Range("B2").Select
    ActiveSheet.Paste
    
    Range("A2") = Mou


Next i

For i = 1 To 31

   Sheets(Skd_day_c(i)).Select
   
   Range("A3") = BookNam


Next i



Sheets("RMMS").Select
Range("A1").Select

'
End Sub

わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

ワオ!と言っているユーザー

田中屋木曽






わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#DaVinciResolve
#Audacity


#HCX2000
#Gopro9
#料理_一宮
#男子厨房に立つべし
#kuma

ワオ!と言っているユーザー

今日の朝景(2023.06.09)

梅雨前線の停滞で昨夜は豪雨、今朝は上がったものの悪天候で陽光は見えず・・・
週末になりました、先週の台湾出張関連の仕事が山積です。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#Clipchamp
#Audacity
#Gopro9
#TimeLaps

#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#トレッキング
#kuma

ワオ!と言っているユーザー

Excel-vba

Excelの31Sheetsのすべてを集計するVBA
06:00から20:00を30分刻みで分け、その時間帯での作業数を集計する。
作業数がよって着色する機能を持たせ、作業が輻輳する日と時間帯を可視化する。


Attribute VB_Name = "Module18"
Option Explicit

Sub SYUKEI1()
Attribute SYUKEI1.VB_ProcData.VB_Invoke_Func = " \n14"
'
' SYUKEI1 Macro
'
Dim i, j, k As Long
Dim Sht_nam_c(30) As String
Dim Skd_day_c(31) As String
Dim IN_job_c As String
Dim BS_job_c As String
Dim Num_n As Long

Dim Fst_job_n(36) As Long
Dim Snd_job_n(36) As Long

Dim Cnt1_n As Long
Dim Cnt2_n As Long

Dim Up_n As Long

Dim Max_n As Integer

Dim Max_c As String

BS_job_c = "B1B2B3C1C2C3C4C5C6C7D1D2D3D4E1F2F3F4H"

'------------------------------------------------

Sht_nam_c(1) = "RM102"
Sht_nam_c(2) = "RM103"
Sht_nam_c(3) = "RM105"
Sht_nam_c(4) = "RM106"
Sht_nam_c(5) = "RM107"
Sht_nam_c(6) = "RM108"
Sht_nam_c(7) = "RM110"
Sht_nam_c(8) = "RM111"
Sht_nam_c(9) = "RM112"
'-----------------------
Sht_nam_c(10) = "RM201"
Sht_nam_c(11) = "RM202"
Sht_nam_c(12) = "RM203"
Sht_nam_c(13) = "RM205"
Sht_nam_c(14) = "RM206"
Sht_nam_c(15) = "RM207"
Sht_nam_c(16) = "RM208"
Sht_nam_c(17) = "RM210"
Sht_nam_c(18) = "RM211"
Sht_nam_c(19) = "RM212"
Sht_nam_c(20) = "RM213"
Sht_nam_c(21) = "RM215"
Sht_nam_c(22) = "RM216"
Sht_nam_c(23) = "RM217"
Sht_nam_c(24) = "RM218"
Sht_nam_c(25) = "RM220"

'---------------------------------------

Skd_day_c(1) = "FRSKD-01"
Skd_day_c(2) = "FRSKD-02"
Skd_day_c(3) = "FRSKD-03"
Skd_day_c(4) = "FRSKD-04"
Skd_day_c(5) = "FRSKD-05"
Skd_day_c(6) = "FRSKD-06"
Skd_day_c(7) = "FRSKD-07"
Skd_day_c(8) = "FRSKD-08"
Skd_day_c(9) = "FRSKD-09"

Skd_day_c(10) = "FRSKD-10"
Skd_day_c(11) = "FRSKD-11"
Skd_day_c(12) = "FRSKD-12"
Skd_day_c(13) = "FRSKD-13"
Skd_day_c(14) = "FRSKD-14"
Skd_day_c(15) = "FRSKD-15"
Skd_day_c(16) = "FRSKD-16"
Skd_day_c(17) = "FRSKD-17"
Skd_day_c(18) = "FRSKD-18"
Skd_day_c(19) = "FRSKD-19"

Skd_day_c(20) = "FRSKD-20"
Skd_day_c(21) = "FRSKD-21"
Skd_day_c(22) = "FRSKD-22"
Skd_day_c(23) = "FRSKD-23"
Skd_day_c(24) = "FRSKD-24"
Skd_day_c(25) = "FRSKD-25"
Skd_day_c(26) = "FRSKD-26"
Skd_day_c(27) = "FRSKD-27"
Skd_day_c(28) = "FRSKD-28"
Skd_day_c(29) = "FRSKD-29"

Skd_day_c(30) = "FRSKD-30"
Skd_day_c(31) = "FRSKD-31"


Max_c = InputBox("日別の予定を一覧表に集計します" & Chr(13) & "上限値は?", , 3)

Max_n = Val(Max_c)

'----------------------------------------
Application.ScreenUpdating = False
'---------------------------------------
'
Up_n = 0

For i = 1 To 31

Sheets(Skd_day_c(i)).Select

     For j = 5 To 36
     
           Cnt1_n = 0
           Cnt2_n = 0
           
     
         For k = 2 To 10     ' 1Fの集計
                  
               If Cells(j, k) = "" And Cells(j, k).Interior.ColorIndex = -4142 Then
               
                Else
               
                 If Cells(j, k) = "C6" Or Cells(j, k) = "D2" Or Cells(j, k) = "=" Then
              
                  Cnt1_n = Cnt1_n + 2
                
                 Else
                
                  Cnt1_n = Cnt1_n + 1
                 
                 End If
            
               
                End If
     
         Next k
         
         Fst_job_n(j) = Cnt1_n
         
         
         For k = 11 To 26    '2Fの集計
                        
               If Cells(j, k) = "" And Cells(j, k).Interior.ColorIndex = -4142 Then
               
                 Else
               
                
               If Cells(j, k) = "C6" Or Cells(j, k) = "D2" Or Cells(j, k) = "=" Then
              
                  Cnt2_n = Cnt2_n + 2
                
                Else
                
                  Cnt2_n = Cnt2_n + 1
                 
                End If
                
          
               End If
               
         Next k
          
          Snd_job_n(j) = Cnt2_n
         
     Next j
     
     Sheets("SKD-ALL").Select

    
     
     For j = 5 To 36
     
     
     Cells(j, i + Up_n + 1) = Fst_job_n(j)
     
     Cells(j, i + Up_n + 2) = Snd_job_n(j)
     
     
     Next j
     
    Up_n = Up_n + 1
    
     
Next i

Sheets("SKD-ALL").Select


Range("B5:BK36").Select       ' 文字色の初期化
    With Selection.Font
        .Name = "游ゴシック"
        .FontStyle = "標準"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    
    
For i = 5 To 36
       
       For j = 2 To 63
       
       If Cells(i, j) >= Max_n Then
            
          Cells(i, j).Font.ColorIndex = 3 ' 3以上は赤
          
       End If
       
       If Cells(i, j) = 0 Then
            
          Cells(i, j) = ""
          
       End If
       
       Next j
       
Next i

Range("A3") = "MAX " & Max_n

Range("A1").Select

End Sub





わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

ワオ!と言っているユーザー

遅い田植え

この界隈では、米品種「初霜」をつくる農家が多く、田植えが6月初旬になります。
初霜は収穫が11月で、霜の降りる頃、から「初霜」と呼ばれています。
硬質米の大粒品種で寿司米として使われます、味は大味ですが粒がしっかりっしているので
私も寿司飯の場合は、これに普通米をMIXして炊き上げます。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#料理_一宮
#男子厨房に立つべし
#kuma

ワオ!と言っているユーザー

名古屋駅より






わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

ワオ!と言っているユーザー

玉子が高騰?

名古屋駅のきしめんから、玉子きしめんが消えた。


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograp
#kuma

ワオ!と言っているユーザー

これから岡山に

これから岡山に向かいます

わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#kuma

ワオ!と言っているユーザー

台北空港から台北駅

台北の国際空港は桃園(たおゆえん)国際空港と松山(しょんしゃん)の2つですが、
後者は便数が少ないので、実質の国際空港は桃園です。桃園は台北市から西にあり、
以前は高速道路だけが頼りでしたが、今はMRTがあります。

空港からは、第一第二とも出口直近に駅があり便利です。
台北市内に向かうなら、これが最短です、快速なら40分で台北駅に着きます。
到着後、地下通路でMRTの他の路線まで行くことが出来ます、大きな荷物の場合でも
機械昇降装置がほぼあります。






わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

ワオ!と言っているユーザー

今日の夕景(2023.06.05)

毎日、同じようなVideoですが、空の景色は毎日違います。
日没少し前にカメラをセット、5secインターバルで60min
これで24secのTimeLapsになります。


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#Timelapse
#Clipchamp
#Audacity
#Gopro9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

桃園国際空港Gate名

桃園の第2Gateから初めてエントリーしました。
これまではキャセイ航空のみでしたが、今回は中華航空のため第2になりました。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#kuma

ワオ!と言っているユーザー

台湾の水利

台北エリアの撮影

台湾は台北と台南(嘉義平野)とは、水利が異なります。
台北エリアは山から水利が見込めず、ため池が中心となっています。


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#kuma

ワオ!と言っているユーザー

Computex2023-2

Computex2023 2023.05.31 
会場内をGoProの首掛けで撮影しています、3倍速で編集です。


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#Clipchamp
#Gopro9
#kuma

ワオ!と言っているユーザー

今日の夕景(2023.06.04)

週末は資料作成で、どこにも行かず籠もっておりました・・・・




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#Clipchamp
#Audacity
#Gopro9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

Computex 2023

Computex2023 




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#DaVinciResolve
#Gopro9
#kuma

ワオ!と言っているユーザー

今日の夜明け前2(2023.06.04)

今日の夜明け前のTimeLaps
久々に綺麗な夜明け前です、スズメが沢山きていました


わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#Clipchamp
#Audacity
#Gopro9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

今日の夕景(2023.06.03)

強風の中の撮影です、日没ぐらいから撮影開始、1時間のタイムラプスです。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#Clipchamp
#Audacity
#Gopro9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

今日の夜明け前(2023.06.04)

梅雨前線が南下したのか、昨日から今朝は好天です。
久々の朝景で、綺麗な茜雲を見ることが出来ました・・・・




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph


#X100V

#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

台湾と日本のIT事情の格差に愕然

4年ぶりに台湾訪問で、日本との格差に愕然とした。
最先端のことではなく一般のITレベルのことである、マイナカードのことではない。
結論から言えば、デジタル・デバイドの扱いが違いすぎる。
一部の使用出来ない方々のためと称して、その対応が利権化し、それが足を引っ張っている。
まず、ETCカード、台湾は車にステッカーがあるだけで、Gateなどは一切無い。
買い物のパーキングしかり、有料Pが普及しているが、収納の仕組みはすべて電子化。
ナンバー読み取りで解決、店内ですべて決済可能。

MRTに切符はない、カードかチップのみ。
レストランのオーダーは各自のスマホでオーダー、これが簡単で同一システムであるため
導入が容易になっている。
従業員も働きやすく、効率が良い。

「IT利用が苦手は、アナログで・・・」は、台湾では「わがまま」である。



わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

ワオ!と言っているユーザー

映像と音声129(マイクのセット)

Video撮影機(GH5)に、ガンマイクをL-Rをセットしての試験中。
どちらも+48Vが必要なタイプで、XLR端子接続であるためアダプターを使っての接続
となります。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph

#DaVinciResolve
#AVIUTL
#Timelapse
#Clipchamp
#Audacity
#X100V
#kuma

ワオ!と言っているユーザー

桃園空港A9

これから帰国します




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

ワオ!と言っているユーザー

今夕、帰国します

今夕、桃園からセントレアに帰国します。




わかお かずまさ

VegaSystems


📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

ワオ!と言っているユーザー

×
  • ブログルメンバーの方は下記のページからログインをお願いいたします。
    ログイン
  • まだブログルのメンバーでない方は下記のページから登録をお願いいたします。
    新規ユーザー登録へ