LAN-PRO

11月

18日,

2022年

今日の日の出(2022.11.18)😄

地平線に霞があり遠景がききません。
昨日は社外にあった観葉植物の屋内取り込み、勝手口のクロージャーの交換など
本業以外で時間をとられました。

明日は最後の柿の収穫の予定・・・・

わかお　かずまさ

VegaSystems

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

#kuma

11月

18日,

2022年

今回は、セルの値に応じた色での塗りつぶしです。

まず、セルを乱数を発生させた値で埋めます。

次が本番、このセルの値を読み込み、該当する色で
塗りつぶします。

意外に簡単なプログラむです。

以下、Source

Sub RANSU_01()
'
' RANSU_01 Macro
' 乱数を発生させる

Dim i, j As Integer

Dim Cnt_n As Integer

Sheets("Sheet3").Select

For i = 1 To 25
For j = 1 To 20

' 乱数を1-999の間で発生させる

Cnt_n = Int((999 - 1 + 1) * Rnd + 1)

Cells(i, j) = Cnt_n

Next j
Next i

'

'
End Sub
'--------------------------------------------------
Sub Color_01()
'
' Color_01 Macro
'
' セルの数値に応じて塗りつぶしの色を変える

Dim i, j As Integer

Dim Cel_n As Integer

Sheets("Sheet3").Select

For i = 1 To 25
For j = 1 To 20

Cel_n = Val(Cells(i, j)) 'セルの値を数値化する

Cells(i, j).Select

With Selection.Interior 'With から End Withまでは色を付ける命令
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic

Select Case Cel_n 'ここでセルの値を判定し、色を指定する

Case 1 To 99
.ColorIndex = 3

Case 100 To 199
.ColorIndex = 4

Case 200 To 299
.ColorIndex = 5

Case 300 To 399
.ColorIndex = 6

Case 400 To 499
.ColorIndex = 7

Case 500 To 599
.ColorIndex = 8

Case 600 To 699
.ColorIndex = 9

Case 700 To 799
.ColorIndex = 10

Case 800 To 899
.ColorIndex = 43

Case Else
.ColorIndex = 44

End Select

.TintAndShade = 0
.PatternTintAndShade = 0

End With

Next j
Next i

End Sub

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

11月

18日,

2022年

kuma山荘の電飾

kuma山荘の電飾を下から撮影してみました。

わかお　かずまさ

VegaSystems

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

#kuma

11月

17日,

2022年

Excel VBAを始めるには（011）

20X25のセルに連続番号を入れるだけのVBAです。
Renzoku１は、X-Yの連続番号、
Renzoku ２は、Y-Xで連番を振ります。

今回はCellsの理解のためのVBAです。
ExcelのSheetを使うだけではCellsはあまり使いませんが
VBAでは多用します。Range（”A1”）などでは変数での変化
が出来ませんからCellsばかりになってしまいます。

簡単なSourceですが、中身は重要です。

Sub Renzoku1()
'
' Renzoku Macro

'セルに連続の数値を記入するMacro

Dim i, j As Integer
Dim Cnt_n As Integer

Sheets("Sheet1").Select

Cnt_n = 1 'ここで初期値を1とします

For i = 1 To 20
For j = 1 To 25

Cells(i, j) = Cnt_n ' jとiの位置に注意

Cnt_n = Cnt_n + 1　’Cnt_nに「１」を加算します、これをインクリメントと言います。

Next j
Next i

'
End Sub

Sub Renzoku2()
'
' Renzoku Macro

'セルに連続の数値を記入するMacro

Dim i, j As Integer
Dim Cnt_n As Integer

Sheets("Sheet2").Select

Cnt_n = 1

For i = 1 To 20
For j = 1 To 25

Cells(j, i) = Cnt_n ' jとiの位置に注意

Cnt_n = Cnt_n + 1

Next j
Next i

'
End Sub

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

11月

17日,

2022年

今日の日の出(2022.11.17)😄

かすみがあり、御嶽山が視界にありません。

わかお　かずまさ

VegaSystems

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

#kuma

11月

16日,

2022年

小雨に煙るTV塔

名古屋TV塔の撮影。
芸文の帰路の撮影です、手前がオアシス21。
日曜日の夜、と言っても8時前、地下鉄もJRもガラガラ、地下街も・・・・

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma

11月

16日,

2022年

今日の日の出(2022.11.16)😄

日の出位置は猿投の南麓を下りきって、設楽の低山に差し掛かっています。
今日も快晴、気温がやや下がってきていますが、まだ暖房は不要です。

わかお　かずまさ

VegaSystems

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

#kuma

11月

15日,

2022年

映像と音声その106（三脚収納）

三脚は伸縮が可能であるため、収納には便利ですが、自宅で頻繁に撮影する
場合には縮めておくと、素早い対応が出来ません。
私は撮影のおおくは自宅で行うので、三脚は縮めず伸ばした状態です。
倒れないようにゴムの荷紐で固定し、簡単に使用可能です。

わかお　かずまさ

VegaSystems

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

#X100V

#kuma

11月

15日,

2022年

Excel VBAを始めるには（010）

