LAN-PRO

7月

14日,

2023年

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

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

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

7月

13日,

2023年

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

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

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

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

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

7月

12日,

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

7月

11日,

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

7月

10日,

2023年

大型ストロボの整備

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

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

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO

#kuma

7月

10日,

2023年

雨の日は仕事（2023.07.09）

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

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

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

7月

10日,

2023年

雨の日は仕事（2023.07.08）

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

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

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

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

7月

9日,

2023年

デジタル出力は見た目に拘っては駄目！！

デジタル出力を相変わらず「紙」での要望が多い、利用者によってはデジタルデバイス
が苦手な方もいるので、ある程度は止む得ないと思う。
しかし、その苦手なな方は決して「過度」な要求はしてはならない。
見た目がきれいだの、罫線だの、まして色等は要求してはならない。

理由は簡単、要求すれば「製作者」のすべてが、デジタル出力の本質お理解して
はいないので、あたりがわるいと、待ってましたとばかりに、上記を満たす「過度装飾」
を行う。
カラーをふんだんに使い、バランス称して、レイアウト（列幅・行幅）までいじりまわす。
更にExcelでは最も避けるべきセル結合などを平気でやってしまう。

これは企業としては生産性の低下であり、データ共有の阻害となるが、この手の製作者
は、そんな意識は「ゼロ」どころか「マイナス」であるため嬉々として時間をつぎ込む。

この査定を経営者が出来ないと悲惨な結果になると断言する、些細なことのようだが、
DXなどは絶対に無理である、この過剰は伝染することを忘れはならない。

Excelをワープロ化して使う手合は、害虫に等しいので、即刻駆除すべき・・・・

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

7月

7日,

2023年

これはアカンやろ！！

2つの画像をよく見比べて下さい。
赤の四角部分がエッジですが、RANGEが上の画像は判読できません。
これはセルの大きさが異常サイズため、縮小せざるを得ないからです。
普通のサイズで構成出来るのに、メモリーを浪費してまで、なぜこのような
作り方にするのか、さっぱりわかりません。
しかし、害悪で有ることには間違がありません。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

7月

4日,

2023年

今日の日の出TimeLaps(2023.07.04）

今朝は、久々の快晴状態でしたが、夕方から雷雨の予報
わかお　かずまさ
VegaSystems

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

#kuma