オンライン講座 質問と回答

無料・有料のオンライン講座で寄せられたメッセージの一部を紹介致します。

[11706]プログラム全体の概況を確認する

2019-12-23 02:56:46 ゲストさんからの投稿です。

何度もすみません。前段、前々段の投稿はミスがあったため、削除お願いします。

先生こんにちは。シートに削除対象外のシート名を記載するバージョンを(CountIfを使った方がすっきり書けますが、)フラグを使って書いてみました。
 違和感がありましたら、コメントお願いします。

Sub DeleteSheetsByFlag()
    '全てのシートについて
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Sheets
        '削除対象フラグを設定。初期値はオン。
        Dim sakujoFlagOn As Boolean
        sakujoFlagOn = True
        'NokosuList内の全ての値について
        Dim gyo As Long
        For gyo = 1 To ThisWorkbook.Sheets("NokosuList").Range("A" & Rows.Count).End(xlUp).Row
            'もしシート名がリストと一致したら
            '大文字小文字の差を吸収するため、両辺にUcaseを通す
            If UCase(ThisWorkbook.Sheets("NokosuList").Range("A" & gyo).Value) = UCase(Sh.Name) Then
            '削除対象フラグをオフに切り替える。
                sakujoFlagOn = False
                Exit For
            End If
        '保存シート名ループ終了
        Next
        
        '削除対象フラグがTrueのままだったらシート削除
        If sakujoFlagOn Then
            Application.DisplayAlerts = False
                Sh.Delete
            Application.DisplayAlerts = True
        End If
    '全てのシートループ終了
    Next
End Sub

[ 続きを読む ]  返信件数:4件  [ 動画を見る] 

[11236]DPRに基づいたリライト。R→D、D→R

2019-03-10 16:38:16 Y.O.さんからの投稿です。

解説欄には「定数を使った方法、構造体を使っだ方法」と記載されていますが、実際の動画ではDPRの説明が主で、定数や構造体の説明は一切されていないように思います。

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[11120]プログラム全体の概況を確認する

2019-02-11 02:01:39 受講生さんからの投稿です。

>>・残すシートリストを用意しておき、それに該当していない場合のみ削除
この方法は、私の書き方が悪いのかもしれませんが、結構コードが長くなってしまいました。その点、Select Caseは手軽に使えて便利だと思いました。

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[10957]週替りカレンダーを作る

2019-01-18 05:54:05 S.N.さんからの投稿です。

お世話になっております。いつも楽しく拝見しています。
1点だけ、ご検討のお願いがあります。
メインの動画タイトルを「本講座の動画一覧」と同じにしていただくと自分が全体のどの動画を観ているか把握しやすいです。
例)現在:講座で利用するテキスト
  変更後:【動画9】講座で利用するテキスト
ご検討をお願いします。

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 


各講座ごとのメッセージを見る場合はこちら

 

まずはここから!スマホでも学べる無料動画講座

今なら先着30名限定で無料!定価4,800円の、初心者のためのエクセルマクロ動画講座。
  1. Excel 97~Excel 2016まですべて対応。動画本数20本、総再生時間2時間44分53秒
  2. PC, Mac, iPhone, iPad, Androidのお好みの環境で、いつでも好きなときに学べます。
2004年から10年間述べ3,000名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