LAN-PRO

Jul

15,

2023

やっとの夏の空(2023.07.16)

やっと夏の日差しです・・・・

わかお　かずまさ

VegaSystems

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

#kuma

Jul

15,

2023

各務原遺産の森トレッキング（2023.07.16）

先週は雨で山行出来ず、昨日も天候不順。
やっと今日行くことが出来ました・・・・・
朝7時スタートではちょっと遅い、6時スタートでないと。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#トレッキング
#trekking

#kuma

Jul

14,

2023

梅雨空の朝TimeLaps撮影（2023.07.15）

梅雨空の朝、陽光はみられません、日の出位置は南下しているはずですが、位置が
不明です。今日は南面のベランダからの撮影。

今日も天候不順で山には行くことが出来ません

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#VegaSystems
#photograph
#Timelapse
#Clipchamp
#Audacity
#GoproHero9
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#トレッキング
#trekking

#kuma

Jul

13,

2023

Video投稿でサムネイルが可能になりました

編集方法は、一旦登録し編集で修正します

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

Jul

12,

2023

Macroを実行すれば、比較的簡単にVBAが生成されます。
問題は、このMacroで出来上がったSourceを如何に編集するかです。

更に重要なのは、セルに関数を書き込まないことです。
開発者飲みが使用するとは限りません、Excelは独り歩きします。

VBAでの使用を想定するなら、セルに関数をいれてはいけません。
せいぜいSUMやAVG程度で、間違っても他のセル参照などは厳禁です。

使用者は幼稚園児以下のIT知識しかないと心得るべきです。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

Jul

11,

2023

Excel VBAでのcell コピー

セルに記号を入力し、それを文字に換えます。
以前は手入力、その後セルにひな形を用意して、コピペ・・・
これでは生産性は全くあがりません。
今回厄介なのは「原型」を残す事。
「誰でも」「前のやり方」を可能にすることだそうです。
昭和頭の文系の考えそうな事、DXなどは無理。

でも、現場での生産性を上げろ！
ようわからん、自分でやってみたら、と言いたい・・・・

Sub Cell_copy()
'
' Cell_copy Macro

'
Dim y, z As Long

Dim A_c, B_c, C_c, D_c, E_c, F_c, G_c, H_c, I_c As String

Dim J_c, K_c, L_c, M_c, N_c, O_c, P_c, Q_c As String

Dim Col1_n As Long

Dim Col2_n As Long

Dim Cel_c As String

Dim rc As Long

' ひな形のある列の検出

Col1_n = Range(Cells(3, 2), Cells(3, 22)).Find("ひな形").Column

Col2_n = Col1_n + 1

rc = MsgBox("記号から作業名に変換します", vbOKCancel)

If rc <> 1 Then

End

End If

A_c = Cells(9, Col1_n)
B_c = Cells(9, Col2_n)

C_c = Cells(10, Col1_n)
D_c = Cells(10, Col2_n)

E_c = Cells(11, Col1_n)
F_c = Cells(11, Col2_n)

G_c = Cells(12, Col1_n)
H_c = Cells(12, Col2_n)

I_c = Cells(14, Col1_n)
J_c = Cells(14, Col2_n)

K_c = Cells(17, Col1_n)
L_c = Cells(17, Col2_n)

For y = 9 To 48

For z = 2 To 18

If Cells(y, z) <> "" Then

Cel_c = Cells(y, z)


Debug.Print Cel_c

Select Case Cel_c

Case "A"

Cells(y, z) = A_c

Cells(y, z).Interior.ColorIndex = 6

Case "B"

Cells(y, z) = B_c

Cells(y, z).Interior.ColorIndex = 6

Case "C"

Cells(y, z) = C_c

Cells(y, z).Interior.ColorIndex = 6

Case "D"

Cells(y, z) = D_c

Cells(y, z).Interior.ColorIndex = 6

Case "E"

Cells(y, z) = E_c

Cells(y, z).Interior.ColorIndex = 6

Case "F"

Cells(y, z) = F_c

Cells(y, z).Interior.ColorIndex = 6

Case "G"

Cells(y, z) = G_c

Cells(y, z).Interior.ColorIndex = 43

Case "H"

Cells(y, z) = H_c

Cells(y, z).Interior.ColorIndex = 43

Case "I"

Cells(y, z) = I_c

Cells(y, z).Interior.ColorIndex = 6

Case "J"

Cells(y, z) = J_c

Cells(y, z).Interior.ColorIndex = 6



End Select

End If

Next z

Next y

'

End Sub

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

Jul

10,

2023

CHAT-GTP VBA

セルの中身、値と背景色を同時に変数に格納したい
そこで、CHAT-GPTに聞いてみた

以下参照

以下のように関数を使用することで、セルの値と背景色を同時に変数に格納できます。

vba
Dim cellData As CellData
cellData = GetCellValueAndColor(Range("A1"))

' セルの値と背景色へのアクセス例
Dim value As Variant
value = cellData.Value

Dim color As Long
color = cellData.Color

上記の例では、cellDataという変数にGetCellValueAndColor関数を使用してセル"A1"の値と背景色を格納しています。CellData型の変数であるcellDataを介して、セルの値と背景色にアクセスすることができます。

このようにすることで、VBAを使用してセルの値と背景色を同時に変数に格納することができます。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

Jul

9,

2023

大型ストロボの整備

しまい込んであった大型のストロボの整備。
Videoが増え、照明がLEDになりで常時点灯や色温度の変更が可能となったので
出番が減り、放置状態だったものを整備する。

スレーブが効くので、工夫次第でまだまだ出番がありそう。
使っていなかった露出計も、合わせて整備＆調整。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO

#kuma

Jul

9,

2023

雨の日は仕事（2023.07.09）

今日も雨、またまた仕事。
VBAの手直し・・・・

Excelの根本を理解できない作成者のそれを、見た目を変えずにシステム化するので
Sheet構成がいつもとは異なる、これをVBAで操作するので、あまり美しくない
Sourceとなり可読性が下がる、これが痛い

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

Jul

9,

2023

雨の日は仕事（2023.07.08）

今日は雨、山にも行けず、結局仕事・・・

ワープロ仕様となったExcelをVBA化、これがめんどくさい
元々、システムなど全く理解できていない方が作成したので、見た目を
変えず、システム化。
これが結構大変、しかし勉強になりました。
この手の人に、絶対にExcelを触らせてはいけないことが・・・・

VBAの合間に映像機器の整備やVerUP

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma