LAN-PRO

Dec

31,

2022

元旦の国道22号

元旦のR22、流石に今朝は運送系の商用車を見かけけません。
殆どが自家用（古い）です。
この中にEVは現時点では少ないと思いますが、来年はどうなるのでしょう・・・
我が国の自動車メーカー、特に地元は未だにネガキャンをしています、水素は
どう考えても小型には無理があります、PHVなどハイブリッド系の車は、構造
が複雑になり長期使用は無理でしょう。EVは電池交換云々が言われますが、本当に
しっかりしたエビデンスがあるのでしょうか。
ネガキャンは多数の下請けを守るためと考えますが、私はこのままでは国益を
損なう恐れを感じます・・・・

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma_ichinomiya
#VegaSystems
#photography_Ichinomiya
#AVIUTL
#GH6

#kuma

Dec

31,

2022

今日の夜明け前(2023.01.01)

新年初日の出前です。
今日は三河の山々もよく見えます、南東方向なので日の出前が一番視認し易いです。

わかお　かずまさ

VegaSystems

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

#kuma

Dec

31,

2022

Excel VBA 不要行非表示

Excelの利点の中に非表示があります。
行も列も出来ます、これにより取り込んだデータなどの中で
不要な部分を非表示とし、視認での効率アップ、ミスの低減が可能となります。

Loopで、セルの値をチェックし、該当する行があれば非表示にします。
以下が実際に使用しているSource

Option Explicit
Sub Line_Hidden()
'
' Line_Hidden Macro
'

'入居者がいない、またはスタッフがいない行を非表示にする

Dim row_n As Long

Sheets("SKD2-A").Select

For row_n = 14 To 72

If Cells(row_n, 2) = 0 Then

Rows(row_n).Hidden = True 　　'この一行で非表示となる

End If

Next row_n

End Sub

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

Dec

31,

2022

謹賀新年（2023.01.01）

近況のお知らせ

昨年は久々プログラム開発に復帰し、高性能となったPCの速度に助けられ頑張って
おります。
Video関係はWeb会議等での問い合わせが増えております。
長年開発に精魂を傾けた新規格のLANケーブル発売となり、今年はその拡販で
多忙になる予定です。

年初にスキーで転倒をやらかし半年近く回復出来ず山行も減ってしまいましが、
夏過ぎには復帰し低山を徘徊しております。
大病はありませんが山行の影響で足首の軟骨がすり減り注意しています。
今年はドローンでのVideo撮影に本腰を入れ映像の守備範囲を拡大する予定です。
コロナが収まれば海外出張が待っており忙しくなりそうです。
FM一宮の「kumaさんのIT与太話」も頑張って続けております。

本年もよろしくお願い申し上げます。

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma