LAN-PRO

10月

16日,

2022年

Excel-VBA 処理速度を上げる

ExcelVBA]での処理速度を上げる簡単な方法。
Sheetを切り替えての処理の場合、Sheetの描画に時間とPowerを使います。
以下の一行をSourceに入れておけばOKです。
画像を表示させない命令です。

Application.ScreenUpdating = False

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

10月

16日,

2022年

ExcelVBAでのCall文での変数の引き渡し

Call文を呼び出す場合、（）内に変数を指定して渡さないと、引き継ぎが
出来ません。プログラムの素養があればわかることですが、初めての方には
理解出来ない部分です。

以下　Source

Loopの中で、Graph()をCallしています、この時Sheet名を渡しています。
Sourceは2つあり、後半が呼び出される部分です。

Sub CREATE_Graph()
'
' CREATE_Graph Macro

Dim i As Long

Dim She_nam As String

Application.ScreenUpdating = False

For i = 1 To 31

Sheets("SKD1-A").Select

Range(Cells(7, i + 2), Cells(56, i + 2)).Select

Selection.Copy

If i 40 Then
Xe_n = 40 '24時以降は24時に
End If

'Debug.Print Haji_n
'Debug.Print Haji_n - 8

'Debug.Print Naga_n
'Debug.Print Naga_n + Haji_n
'Debug.Print Naga_n + Haji_n - 8

'Debug.Print Y_n
'Debug.Print X_n
'Debug.Print Xe_n

''------------------------------------------------
'勤務時間横グラフ作成

Cells(Y_n, X_n) = Naga_n / 2 '勤務時間を先頭に記入

Range(Cells(Y_n, X_n), Cells(Y_n, Xe_n - 1)).Select

With Selection.Interior

.Pattern = xlSolid
.PatternColorIndex = xlAutomatic

' .Color = 5296274

' .ColorIndex = 42

' Debug.Print Haji_n

Select Case Haji_n '勤務開始時刻で色を決める

Case Is 35

.ColorIndex = 26

Case Else

.ColorIndex = 3

End Select

.TintAndShade = 0
.PatternTintAndShade = 0

End With
'------------------------------------------

Continue:

Next

End Sub

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

10月

16日,

2022年

Excel-VBA 汎用BackUp

ExcelのバックアップのVBAです。
OneDriveなどで複数のPCでの使用を想定しています。
基本的にローカルにBackUpする方法。
日時をファイル名に書き込んでいます、もう一点。
PCのユーザ名を検出して汎用性を上げています。

以下、Source
Sub Backup()
'
' Backup Macro

'

Dim xlTime As String
Dim xlName As String
Dim U_Nam As String
Dim Fld_Nam As String

U_Nam = Environ("USERNAME")

Fld_Nam = "C:\Users\" & U_Nam & "\Desktop\TH-BACKUP\" ' Folder名を指定

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

' 　年月日自分を取得
xlTime = Year(Date) & Format(Month(Date), "00") & _
Format(Day(Date), "00") & _
Format(Hour(Now), "00") & _
Format(Minute(Now), "00")

' 　コピー保存用ファイル名設定
xlName = Left(xlName, InStrRev(xlName, ".")) & xlTime & "_BACKUP"

xlName = Fld_Nam & xlName

Debug.Print xlName

' 　ファイルをコピーして保存する
ThisWorkbook.SaveCopyAs xlName & ".xlsm"

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

10月

15日,

2022年

今日の夜明け前2(2022.10.15)

今日も日の出の陽光は見ることが出来なさそう・・・・

この後、山に出かけます。

わかお　かずまさ

VegaSystems

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

#GFX50S2

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

#kuma

10月

14日,

2022年

映像と音声その93(V型電池からの供給)

V型にはUSBやピン端子があり、ここから電源が供給出来ますが、この電池が一番
使われるのはD-TAPです、ここからはDC14V以上の電池の電圧を直接取り出すことが
出来ます。
StudioCameraには、このための４PXLR端子があり、D-TAPから専用ケーブルで
給電します。

わかお　かずまさ

VegaSystems

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

#kuma

10月

14日,

2022年

映像と音声その92(V型電池の充電)

V型電池の充電は本体にあるD-TAP端子で行います。
これには専用の充電器が必要で、DC15-17Vで充電します。
電池には容量インジケータがあり、これで残容量を調べることが出来ます。

わかお　かずまさ

VegaSystems

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

#kuma

10月

14日,

2022年

映像と音声その91(V型電池の構造)

V型の構造です。
電池背面にV型の金具があり、これが電池ホルダーのV型の受け具に固定されます。
BがAにはめ込まれます、同時にDの電極が、Cに接触固定されます。
Eはリリースボタン、これを押すことで電池を外すことが出来ます。

わかお　かずまさ

VegaSystems

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

#kuma

10月

14日,

2022年

映像と音声その90(V型電池)

最近、V型電池を使い始めました。
StudioCameraの電源は本体には無く、ACアダプターでのDC12-14V給電です。
これだと、移動時ケーブルが邪魔になります、更に電源が喪失（足で引っ掛ける等）の
場合、最悪の結果になります。

そこで大型の電池を採用、この電池には専用の取り付け金具が必要です。
この金具、金具のみとバッテリー端子やON/OFFが出来る仕組み付きがの二種類があり
値段も様々です。金具のみの場合、バッテリー本体に該当端子が必要となります。

わかお　かずまさ

VegaSystems

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

#kuma

10月

14日,

2022年

今日の日の出(2022.10.14)😄

10日ぶりの日の出の陽光の撮影です、長く悪天候が続き、日の出の瞬間が撮影
出来ませんでした。
日の出位置は大きく南下しています、この時期から移動の進みが早くなり、
冬至前にその速度が低下します。

わかお　かずまさ

VegaSystems

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

#kuma

10月

14日,

2022年

今日の夜明け前2(2022.10.14)

今日の夜明け前。
久々の快晴のようです、今日は金曜日、もう一週間が終わります。
昨日もWeb会議が二件、その合間にビデオ撮影、システムの打ち合わせなど・・・
今日は新しいシステムのデータ入力試験、ExcelVBAでの試作で特定業務に特化、
開発コストを如何に低減するかの試行錯誤です。
Excelでの転記業務をDXと思い込んでいる方々への新しい提案です。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma_ichinomiya
#VegaSystems
#photography_Ichinomiya
#SIGMA_DP0
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
に立つべし

#kuma