http://w.atwiki.jp/nanamin48/ nanamin48 @ Memo ja 2015-04-29T11:09:25+09:00 1430273365 https://w.atwiki.jp/nanamin48/pages/6.html <p>繰り返し</p> <p> </p> <h3 class="midasi-3" style="margin-left:5px;font-size:1em;color:rgb(0,0,102);padding:3px 3px 3px 10px;border:1px solid rgb(0,100,0);font-family:'MS PGothic';line-height:normal;background-color:rgb(255,255,204);"> <a name="for_next">For～Next</a>　　　<a href="http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_for_next.html#top">topへ</a></h3> <ul style="color:rgb(0,0,0);font-family:'MS PGothic';font-size:medium;line-height:normal;"><li style="padding-bottom:5px;padding-top:5px;"> 繰り返す回数が決まっている場合、指定回数ステートメントを実行します。 <ol type="A"><li style="padding-bottom:5px;padding-top:5px;">C1からC10までにA1*B1の計算結果を入力する。 <ul><li style="padding-bottom:5px;padding-top:5px;"> <table cellspacing="0" class="tblexl" style="border-collapse:collapse;padding:2px;"><colgroup><col span="1" width="600" /></colgroup><tbody><tr><td class="siro" style="border:1px solid rgb(0,102,0);">Sub rei1()<br /> Dim myCnt As Long<br /> 　　<font color="#FF0000">For myCnt = 1 To 10</font><br /> 　　　　Cells(myCnt, 3).Valu 2015-04-29T11:09:25+09:00 1430273365 https://w.atwiki.jp/nanamin48/pages/5.html <ul style="margin:1em 0px;padding-left:25px;color:rgb(62,62,62);font-family:arial, helvetica, 'ヒラギノ角ゴ Pro W3', 'Hiragino Kaku Gothic Pro', Osaka, 'メイリオ', Meiryo, 'MS Pゴシック', clean, sans-serif;font-size:10.9440002441406px;line-height:13.1328001022339px;background-color:rgb(245,245,245);"><li><font color="#5F441A">switch文</font></li> </ul><p> </p> <p style="padding:10px 0px 4px 10px;font-size:11.5600004196167px;margin:4px 0px 4px 20px;width:794.1875px;line-height:1.4;color:rgb(0,0,0);font-family:'MS PGothic';"> 複数の条件により処理を分岐させたい場合はSelect Caseステートメントを使用します。 "Select Case 変数"の形式で式を評価し、Case以下の条件に合致（式を評価した結果がtrueであるとき）だけその次の文を実行します。条件がtrueでないときは、次の次の条件を調べます。 どのCase以下の条件にも当てはまらない場合はCase Else以下の文を実行します。</p> <div class="syntax" style="border:1px solid rgb(0,115,37);padding:4px 10px 0px 20px;margin:0px 0px 5px 30px;width:794.1875px;color:rgb(0,0,0);line-height:1.4;font-family:'MS PGothic';font-size:13.6000003814697px;"> <pre> <code> Select Case 変数 Case 値1 変数=値1の場合の処理 Case 値2 2015-04-29T11:05:40+09:00 1430273140 https://w.atwiki.jp/nanamin48/pages/4.html <ul style="margin:1em 0px;padding-left:25px;color:rgb(62,62,62);font-family:arial, helvetica, 'ヒラギノ角ゴ Pro W3', 'Hiragino Kaku Gothic Pro', Osaka, 'メイリオ', Meiryo, 'MS Pゴシック', clean, sans-serif;font-size:10.9440002441406px;line-height:13.1328001022339px;background-color:rgb(245,245,245);"><li>if文</li> </ul><pre style="color:rgb(0,0,0);"> <code>Sub test() Dim intAge As Integer intAge = InputBox("あなたの年齢を入力してください。") If intAge &gt; 19 Then MsgBox "成人です。" Else MsgBox "未成年です。" End If End Sub</code> </pre> <p> </p> <table border="1" cellspacing="0" class="tbl1" style="margin:auto;font-size:10.9820003509521px;text-indent:3px;line-height:1.2;font-family:'MS PGothic';"><tbody><tr align="center" bgcolor="#00FF00"><td width="70">演算子</td> <td width="70">意味</td> <td>例</td> </tr><tr><td align="center">=</td> <td>等しい</td> <td>If Value=5 Then　⇒　Valueの値が5ならTrue</td> </tr><tr><td align="center">&lt;</td> <td>より小さい</td> <td>If Value&lt;5 Then　⇒　Valueの値が5より小さいならTru 2015-04-29T11:03:20+09:00 1430273000 https://w.atwiki.jp/nanamin48/pages/3.html **カウンター |今日|&counter(today)人| |昨日|&counter(yesterday)人| |&bold(){合計}|&bold(){&counter()人}| 現在&online()人が閲覧中。 **更新履歴 #recent(30) 2015-04-29T10:50:29+09:00 1430272229 https://w.atwiki.jp/nanamin48/pages/2.html <ul><li style="list-style:none;"><br /></li> <li><span style="font-size:16px;"><span style="font-family:'comic sans ms', cursive;"><a href="http://www8.atwiki.jp/nanamin48/pages/4.html">if文</a></span></span></li> <li><span style="font-size:16px;"><span style="font-family:'comic sans ms', cursive;"><a href="http://www8.atwiki.jp/nanamin48/pages/5.html"><font color="#5F441A">switch文</font></a></span></span></li> <li><span style="font-size:16px;"><span style="font-size:16px;"><a href="http://www8.atwiki.jp/nanamin48/pages/6.html"><font color="#5F441A">繰り返し</font></a></span></span></li> </ul><p> </p> 2015-04-29T11:12:05+09:00 1430273525 https://w.atwiki.jp/nanamin48/pages/1.html <h3>ExcelVBA</h3> 2015-04-29T10:53:44+09:00 1430272424