http://w.atwiki.jp/wasururu/ 私が良く使うexcel vba ja 2009-05-14T23:32:23+09:00 1242311543 https://w.atwiki.jp/wasururu/pages/15.html ○見つけた！ ○ 2009-05-14T23:32:23+09:00 1242311543 https://w.atwiki.jp/wasururu/pages/14.html Do～Loopステートメント 条件により処理を繰り返したい場合はDo～Loopステートメントを使用します。また、Do～Loopステートメントには条件を指定する方法としてWhile と Untilを使用する方法があります。 >>Whileを使用する場合 While～には"While 条件式"の形式で条件を指定します。条件式がtrueの間、処理が実行されます。従って、通常は処理の中でWhile文の条件式がfalseになるようにしたり、繰り返しを中断するような文を記述します。そうでないとwhile文は処理を永遠にし続けてしまうからです。 "While 条件式"は記述位置には2つの形式があり、記述位置により処理内容が異なってきます。 Whileの位置を前にした場合、条件式を満たしているのかを判断してから繰り返す処理を実行します。 Do While 条件式 条件式を満たすまで繰り返す処理 Loop 下記の例では、まず初期値として変数 i に 1 が代入しておき、次に i が11以下かどうかを評価し、セルに値を代入し、次に i の値を1つ加算し、もう一度 i が11以下かどうかを評価し、セルに値を代入します。この処理を i が10以上になるまで繰り返します。 Sub test() 'セルのA1～A10に1～10を入力する i = 1 Do While i < 11 Worksheets("Sheet1").Cells(i, 1).Value = i i = i + 1 Loop End Sub これに対してWhileの位置を後ろにした場合、繰り返す処理を実行してから条件式を満たしているか判断します。つまりどのような条件でも1回は繰り返す処理を実行します。 Do 条件式を満たすまで繰り返す処理 Loop While 条件式 下記の例では、まず初期値として変数 i に 10 が代入しておき、セルに値を代入し、次に i の値を1つ加算し、 i が11以下かどうかを評価します。つまりWhile 条件式を評価する前に処理を 1回実行しています。i　の値は11なので繰り返す処理を実行せずに終了します。 Sub test() 'セルのA1～A10に1～10を入力する i = 10 Do Worksheets("Sheet1").Cells(i, 1).Value = i i = i + 1 Loop While i < 11 End Sub >>Untilを使用する場合 Until～には"Until 条件式"の形式で条件を指定します。条件式がtrueの間、処理が実行されます。従って、通常は処理の中でUntil文の条件式がfalseになるようにしたり、繰り返しを中断するような文を記述します。そうでないとUntil文は処理を永遠にし続けてしまうからです。 "Until 条件式"の記述には2つの形式があり、記述位置により処理内容が異なってきます。 Untilの位置を前にした場合、条件を満たしているのかを判断してから繰り返す処理を実行します。 Do Until 条件式 条件式を満たすまで繰り返す処理 Loop 下記の例では、まず初期値として変数 i に 1 が代入しておき、次に i が11以下かどうかを評価し、セルに値を代入し、次に i の値を1つ加算し、もう一度 i が11かどうかを評価し、セルに値を代入します。この処理を i が11になるまで繰り返します。 Sub test() 'セルのA1～A10に1～10を入力する i = 1 Do Until i = 11 Worksheets("Sheet1").Cells(i, 1).Value = i i = i + 1 Loop End Sub これに対してUntilの位置を後ろにした場合、繰り返す処理を実行してから条件式を満たしているか判断します。つまりどのような条件でも1回は繰り返す処理を実行します。 Do 条件式を満たすまで繰り返す処理 Loop Until 条件式 下記の例では、まず初期値として変数 i に 10 が代入しておき、セルに値を代入し、次に i の値を1つ加算し、 i が11かどうかを評価します。つまりUntil 条件式を評価する前に処理を 1回実行しています。i　の値は11なので繰り返す処理を実行せずに終了します。 Sub test() 'セルのA1～A10に1～10を入力する i = 10 Do Worksheets("Sheet1").Cells(i, 1).Value = i i = i + 1 Loop Until i = 11 End Sub 2009-01-06T00:11:19+09:00 1231168279 https://w.atwiki.jp/wasururu/pages/13.html Excel　VBA 2009-01-05T23:25:59+09:00 1231165559 https://w.atwiki.jp/wasururu/pages/12.html -文字列内のスペースを削除 11:57 スペースを "" に置き換えればスペースの削除が出来ます。 下記コードはシート1のセルA1:B5のスペースを削除しています。 Sub Test() Worksheets("Sheet1").Range("A1:B5").Replace What:=" ", Replacement:="", Matchbyte:=False End Sub ※Matchbyte:=False　とすれば全角・半角とも削除します。 出展：http://hinekure.vba-soft.com/?eid=253853 2009-01-05T23:24:38+09:00 1231165478 https://w.atwiki.jp/wasururu/pages/1.html **@wikiへようこそ -ウィキはみんなで気軽にホームページ編集できるツールです。 -このページは自由に編集することができます。 -メールで送られてきたパスワードを用いてログインすることで、各種変更（サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等）することができます **まずはこちらをご覧ください。 -[[@wikiの基本操作>http://atwiki.jp/guide/category2.html]] -[[用途別のオススメ機能紹介>http://atwiki.jp/guide/category22.html]] -[[@wikiの設定/管理>http://atwiki.jp/guide/category6.html]] **分からないことは？ -[[@wiki ご利用ガイド>http://atwiki.jp/guide/]] -[[よくある質問>http://atwiki.jp/guide/category1.html]] -[[無料で会員登録できるSNS内の@wiki助け合いコミュニティ>http://sns.atfb.jp/view_community2.php?no=112]] -[[@wiki更新情報>http://www1.atwiki.jp/guide/pages/264.html]] -[[@wikiへのお問合せフォーム>http://atwiki.jp/helpdesk]] 等をご活用ください **@wiki助け合いコミュニティの掲示板スレッド一覧 #atfb_bbs_list(112) **その他お勧めサービスについて -[[大容量１Ｇ、PHP/CGI、MySQL、FTPが使える無料ホームページは@PAGES>>http://atpages.jp/]] -[[無料ブログ作成は@WORDをご利用ください>>http://atword.jp/]] -[[2ch型の無料掲示板は@chsをご利用ください>>http://atchs.jp/]] -[[フォーラム型の無料掲示板は@bbをご利用ください>>http://atbb.jp/]] -[[お絵かき掲示板は@paintをご利用ください>>http://atpaint.jp/]] -[[その他の無料掲示板は@bbsをご利用ください>>http://atbbs.jp/]] -[[無料ソーシャルプロフィールサービス @flabo(アットフラボ)>>http://sns.atfb.jp]] **おすすめ機能 -[[気になるニュースをチェック>http://atwiki.jp/guide/17_174_ja.html]] -[[関連するブログ一覧を表示>http://atwiki.jp/guide/17_161_ja.html]] **その他にもいろいろな機能満載！！ -[[@wikiプラグイン>http://atwiki.jp/guide/category17.html]] -[[@wiki便利ツール>http://atwiki.jp/guide/category32.html]] -[[@wiki構文>http://atwiki.jp/guide/category16.html]] -[[@wikiプラグイン一覧>http://www1.atwiki.jp/guide/pages/264.html]] -[[まとめサイト作成支援ツール>http://atwiki.jp/matome/]] **バグ・不具合を見つけたら？ 要望がある場合は？ お手数ですが、メールでお問い合わせください。 2009-01-05T23:04:23+09:00 1231164263 https://w.atwiki.jp/wasururu/pages/2.html **メニュー -[[トップページ]] -[[プラグイン紹介>プラグイン]] -[[まとめサイト作成支援ツール]] -[[メニュー]] -[[メニュー2]] ---- **リンク -[[@wiki>>http://atwiki.jp]] -[[@wikiご利用ガイド>>http://atwiki.jp/guide/]] **他のサービス -[[無料ホームページ作成>>http://atpages.jp]] -[[無料ブログ作成>>http://atword.jp]] -[[2ch型掲示板レンタル>>http://atchs.jp]] -[[無料掲示板レンタル>>http://atbbs.jp]] -[[お絵かきレンタル>>http://atpaint.jp/]] -[[無料ソーシャルプロフ>>http://sns.atfb.jp/]] // リンクを張るには "[" 2つで文字列を括ります。 // ">" の左側に文字、右側にURLを記述するとリンクになります //**更新履歴 //#recent(20) &link_editmenu(text=ここを編集) 2009-01-05T23:04:23+09:00 1231164263 https://w.atwiki.jp/wasururu/pages/3.html **更新履歴 #recent(20) &link_editmenu2(text=ここを編集) 2009-01-05T23:04:23+09:00 1231164263 https://w.atwiki.jp/wasururu/pages/4.html * ニュース @wikiのwikiモードでは #news(興味のある単語) と入力することで、あるキーワードに関連するニュース一覧を表示することができます 詳しくはこちらをご覧ください。 ＝＞http://atwiki.jp/guide/17_174_ja.html ----- たとえば、#news(wiki)と入力すると以下のように表示されます。 #news(wiki) 2009-01-05T23:04:23+09:00 1231164263 https://w.atwiki.jp/wasururu/pages/5.html * まとめサイト作成支援ツールについて @wikiには[[まとめサイト作成を支援するツール>>http://atwiki.jp/matome/]]があります。 また、 #matome_list と入力することで、注目の掲示板が一覧表示されます。 利用例）#matome_listと入力すると下記のように表示されます #matome_list 2009-01-05T23:04:23+09:00 1231164263 https://w.atwiki.jp/wasururu/pages/6.html * 更新履歴 @wikiのwikiモードでは #recent(数字) と入力することで、wikiのページ更新履歴を表示することができます。 詳しくはこちらをご覧ください。 ＝＞http://atwiki.jp/guide/17_117_ja.html ----- たとえば、#recent(20)と入力すると以下のように表示されます。 #recent(20) 2009-01-05T23:04:23+09:00 1231164263