レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

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

nohohohohoさんの投稿

(投稿ID: 4600)

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

先生こんにちは。シートに削除対象外のシート名を記載するバージョンを（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

2019/12/23 11:56

小川慶一さんのコメント

(コメントID: 6351)

フラグを使った処理の基本的な流れは抑えられていると思います。
悪くないです。

[1] 変数宣言は、構造文の外へ。
[2] フラグ設定の部分は、いろいろなやり方があります。以下は良い参考になるかと。今後のために示します。
https://www.exvba.com/comment_detail.php?comment_id=11669

2019/12/23 14:17

nohohohohoさんのコメント

(コメントID: 6352)

ご指導ありがとうございます。
参考リンクを拝見したところ、わざわざフラグを使う必要がないこと、フラグって、ループの処理を外に出したり、共通処理をまとめたりしてるだけなことに気づきました。私のコードは、ループから出している処理が単発の3行だけなので、今となっては「この人はなぜフラグを使おうと思ったのか？」という感じです。

改めました。質問欄を汚してすみません。またcode付け忘れました。

Sub DeleteUnlistedSheets()
    Dim Sh As Worksheet
    Dim Gyo As Long
    '全てのシートについて
    For Each Sh In ThisWorkbook.Sheets
        'NokosuList内の全ての値について
        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
                Application.DisplayAlerts = False
                    Sh.Delete
                Application.DisplayAlerts = True
                Exit For
            End If
        '保存シート名ループ終了
        Next
    '全てのシートループ終了
    Next
End Sub

小川慶一さん:

> フラグを使った処理の基本的な流れは抑えられていると思います。
> 悪くないです。
>
> [1] 変数宣言は、構造文の外へ。
> [2] フラグ設定の部分は、いろいろなやり方があります。以下は良い参考になるかと。今後のために示します。
> https://www.exvba.com/comment_detail.php?comment_id=11669
>

2019/12/23 17:25

nohohohohoさんのコメント

(コメントID: 6353)

間違えました。これだと、残すリストにあるのをきれいに消しちゃってますね。だから、フラグ使ってたんですね。

失礼しました。

ゲストさん:

> ご指導ありがとうございます。
> 参考リンクを拝見したところ、わざわざフラグを使う必要がないこと、フラグって、ループの処理を外に出したり、共通処理をまとめたりしてるだけなことに気づきました。私のコードは、ループから出している処理が単発の3行だけなので、今となっては「この人はなぜフラグを使おうと思ったのか？」という感じです。
>
> 改めました。質問欄を汚してすみません。またcode付け忘れました。
>

> Sub DeleteUnlistedSheets()
>     Dim Sh As Worksheet
>     Dim Gyo As Long
>     '全てのシートについて
>     For Each Sh In ThisWorkbook.Sheets
>         'NokosuList内の全ての値について
>         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
>                 Application.DisplayAlerts = False
>                     Sh.Delete
>                 Application.DisplayAlerts = True
>                 Exit For
>             End If
>         '保存シート名ループ終了
>         Next
>     '全てのシートループ終了
>     Next
> End Sub
>

>
> 小川慶一さん:
>
> > フラグを使った処理の基本的な流れは抑えられていると思います。
> > 悪くないです。
> >
> > [1] 変数宣言は、構造文の外へ。
> > [2] フラグ設定の部分は、いろいろなやり方があります。以下は良い参考になるかと。今後のために示します。
> > https://www.exvba.com/comment_detail.php?comment_id=11669
> >

2019/12/23 20:45

小川慶一さんのコメント

(コメントID: 6356)

ゲストさん:

ポイントとしては、以下を分離するという発想を持つことです。
・削除実施する/しないの判定
・削除の実施

今回で言えば、前者が flag の設定、後者が Delete メソッドの実施ですね。

> 間違えました。これだと、残すリストにあるのをきれいに消しちゃってますね。だから、フラグ使ってたんですね。
>
> 失礼しました。
>
> ゲストさん:
>
> > ご指導ありがとうございます。
> > 参考リンクを拝見したところ、わざわざフラグを使う必要がないこと、フラグって、ループの処理を外に出したり、共通処理をまとめたりしてるだけなことに気づきました。私のコードは、ループから出している処理が単発の3行だけなので、今となっては「この人はなぜフラグを使おうと思ったのか？」という感じです。
> >
> > 改めました。質問欄を汚してすみません。またcode付け忘れました。
> >

