【1 OSの種類 .】 Windows**
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
▼━関連スレ━━━━━━━━━━━━
Excel VBA 質問スレ Part26
http://toro.2ch.net/test/read.cgi/tech/1345363310/
VBAなんでも質問スレ
http://toro.2ch.net/test/read.cgi/tech/1342087380/
【質問不可】Excel総合相談所スレの雑談・議論スレ2
http://toro.2ch.net/test/read.cgi/bsoft/1151651536/
Access VBA 質問スレ Part1
http://toro.2ch.net/test/read.cgi/tech/1328536426/
VBプログラマ質問スレ（Ver.6.0 まで） part60
http://toro.2ch.net/test/read.cgi/tech/1351327234/
▼━前スレ━━━━━━━━━━━━━
Excel総合相談所 106
http://toro.2ch.net/test/read.cgi/bsoft/1352953949/
･1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F)
･2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意
･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。
･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
ここは技術的な質問のみで。
･7 VBAはプログラム言語のVisualBasic(6以前)に近い処理が可能で Excelに関係ないことも出来ます。
Excelの操作に関係ない部分は、スレ違いなのでここで聞かずにVB言語やAPI､COMについて自分で勉強し､
どうしてもわからない部分はVBスレやAPIスレなどの該当スレで質問しましょう。
但し向こうはプログラマのスレなので､構文規則などの最低限の事は覚えてから質問しましょう。
ここみたいに丸投げはダメですよ。
･8 うまくいかなかったにしても自分でやってみたこと(組んだ数式やコード)は書きましょう。
例えエラーになる式やコードでも、何をやりたいのかを的確に把握する手がかりになります。
その上で、どううまくいかないのかを具体的に書きましょう。
エラーが出るなら、何処でどういうエラーが出るのか、
想定外の結果が出るなら、条件と想定上の結果、実際の結果などを詳しく書いてください。
･9 マルチはダメ。一度マルチしたら､謝っても他のスレの質問を取り下げても回答は得られないと思ってください。
･A テキストボックス(エディトボックス)、コンボボックス(ドロップダウンリスト)、リストボックス、コマンドボタン、
チェックボックス、オプションボタン(ラジオボタン)、スピンボタン、スクロールバー、等の質問をするときは、
ユーザーフォーム、コントロールオブジェクト、フォームオブジェクトのどれなのかを必ず書くこと。
･B 書籍や解説サイトの紹介以来はスレ以外。ここは技術的な質問のみで。
>>1-2あたりのルールに従うか否かは自由だけど､従わないと以下のような不利益があるよ
★1．マルチをしてしまったら…
A．謝っても他での質問を取り下げても､以後その質問に対する回答は付かない物と思ってください。
それが嫌なら初めからマルチなんてしないように。>>2にマルチ禁止と書いてあり､
マルチの意味が分からなければ検索すれば出てくるので､｢知らなかった｣は通用しません。
★2．>>1★4に従わず､必要な情報を出さないと…
A．自分の使用しているバージョンで使えない機能を答えられたり､VBA使えないとか使いたくないと書かないと
VBAでの解決OKで自分でコード書けるものと勝手に解釈されて､｢VBAで出来るから自分でコード書いて｣程度の
適当な回答を返されたりします。また､ここではVBAコード書けない人の丸投げ依頼を許可してますが
これはきちんとルールに従って質問､依頼した人のみの特権です。
★3．情報･条件を後出しすると…
A．後から出された情報は意図的に無視されたり､質問自体を放置されたりします。
>>1★4の必須情報はもちろんのこと､要望や条件､既に試したことなどは､
長文になってもいいので詳細かつ明確かつ具体的に書きましょう。
★VBAについて
VBAとは､『Visual Basic for Application』の略で
Application
├Workbooks
｜└Workbook
｜ ├Worksheets
｜ ｜└Worksheet
というApplication以下のオブジェクトを､VB言語で操作するものを指します。
例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。
▼環境･書式
･ 列数を256列以上、行数を65'536行以上に増やす (Excel2007以降では16'384列､1'048'579行扱える)
･ Excel2003以前で条件付き書式を3つ以上設定する (文字色だけなら、入力規則でも3つ設定可能。それ以外はVBA)
･ 行の高さを0.25きざみ以下の単位で指定する
･ セル内の文字を○で囲む、一部のみ2段にする (オートシェイプ、オブジェクト)
･ オートフィルタで英字の大小文字を区別する (小文字 → 半角、大文字 → 全角、と使い分ける)
･ 祝日を判断する (作業セルに祝日を列挙、VBA)
･ 同一列内でセル(行)ごとに列幅を変える、同一行内でセル(列)ごとに列高を変える (セルの結合)
･ ヘッダー･フッターのページ番号の開始番号任意指定、ページ番号演算、同シート内で違ったものを指定など
･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
･ 罫線幅の自由指定
･ 表示形式で｢10/ 1｣といった書式を指定し､日付が一桁の場合のみ日付の前にスペースを入れる (TEXT関数､VBA)
･ 書式設定の｢折り返して全体を表示する｣と｢縮小して全体を表示する｣を同時に使う (折り返しを有効にして､手動で文字サイズを調整)
▼操作
･ ファイラーの右クリックメニューからの新規作成で、Excelで設定したシート数のブックを作る (任意のシート数のテンプレートを作成)
･ 複数シートを選択して入力規則やシートの保護を設定する (VBA)
･ オートコンプリート機能を、別列や離れたセルで動作させる (VBA)
･ 選択範囲から一部を除く､Ctrlを押しながらの複数選択で一部を取り消す (VBA)
･ 優先キーを3つ以上指定しての並べ替え (優先度の低い方から順に並べ替える)
･ 1セルを分割 (分割したいセル以外を結合)
▼数式･関数
･ 表示形式以外の書式の取得設定、書式情報を条件とする数式 (ユーザー定義関数)
･ 関数式でセルの選択状態を取得する (VBA)
･ セルの値でパスを補完して、開いてないブックのセルを参照する (VBA)
･ 入力したセルに結果を返す (VBA)
･ 範囲を引数にしての文字列連結 (ユーザー定義関数)
･ 値の書き換え、値の保持 (VBA)
･ 複数の結果を抽出、不定な数の結果を返す (VBA、結果の最大数が解っていれば最大数以上の式を論理式で組む)
･ 空白のセルの部分を上詰め、左詰めなどで表示する (作業セルを使って別セルに詰めて表示なら可能、それ以外はVBA)
･ VLOOKUP,HLOOKUP,MATCH等の関数で､検索語を全半角両方にマッチさせる (ユーザー定義関数)
▼VBA
･ ExecuteExcel4Macroの参照で空セルと0値を区別する
･ セルの値や変数値で直接変数名を指定する (配列、コレクション)
･ VBのコントロール配列と同じような操作をしたい
(イベント以外ならコントロール名を｢同名+連番｣にしてControls(名前 & インデックス)で処理､イベントはクラスでWithEvents)
▼ユーザーフォーム
･ フォーム上から変更したプロパティ値の保持 (シートや外部ファイルに書き出して、次回読み込む)
▼グラフ
･ 棒グラフでひとつだけ突出したデータがあった場合に波線を入れて位置を合わせる
(オートシェイプなどで見た目だけそうなるように弄る、別アプリでグラフを作り、オブジェクトとして挿入)
┌┐
〜〜
｜｜
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。
Excel2010についても未確認な項目が多いので変更点が有ればご指摘下さい。
また､ここに書かれてないことでも､Excelで出来ないことはたくさんあります。
ここに書かれてないからといって必ず出来るはずだなんて思わないように。
＞▼環境･書式
＞ ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
補足
2007以降ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、
指定も同じくcm単位でできる。
ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように
近い値に勝手に丸められる。
いい加減テンプレの誤字を直せよカス
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
お願いします。 今度、職場でルールや一覧表を書いたポケット版ガイドブックを作ることになりました。
Ａ４で横書き。 それをさらに横半分にし、更にそれを１／４に折り、 合計１／８分割で裏表１６ページ分を
作りたいのですが、
折ってもずれないようにするにはどういう工夫が必要でしょうか。（うまく説明できなくてすみません。）
１２３４
５６７８ こんなかんじです。
上半分下半分のページが綺麗に折れるよう、そして、隣同士の数字のページが綺麗に折れるようにしたいのです。
よろしくお願いします。
この質問はExcelとは関係がないと思うけど、余白はプリンタ毎に微妙に違うから、
好みの状態になるまで何度も微調整しながら印刷を繰り返すしかないんじゃない？
そういうことじゃなくて？
プリンタによるけど、割付印刷で設定できませんか
ワードに貼り付ける
Excelは画面上の表示と印刷でだいぶズレるから、何度も印刷するにしろWordとかに貼り付けて作業したほうが効率いいと思われ
Excelさんはホント印刷はオマケ機能だよね…
エクセルで作ったのをワードに移す時、シートの罫線が入ってしまうのですが、これってどうやって消すのですか？
おつ
列で10列ごとで計算したいと考えて居ます。
表がこれなんですが、表を指定してA1+A11みたいにやる方法以外に計算することは可能でしょうか。
ttp://www.dotup.org/uploda/www.dotup.org3811969.xls.html
表の作り方が不適切なんだけど、そこを直す気はあるかい？
単純な合計とかの計算なのに式を組むのが面倒って場合の要因の大半は
表作り、データ作りの基礎を理解しておらず、自己流で不適切な表を作っていることにあるんだよね
不適切な表のまま、無駄に冗長な式で計算するのをお望みか？
それとも表を適切な状態に作り換えて、簡単に合計を出す方が良いのか？
確かにそうですね。
でもなぜか横方式なんです。うちの会社。
=SUMIF($B$2:$U$2,V$2,$B3:$U3)
で「服」の合計が出る
=SUMIF($B$2:$U$2,V$2,B3:U3)
>>18でいいんじゃないか?
>>18なら修正不要じゃない？
正規化するのが一番だが、修正コストと改変の少なさと
計算の簡素化を両立するなら、1シートで一月(ひとつき)分にしな
で、1月、2月、、、12月、合計、ってシート作って
合計シートのB3に、
=SUM('1月:12月'!B3)
って入れれば、串刺し計算といってシートを跨いでの合計が出るよ
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
ttp://i.imgur.com/crJsg.png
B2:C6のような表があり、これをE2:F3のように抽出したいのですが、なんかいい方法はないでしょうか？
E2:F3のようにすると加工しにくくて後々困ると思うが
元の表は弄らないのだろうから、後々困るとかいう話には繋がらないと思うが？
何時間かかってるんだよ！
早くしろ！
もう諦めたんや
VBA使ってくれや
あとは頑張れ…
それはVBAのスレと違ってコテハンのおっさんがいないからだよ
複Rの回答：回りくどいが初心者には分かりやすく感謝のレスも多かった人気者
VBA厨の回答：凝ったコードで初心者には理解し難く感謝のレスはあまり無かった厄介者
作業用シート用意すればいけるんじゃね？
その2者は、2者同士の仲は良かったとは思わないが回りから見てるとお互い上手く補完しあえてたように見えたけど？
ほとんど常時常駐体制で簡単な案件に颯爽と回答付ける複Rと、複Rでは対応出来ない難しい案件にも対応できるVBA厨って具合に。
スキルレベルで言えばVBA厨の方が遙かに上だったようだけど、あまり出てこない割に簡単な案件にもいちいち蘊蓄入れてウザいからVBA厨だけ居れば万事OKってこともなく、両者が居てこそスムーズに進むって感じだったな。
コテ名乗って回答するなら弄れるくらいアフォの方が人気者になれる
ここでの人気者だの厄介者だのというのは、解決したらもう来ない質問者視点ではなく
常駐している他回答者視点の話だからな
質問者に有り難がられても、他回答者に嫌われたらボロクソに言われる
パッケージでもDSP版とかOEM版とかはあかんで。
２台まで桶だべ。
誰が？
【2 Excelのバージョン 】 Excel 2010
【3 VBAが使えるか .】 勉強中
【4 VBAでの回答の可否】 否
例えば2012年12月分費用のブックを呼び出すのに
sub test
MsgBox (Workbooks("2012年12月分費用").Worksheets("2012年12月分費用") _
.Value)
End Sub
で2012年12月分費用がbookに開いてなければそこから呼び出すことは不可能なんでしょうか
MsgBox (ExecuteExcel4Macro("'[2012年12月分費用]2012年12月分費用'!R1C1")
VBAでの回答「否」ってどういうことだってばよ
MsgBox (ExecuteExcel4Macro("'[2012年12月分費用.xlsx]2012年12月分費用'!R1C1")
かな
ついにVBAの基本的な構文を一通りマスターして思うようにコードを書けるようになり早速数百の命令文を
書き上げてこれで作業を自動化してゆっくり寝れるかと思いましたが
書いている間に行き着いたのはコードだけもっと桁外れな作業が出来ると言う今までより柔軟で遙かに自由な全く未知の世界だったのです・・・・。
結局更に合理化するためのアイデアを色々と１から積んでいかないといけないのは間違いないと思われるので
やはり寝る暇は無さそうですが一体どうすれば良いのでしょうか？
Dim atai as variant
atai=Range("A1:E60000").value
として大量データを格納する。このatai配列の大量データを、タブ区切りテキストファイルとして保存したい。
いま思い付く方法は、
open textFile for Append as #1 '書き込み用テキストファイル
for r=1 to 60000
buf=r '連番を振っておく
for c=1 to 5
buf=buf & chr(9) & atai(r,c) 'タブ文字で区切る
next c
Print #1, buf
next r
close #1
というループくらい。ただ、タブ文字を結合するやり方がスマートじゃない気がするし、大量データだと結構時間がかかる。
もう少し効率のいいやり方はないかな？
あとテキストストリーム保存だったら、バッファに全部まとめといて最後に1回writeすればいいんでないの。
【2 Excelのバージョン 】 Excel 2010
複数のブックがあり、お互いにリンクが張られています。
これらをマクロで開くとき、「更新しますか？」のメッセージを出さず、
強制的に更新させるにはどうすればいいですか？
また、終了時には元に戻したいです。
Workbooks.Open FileName:="C:\Book1.xls", UpdateLinks:=3
Workbooks.Open FileName:="C:\Book2.xls", UpdateLinks:=3
Workbooks.Open FileName:="C:\Book3.xls", UpdateLinks:=3
みたいに書いてみたものの、うまく更新されません・・・
ここにいる人たちもそうなのでしょうか？
眼科に行きなさい
で計算するときに、Aは先頭から、Bは最後からの組み合わせで計算させたいのですが、
良いテクニックなどはありますか？
多数の表を集計している時に
1つのセルの中に複数の要素が入れられたら便利だのになあと思う時があるのですが状態にできれば
誤爆スマソ・；・
Excel初心者ですが
多数の表を集計している時に
1つのセルの中に複数の要素が入れられたら便利だのになあと思う時があるのですが、
たとえばある箇所だけ1セルに1つの表が凝縮されて入っているみたいな・・・
1セルに複数の要素を収納する方法はあるのでしょうか？
Excelでそんなことするメリットはない
イメージ通りになるかどうかはわからんが
セルにハイパーリンクを仕掛けて
セルをクリックしたら別のシートにある表を表示する
…といった程度ならできる
>>62
たとえば千個の表がありその結果をまとめる集計データを新しいbookで作るとします。
新しいbookには千個の表から抽出した結果のリストができますがその結果から千個の表のうちの30個を見たいとなるとその
30の表をを探して開いて分析するとなると結構な時間と手間がかかります。
千個の表を１ブックにまとめてリンクを張ったりしますとその作業だけで何日もかかりますし作ったリンクのほとんどは使われません。
そこでリンクではなくいっその事１セルの中に丸々表がはいていればすぐ見れて良いのになあと思いましたが・・ｗ
現状再分析する30程度の表を開いて表を行ったり来たりしているうちに何をやっているのか全くわけがわからなくなります。
自分の経験不足が問題なのでしょうが。（笑）
>>63
ありがとうございます。
やはりそれですか・・・何度か試しましたが思うように使いこなせませんでした。。またチャレンジしてみます。
ありがとうございます。
なんかいい例が載ってるサイト無いの？
俺が見たところは何処も非現実的な要素でしか構成されてないのでまったく参考にならん
てか、ピポットテーブル使ってると要素が多すぎて何を表現したかったのか理解できなくなるタスケテ
必要な要素に絞って抜出し集計できるのがピボットテーブルの強みだと思うぞ
だから要素が多すぎて云々と言うのは理解できない
単に元のテーブルが整理されてないからのように思える
ピボットテーブル使いこなすにはピボットテーブルの使い方を勉強するのではなく
データベースの扱い方を学ぶべきなんだよね
そういう考え方のソフトはあるんですよ。
JMPとか
JMPとかQlikViewとかTableautとか
扱い方はちょっと異なるけど。
その範囲を選べば、それだけが対象として扱える。
ある程度貯まったらピボットテーブル使ってみ？
便利さを実感できるから
それってピポットテーブルを使う必要性がないってことじゃないの？
そういうとを言ってるんじゃないと思うぞ。
>>68
自分の仕事で必要なデータに出会えば
すぐに理解できるよ。
いまのところは基本だけ覚えておけば大丈夫だと思う。
>>69
そういうとを言ってるんじゃないと思うぞ。
だった。
「自分の仕事で必要なデータ」が誰にでもすぐ
エクセルで処理しやすい形で提供される可能性のほうが
実際の職場では、はるかに小さいと思いますです
俺は >>70 さんと >>74 さんを支持したいな
Application.DisplayAlerts = False
で、できなかったっけ？
データは300行くらいあるのですが、中には不要な項目（大分類、中分類など）もあり不要な項目は除外するように設定したいです。
現在は
=IF(
OR(D19=0,C19="",データ!A19=" スナック",データ!A19=" 丼物"),
"",
データ!B19)
な感じでやってますが、データに不要な項目が増えてきて数式に追加するのがダルくなってきました。
何より、数式が美しくないのがよろしくないです。
別途、除外リストを作り、そのリストに記載されているものはカウントしないようにしたいのですが、なんかいい方法はないでしょうか？
条件1と条件2の差違を割りだすに使える関数はありますでしょうか？
データーは
90
88
102
67
89
と言ったようなデーターでそれぞれの条件で頻度が高い値は何かや
条件1には存在しても条件2では存在しない数値値はこれです！
よって条件１と２は全くの別物とか類似しているとかと言うような事を
自動的にさらっと求める事を目指しています。。
AVERAGE
除外リストをVLOOKUP()で参照する式を作業列につくってフラグたてる
あとはピボットテーブルで
２３年度 実績5 6 7 8 9 4 5 2 5 6 7 8 9 1 6 6 5 2 3 35
２４年度 実績4 3 9 9 5 30
こういう表があり、累計にはどちらも同じ日での計算をする場合、延々とこんな式を入れて作りましたが、
もっと簡単にする方法はありませんか？マクロはなしで教えてください。
=IF(AND(ISNUMBER(B6),C6=""),B5,IF(AND(ISNUMBER(B6),ISNUMBER(C6),D6=""),SUM(B5:C5),
IF(AND(ISNUMBER(B6),ISNUMBER(C6),ISNUMBER(D6),E6=""),SUM(B5:D5),IF(AND(ISNUMBER(B6),ISNUMBER(C6),ISNUMBER(D6),ISNUMBER(E6),F6=""),SUM(B5:E5),
IF(AND(ISNUMBER(B6),ISNUMBER(C6),ISNUMBER(D6),ISNUMBER(E6),ISNUMBER(F6),G6=""),SUM(B5:F5),IF(AND(ISNUMBER(B6),ISNUMBER(C6),ISNUMBER(D6),ISNUMBER(E6),ISNUMBER(F6),ISNUMBER(G6),H6=""),SUM(B5:G5),
IF(AND(ISNUMBER(B6),ISNUMBER(C6),ISNUMBER(D6),ISNUMBER(E6),ISNUMBER(F6),ISNUMBER(G6),ISNUMBER(H6),I6=""),SUM(B5:H5),
IF(AND(ISNUMBER(B6),ISNUMBER(C6),ISNUMBER(D6),ISNUMBER(E6),ISNUMBER(F6),ISNUMBER(G6),ISNUMBER(H6),ISNUMBER(I6),J6=""),SUM(B5:I5),・・・・・・・・
1日〜22日までの累計があって23年度はそれぞれ5 6 7 8 9 4 5 2 5 6 7 8 9 1 6 6 5 2 3 と言う数字が入り累計には5日目までの数字を合計しています。
24年度は4 3 9 9 5と言う数字が入っておりその後は未記入ですので単純なsum関数でいいのですが、23年度は毎日24年に数字が入るために自動で同日の計算をするというものです。
そんな複雑なことしてもあとで困るだけ。俺なら日付は日付として扱う
A列：日付、B列：実績 の縦に長い票にする
同じ日で累計したいなら適当な列にDAY(A列)とでもすればいいし、実績以外のデータも自由に負荷できる
=SUMIF(B6:W6,">0",B5:W5)
>>90
おおおっありがとうございました。
これです。こんな簡単にできるんですね。
上のバカ長いAND関数をアップした私が恥ずかしい。いつまでも初心者の
域から脱することが出来ません。
正しい累計は出ない
下記の場合なら、txt1 = "あいうえお" にしたい。
┌───────┐
│ あいうえお │
│ かきくけこ. │
│ 2013/01/11 │
└───────┘
コメントは、押し返しせずに改行で2〜3行です。
Sub test()
Comment = Range("A1").NoteText()
a = InStr(Comment, Chr(10))
txt1 = Left(Comment, a - 1)
MsgBox txt1
End Sub
それだと1行しかなかった時にエラーになる
>>94
こっちのが安全
a = Split(Cells(1, 1), Chr(10))
txt1 = a(0)
Debug.Print txt1
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
無料が一番！ Starsuite6.0 を語ろう (622)
チラシ作成ソフトはどうよ？ (363)
◎ ドライブイメージ ◎ (755)
【反MS】Office2003苦情報告スレ【親MS】 (386)
チラシ作成ソフトはどうよ？ (363)
◎ ドライブイメージ ◎ (755)
--log9.info------------------
ナルトは妊娠したのだ その５ (738)
【看板にも戻れずに】BLEACH★1225【終わるのかよ】 (1001)
祝バキスレ【範馬刃牙R777】スリーセブンッ (853)
IDにJUMPが出たらブランチの鼻が折れるPart57 (1001)
ダイヤのA Part90【寺嶋裕二】 (633)
【NARUTO】HIASHI〜ヒアシ〜ネタバレスレ1掌 (647)
凝を怠るなよ (765)
【西尾×暁月】めだかボックス ネタバレスレ 166 (841)
【阿部共実】空が灰色だから第22話【チャンピオン】 (978)
【勝木光】BabySteps 〜ベイビーステップ〜 STEP64 (905)
【大沢祐輔】Dr.デュオ-Duo-2 (848)
【田口ケンジ】 姉ログ 【サンデー】 (669)
【アスペルガー症候群】沖田×華【ガキのためいき】 (266)
こうち楓 LOVE SO LIFE (866)
少女漫画板自治スレッド 6 (902)
講談社の月刊ARIA(アリア) 2 (555)
--log55.com------------------
婚活で学んだ教訓を書いていくスレ part7
【恋活】pairs(ペアーズ) Part284(ワッチョイあり)【婚活】
ホワイトキー関西26・上東弘幸(うえだひろゆき)についての情報交換(誹謗中傷禁止)
子供すら産めないアラフォー女が婚活すんな！27
デブは婚活するな！
オトコンOTOCON婚活パーティ★５
IBJの活動について話しましょう。175人目
恋愛したことない、付き合ったことない人の婚活 part8