ExcelVBA

ExcelVBAの意味

ExcelVBAに関するQandA

  • ExcelVBAについて質問です。 [取込]ボタンを押下する..

  • ExcelVBAについて質問です。 [取込]ボタンを押下すると自動で下記動作を実行するVBAについて 教えて頂けますと大変助かります。 [取込]ボタン(オートシェイプ四角)←マクロの登録 1)セル(固定 例:C19)を選択 2)データ>外部データの取込み>データの取込みを選択 3)[データファイルの選択]画面にて対象ファイル(tsv)を選択   ※tsvファイルはタブ区切り 4)[テキストファイルウィザード 1/3] デフォルトのまま[次へ]   ※データ形式は、カンマやタブなどの区切り・・ 5)[テキストファイルウィザード 2/3] デフォルトのまま[次へ]   ※区切り文字はタブ、文字列の引用符は" 6)[テキストファイルウィザード 2/3] ★データ形式を変更   11列目→文字列   12列目→文字列   13列目→文字列   ※日付を[2010/01/28 17:00:00]←このままで取込みたい為   [完了]を押下 7)取込み後、自動保存 ★他の動作 ・セル(固定 例:C2)に取込んだファイル名を表示 ・上記で取込みをすると、自動で列を調整するため  取込む前の状態(Excel)の列幅は変えないようにしたい。(重要) ご教示頂けますと大変助かります。 以上 宜しくお願い致します。
  • ExcelVBAの質問です。 WinXP Office2010βです。 Offi..

  • ExcelVBAの質問です。 WinXP Office2010βです。 Office2010から実装が無くなったカレンダー コントロール (mscal.ocx)をver2003の時に作ったExcelVBAに使っており、代替を探しています。 ご存じでしたらご教示ください。(_ _)
  • ExcelVBAについての質問です。 環境:WinXP Office2010..

  • ExcelVBAについての質問です。 環境:WinXP Office2010β インターネットのサーバ上に保存されているExcel(xlsxでマクロ埋め込み不可)をURLリンクで開くときに ファイル名に任意文字列が含まれているかどうかで分岐したいと考えており、PERSONAL.XLSBに Sub Auto_Open() Dim URLBOOK As String URLBOOK = ActiveWorkbook.Name If InStr(1, URLBOOK, "任意文字") > 0 Then MsgBox "任意文字を含むブックを開きました" End if End Sub としたのですが、当然のことながらExcelを新規で起動したときにしかチェックしません。 すでに別のブックが起動している状態でもURLリンクのブックを開いたときに 上記分岐が出来る方法をご存じでしたらご教示いただきたくお願い致します。
  • VBAについて質問です。 ExcelVBAからIEを開いて、楽天..

  • VBAについて質問です。 ExcelVBAからIEを開いて、楽天オークションサイトに自動投稿しようとしています。 getElementsByName を使用し画像の出力をしようとしているのですが、出力がどうしてもできず知っているかたおりましたらご回答いただければと思います。 objIE.Document.getElementsByName("img1")(0).Value = "D:\test.jpg" として画像をアップしようとしてみたのですができませんでした。 間違えたコードになりますが、上記のように getElementsByName の後にできれば 画像場所のURLを書いて登録できるのが理想です。 お手数をおかけしますがわかるかたおりましたらよろしくお願いいたします。
  • VBAについて質問です。 ExcelVBAからIEを開いて、楽天..

  • VBAについて質問です。 ExcelVBAからIEを開いて、楽天オークションサイトに自動投稿しようとしています。 getElementsByName を使用しサイトへのデータの出力はできました。 しかし、最終段階のSUBMITがうまくいかず困っております。 コードは objIE.Document.forms(0).Submit としたのですが、このSUBMIT形式ですとサイトからエラーページを表示されます。 エラーページから前画面へ戻り手動でボタンを押すとうまく次のページへ移動することができるので、 VBAでSubmitボタンを押すやり方で、手動でボタンを押す時に一番近い押し方の命令というのがあるのではないかと思い質問をさせていただきました。 大変お手数をおかけしますが詳しいかたおりましたらご回答いただければと思います。 よろしくお願いいたします。
  • 下記のjavascriptのfileをエクセルVBAから立ち上げて..

  • 下記のjavascriptのfileをエクセルVBAから立ち上げていますが、EXCEL VBAの中から実行したいと思ってるのですが、わかりません。やることは、VBAからホームページ内のパスワードを入力して、ページを進んでいくだけなのです。その最後の行きたいページをexcelVBAのコードの中で実行したいと思ってます。 出来ればEXCEL VBAのサンプルコードを教えてほしいです。 var IE = WScript.CreateObject("InternetExplorer.Application"); IE.Visible = true; IE.Navigate("http://dms.aaanet/aaa/GetPubliLogin.do"); while(IE.busy) ; while(IE.Document.readyState != "complete") ; IE.Document.all('loginForm').username.value = "15555893"; IE.Document.all('loginForm').password.value = "02222"; IE.Document.all('loginForm').submit(); while(IE.busy) ; while(IE.Document.readyState != "complete") ; var modelName ="C777"; var modelTitle="777"; var nodeId="2"; function switchPublication(modelName,modelTitle, nodeId){ IE.Document.publicationForm.modelName.value = modelName; IE.Document.publicationForm.modelTitle.value = modelTitle; IE.Document.publicationForm.tocId.value = modelName; IE.Document.publicationForm.nodeId.value = nodeId; IE.Document.publicationForm.submit(); } switchPublication('C777','777', '2'); while(IE.busy) ; while(IE.Document.readyState != "complete") ; IE.Navigate("http://dms.aaaa/AAL/ViewAsPDF.do?WSb=C877");
  • 【ExcelVBA 入力規則】 良回答には200ポイント差し上..

  • 【ExcelVBA 入力規則】 良回答には200ポイント差し上げます。 (ただし、当方初心者なので、注釈をかなりたっぷりめにつけていただけると幸いです。) 画像をご覧ください。 ボタン一発で全てのシートに対して、入力規則を設定したいです。 シート[マスタ]は、入力規則に設定するリストです。 A列は、設定したいシート名。 B列は、リストの内容です。 なおかつ、A列の値が連続していさえすれば、 行を挿入・削除しても、 それぞれのシートに入力可能な値が 自動的に変化するようにする方法をご教示願います。 (セル範囲に名前を付ける方法は、 挿入する場所によっては意図するように動きませんでした。) よろしくお願いいたします。
  • 【ExcelVBA 入力規則】 良回答には200ポイント差し上..

  • 【ExcelVBA 入力規則】 良回答には200ポイント差し上げます。 (ただし、当方初心者なので、注釈をかなりたっぷりめにつけていただけると幸いです。) 画像をご覧ください。 シート[マスタ]は、入力規則に設定するリストです。 全てのシートに対して、入力規則を設定します。 A列は、設定したいシート名。 B列は、リストの内容です。 このとき、A列の値が連続していさえすれば、 行を挿入・削除しても、 それぞれのシートに入力可能な値が 自動的に変化するようにする方法を ご教示願います。 よろしくお願いいたします。
  • 【ExcelVBA 四捨五入判定】 良回答には200ポイント差..

  • 【ExcelVBA 四捨五入判定】 良回答には200ポイント差し上げます。 (ただし、当方初心者なので、注釈をかなりたっぷりめにつけていただけると幸いです。) 画像をご覧ください。 A列の値を、百の位で四捨五入し、 千円単位にしてB列に表示させます。 このとき、四捨五入によって、繰り上がったかどうか判定し、 書式を変更する方法がありましたら、ご教示願います。 よろしくお願いいたします。
  • ExcelVBAでの全角と半角が混在するテキストファイル(..

  • ExcelVBAでの全角と半角が混在するテキストファイル(改行無しで10MBと大容量)を読み込み、指定バイト数で区切りを入れるという文字列を処理します。 例)文字列:あいうえおabcdかきくけこ012345、指定バイト数:10 あいうえお abcdかきく けこ012345 LenBやMidBの動きがVBAとワークシート関数で異なるため、下記処理が必要となり、これを通した場合、処理がものすごく遅くなります。 LenB(StrConv(str, vbFromUnicode)) StrConv(MidB(StrConv(str, vbFromUnicode), start, length), vbUnicode) 参考:http://makotowatana.ld.infoseek.co.jp/vba_character.html#bite この処理遅延は何とか回避できないのでしょうか?全角半角が混在しているテキストをVBAで処理する場合の、速度面を重視した文字列処理記述方法をご提示下さい。 http://q.hatena.ne.jp/1240918358 と同じ処理を、全角半角でも速くやるには、という質問です。 (VBAでのテクニックが知りたいので、同じ処理を別の言語でする、という回避方法はなしでお願いします。Excelのバージョンは2000-2007です。)
  • 【ExcelVBA】Book1の科目毎・タイトル毎に、Book2へ転..

  • 【ExcelVBA】Book1の科目毎・タイトル毎に、Book2へ転記するマクロです。画像をご覧いただけますか。 ≪Book1≫ 科目ごとにシートが分かれています。 実際には、約50科目分あります。 シート名と[科目]列は、同じ文字列です。 [タイトル]の項目は、科目によってばらばらです。 ≪Book2≫ 給与毎・タイトル毎に、金額の合計を表示させます。 〔質問①〕 この作業をVBAに頼らずに行うとしたら、ピボットテーブルとVLOOKUPを使うのが効率のいい方法だと思ったので、 Book1内に、シート毎に新規シートにピボットテーブルを作成するマクロをつくるところまではできました。 しかし、どうやってVLOOKUPに持っていったらいいか全く見当がつきません。助けてください。 〔質問②〕 質問①のやりかたは邪道でしょうか。ほかにきれいなやりかたがあったら教えてください。 目的が達成できて、シンプルなコードであれば、①の方法にこだわりはありません。 下記①と②のどちらかでも構いませんので、ご教示いただけないでしょうか。よろしくお願いいたします。
  • ExcelVBAで巨大なテキストファイル(ファイルサイズ7MB..

  • ExcelVBAで巨大なテキストファイル(ファイルサイズ7MB程、全角半角混在の改行無しのベタデータ)を読み込み、500文字で区切ってそれを1レコードとし、A1,A2・・・とセルを変えて文字列を貼り付けようとしています。 いかんせんファイルサイズが大きいために処理時間に大変時間がかかっています。 ・処理の速いコード ・時間がかかるとして処理中にプログレスバー表示をするコード をご呈示下さい。Excelのバージョンは2000-2007です。
  • ExcelVBAについて教えてください。 Dim path As Strin..

  • ExcelVBAについて教えてください。 Dim path As String Dim FullPath As String Dim FN As String Dim intFF As Integer Dim str As String Path ="C:\" FN ="abc.txt" intFF = FreeFile FullPath = Path & "\" & FN 変数処理。 str = "私は" & Hold1 & vbCrLf str = str & "彼は" & Hold2 & vbCrLf ...... Open FullPath For Output As #intFF Print #intFF, str Close #intFF とやると、Open FullPathのところで、実行時エラー 76、パスが見つかりませんと表示されてしまいます。 処理の流れはA1~A10まで値がはいっています。この値を変数に入れて、ループで処理。文章を作り出したいと思っています。 例えば、Dim Hold1 As String,Hold2 As String....とあります。Hold1にはA1の値、Hold2にはA2の値...とはいっています。 やりたいことは、Excel VBAでテキストファイルを新規につくり、そこへ書き出し、保存したいです。ファイル名はFullPathで指定したファイル名を新規で作り出し、それに対して書き出し、保存をしたいです。 何が間違っているのでこのようなエラーが表示されてしまうのでしょうか?回避方法がありましたらご教授お願いいたします。またテキストに書き出した時に改行されるようにvbCrLfをつけていますが、これは正しい処理でしょうか?
  • ExcelVBAについて質問です。 セルAに解を設定し、セル..

  • ExcelVBAについて質問です。 セルAに解を設定し、セルBに解を求めるためのメソッド名を書きます。 エクセルにあるボタンを押したとき、 セルBに書いてあるメソッド名を読み出して、該当する同じ名前のメソッドを用い セルAに解をセットすることはできますか? 回答宜しくお願いします。
  • ExcelVBAに関する質問です。 ActiveSheet.Copy Before..

  • ExcelVBAに関する質問です。 ActiveSheet.Copy Before:="○○" というコードがありますが、 1) Before:="○○" というような、追加の表現のことを何と呼びますか? 2) 同時に名前をつけることはできますか? また、名前をつけられない場合、名前の変更はどうしたら良いでしょう? よろしくお願いします。
  • ExcelVBAについて教えてください。 VB6で作られたプロ..

  • ExcelVBAについて教えてください。 VB6で作られたプログラムをExcelVBAに移植しようとしているのですが、外部APIを呼び出す際に文字列を設定するところでVB6では文字列の終端の意味の"Chr(0)"を付け足して実現しているのですが(C言語で作られたものなのでこういう仕様だというメーカーの説明)ここをExcelVBAで実現することが出来ません。文字列だけ渡したり、Chr$(0)やvbNullやvbNullCharやvbNullStringを試してみたのですが文字列の終わりを認識できていないようです。 賢者の方、お知恵をお貸しくださいませ!
  • ExcelVBAです。 文字列の数字の羅列14文字を日付+時..

  • ExcelVBAです。 文字列の数字の羅列14文字を日付+時刻の表示に 一括で変換したいのですが・・・ 文字列:20080101000000 ⇒ 2008/01/01 00:00:00 範囲:任意の列にある2行目から最終行まで ・日付と時刻の間に半角スペースあり   2008/01/01 00:00:00⇒半角19文字 ・表示形式は文字列 ・数字は固定ではない(日付も時刻も内容はどれも異なる) 教えていただくと大変助かります。 宜しくお願い致します。
  • 【マラソンゲーム2】Excelを利用した参加型のゲーム..

  • 【マラソンゲーム2】Excelを利用した参加型のゲームです。 以前、行った【マラソンゲーム】の変更版です。 http://q.hatena.ne.jp/1213355560 参加者はパラメータを決めてエントリーしてください。 その値によりExcelVBAで作ったコード上で勝敗が決まり、順位に応じたポイントをお支払いします。 この【マラソンゲーム2】では、ランナーが図のようなフィールドを反時計周りに5週して順位を競います。 スタート位置はエントリー順により図の数字の位置になります。 ポイント配分は1位に300ポイント、2位に200ポイント、3位に100ポイントです。 エントリー方法、パラメータの設定方法は下のコメントに。 参加上限は20人を予定しています。 運の要素が大きいのでExcelVBAを知らない方もくじ引き感覚で奮ってご参加ください。 実際に実行されるExcelVBAのコードは以下です。意欲のある方は勝率の高い割り振りを見つけ出してください。 コードでは毎回ランダムとなる乱数を使っていないので必ず同じ結果になります。 コードをコピーして、Excelで実行することによりレースの進行を実際に確認できます。 http://d.hatena.ne.jp/SALINGER/20081012
  • ExcelVBAです。 商品名ごとに集計をしたいのですが、..

  • ExcelVBAです。 商品名ごとに集計をしたいのですが、毎月その月の分が追加されるので 集計するフィールド(列)を指定出来ないため、最終列(小計)まで 自動取得してから集計を実行したいのですが、どのようにすれば良いでしょうか? ・集計する範囲を自動取得(B列から最終列まで) ・最終列=小計の列 添付を例にすると、次月作成する時は「7月」分が小計列の前に入っています。 数か月先まで、毎月作成するため、列は指定せずに自動取得する方法を 教えていただけますでしょうか? よろしくお願い致します。
  • ExcelVBAについて 半角文字のチェックをやろうと思っ..

  • ExcelVBAについて 半角文字のチェックをやろうと思って http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200807/08070013.txt ここにあるような If LenB(StrConv(.Value, vbFromUnicode)) <> LenB(.Value) Then の判定でチェックしたのですが、 ある外字をstrConvで変換すると1バイト文字になるので上記の半角文字チェックにひっかかってしまいます。 この外字がチェックされず半角文字だけチェックするようにしたいのですが。 文字コードで判断すれば良いのでしょうか。 文字を文字コードに変換する関数にどんなものがあるのか、だとか 文字コードのどこからどこまでのコードが外字にあたるかなどもわかりません。よろしくお願いします

