LAN-PRO

6月

11日,

2023年

映像と音声130（三脚沼）

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

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

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

わかお　かずまさ

VegaSystems

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

#kuma

6月

11日,

2023年

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

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

わかお　かずまさ

VegaSystems

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

#kuma

6月

11日,

2023年

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

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

わかお　かずまさ

VegaSystems

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

#kuma

6月

11日,

2023年

Computexでの商談

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

わかお　かずまさ

VegaSystems

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

#kuma

6月

11日,

2023年

今日も雨（2023.06.11）

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

わかお　かずまさ

VegaSystems

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

#kuma

6月

10日,

2023年

今日の夕景2（2023.06.10）

明日は雨模様・・・・

わかお　かずまさ

VegaSystems

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

#kuma

6月

10日,

2023年

今日の夕景（2023.06.10）

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

わかお　かずまさ

VegaSystems

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

#kuma

6月

10日,

2023年

スズメの朝ごはん（2023.06.10）

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

わかお　かずまさ

VegaSystems

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

#kuma

6月

9日,

2023年

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