> > Sub DeleteUnlistedSheets()
> >     Dim Sh As Worksheet
> >     Dim Gyo As Long
> >     '全てのシートについて
> >     For Each Sh In ThisWorkbook.Sheets
> >         'NokosuList内の全ての値について
> >         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
> >                 Application.DisplayAlerts = False
> >                     Sh.Delete
> >                 Application.DisplayAlerts = True
> >                 Exit For
> >             End If
> >         '保存シート名ループ終了
> >         Next
> >     '全てのシートループ終了
> >     Next
> > End Sub
> >

> >
> > 小川慶一さん:
> >
> > > フラグを使った処理の基本的な流れは抑えられていると思います。
> > > 悪くないです。
> > >
> > > [1] 変数宣言は、構造文の外へ。
> > > [2] フラグ設定の部分は、いろいろなやり方があります。以下は良い参考になるかと。今後のために示します。
> > > https://www.exvba.com/comment_detail.php?comment_id=11669
> > >

2019/12/25 18:41

５倍速！メールマガジン

このメールマガジンの詳細はこちら

受講生の声

たった1ヶ月で人生が劇的に変わりました

佐藤信さん

役員クラスの方から高い評価を受けるようになりました。

佐賀県 - 岩本徹さん

今までまったく知らなかったショートカットキーを使いまくっています。

東京都 - 鷹觜慶さん

年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。

東京都 - 宗内隆明さん

受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。

東京都 - 佐伯とも子さん

ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした

東京都 - 飯田倫子さん

受講生の声一覧へ

サイト運営者紹介

小川慶一講師/教材/システム開発者紹介

この学習サイトの教材制作、サポート、システム開発をすべてやっています。

より詳しい紹介はこちら

ショートカットワーク報告

2025年03月26日 22:33

CommaToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月26日 22:12

QuoteToXls-excel
ゴールド賞を達成したこと

cat22さん

2025年03月24日 22:28

QuoteToXls-excel
マイペースでも続いていること

cat22さん

2025年03月19日 20:10

TxtToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月18日 20:52

CommaSpaceToXls
プラチナ賞をとれたこと！

cat22さん

ショートカットワーク報告へ

ショートカットワークコメント

2025年04月16日 08:30

CommaToXls-excel
だいぶ間が空いてしまいました。すみません。実務での活用状況についても報告に含めていただければと …

小川慶一さん

2025年03月18日 09:07

CommaToXls
> エスケープ文字をつけ忘れてうまくいかなくてもあきらめなかったところ「自分ならできる」という…

小川慶一さん

2025年03月18日 09:06

QuoteToXls
> FnとWinキーを押し間違えてウィンドウ表示が変ってしまうところそのこと自体は問題ありませ…

小川慶一さん

2025年03月15日 13:23

TxtToXls
着実に上達されていると感じます (^^

小川慶一さん

2025年02月26日 16:37

TabTo-excel
> Ctrl＋Fn+Shift+End これは大変ですよ。僕も、4キー同時打鍵はしたくありませ…

小川慶一さん

ショートカットワーク一覧へ

コーディングワーク報告

2025年04月02日 21:01

複数の表の間でのマッチング
何も見なくてもスラスラ解けた

cat22さん

2025年04月02日 20:47

複数列の中から、最大値の格納されたセルの情報を出力する
昨日より早くかけたこと

cat22さん

2025年04月02日 20:37

最大値の格納されたセルの情報を出力する
昨日よりスピードがあがった

cat22さん

2025年04月01日 22:03

複数列の中から、最大値の格納されたセルの情報を出力する
動画の真似をしてかけたこと

cat22さん

2025年04月01日 21:27

最大値の格納されたセルの情報を出力する
（１）で類似問題を実施しているので、思ったより早く解けた

cat22さん

コーディングワーク報告へ

コーディングワークコメント

2025年04月16日 08:32

複数の表の間でのマッチング
実務での活用状況どうでしょうか。細かい操作ミスについては気にしないでください。速やかに無意識に修…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
別のところでも書きましたが、イメージトレーニング大切です。次に出てきたときには瞬時に対応するぞ！…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
こういうのは慣れです (^^

小川慶一さん

2025年03月18日 09:09

文字列を加工してデータ転記する(その4)
別海も悪いはないです。両方のパターンを自在に使い分けられるようになるとさらによいですね！

小川慶一さん

2025年03月18日 09:06

文字列を加工してデータ転記する(その5)
イメージトレーニングしましょう！

小川慶一さん

コーディングワークへ