ExcelVBAの動画

ExcelVBAに関するブックマーク

  • すぐに役立つエクセルVBAマクロ集 - FAQ 範囲を選択してからソートする - Excel VBA Macro Collection

  • 「範囲を選択して下さい。」というメッセージを出してから範囲を選択し、その後選択した範囲に従って、ソートを行うというマクロを作りたいのですが、どう記述すればいいのかわかりません。教えて下さい。 範囲の選択はマウスを使って、行いたいと考えています。ソートしたいシートのレイアウトを例えば下図のとおりとし、「作業開始ボタン」と「ソートボタン」を作っておきます。ユーザーの操作方法とマクロの骨格は、次のように...
  • Amazon.co.jp: はじめてのExcelVBA―Excel2003/2002/2000対応 (はじめてのシリーズ): 植田 政美, チームエ

  • DEFCON 18 CTF Crypto Badness 300(c300) writeup — (n)

  • life is penetration. geeks cheer. geeks be ambitious.life is penetration. geeks cheer. geeks be ambitious.問題文: Would you like to play a game 超訳:あなたはゲームをしたいですか? 問題ファイル とりあえず、問題ファイルが何かという確認。 pentest@pub...
  • 作業を効率化させるExcel VBA Tips集

  • 指定したURLでブラウザを立ち上げるプログラムです。 パラメタにURLを指定して関数をコールするだけです。Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _(ByVal hwnd As Long, ByVal lpOperation As String, _ByVal lpFile As String, B...
  • エクセル VBAとエクセルの数式入力法:エクセル達人への道

  • エクセルの数式入力が簡単に出来る方法を 探していましたら、 役数式入力に役に立つサイト発見!! ⇒友達に教えてます。 今だけの限定公開です。お早めにご覧ください。
  • M&F&C

  • ファイル 185-1.xls エクセルのマクロで任意の場所に大量のフォルダを一気に作成できないかと考えた。 ほとんど人のふんどしで相撲をとった感があるが、簡単な理屈で作ることができた。 今後エクセルでデータベース等を作成していく上で必要な機能の一部であるため今覚えておいて良かったなと思う。 また、デジカメに取り貯めた写真を日付毎のフォルダに分ける際などに、一気にフォルダが作成できるので活用できるん...
  • すぐに役立つエクセルVBAマクロ集 - Excel VBA Macro Collection

  • Excel (エクセル) VBA マクロのサンプルコード(Tips)とFAQ、Gallery等です。カラーチャートもあります。★お願い★ Excel 2007~97(Mac含む)で確認してます。環境の違い等、様々な 要因により不具合が発生しないか、 注意してご使用下さい。 なお、Microsoft社とは無関係です、そちらへ質問しないでください。 このマクロ集には著作権があります。あなたのお仕事に個...
  • 雨のち晴れ | ピボットテーブルのこと

  • Excel のピボットテーブルは、昔(Excel5.0)からある機能ですが、当時は、オフコンがまだ主流だったから一部の人にしか利用されていなかったと思うし、私も Lotus1-2-3 から Excel に移行していた頃なので、こんな便利な機能などあることも知りませんでした。 ピボットテーブルを実際に使い始めたのは、Excel97 からで、それから10年程経ったわけですが、業務システムがパソコンベー...
  • 1.1 アニメーションさせるには - Access VBA Tips α

  • イメージコントロールを使ってフォーム上に配置した画像をアニメーション表示したい思ったことはありませんか?ちなみに、ここで言うアニメーションとは、ドラえもんやサザエさんのことではなく、右の図のように絵を連続で切り替えて、画が動いているように見せることを言います。 もし、何らかの理由でイメージコントロールに表示している画を素早く切り替えたいときは、表示されている画のデータ(コントロールが読み込んだデー...
  • エクセルExcel大事典 マクロVBAワークシート関数入門応用使い方講座

  • ■ エクセルVBA超入門 ・9ステップで"Hello World!" からオブジェクト指向まで! 1."Hello World!"を表示しよう 2.基本はデータの入出力 3.繰り返し処理 4.シートで簡易データベース 5.名前をつけよう 6.構造化プログラムに挑戦 7.構造体を使ってみよう 8.フォームを使ってみよう 9.オブジェクト指向に挑戦 ■ エクセルVBA中級編 ・VBAでいろんなテクニッ...
  • Excel VBA入門

  • ExcelのVBA入門ですVBAとはExcelにおいてプログラミングを行いたい時に使用する言語でありVisualBasic for Applicationsの略語です。ここではVBAを使ったプログラミング方法について解説を行います。関連カテゴリ:Excelフォーム, Excel VBA関数, Excelマクロ入門VBAの基本ExcelにおけるVBAの基本的な文法について解説していきます。VBAとは...
  • API関連(APIの利用の例)

  • サンプルは1秒ごとにウェイトする単純なものですが、なぜウェイトするような処理が必要なのでしょう?サンプルを起動させ、上の「Sleepのサンプル」ボタンをクリックすると起動します。 (画像をクリックすると実際にExcel上で開いて見ることができます) すると、1秒ずつステータスバーに表示されるようになります。この1秒のインターバルをAPIで処理していますが、インターバルを「ミリ秒」で指定するだけの一...
  • セルのコメントの高さ変更について - VBA質問掲示板

  • [掲示板へ戻る][過去ログメニューへ戻る][1] 長谷川 - 2005/04/27 23:10またお世話になります。長谷川です。 Excelのセルに挿入するコメントの高さ(縦の長さ)をVBAで変更したいのですが、どのようにしたらよいのでしょうか。 手作業でコメントの高さを変更する作業をマクロで記録したものを見てみると、 Selection..ShapeRange.ScaleHeight 2.14,...
  • Office TANAKA - Excel VBA(メニューバーに独自のメニューを追加する)

  • VBA でシステムを作ったとき、機能をメニューから選択できると便利ですね。独自のメニューをメニューバーに登録する方法をご紹介しましょう。 Sub AddMenu()Dim NewM As Variant, NewC As Variant''新しいメニューを追加するSet NewM = Application.CommandBars("Worksheet Menu Bar").Controls.Ad...
  • 5.1 セルや行列を扱うための基本 - エクセルマクロ(Excel VBA)Tips

  • 値を入れたり罫線を引いたり背景色を変えたりコピーしたり貼付けたりなど、セルや行列を扱うときの基本です。 セルを扱う場合はRange.???またはCells.???を使い、列を扱う場合はRange.???またはColumns.???、行を扱う場合はRange.???またはRows.???を使います。 ???の部分はプロパティやメソッドで、プロパティには罫線や背景色や他いろいろ、メソッドにはコピーや貼...
  • Excel VBA (その一) 変数、定数、ダイアログ、マクロ - SAK Streets

  • Excel VBA (その一) 変数、定数、ダイアログ、マクロ■グローバル変数の定義・Excel でグローバル変数を使用する場合は、標準モジュールの General でpublic 宣言する必要があります。シートやフォームのモジュールで宣言してもエラーにはなりませんが、グローバルとして扱えません。また、ブックをまたいでのグローバル変数の宣言と言うのもできません。【宣言方法】public 変数名 a...
  • エクセルVBAやVB6.0のRedimによる動的配列とCollectionによる動的配列の違い

  • エクセルVBAやVB6.0で動的配列と言えば、大抵の人は"ReDim"と答えると思います。 でも、Collectionも何かと便利です。 ということで、ReDimとCollectionについての説明を簡単にした後、ReDimによる動的配列とCollectionクラスによる動的配列を比較してみようと思います。
  • Excel VBA 入門講座

  • Excel VBA 初心者の為の入門講座ですExcel VBA 入門講座へようこそ!!このサイトはExcelの入門書レベルの学習を一通り終え、更にExcel VBAの知識を身に付けたいと考えている方を対象としています。このサイトによりExcel VBAの魅力を体験していただければ管理人としては最高の喜びです !! (*^ ^*)
  • Excel&VBAマクロ - BearWeb

  • 使えるエクセルマクロを100例以上紹介、ダウンロードOK、コード多数掲載、冴子先生マクロもあります。The homepage of Excel&VBAマクロ It has more than 800 pages. BearWeb                                        98/7
  • 教師のためのExcelVBA開発室

ExcelVBAに言及しているブログ

  • ファイル単位・フォルダ単位を指定し、コピーするツール

  • とりあえず、メモっす。 任意で指定した、ファイル・フォルダをコピーするエクセルを 作ってみました。 エクセルからファイル操作をする上で、最も扱いやすいのがFileSystemObject(FSO)ファイルシステムオブジェクトでしょう。 FileSystemObjectオブジェクトは、ドライブ、フォルダ、ファイル等の操作(追加、移動、削除)をしたり、情報の取得や変更ができる大変便利なオブジェクトです。Scrrun.dll内のスクリプティングタイプ...
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

カントリー家具   エステタオル   保健師募集   レビトラ   お気に入り   記憶術   ピアノ椅子   プチ脂肪吸引   自動車教習合宿   チーク   代行運転   ほくろ占い   家査定   インターネット副収入   メガネレンズ   コスプレウィッグ   モニターポイントサイト   同性愛   医療法人社団   ファイル