エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.02

この講座を含む定額コースや講座(単体)を購入すると閲覧できます

この動画を閲覧するには、「エクセルマクロ・VBA発展編1フォローアップミニセミナー」をご購入ください。

●演習問題テーマ
:コレクションを対象にしたFor Each構文の利用について学ぶ。文字列か一定の条件を満たしているかどうかを元にして条件分岐する手法を学ぶ。

この講座を含む定額コースに参加するか、この講座を購入することで、講座を利用できるようになります。
定額コースに参加すると、そのコースの利用期間中はいつでも講座を利用できます。
講座を購入すると、いつでも講座を利用できます。

このページには、以下のタイムトライアルワークがあります。
発展編1ミニセミナー02

このページへの投稿/コメント

ナオさんの投稿

(投稿ID: 4862)

シートの見出しカラー番号をマクロの自動記録で確認する時、動画では
.ColorIndex =13と表示されていますが、私のエクセル(2019)で実行してみると .Color = 10498160と表示されます。.ColorIndex と表示させるのに何か設定?とかありますでしょうか。
また過去コメントをキーワードで検索する事は可能でしょうか。
2020年09月21日 17時11分

この投稿へのコメント権限がありません

牧野千秋さんの投稿

(投稿ID: 4368)

感想です

私もやりました「 .Color と .ColorIndex」
マクロの記録で「5287936」と出て作って解答見たら
「10」って書いてあったからなんだ「10」でいいのかと
やってみたら見出しが黒くなった(笑)



2019年02月10日 07時43分

この投稿へのコメント権限がありません

受講生さんの投稿

(投稿ID: 2366)

シートの見出しの色が黒になってしまって驚きましたが、過去のコメントで解決しました☆

関数はどれをつかえばいいのか?どんな式を立てればいいのか?
スッとわかるようなっていて、自分で驚きました。

基礎編でみっちりやった成果なのだと思いました(^^♪
2016年05月10日 23時33分

この投稿へのコメント権限がありません

ゲストさんの投稿

(投稿ID: 1353)

ひとつの群れ(コレクション)に対して繰り返し処理をするFor Each構文
For Next構文は 2 to 15のように数字をしていしますが For Each構文は、しなくていいんですよね
2015年05月20日 07時08分

この投稿へのコメント権限がありません

浜口 智之さんの投稿

(投稿ID: 849)

今回でFor Each構文についてしっくりくるようになりました。
あと基礎編で学んだLeft関数、Right関数、len関数、Instr関数は悩むことなく、うまく組み合わさりました。
難しかったのは色の設定。エクセルのバージョンによって違ってくるのですね。
完全には理解が難しいですが、自動記録から試行錯誤して形作ることはできました。
発展編になって自動記録の中身が読めるのは、かなりの強みですね。
2014年10月27日 03時49分

この投稿へのコメント権限がありません

受講生さんの投稿

(投稿ID: 680)

InStr関数、非常に勉強になりました。
この関数は使いこなせるようになりたいです。
2014年09月04日 23時53分

この投稿へのコメント権限がありません

円崎雄一さんの投稿

(投稿ID: 184)

いつもお世話になります。
問題4の中での質問になります。
発展編の内容とは関係がない部分での質問で申し訳ありません。

"印刷"の文字を抽出するために、Mid関数とLen関数を使いました。
(Right関数が思いつかなかったため)

イミディエイトウィンドウでは、"印刷"の文字が抽出できているように
見えるのですが、IF文の分岐がうまくできませんでした。
(タブの色付けを実行しないでEnd Ifに行ってしまいます)
Sub Mondai4()
    Dim w As Worksheet
    For Each w In Worksheets
        Debug.Print w.Name
        Debug.Print Mid(w.Name, Len(w.Name) - 1)
        Debug.Print Right(w.Name, 2)
        
        If Mid(w.Name, Len(w.Name) - 2) = "印刷" Then   '【Rightが思いつかず、Midでやりました】
        'If Right(w.Name, 2) = "印刷" Then 【お手本の答え】
        
        w.Tab.ColorIndex = 13
        End If
    Next
End Sub

Right関数で得られた値と、どのように違うのかがわかりませんでした。
どうぞよろしくお願いいたします。
2014年05月28日 23時49分

この投稿へのコメント権限がありません

荏隈 直樹さんの投稿

(投稿ID: 150)

どうも荏隈です。
オンライン講座で駆け足で5章まで見終わり、あとはフォローアップで体に叩き込んでいきたいところです。
今回のフォローアップ2も、かなり歯ごたえがありました。

ところで、オープニング問題で、セルの色を変える動作を自動記録で保存すると、以下のようになります。

Sub Macro5()
'
' Macro5 Macro
'

'
With Selection.Font
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.799981688894314
End With
End Sub

使用しているExcelのバージョンは2007です。
色選択の際には、以下の画面が出てきます。
http://www5d.biglobe.ne.jp/~middle/excelcolor.JPG

動画と同じようにならず、そのまま
結局こういうページを見て色を参照して、該当する数値をコードの中に入力しております。
http://www.relief.jp/itnote/archives/000482.php

今回気になった所としてはそんな所でした。
それではよろしくお願いします。
2014年05月06日 03時53分

この投稿へのコメント権限がありません

この講座を含む定額コースや講座(単体)を購入すると閲覧できます

この動画を閲覧するには、「エクセルマクロ・VBA発展編1フォローアップミニセミナー」をご購入ください。