『マクロは、スネークキューブ』

マクロに悩み、

マクロで一喜一憂

マクロ藤田です。

マクロで、波に乗って

マクロで、調子にのって、早や　１０数年・・・・

さて、今日のテーマは・・

『　マクロ　で　自由自在　』

※前回の続きになっていますので

　前回の記事を読んでいない人はコチラから↓

前回の

IF あるセル　=　１　　 then

絵を出しなさい

で、絵を出しなさい　の　マクロを　

すでに　自動記録した　マクロを　パクる　　

ため、

自動記録した構文を見てもらいました。

これです

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2009/5/18 ユーザー名 : maipenrai
'

'
ActiveSheet.Shapes("Picture 11").Select
Selection.ShapeRange.ZOrder msoSendToBack
Range("H13").Select

End Sub

この

Sub で始まり、

End Sub　で　終わっているところまでが

１つのかたまりです。

そして、パクるのは、

この部分です

ActiveSheet.Shapes("Picture 11").Select
Selection.ShapeRange.ZOrder msoSendToBack
Range("H13").Select

これは、意味わからなくてもいいです。

内容を覚える必要もありません。

ただのかたまり、　

絵を出すための、おまじない　だと　

思っていて下さい。

さて、

これを、どうするか？

それは

次回に続く・・。

━─━─━─━─━─━─━─━─━─━─

本日のマクロ藤田の言葉。

スネークキューブは、ルービックキューブのパクリだった。

でも、自由自在

マクロも、自由自在。　　どんどんパクろう。

━─━─━─━─━─━─━─━─━─━─

エクセル マクロはおまかせ excelのちょっとした便利わざ