LAN-PRO

Oct

20,

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

Oct

20,

2022

今日の夜明け前2(2022.10.21)

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

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

わかお　かずまさ

VegaSystems

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

#kuma

Oct

20,

2022

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

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

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#AVIUTL

#kuma

Oct

19,

2022

Excel-VBA カラーコード

Webで見つけました、保存しておくと便利です。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

Oct

19,

2022

今日の日の出(2022.10.20)😄

昨日に続いて快晴、雲ひとつありません。

わかお　かずまさ

VegaSystems

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

#kuma

Oct

19,

2022

今日の御嶽山（2022.010.20）

久々にくっきり見ることが出来ました

わかお　かずまさ

VegaSystems

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

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

#kuma

Oct

19,

2022

今日の夜明け前2(2022.10.20)

今日の夜明け前、快晴です。
今日は、PSP内倉社長が来社の予定・・・

わかお　かずまさ

VegaSystems

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

#SIGMA_DP0/2

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

#kuma

Oct

19,

2022

Excelのみでは意識の必要のない小数点の扱いですが、VBAの場合は変数宣言に
注意が必要です。
LongもDoubleも整数型、Singeで単小数点が扱えます。
セル内の値が、
0+12，7.5+12, 11.5+8, 6+8などがあります。
+の前が開始時刻、+の後ろが勤務時間です。
これを数値として取り出さねばなりません。

「+」の位置を検出し、LEFTとRIGHT関数で切り出すのですが、今回慣れない
InStrRevを使ってハマりました。
この関数、探索はは文字列の後ろからですが、返す値は前方からの「位置」、これを
後方からの位置とかって思い込んでの失敗です。

どうにか複雑なケースにも対応出来るように書きました・・・・
これで、Select Caseで処理が出来ます。

以下、Source

Dim Y_n As Long, X_n As Long
Dim i As Long, j As Long, k As Long
Dim Nor_n As Long, Nit_n As Long, Hol_n As Long, Mon_n As Long, Sus_n As Long
Dim Zer_n As Long
Dim W_cF_n As Single, W_cB_n As Single
Dim PoPF_n As Long, PoPB_n As Long

Dim W_c As String, W_c2 As String

For i = 3 To 34

For j = 7 To 57

W_c = Cells(j, i)

'+の前後の数値を取り出す

If W_c = "0" Or W_c = "*" Or W_c = "Y" Or W_c = "=" Then

Else

PoPF_n = InStr(W_c, "+") '+位置を検出前方
PoPB_n = InStrRev(W_c, "+") '+位置を検出後方
PoPB_n = Len(W_c) - PoPB_n + 1

If PoPF_n = 0 And PoPB_n = 1 Then

Else

W_cF_n = Val(Left(W_c, PoPF_n))
W_cB_n = Val(Right(W_c, PoPB_n))

' Debug.Print PoPF_n & ":" & PoPB_n & "-" & Len(W_c)

' Debug.Print W_cF_n & ":" & W_cB_n

End If

End If

Select Case W_c '勤務状態で色を決める

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

Oct

18,

2022

今日の日の出(2022.10.19)😄

今日の日の出、地平線にわずかに雲がありますが、快晴です。
今朝、撮影のためにベランダに出て、今秋初めて寒いと感じました。

今日も予定がいっぱいです・・・

わかお　かずまさ

VegaSystems

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

#kuma

Oct

18,

2022

Excel-VBA 転記は間違いの元

Excelで、「転記」しかしないかた、VBAを書けとは言わないけど、せめて
Macroは使いましょう。
PCの前で、転記をしたりワープロのようにフォントサイズを変えて、無理やりセルに
押し込む事は時間の無駄、DXとは無縁です。
それしか出来ないなら、あなたはPCでのExcelの操作には不向きです。
朝から晩まで、ウンウン唸って、この手を作業をするのは生産性の上がらない無駄な動き
です、VBAで構築すると、場合によっては数秒で終わることがあります、精度も比較に
なりません。
それをしたら、私の仕事が無くなる・・・・

真剣にそう思っているなら、あなたのこの先は、あまり良くないと言えます。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma