LAN-PRO

Oct

30,

2022

Excel-VBA MSGBOX、INPUTBOX

Excel Macroを多用するなとの記事を、時々見かける。
内容は大抵、動作はするが、中身がわからないとのことだ。

本当にそうだろうか、これは投稿者は実は孫引きしているだけで、VBAをまともに
記述出来ないのだろうと思っている。

Macroは作りっぱなしでは、実に可読性が悪い、これは事実。
しかし、これにコメントを入れ、MSGBOXやINPUTBOXを少し書き足してやれば、
安全度は格段に向上する。

以下は、その実例、Macroは最後のブロックのみ、あとはMSGBOXで使用者が判断
できるようになっている。
※複数のMSGBOXを使う場合、処理中断はGotoで終了させるが、Gotoは多用してはダメ。

Sub Pre_Print()
'
' Pre_Print Macro

'
Dim St_c As String, En_c As String

Dim St_n As Long, En_n As Long

Dim rc As Integer

St_c = InputBox("開始行を入力してください", "値をクリアします", "14")

St_n = Val(St_c)

If St_n < 10 Then

MsgBox ("値が小さすぎます")

GoTo Continue
End If

En_c = InputBox("終了行を入力してください", "値をクリアします", "25")

En_n = Val(En_c)

If En_n > 59 Then

MsgBox ("値が大きすぎます")

GoTo Continue
End If

rc = MsgBox(St_c & " - " & En_c & "をクリアします", vbYesNo + vbQuestion, "確認")

If rc = vbYes Then

MsgBox "処理を行います"

Else

MsgBox "処理を中断します"

End If

'
'-------------------------------------------------------------------
Sheets("SKD1").Select

Range(Cells(St_n, 3), Cells(En_n, 33)).Select

Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=-6
Range("A1").Select

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

Continue:

End Sub

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

Oct

30,

2022

柿の収穫

100ｇドローンで撮影、ガードを180度反対に取り付けたため、写っている。
山の様に柿がある、この面積の7-8倍はある・・・・

柿の収穫を手伝った。
多分、15コンテナくらい。1コンテナで15Kg前後だから200Kg程度かな・・・
柿の収穫は、時期によって方法が異なる。色づき始めた頃は、個々に判定せねば
ならず、恐ろしく効率が悪い。
ある時期（今頃だけど年によって当然違う）から、いわゆる「全採り」が可能となる。
つまり手当たり次第に採ってOKとなる。

しかし、広大な柿園での収穫は、やたら手当たり次第では効率が良くない。
一番は運び出しの事を考えないと運搬で疲労する、斜面のある柿畑なので、一輪車
、それもきっちり空気が入ったそれでないと、運び出しで疲れてしまう。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

Oct

30,

2022

今日の夕景(2022.10.30)

今日の夕景、5時すぎには暗闇が・・・・

今日は早朝から柿園での収穫。
約4時間、とにかく採ることにに専念、流石に足が痛くなりました。

わかお　かずまさ

VegaSystems

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

#kuma

Oct

28,

2022

今日の日の出(2022.10.29)😄

きょうも快晴ですが、地平線に薄い靄があります・・・

わかお　かずまさ

VegaSystems

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

#kuma

Oct

27,

2022

映像と音声その102（外部SSD)

SSDを2台接続しています。
1台はSAMSUNGのT5、もう1台はSATAのSSDを携帯ケースに入れ、スマホ用の
保持具でリグに固定しています。

わかお　かずまさ

VegaSystems

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

#kuma

Oct

27,

2022

今日の日の出(2022.10.28)😄

日の出時刻は6時10分をまわりました、位置も猿投の北麓にかかっています。
晴天ですが、室外温度は10℃を切りそうです。
昨日、会社では暖房の準備を始めました・・・・

わかお　かずまさ

VegaSystems

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

#kuma

Oct

27,

2022

映像と音声その101（Video撮影時の照明)

写真撮影の場合、概ね光量が足らないとか逆光補正で補助光（ストロボや反射板）を
用います。特に最近は感度（ISO)が驚く程アップ出来るため、補助光が不要の場合も
あります。
ところがVideo撮影の場合はライトはほぼ必須となります。これには以下の理由があります。

ISOの感度には限界がある。
シャッター速度（IRIS)が約1/30秒以下には出来ない。
発色（色温度）が、他の映像と異なってしまう。

などの理由で、ライト（補助光）がほぼ必須となります。
特に室内の場合、室内灯に色温度があるため、これとの整合性を
考えると、ライトを照射したほうが編集が楽になります。

Web投稿の機会が増えています、良い画像を撮影するには、照明を考えるのも重要です。

わかお　かずまさ

VegaSystems

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

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

#kuma

Oct

26,

2022

今日の日の出(2022.10.27)😄

日の出位置が、まもなく猿投山の北麓にかかります。
この時期が一番天候が安定しています、でも流石に外は寒い・・・

わかお　かずまさ

VegaSystems

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

#kuma

Oct

26,

2022

今日の夜明け前（2022.10.27)

やはり少し雲ある方が、発色は綺麗です・・・・

わかお　かずまさ

VegaSystems

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

#kuma

Oct

26,

2022

映像と音声その100（カメラケース)

HC-X2000は小型ゆえに、普通のカメラケースに収納出来、携帯には便利ですが、
HC-X2はかなり大型で該当するケースがありません（探せばあるけど高額）。
この手の大きさは「出仕事」専用なので、車での運搬を考慮し、プラケースに収納
することにしました。底には分厚いスポンジを敷き、クッションにしてあります。

ファインダーのアイカップを付けたままで、ジャストフィットします。

わかお　かずまさ

VegaSystems

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

#kuma