エクセル マクロはおまかせ excelのちょっとした便利わざ -8ページ目

マクロには、マクロにわかる言葉で

マクロで  いろいろ

マクロで  かんたん


マクロ藤田です。






マクロでいろいろ作り始めて、 気がつけば、早や 10数年・・・・


今では、こんなことマクロでできないかな、 と完全にマクロ思考に?




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


『 マクロ の 自動記録に注意しよう 』


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

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


http://ameblo.jp/excel2000/entry-10340633042.html


前回は、




あるセルの 1を 消しなさい


のところで


このあるセルというのを A1 のセルとして


その   A1 の セルに 1を 入れるマクロを


自動記録で、 つくりましょう。


というところまで、やりました。



さて、  ここで、



ひとつ、問題があります。


といいましたね

単に、A1  の セルに 1を いれるだけなのに


なぜ?



それは、


あなたは、 自動記録を始めるときに、


カーソルを A1の 位置に 持って行ってから


はじめましたか?

それとも、


自動記録を始めてから、


カーソルを A1  の位置に 持って行きましたか?




え? それって なにか  違いがあるの??



それは、


次回に続く・・。

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


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



やり方は、人によってちがう


マクロに、 指示するあなたも、


やり方が ちがうと


マクロのほうも、 受け取り方が ちがってくる



言い方が ちがうと


ちがう 結果に なるんだよ



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


マクロは、ダイヤブロック

マクロで パワーアップ

マクロで なんでもすいすい


マクロ藤田です。






マクロを独学で始めて、 気がつけば、早や 10数年・・・・


今では、マクロをだれにでも、やさしく教えることを日夜考えたり。。。




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


『 マクロ の 構文は、 パクって利用しよう 』


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

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


http://ameblo.jp/excel2000/entry-10339109719.html


前回は、



IF あるセル = 1   then


絵を出しなさい


そして、あるセルの 1を 消しなさい





の、 あるセルの 1 を消しなさい。


これを、どうするか?


ということで、

まず、


あるセル、 というのを  とりあえず 



 A1 のセル に してみました。


そして


その   A1 の セルに 1を 入れるマクロを



自動記録で、 つくりましょう。


というところまで、やりました。



さて、  ここで、



ひとつ、問題があります。



A1 に  1 を 入れる マクロの 自動記録


あなただったら、 どうやりますか?



「どう、 やりますかって 、 やり方は ひとつにきまってるじゃないの?」



たしかにそうなんですが、



じつは、 人によって、 自動記録の結果は、 違ってきてしまうのです。



それは、なぜか?



それは、


次回に続く・・。

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


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


こどものころ、あそんだ ダイヤブロック


レゴブロック というのも あったな


レゴの方は、 組むのに ちょっと硬かったけれど。



ブロックは、いくらでも、 組み替え可能


自由に 組み立てられる。



マクロも、 組み換え可能 だ


自由に 組み立ててみよう。

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


マクロはヒーロー

マクロでみんなハッピー


マクロで GO GO


マクロ藤田です。





マクロにはまりこみ、 気がつけば、早や 10数年・・・・

そして、ブログを書き続けて、 読者が 100人


その100人目の 読者さんは、

元警察官「愛★戦士」  さんの

警察官採用試験合格アドバイザー     「愛★戦士」公式ブログ

元人事採用警察官で宝地図ナビゲーターの私が、夢実現法をあなたに伝えます。

http://ameblo.jp/takaratizupoliceman/


マスクをしてますが、実物は、さわやかイケメンさんです。

そして、彼のサイトは、彼の警察官経験を生かした、警察官採用試験合格のための情報が満載!

警察官になりたい人、 ↓ 必見です!

http://www.lovepoliceman.com/


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


『 マクロ の自動記録を利用しよう 』


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

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

http://ameblo.jp/excel2000/entry-10336372437.html


前回は、


途中まで、マクロをいじってみました。


でも



めざす、最終形は、



IF あるセル = 1   then


絵を出しなさい


そして、あるセルの 1を 消しなさい



または、


あるセルが 1でなければ


絵を 引っ込めなさい


そして、あるセルを 1 にしなさい




こういう、マクロを目指します。


そして

IF あるセル = 1   then


絵を出しなさい


そして、あるセルの 1を 消しなさい



の 絵を出しなさい、の部分は、 パクリで 出来上がりました。



そして、 あるセルの 1 を消しなさい。


これを、どうするか?


まず、


あるセル、 というのを どこにするか、決めましょう。



どこでも、いいのですが、 A1 のセル に してみるとします。



その   A1 の セルに 1を 入れてみます。



さあ、 マクロの自動記録で、


その 「 1 」 を 消す動作を 記録してみましょう。



そして、 その記録したマクロを どうするか?



それは、


次回に続く・・。

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


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


いつの世にも、ヒーローは かっこいい


ん? 


このヒーローは、いったい?




ロゴコンセプトは、日本経済のヒーローっぽい

↑ クリック ↑

9月11日、午前11時11分にレバレッジのロゴが生まれ変わる!

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


マクロは、スープカレー

マクロでバンザイ!


マクロで自由自在


マクロ藤田です。





マクロを あやつり

マクロで、あれも、これも、 気がつけば、早や 10数年・・・・







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


『 マクロ の自動記録の使い道 』


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

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

http://ameblo.jp/excel2000/entry-10336168840.html




前回は、

自動記録したマクロをみて、


内容をパクってみました。

IF あるセル = 1   then


絵を出しなさい




の 絵を出しなさい の 部分は、



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


このおまじないを、そっくり使います。




IF あるセル = 1   then



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


こうなりました。



でも



これで、完成では、ありません。




めざす、最終形は、



IF あるセル = 1   then


絵を出しなさい


そして、あるセルの 1を 消しなさい



または、


あるセルが 1でなければ


絵を 引っ込めなさい


そして、あるセルを 1 にしなさい




これが、最終形です。




IF あるセル = 1   then

絵を出しなさい

そして、あるセルの 1を 消しなさい



の 絵を出しなさい、の部分は、 パクリで 出来上がりました。



そして、 あるセルの 1 を消しなさい。


これを、どうするか?




それは



次回に続く・・。



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


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




スープカレーは、普通のカレーライスとちょっと違う。


マクロが使えるようになると、いつものEXCELとは、


ひと味違ってくる。



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



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

マクロに悩み、


マクロで一喜一憂


マクロ藤田です。





マクロで、波に乗って

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







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


『 マクロ で 自由自在 』


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

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

http://ameblo.jp/excel2000/entry-10335581857.html




前回の


IF あるセル = 1   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 で 終わっているところまでが


1つのかたまりです。



そして、パクるのは、


この部分です



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


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


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


ただのかたまり、 


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


思っていて下さい。



さて、

これを、どうするか?


それは



次回に続く・・。



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


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



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

でも、自由自在

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

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