今回はVBAの変数の扱いが理解し易い、金種計算を取り上げる。
金種計算はExcelでは関数を使えば、VBAなど不要だが、プログラム
学習では金種計算はとても役に立つ。
VBAに限らず、この手の計算は変数の型や切り捨てなどの整形処理を
理解せねば作成出来ない。
結果の正誤も即座に出来る、入門には最適だと思う。

くりかえすが、これはVBAの勉強であり、Excelで金種をやれと言って
いるのではない、Excelには関数があり、こんな面倒な事をしなくても
金種計算は出来る。しかし、VBAで作ることにより、数値の扱い、変数
の代入など習得する内容は多い。

以下、Source
Kinsyu01は1項目のみの計算、Rangeを使ってある。
Kinsyu 02は10項目が出来る、Loop（For-Next)を用い、
繰り返し処理で10項目を処理している。
さらに、RangeではなくCellsを使うことで、変数でセルの扱いが
出来る事を理解出来るVBA。

Sub Kinsyu01()
'
' Kinsyu01 Macro
'
' 変数の宣言は必ず行う、今回はすべて整数型、末尾の_nは数値型を表すVEGAのRule
Dim Zan_n, Man_n, Gos_n, Sen_n, Goh_n, Hya_n, Goj_n, Jyu_n, Goe_n, Ichi_n As Integer

' Sheetの選択
Sheets("Sheet1").Select

'以下は金種の計算、A2に入力した数値を最初は10000で除し、その
'値を変数に入れる

Man_n = Range("A2") / 10000

'ここが重要、変数値には剰余があるので、切り捨て処理をする。
'更に、最初の入力値から、それを減算し、残高とするが、
'この残高は何度も使用する。

Zan_n = Range("A2") - Int(Man_n) * 10000

'ここでは10000の数をB2に入れる（表示される）

Range("B2") = Int(Man_n)

'以下は同じ内容、残高の扱いに注意

Gos_n = Zan_n / 5000

Zan_n = Zan_n - Int(Gos_n) * 5000

Range("C2") = Int(Gos_n)

Sen_n = Zan_n / 1000

Zan_n = Zan_n - Int(Sen_n) * 1000

Range("D2") = Int(Sen_n)

Goh_n = Zan_n / 500

Zan_n = Zan_n - Int(Goh_n) * 500

Range("E2") = Int(Goh_n)

Hya_n = Zan_n / 100

Zan_n = Zan_n - Int(Hya_n) * 100

Range("F2") = Int(Hya_n)

Goj_n = Zan_n / 50

Zan_n = Zan_n - Int(Goj_n) * 50

Range("G2") = Int(Goj_n)

Jyu_n = Zan_n / 10

Zan_n = Zan_n - Int(Jyu_n) * 10

Range("H2") = Int(Jyu_n)

Goe_n = Zan_n / 5

Zan_n = Zan_n - Int(Goe_n) * 5

Range("I2") = Int(Goe_n)

Ich_n = Zan_n / 1

Range("J2") = Int(Ich_n)

'
End Sub

'-------------------------------------------------------------------------------------
Sub Kinsyu02()
'
' Kinsyu02 Macro

'このVBAは、10行分の金種計算をする、記述は１行分だが、For-Nextで10回繰り返している
'重要なのは、Range指定ではなく、Cellsを使っている事。Cellsは（座標はY-X）でなので
'最初のiは行、次の数値は列を示す、行だけ変数で変化させるが、列は固定数値。
'1は入力部分、2から10までは　万、5千、千、五百、百、五十、十、五、一の列の事

Dim Zan_n, Man_n, Gos_n, Sen_n, Goh_n, Hya_n, Goj_n, Jyu_n, Goe_n, Ichi_n As Integer

Dim i As Integer

Sheets("Sheet2").Select

For i = 2 To 11

Man_n = Cells(i, 1) / 10000

Zan_n = Cells(i, 1) - Int(Man_n) * 10000

Cells(i, 2) = Int(Man_n)

Gos_n = Zan_n / 5000

Zan_n = Zan_n - Int(Gos_n) * 5000

Cells(i, 3) = Int(Gos_n)

Sen_n = Zan_n / 1000

Zan_n = Zan_n - Int(Sen_n) * 1000

Cells(i, 4) = Int(Sen_n)

Goh_n = Zan_n / 500

Zan_n = Zan_n - Int(Goh_n) * 500

Cells(i, 5) = Int(Goh_n)

Hya_n = Zan_n / 100

Zan_n = Zan_n - Int(Hya_n) * 100

Cells(i, 6) = Int(Hya_n)

Goj_n = Zan_n / 50

Zan_n = Zan_n - Int(Goj_n) * 50

Cells(i, 7) = Int(Goj_n)

Jyu_n = Zan_n / 10

Zan_n = Zan_n - Int(Jyu_n) * 10

Cells(i, 8) = Int(Jyu_n)

Goe_n = Zan_n / 5

Zan_n = Zan_n - Int(Goe_n) * 5

Cells(i, 9) = Int(Goe_n)

Ich_n = Zan_n / 1

Cells(i, 10) = Int(Ich_n)

Next i

'
End Sub

わかお　かずまさ

VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru

#kuma