- ホーム
- 講座一覧
- 講座「発展編1 フォローメールセミナー」
- 教材「発展編1 フォローメールセミナー 第3回」
発展編1 フォローメールセミナー 第3回
解説
この教材についての過去の質問・感想
12686 : 小川慶一の回答 (2020-12-21 11:19:42)
受講生 さん:
フィードバック、ありがとうございます。
> 前回の予習では、私はIf文にAndで"main"と"main2"を設定しましたが、
そのやり方でももちろんOKです。
解決策の引き出しが多いのはとても良いことですので、いろいろご自身で試したりして楽しんでください。
何かあれば、いつでも遠慮なく問い合わせ/ご相談をください。
ひきつづきよろしくお願いいたします。
12685 : 受講生さんのコメント (2020-12-20 12:48:26)
何とかこの回まではできました。次回の予習も行います。
前回の予習では、私はIf文にAndで"main"と"main2"を設定しましたが、
解説のIf Left(sh.Name, 4) <> "main" Then
はスマートですね。
12449 : 小川慶一の回答 (2020-09-24 20:28:08)
たかちゃんさん:
ピリオドは「~の」、イコールは「~を、○○にする」ということで。
Application.DisplayAlerts = False '「Application の DisplayAlerts を False にする」ですね。その状態にしてからの作業では画面は更新されない。 True の状態では、画面は更新されます。
> 自分はmacOS版のエクセルを使っているので、少し動作がおかしいと
> 直ぐにmacOS版だから動作が変なのか?!と疑ってしまう癖があって反省です。(^^;
Mac版のことは(特に最近のバージョンについては)わかりません。
ですが、なにかあって調べてみても分からないことがあった場合はこちらでも質問してみてください。
12448 : たかちゃんさんのコメント (2020-09-24 09:34:20)
Application.DisplayAlerts は、変数宣言後にFalseと設定
プログラムの終わりにTrueと設定し元に戻すのですね。
最初に解説をよく見ないで最後に、Application.DisplayAlerts を設定し
あれ効かない?!と焦って、ネットで暫く調査していました。
しかも運が悪いことに、2016年当時の某サイトの投稿でExcel for 2016だとDisplay Alertsは効かないと書いてある投稿を見て、回避策はないものか暫くさがしていました。。。
しかし、セミナーの動作確認済みデータを確認した所、正常動作。
改めて確認した所、単純な設定ミスでした。
自分はmacOS版のエクセルを使っているので、少し動作がおかしいと
直ぐにmacOS版だから動作が変なのか?!と疑ってしまう癖があって反省です。(^^;
12308 : 小川慶一の回答 (2020-07-27 16:56:38)
mayuさん:
こんにちは。
> 追加したシートを選択するのに、ActiveSheet.Nameで指定しましたが、問題ないでしょうか?
> 解答例では、Sheets("main1 (2)").Nameでシート名が指定されていました。
どちらでも良いです。
どちらでも解決できるようになっているのが好ましいです。
将来エクセルの仕様が変わって、シート追加直後に追加したシートがアクティブにならなるなるかもしれません。
そのときには、講座で示した方法で解決してください。
逆に、シートコピーしたときのネーミングルールが変わるかもしれません。
極端な話、シート名の最後にランダムな文字列が4文字加わるとか。
そのときには、 ActiveSheet.Name で解決してください。
12305 : ゲストさんのコメント (2020-07-26 12:25:21)
お世話になります。
するどいツッコミ頂いたので(笑)
フォローアップセミナーのうち、最低でも3回に1回は感想を送ります!
言い訳になりますが、今朝ちょうど取り組んでいたところだったのですごくタイムリーでおかしかったです(笑)
ようやく第3回フォローアップセミナーまで進みました。
追加したシートを選択するのに、ActiveSheet.Nameで指定しましたが、問題ないでしょうか?
解答例では、Sheets("main1 (2)").Nameでシート名が指定されていました。
課題通り動いています。
こんな質問していいか迷いましたが、少し気になりましたので、よろしくお願いいたします。
10116 : 小川慶一の回答 (2018-06-13 18:24:49)
横山 知明さん:
発展編1の第5章で扱っています。以下から。
https://online.pc5bai.com/movie/index/29/227
導入編でもやっていますよ。以下から。
https://online.pc5bai.com/movie/index/10/22
折を見て、導入編からひととおり復習されることをおすすめします。
> ″プロシージャ内で、別のプロシージャを呼んでくる”という発想が全くなかったので、凄い!と感心しました。
10115 : 横山 知明さんのコメント (2018-06-13 06:08:06)
10114 : 横山 知明さんのコメント (2018-06-13 06:07:56)
2734 : 小川慶一の回答 (2014-10-15 05:24:56)
匿名 さん:
順調ならなによりです☆
質問等あればいつでもどうぞ!
>とりあえず、ここまで追いつきました。
>予習問題[1]~[3]は、シートをコピーする際、一番後ろに挿入するようにしていればやりやすかったと思うのですが、とりあえずIF文でやってみました。
>予習問題[4]では、Format関数を使ってみました。
2729 : 受講生さんのコメント (2014-10-14 23:52:09)
とりあえず、ここまで追いつきました。
予習問題[1]~[3]は、シートをコピーする際、一番後ろに挿入するようにしていればやりやすかったと思うのですが、とりあえずIF文でやってみました。
予習問題[4]では、Format関数を使ってみました。
3284 : ガラパゴスタディー事務局の回答 (2014-05-06 17:12:00)
3282 : 荏隈 直樹さんのコメント (2014-05-06 11:54:00)
3112 : ガラパゴスタディー事務局の回答 (2013-01-25 08:33:00)
山根さん:
いまのところ、よさげ。変数名のセンスもよいです。
変数名、プロシージャ名は、大文字小文字を組み合わせたものにすると、なおよいです。
なぜかというと、それらを呼び出すコードを書くときに書くのがちょっと楽になるからです。
どうして楽になるかは考えてみてください。
3111 : 山根信行さんのコメント (2013-01-25 01:44:00)
えー放置とのことですのでw
自力で書いてるマクロを掲載します。
マズいようなら削除して下さい。
もちろん解説どおりのマクロはその後で別に書いてます。
後々どのような問題が発生するのかこれはこれで書いていこうと思います。
Sub Macro1_1() Dim cnt As Long Dim ssg As Long Dim wsdata As Worksheet Dim wsformat As Worksheet Call sheetdelet ssg = Worksheets("main").Range("b65536").End(xlUp).Row Set wsdata = Worksheets("main") '元データ Set wsformat = Worksheets("main1") '伝票フォーマット Debug.Print ssg For cnt = 2 To ssg wsformat.Copy After:=Worksheets(cnt) ActiveSheet.Name = wsdata.Range("b" & cnt).Value Next End SubSub sheetdelet() Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In Worksheets If Left(ws.Name, 4) <> "main" Then ws.Delete End If Next Application.DisplayAlerts = TrueEnd Sub
シート削除の警告が連続した時は少し驚きましたが、
For each構文を迷わず書けたのには嬉しくなりました。
楽しいです!

本講座の動画一覧
-
【動画1】 発展編1 フォローメールセミナー 第1回
-
【動画2】 発展編1 フォローメールセミナー 第2回
-
【動画3】 発展編1 フォローメールセミナー 第3回
-
【動画4】 発展編1 フォローメールセミナー 第4回
-
【動画5】 発展編1 フォローメールセミナー 第5回
-
【動画6】 発展編1 フォローメールセミナー 第6回
-
【動画7】 発展編1 フォローメールセミナー 第7回
-
【動画8】 発展編1 フォローメールセミナー 第8回
-
【動画9】 発展編1 フォローメールセミナー 第9回
-
【動画10】 発展編1 フォローメールセミナー 第10回
-
【動画11】 午後のフォローアップ No.1
-
【動画12】 発展編1 フォローメールセミナー 第11回
-
【動画13】 午後のフォローアップ No.2
-
【動画14】 発展編1 フォローメールセミナー 第12回
-
【動画15】 午後のフォローアップ No.3
-
【動画16】 発展編1 フォローメールセミナー 第13回
-
【動画17】 午後のフォローアップ No.4
-
【動画18】 発展編1 フォローメールセミナー 第14回
-
【動画19】 午後のフォローアップ No.5
-
【動画20】 発展編1 フォローメールセミナー 第15回
-
【動画21】 午後のフォローアップ No.6
-
【動画22】 発展編1 フォローメールセミナー 第16回
-
【動画23】 午後のフォローアップ No.7
-
【動画24】 発展編1 フォローメールセミナー 第17回
-
【動画25】 午後のフォローアップ No.8
-
【動画26】 発展編1 フォローメールセミナー 第18回
-
【動画27】 午後のフォローアップ No.9
-
【動画28】 発展編1 フォローメールセミナー 第19回
-
【動画29】 午後のフォローアップ No.10
-
【動画30】 発展編1 フォローメールセミナー 第20回
-
【動画31】 午後のフォローアップ No.11
-
【動画32】 発展編1 フォローメールセミナー 第21回
-
【動画33】 午後のフォローアップ No.12
-
【動画34】 発展編1 フォローメールセミナー 第22回
-
【動画35】 午後のフォローアップ No.13
-
【動画36】 発展編1 フォローメールセミナー 第23回
-
【動画37】 午後のフォローアップ No.14
-
【動画38】 発展編1 フォローメールセミナー 第24回
-
【動画39】 午後のフォローアップ No.15
-
【動画40】 発展編1 フォローメールセミナー 第25回
-
【動画41】 午後のフォローアップ No.16
-
【動画42】 発展編1 フォローメールセミナー 第26回
-
【動画43】 午後のフォローアップ No.17
-
【動画44】 発展編1 フォローメールセミナー 第27回
-
【動画45】 午後のフォローアップ No.18
-
【動画46】 発展編1 フォローメールセミナー 第28回
-
【動画47】 午後のフォローアップ No.19
-
【動画48】 発展編1 フォローメールセミナー 第29回
-
【動画49】 午後のフォローアップ No.20
-
【動画50】 発展編1 フォローメールセミナー 第30回
-
【動画51】 午後のフォローアップ 最終回
コメント紹介
もっと見る