they're used to log you in. You can always update your selection by clicking Cookie Preferences at the bottom of the page. For more information, see our Privacy Statement. We use optional third-party analytics cookies to understand how you use GitHub.com so we can build better products. We use essential cookies to perform essential website functions, e.g. Application.DisplayAlertsでメッセージを制御する新規のエクセルファイル(ブック)に名前を付けて保存する時、すでに同じ名前のファイルが存在すると、下の警告メッセージが表示されVBAの処理が止まってしまいます。そのため、 ExcelのVBA（マクロ）でIf文を使用して条件を満たす場合と満たさない場合で処理を分ける方法をご紹介します。VBAのIf文の基本から複数条件を指定する方法、IF文を入れ子（ネスト）にする方法も解説しています。サンプルコード付。 今回は、「速読VBA単語」というタイトルにもかかわらず新しく覚える単語が1つもありませんので、最後まで無料で読むことのできる無料公開のページといたします。, 前回Program3-6では配列の練習をしました。次回Program3-7では「二重ル―プ」「１次元・２次元配列」「If文」を組み合わせてコードを記述する練習をしますが、いきなりこれらを組み合わせるのは難易度が高いです。そこで、今回は、少しずつ組み合わせる練習をします。, まず、今回新たに登場する二重ル―プだけを練習します。次に、「二重ループとIf文」「二重ループと１次元配列」の２つの組み合わせをそれぞれ練習します。最後に、二重ループと１次元配列とIf文の3つを組み合わせる練習をします。, なお、このプログラムは速読VBA単語Program3-6までの知識が必要となります。すでに解説したことについてはその説明を省略しています。, 速読VBA単語Program3-6-2までを出題範囲とする練習問題を無料で公開しています。, 「速読VBA単語」は、文法を完全に無視して、難易度順に単語練習をするだけでExcelVBAを習得しようという「邪道」な企画です。本講座は、極めて強い副作用があり安全上注意が必要です。この説明書は本講座を正しく受講するための説明文書です。受講する前に必ずお読みください。, 速読VBA単語Program1-1, Program1-2, Program2-1は無料で公開しております。ぜひご覧ください。, まずは、For文がサクッと書けることが前提です。速読VBA単語Program3-2に戻ってしっかり練習をしましょう。次の図のようにセルA1：A12に1月から12月までの文字列をFor文で表示します。, これを、速読VBA単語Program3-6で学習した出力行数のカウントを使うと次のようになります。Cells(i,1)をCells( [別の変数] ,1)とすることによって、For文の「i」とは関係なく行数をカウントすることができます。ただし、その[別の変数]は勝手に増えることはありませんので、インクリメントをする必要があります。, さらに、1月から12月まですべて31日まであると仮定して、B列に日付を表示します。, 1行目に「1月」と「1日」を出力します。そして、カウンターの変数を1つずつ足しながら2日～31日まで記述します。「1月31日」の段階で行数は31で、最後の「rowcnt = rowcnt + 1」で32行目となってFor文の先頭に戻り、32行目に「2月1日」が入ります。これを12月31日まで繰り返しています。このように、For文で同じ処理を何回も繰り返すことを「ループ（Loop）」またはループ構造といいます。, このループの中で、31回繰り返している部分があります。その部分だけFor文で記述すると次のようになります。, これをループの中に入れたいのですが、「i」は既に1～12の整数を表す変数として使っていますので、その次の「j」を使います。, このようにループの中にループを入れることを「二重（にじゅう）ループ」といい、それぞれのループを「外側のループ」「内側のループ」といいます。, ところで、さきほどの例でB列（日付）のほうを先に考えたとします。つまり、セルB1～B31に1日から31日までの文字列をFor文で表示します。, 1行目から順に1月1日～31日まで出力します。続けて2月1日～31日まで出力します。rowcntは1ずつ増えていきます。これを12月31日まで繰り返しています。, 「i」は1～12を表す変数、「j」は1～31を表す変数として二重ループにします。さきほどと同じコードになります。, 内側のFor文の直前で、数式で計算した日数を変数に入れて「For j = 1 To 日数」とします。ちなみに2020年はうるう年なので、2月は29日まであり366行出力されます。, 二重ループがあって、「i」は１～３を表す変数、「j」は１～４を表す変数です。ところで、受験数学では、2つのアルファベットに範囲があって、2つとも動くと訳が分からなくなるので、1つの文字を固定したほうが解きやすいという「1文字固定法」と呼ばれる解法の鉄則があります。, 二重ループを読むときは外側のループを固定します。繰り返しをせず「 i=1 」として考えます。, A、Bのあと、Cを4回繰り返して、D、Eとなります。ABCCCCDEとなり、そのうち「BCCCCD」が固定した部分です。その固定した部分を3回繰り返すので、A BCCCCD BCCCCD BCCCCD Eとなります。, 外側のループを「i=1」で固定すると次のようになります。1行目に1月1日と表示して、その後、行数のカウントをしながら31日まで表示します。, 次の表で、2行目から13行目までの縦方向の合計を、プラスの数とマイナスの数に分けて求めてみましょう。, ちなみに、金額を入力するのが面倒なら次の数式を使ってください。数式を使った場合は値の貼り付けをして数式を消しておいてください。, この場合、縦に12個の合計を求めて、それを横方向に4回繰り返すことが分かっています。繰り返す順序が決まっている場合は、先に繰り返すほうのループ（12個の合計を求める）を先に作ります。プラスだけの合計とマイナスだけの合計を格納する変数を用意します。, B列の合計だけを求めます（条件付き合計について詳しくは速読VBA単語Program3-4参照）。このとき、列番号を「２」に固定していることを意識しながらコードを記述します。B列の合計が正しく計算できていることを確認しておきます。, 2行目だけの合計を求めます。このときも行番号を「２」に固定していることを意識しながら記述します。, ・セルA2:A49は、適当な文字列を入力しておきます。連番である必要はありません。・セルB2:B49は、A、B、Kの3種類の文字列をランダムに入力しておきます。ランダムに入力するには「=CHOOSE(INT(RAND()*3)+1,"A","B","K")」という数式を使えば良いですが、数式を使った場合は値の貼り付けをして数式を消しておいてください。, 次の図のようにセルA2：A49に入力されている文字列を、D, F, H, J, L列に転記してみましょう。, ところで、列番号の4～12の連番はFor文を使って次のように記述することができます。, 次の図のようにセルA2～A6に入力されている文字列を配列に入れて、それをセルD1～D150に転記してみましょう。, 「rowcnt = rowcnt + 1」で1行飛ばしながら同じコードを25回繰り返すだけで完成です。, 次に、D～E列に転記をしますが、そのときに、転記先の行番号を変数にします。 2行目からデータを表示するのでスタートを「２」にします。, B列のデータは配列group()に代入していますので、「If group(i) = "A" Then」とします。これでAグループの場合だけ転記をすることができます。, 「"A"」「"K"」「"B"」の部分が違うだけでコードの形は同じです。このような場合は、「"A"」「"K"」「"B"」を配列にすればFor文が使えます。, 次の図のように、セル範囲A1:J20にCells()の文字列を出力してみましょう。, このように繰り返す方向が縦横2方向で、しかも、縦横どちらを先に繰り返してもよい場合は、次のように二重ループの枠を作ってしまう方法があります。縦 i=1～20、横 j=1～10とします。通常は縦が i で、横が j です。, さきほどの「Cells(i,j)」の問題で、i=1～100、j=1～100にすると、100行100列表示されます。, 外側のループを20回繰り返して、21回目に行かずにそのままFor文が終わります。これで20行100列となります。このように繰り返しが終わることを「ループを抜ける」といいます。, 内側の繰り返しは20回になりますが、外側は100回のままです。したがって、100行20列となります。このように、内側のループにExit Forを入れると、内側のループは抜けますが、外側のループは抜けません。20行20列にしたい場合は両方に入れる必要があります。, Program3-6-2は以上となります。二重ループの練習問題を無料で公開しています。, 次回はProgram3-7「２次元配列に入れて２次元配列を出力する」です。引き続きよろしくお願い申し上げます。, VBAで使われる主要な単語を難易度順に覚え、ネイティブのVBAプログラマの書くコードと日本語訳を交互に聞き流す（読んだり入力したりする）だけで、自然にVBAの文法を習得することができます。難しい文法の説明が一切無いので、最速で2次元配列と2重ループが習得できます。
フラダンス のイラスト の 描き方 4, 東海 大 札幌 入学 金 4, バンドック ソロティピー カーキ 8, 車 ミラー サイド 6, Windows10 Vb6 不具合 22, リ ケーブル 純金 4, ドッカンバトル Cm Taka 37, 派遣 体調不良 診断書 8, Mp4 Avi 変換 Aviutl 6, アメックスプラチナ 特典 2019 7, 田中樹 ラップ 作詞 35, In A Sense 例文 4, ジムニー シフトノブ交換 Jb64 6, Ff14 遺失物管理人 グリダニア 4, 米麹 甘酒 作り方 14, おじさん 顔文字 ひげ 7, テレビ 平面 図 4, ペット カインド 涙やけ 4, Ae タイムラインパネル 消えた 6, Google Cloud Function Python Example 6, デスクライト まぶしい 対策 11, 大学 面接 態度 5, Ff14 髪型 一覧 アウラ 12, 奇 しき ゆかり 4, The Hole 英二 7, Jack Johnson Better Together Chords 9, 電線 地面 静電容量 5, モテる男 Line 余裕 5, Just As A Flower Zip 4, アイリスオーヤマ テレビ ユーチューブ 21, 地養卵 キャンペーン 2020 4,