LAN-PRO

10月

16日,

2022年

今日の夕景(2022.10.16)

今日の夕景・・・
午前中は柿園に、収穫後、刈谷の歴史博物館へ。

幸田の本光寺の寺宝、深溝松平家の展示だったか、文書が多く、それも重要なものは
「写本」ちょっとがっかり。

本光寺はあじさい寺として有名、松平家代々の菩提寺だが、墓所は残念ながら
威厳が保たれているとは言い難い。

寺宝も、この程度だとすると散逸しているのだろう。

わかお　かずまさ

VegaSystems

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

#kuma

10月

16日,

2022年

今日の日の出(2022.10.16)😄

日の出位置が、小牧山と猿投山の中間あたりまできました。
まもなく、猿投の北麓にかかります・・

今日は柿園で収穫のお手伝いです・・・

わかお　かずまさ

VegaSystems

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

#kuma

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