LAN-PRO

10月

26日,

2022年

今日の夜明け前2(2022.10.26)

今日の夜明け前、グラデーションが綺麗です。

わかお　かずまさ

VegaSystems

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

#kuma

10月

24日,

2022年

各務原遺産の森トレッキング(2022.10.15-22)

10月8日の刃物まつりの時は山行が出来ませんでしたが、
10/15も10/22も行ってきました。

15日は暑かったのですが、22日は一転し、まさに秋のお山になりました・・・・

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma_ichinomiya
#VegaSystems
#photography_Ichinomiya

#トレッキング
#trekking

#kuma

10月

24日,

2022年

映像と音声その95(音声収録試験）

スキー仲間のGreenSeason最後の集まり、コンサートに行ってきました。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma_ichinomiya
#VegaSystems
#photography_Ichinomiya
#HCX2000
#SKI

#kuma

10月

23日,

2022年

シフトが必要となる現場での依頼。
週単位で作業者のシフトが決定されるので、ここから月単位の自動展開が希望。
1：週単位（日から土）の50人分のリストを5週分シートに展開する（自動）
2：一ヶ月1Bookを使うとのことで、Book名に年月を入れる
3：このファイル名からWeekDay関数とEOMONTH関数を使って、月初の曜日と
月末の日付を得る。
4：曜日は数値で返されるので、この数値から5週分のリストの頭の切り出し位置を決める
5：月末日で一ヶ月分のコピー位置を決定。

仕様は簡単だが、実際に作ってみると、意外に面倒、特にEOMONTH関数は、文字列
では動作が安定せず、シリアル値に変換が必要。

※ExcelとMSGVBAでがシリアル値が同じ日付でも異なる（1日誤差）
1900.01.01と1899.12.31
シリアル値は、この日から起算しての経過日数を数値で表す、Year、Dayの関数で、
年月日を求めることが出来る、セルから値を得るには便利。

以下、サンプルSource

Sub Macro6()

' Macro6 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

' 　ファイル名を取得
XlName = ThisWorkbook.Name

' Debug.Print ThisWorkbook.Name

BookNam = Mid(XlName, 6, 6) ' ファイル名から年・月を切り出す

Sheets("MAS1").Select

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

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

Range("A5") = Mou
Range("A6") = WorksheetFunction.EoMonth(Range("A5").Value, 0)

MonST_n = Weekday(Mou) ' 1日の曜日を求める
SST_n = MonST_n + 18
MonEN_n = WorksheetFunction.EoMonth(Range("A5").Value, 0)
MonED = WorksheetFunction.EoMonth(Range("A5").Value, 0)

Debug.Print Mou
Debug.Print Day(MouED)
Debug.Print MonST_n
Debug.Print SST_n
Debug.Print Day(MonED) + SST_n - 1

End Sub

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

10月

23日,

2022年

秋の陽はつるべ落とし(2022.10.23)

今日の落日です・・・
まさに、秋の陽は

日射角度が下がったいるので同じ時間でも沈下速度が早まりますね。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma_ichinomiya
#VegaSystems
#photography_Ichinomiya
#X100V
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮

#kuma

10月

21日,

2022年

OBS-Studio 080(備忘録として)：ビデオドライバー

最新版OBS(28.03）ではこんなMassageが出る場合があります。

NVIDIAのコンパネに

ここで左下のシステム情報をクリック

アイテムの型番をGET

NIVIDIAのDLページに

アイテムに該当するDriverを探し、インストールします。
※OBSではStudioが対象

OBSで録画を行う場合、VerUpで不適合が出るようです。
写真したの説明を参照して対応してください。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma_ichinomiya
#VegaSystems
#photography_Ichinomiya

#AVIUTL
#DaVinci Resolve
#OBS_Studio
#ATEMMiniPro
#Zoom
#Teams
#Web会議
#Timelapse
#NLE
#Audacity

#kuma

10月

21日,

2022年

映像と音声その94(HC-X2000とX2)

上がHC-X2000、下がHC-X2

HC-X2000とHC-X2　サイズがかなり違います。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma_ichinomiya
#VegaSystems
#photography_Ichinomiya
#X100V
#HCX2000
#HCX2

#kuma

10月

21日,

2022年

今日の夜明け前2(2022.10.21)

今朝の夜明け前。
天候次第ですが、この時間のみ、鮮やかな茜色を見ることが出来ます。

昨日は米国からお客様が来社・・・

わかお　かずまさ

VegaSystems

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

#kuma

10月

21日,

2022年

Excel-VBA セルに自動で背景色を設定する

Excelでの要望のなかに、セルの内容に応じた背景色の設定があります。
タイトルや見出し程度なら手動で簡単ですが、セルの値に応じての着色は、手作業では
大変です。
今回はVBAでセルの値を調べ、それに対応する背景色を設定します。
値を変えれば、背景色も変わります。
手作業なら数時間も必要となり、錯誤も発生しますが、VBAなら瞬間です、ビデオで
ご確認ください。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#AVIUTL

#kuma