あめあめふれふれジャンサンがっと
雨だじょー。
春がやってきたじょ。
団子の季節がやってきた。
「ジャンサン」
吉備津様、一日参り。。
「スヌーピー」
あめあめふれふれジャンサンがっと
雨だじょー。
春がやってきたじょ。
団子の季節がやってきた。
「ジャンサン」
吉備津様、一日参り。。
あめあめふれふれジャンサンがっと
雨だじょー。
春がやってきたじょ。
団子の季節がやってきた。
「ジャンサン」
吉備津様、一日参り。。
ジャンサンがはまっていたじょ。
エクセルVBAでセルの色の取得だから、てっきり
Cells(irTarget.Row, irTarget.Clm).Interior.Color
で大丈夫と思っていたら、
例のこれだじょ。
16777215 無色しか取得できない。
エクセルVBAでセルの色の取得だから、てっきり
Cells(irTarget.Row, irTarget.Clm).Interior.Color
で大丈夫と思っていたら、
例のこれだじょ。
16777215 無色しか取得できない。
条件付き書式のセルの色の取得は、これではダメだったじょ。
はまった。
調べると、条件付書式の再評価をVBAでしてとかあるけど、面倒だじょ。
だいたい、世界一短いプログラムを書くジャンサンはしたくない。
そこで、発見したのがDisplayFormatだったじょ。
これで取得できたじょ。
気がつけば簡単だけど、たぶん世界一の技だと思う。
うんうん。
Dim dColor As Double
Dim lnColorIndex As Long
dColor = 0
lnColorIndex = 0
だいたい、世界一短いプログラムを書くジャンサンはしたくない。
そこで、発見したのがDisplayFormatだったじょ。
これで取得できたじょ。
気がつけば簡単だけど、たぶん世界一の技だと思う。
うんうん。
Private Sub Worksheet_Change(ByVal irTarget As Range)
Dim dColor As Double
Dim lnColorIndex As Long
dColor = 0
lnColorIndex = 0
'条件付き書式の色を取得し、実測値に設定(条件付き書式のセルの色と単なるセルの色は別もの)
dColor = Cells(irTarget.Row, irTarget.Clm).DisplayFormat.Interior.Color lnColorIndex = Cells(irTarget.Row, irTarget.Clm).DisplayFormat.Interior.ColorIndex
End Sub
「スヌーピー」
ジャンサンがたい焼きをもらってきてくれたじょ。
最近、食べていなかったじょ。
団子もだじょ。
ジャンサンがたい焼きをもらってきてくれたじょ。
最近、食べていなかったじょ。
団子もだじょ。
「スヌーピー」
ジャンサンが疲れきっている。
心も体も疲れきったときには、
オロナミンCと牛乳のハーフ＆ハーフに限るんだじょ。
効くじょー。
うんうん。
ジャンサンが疲れきっている。
心も体も疲れきったときには、
オロナミンCと牛乳のハーフ＆ハーフに限るんだじょ。
効くじょー。
うんうん。
「スヌーピー」
熊小路に灯りがついた。
先月よりだいぶ咲いてきたじょ。
うんうん、団子の季節だな。
「ジャンサン」
スヌーピーと吉備津様、一日参り。
もうちょっと更新をがんばりたい。
熊小路に灯りがついた。
先月よりだいぶ咲いてきたじょ。
うんうん、団子の季節だな。
「ジャンサン」
スヌーピーと吉備津様、一日参り。
もうちょっと更新をがんばりたい。
「スヌーピー」
なんだったか思い出せない。
なんだったか思い出せない。
「スヌーピー」
春が近いな。
ガソリン代もずいぶん安くなって、ジャンサンはありがたいみたいだじょ。
ジャンサン、ういたぶんで、たい焼きを買ってくれ。
「ジャンサン」
吉備津様一日参り、スヌーピーと。
春が近いな。
ガソリン代もずいぶん安くなって、ジャンサンはありがたいみたいだじょ。
ジャンサン、ういたぶんで、たい焼きを買ってくれ。
「ジャンサン」
吉備津様一日参り、スヌーピーと。
「スヌーピー」
また、階段の上り下りしていたらもらったじょ。
〆はうんどん派なんだが。
また、階段の上り下りしていたらもらったじょ。
〆はうんどん派なんだが。
「スヌーピー」
階段を昇り降りしていたら、もらったじょ。
とらやだな。
うんうん、やっぱり、ようかんより甘くないな。
階段を昇り降りしていたら、もらったじょ。
とらやだな。
うんうん、やっぱり、ようかんより甘くないな。
「スヌーピー」
めぇーだじょ。
うんうん、新しい年がまたはじまった。
さっきジャンサンは商売繁盛のお札と神棚を買っていたじょ。
ジャンサン、寒いね。
「ジャンサン」
吉備津様、新年の一日参り。スヌーピーと
めぇーだじょ。
うんうん、新しい年がまたはじまった。
さっきジャンサンは商売繁盛のお札と神棚を買っていたじょ。
ジャンサン、寒いね。
「ジャンサン」
吉備津様、新年の一日参り。スヌーピーと