Excel総合相談所 62
..
175:172
07/11/23 04:05:44
>>173
セル上はちゃんと乗数になってるのに、グラフの数値では書式が戻ってしまうんですよね。
これはどうしようもないんでしょうか…。
176:名無しさん@そうだ選挙にいこう
07/11/23 04:10:13
指定した文字があるセルにジャンプすることはできる?
「E」と入力すると「English」というセルに飛べるか
177:名無しさん@そうだ選挙にいこう
07/11/23 04:37:37
>>175
VBAでできないか調べてみたけど、軸ラベルは単純な文字列じゃないんだね。
オートシェイプのテキストボックスを重ねるしかないかなあ。
178:177
07/11/23 05:04:20
>>175
とりあえずオートシェイプで誤魔化してみた。俺の頭じゃこれが限界だ。
URLリンク(upsurusuru.hp.infoseek.co.jp)
179:172
07/11/23 05:24:40
>>177
わざわざスクショまでうpしていただいて、ありがとうございます。
やってみます。本当にありがとうございました!
180:名無しさん@そうだ選挙にいこう
07/11/23 07:47:28
>>130
遅ればせながらできました。ありがとうございました!
181:名無しさん@そうだ選挙にいこう
07/11/23 08:39:20
>>176 検索
182:名無しさん@そうだ選挙にいこう
07/11/23 19:05:37
>>176
ブックやシートには標準ではKeyPressイベントが公開されてないから、
どっかからオーバーライドしてくるか、別のプロセスでイベントハンドラを用意しないとダメかも。
不可能ではないけど、けっこうめんどくさい。
183:名無しさん@そうだ選挙にいこう
07/11/24 01:50:45
【1 OSの種類 .】 WindowsXP SP2
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 関数 検索 lookup 空白 無視 ...等
A B C
1 01A01 02A02 03A03
2 02B02 03B03
3 01C01 02C02 03C03
4
5 02D02 03D03
6
7 01E01 02E02
という表で、たとえば
A10に01A01と打ち込むとその行の一番右列にある03A03を返す
A10に02D02と打ち込めばその行の一番右列にある03B03を返す
A10に01E01と打ち込めばその行の一番右列にある02E02を返す
という関数を作りたいのですが上手くいきません。何かいい方法はないでしょうか?
空白の行・セルはソートはできません。
184:名無しさん@そうだ選挙にいこう
07/11/24 03:05:39
>>183
ちょっと長くなるけど
=IF(ISERROR(VLOOKUP(A10,A1:C7,3,FALSE)),IF(ISERROR(VLOOKUP(A10,B1:C7,2,FALSE)),"",
VLOOKUP(A10,B1:C7,2,FALSE)),IF(VLOOKUP(A10,A1:C7,3,FALSE)="",
VLOOKUP(A10,A1:B7,2,FALSE),VLOOKUP(A10,A1:C7,3,FALSE)))
185:名無しさん@そうだ選挙にいこう
07/11/24 09:20:36
>>183
一番左に1列挿入して次の式を入力
=LEFT(B1&C1&D1,5)
この列を検索範囲に入れて
=VLOOKUP(A10,A1:D7,4,1)
186:名無しさん@そうだ選挙にいこう
07/11/24 11:14:17
すみませんが教えて下さい。
PCの買替え(→vista)を検討中ですが、Excel2000で作成したファイルは
いきなりExcel2007で作業することは可能ですか?
【1 OSの種類 .】 Windows98SE
【2 Excelのバージョン 】 Excel2000
187:名無しさん@そうだ選挙にいこう
07/11/24 11:27:58
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
セル内の文字の中から、指定の文字を数える方法はありませんかね?
たとえばセル内に aaaabcd と書いてある場合、a の数が4個だと分かるような関数はありますか?Len関数を使えば、上記の場合7と答えが出ますが、文字の指定はできなかったはずです。
188:名無しさん@そうだ選挙にいこう
07/11/24 12:42:10
>>187
釣りじゃないよね?
=LEN("aaaabcd")-LEN(SUBSTITUTE("aaaabcd","a",""))
「元の文字数」−「指定文字を除いた文字数」
簡単だろ。
189:名無しさん@そうだ選挙にいこう
07/11/24 13:23:47
うぜー
190:名無しさん@そうだ選挙にいこう
07/11/24 14:40:09
エッ! 難しかったの?
191:名無しさん@そうだ選挙にいこう
07/11/24 15:46:44
お尋ねします
【1 OSの種類 .】 WindowsVista
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
セル内の二色を使った文字列のうち1色だけを他の色に置き換えることはできないんでしょうか
「置換」を使うとセル内すべての文字色が置き換わってしまうのですが
赤黒→青黒にしたいところ
赤黒→青青になってしまいます
192:名無しさん@そうだ選挙にいこう
07/11/24 17:20:32
【1 OSの種類 .】 Windows Vista
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
2003で作成したものを2007で読むとウインドウ枠の固定ができません。
ページによってはできるのですが、そこが白黒表示でできません。
同様の方はいらっしゃるでしょうか。
また、解決法などあるでしょうか。
193:名無しさん@そうだ選挙にいこう
07/11/24 17:59:00
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
会計ソフト(市販のモノです)からエクスポートしてきたデータ(エクセル形式)を貼る付けと同時に加工することは可能でしょうか?
例えば貼りつけるとすぐに「売上債権回転率」や「流動比率」などを計算させる、などです。
貼りつけた数値の位置が毎回同じなら良いのですが、月次によって勘定科目の増減がありますので、
貼る付ける位置が常に同じとは限りません。
何か良い方法はありませんでしょうか?
194:名無しさん@そうだ選挙にいこう
07/11/24 21:08:13
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
既に打ち込まれてある数値(少数)をセルごと100倍するにはどうすればいいでしょうか。
ググルと関数でできるような事が書いてありますが、できませぬ。。
お助け願います。
195:名無しさん@そうだ選挙にいこう
07/11/24 21:19:45
なんか回答がないようだがレベルが高いのか?低いのか?
196:名無しさん@そうだ選挙にいこう
07/11/24 21:26:20
どうしたいのか今一わからぬ。
もう少しわかりやすどうしたいか書くとイイかもね。
例えば>>194
=A1*100みたいに計算したらだめなん?
関数を使いたいの?
197:名無しさん@そうだ選挙にいこう
07/11/24 21:29:48
>>195
このスレって質問者が中級で回答する人が初中級というヘンなスレです。
前から見ててそう思ってます。
198:名無しさん@そうだ選挙にいこう
07/11/24 21:35:10
>>193
情報が足りない。張り付けるのは数値だけなのか数値と項目名なのか。縦一列なのか表形式なのか。
数値だけなら無理だな。項目名もあるならDSUMあたりでなんとかなるだろう。
199:名無しさん@そうだ選挙にいこう
07/11/24 21:42:37
>>197
で、あんたのレベルは?
200:名無しさん@そうだ選挙にいこう
07/11/24 21:44:28
>>199
図星だね。
そういうレスが来るのがその証拠だ。 笑
201:名無しさん@そうだ選挙にいこう
07/11/24 21:58:19
>>188
トンクス
釣りじゃないよ、まだ慣れていないんだ
202:183
07/11/24 22:16:47
>>184
ありがとうございます。
しかし実際使う表が800行ぐらいあるので厳しいです。。。
>>185
ありがとうございます。
01A01でやると0が返ってきたり、02B02でやると03C03がきたりしてちゃんとできませんでした。。。
203:名無しさん@そうだ選挙にいこう
07/11/24 22:25:43
>>202
>しかし実際使う表が800行ぐらいあるので厳しいです。。。
800回記入しなくても、式をコピーできるのは知ってる?
204:183
07/11/24 22:38:57
>>203
書き方が悪かったですすいません
制限文字数以上いきそうです・・・。
205:名無しさん@そうだ選挙にいこう
07/11/24 22:40:51
>>183 >>202
各行の最左項をキーに最右項のデータを検索するって事でいいのなら
「185改造案」
D列に:=LEFT(A1&B1&C1,5)
E列に:=RIGHT(A1&B1&C1,5)
検索式は:=VLOOKUP(A10,D1:E7,2,0) 最後の項は1じゃなくて0の間違い
206:183
07/11/24 22:47:56
>>205
途中で0にしてみて、できた!と思ったんですがだめでした
最左項だけではなく、最右項以外(>>183 1行目でいうと、01A01か02A02)がキーだったら最右項の03A03を返すです
空白行や空白セルがある&頭に数字が付いてるのが厳しい。。。
207:名無しさん@そうだ選挙にいこう
07/11/24 22:50:49
>>197
残念、ハズレ
質問者も回答者も初級以下から上級まで様々です
ただし、質問者にはPCやExcelのレベルに関係なく
日本語出来てなかったり、要領を得ない質問してたりする奴が多い傾向にはあるけどね
その為に回答が滞りがちではある
208:名無しさん@そうだ選挙にいこう
07/11/24 22:57:36
>>206
後から条件を追加しちゃダメだよ
209:名無しさん@そうだ選挙にいこう
07/11/24 23:06:02
>>191
ひとくちに赤、青と言っても、明るかったり暗かったりいろんな色があるから
標準以外の色を使っていた場合にはこのVBAは使えないので注意。
Sub test() ' 呼び出しサンプル
ChangeColor ("A1") ' 置き換えたいセルを指定する
End Sub
Sub ChangeColor(R) '指定されたセルの赤い文字だけを青に変える
For I = 1 To Len(Range(R))
If Range(R).Characters(Start:=I, Length:=1).Font.Color = vbRed Then Range(R).Characters(Start:=I, Length:=1).Font.Color = vbBlue
Next I
End Sub
210:名無しさん@そうだ選挙にいこう
07/11/24 23:12:38
>>193
行数の増減があったとしても、下から数えて必ず同じ位置に同じ項目が来るなら
VBAなどを使って処理することは可能。
211:名無しさん@そうだ選挙にいこう
07/11/24 23:32:01
>>207
残念。
回答者に上級レベルなど居ません。
それでもあると仰るのであれば具体的な指摘をお願いしたい。
212:名無しさん@そうだ選挙にいこう
07/11/24 23:32:02
>>206
最大何列まであるの?行数はどんだけあっても関係ないから。
あと、800行あるなら検索するデータの入力先もA10じゃないよね。
ありのままの条件を書いて。
213:名無しさん@そうだ選挙にいこう
07/11/24 23:36:19
>>183
そういった変則的な検索条件になるって事は
データベースのフィールドの作り方が間違ってるって事だよ
後々複雑な式になって編集や変更がしにくくなる前に
根本的に表の設計をやりなおしたほうが得策だよ
214:名無しさん@そうだ選挙にいこう
07/11/24 23:43:26
>>194
質問の意味が今ひとつわからないので勝手に解釈するぞ。
まず、適当に使っていないセルに100と入力し、そのセルを選択、コピーする。
次に、100倍にしたいセル(範囲)を選択して右クリック、形式を選択して貼り付け、を開く。
演算の下の「乗算」のラジオボタンをチェック、OKを押すと、選択したセルが一度に100倍される。
215:名無しさん@そうだ選挙にいこう
07/11/24 23:45:24
>>210なんかは回答者だけど日本語読めてないよね。
これなんかはどうよ?>>207
216:名無しさん@そうだ選挙にいこう
07/11/25 00:21:15
的外れだったらすり合わせればいいだけ。
それができない回答否定=人格否定=ボク悪くないお前が馬鹿なのが悪い
っつーお子様が粘着して貼りついてしまってるだけ。
217:名無しさん@そうだ選挙にいこう
07/11/25 00:22:23
焦るなよ
曖昧な質問に無理やり答えようとするからおかしな回答になるんだろ
不明な点、曖昧な点を明らかにするよう誘導くらいはしようぜ
218:名無しさん@そうだ選挙にいこう
07/11/25 00:31:30
>>216
それ自分に言い聞かせてるの?
219:名無しさん@そうだ選挙にいこう
07/11/25 00:39:44
悪い質問には悪い回答しかつかないんだからそれでいいじゃん
220:名無しさん@そうだ選挙にいこう
07/11/25 01:26:25
【1 OSの種類 .】 Windows XP SP2
【2 Excelのバージョン 】 Excel 2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】excel 関数 で検索して関数を調べたりしました。
説明がややこしいのでサンプルを作ってみました。
URLリンク(hilala-web.hp.infoseek.co.jp)
このように、個人ごとの注文表があったとします。
この注文を1つにまとめて、それぞれ鉛筆何本、シャーペン何本という合計の表を
作るのにはどのようにすればいいでしょうか?
個人注文表で品物と個数を選ぶと、別の表ですべての合計が表示される、といった感じにしたいです。
よろしくお願いします!
221:名無しさん@そうだ選挙にいこう
07/11/25 02:00:14
>220
俺あんまり頭良くないから長ったらしい式書いちゃうけど
例えばA10に商品の名前を入れておいて
B10=SUMPRODUCT((G$2:G$7=A10)*(H$2:H$7)+(D$2:D$7=A10)*(E$2:E$7)+(A$2:A$7=A10)*(B$2:B$7))
と入れれば集計は出来ると思う
あとは応用してみて
222:名無しさん@そうだ選挙にいこう
07/11/25 03:46:46
>221
{=SUM((G$2:G$7=A10)*(H$2:H$7),(D$2:D$7=A10)*(E$2:E$7),(A$2:A$7=A10)*(B$2:B$7))}
=SUMIF(A$2:A$7,A10,B$2:B$7)+SUMIF(G$2:G$7,A10,H$2:H$7)+SUMIF(D$2:D$7,A10,E$2:E$7)
=SUMPRODUCT((G$2:G$7=A10)*(H$2:H$7)+(D$2:D$7=A10)*(E$2:E$7)+(A$2:A$7=A10)*(B$2:B$7))
223:名無しさん@そうだ選挙にいこう
07/11/25 03:58:16
>>191
それは仕様なのではないでしょうか。
自分は、Excelでは置換をしない、と決めています。
224:名無しさん@そうだ選挙にいこう
07/11/25 06:23:36
>>211
新参だと知らないかもしれないが、ゴッホ氏とかhoge氏とか
最近は来ないけど、このスレに居た事実は変わらないし
コテ無しでもこのレベルの奴は偶に来てる
(君にとって)残念ながら、(俺にとっては)残念ではなかった
225:名無しさん@そうだ選挙にいこう
07/11/25 09:20:52
>>209
>>223
皆さんありがとうございます
ちょっとVBA勉強してきます
226:220
07/11/25 10:18:11
>>221, >>222
ありがとうございます、その式でとりあえずは集計することができました。
ただ、実際作るものは、山田、田中、鈴木、のように3つではなくもっと多くなってしまいそうです。
かなり長い式を書けばできなくもないんですが、もう少し効率的な方法はないでしょうか?
できれば可変にも対応させたいのですが・・・
(最悪ずっと右のほうまで計算するように作っておけばいいので、あまり重視しません)
よろしくお願いします。
227:名無しさん@そうだ選挙にいこう
07/11/25 10:25:05
>>220
>>213氏が別の質問に対して答えてる内容と同じになるのですが、
マスターとなる表自体の作りを変えた方が良いですよ。
この例だったら、
A列:注文者名
B列:注文品名
C列:注文品の個数
みたいな感じ。
人間にとって見易い表から機械で処理し易い表を作るのは
大変ですが、逆は簡単ですから。
228:名無しさん@そうだ選挙にいこう
07/11/25 10:38:12
そういうのはピボットテーブルで集計するのが楽だね
229:名無しさん@そうだ選挙にいこう
07/11/25 11:34:16
ピボット使う奴は雑魚
230:名無しさん@そうだ選挙にいこう
07/11/25 11:47:47
ん? くやしかったの?
231:名無しさん@そうだ選挙にいこう
07/11/25 11:55:42
>>219
だな。
お前のような質の悪い人間が混じってくる。
232:永遠の初心者 ◆adhRKFl5jU
07/11/25 12:13:02
>>229
ピボットを使う奴は決して雑魚ではない
>>220
例えば
商品表のC2に
=SUMIF(個人注文表!$A$2:$I$7,A2,個人注文表!$B$2:$J$7)
を下にコピーする。
233:220
07/11/25 15:56:34
みなさんレスありがとうございます。
>>227
なるほど。
しかし実際はもっと複雑なのでなかなか簡単にはいかないのです・・・
そして実際に数値を入れるのは他の人(不特定多数に近い)にやってもらうので、
多少式が複雑でも見た目がわかりやすいほうがいいのでこの形にしました。
>>228
ピボットは使ったことないのでまた調べて見ます。
>>232
おお、すばらしい!
これはシンプルでいいですね。
SUMIFの検索範囲、合計範囲が複数列になっていますが、この場合
検索範囲が$A、合計範囲が$Bから始まっているので、検索に合致したセルの
右のセルの値が合計される、という意味になるのでしょうか?
(説明がややこしいですが・・・)
234:名無しさん@そうだ選挙にいこう
07/11/25 17:12:22
>>233
不特定多数が入力するんなら、入力フォームを使ったほうがいいぞ。
集計しやすいように表を作ることも出来るし、入力する位置の間違いなんかも防ぐことが出来る。
商いの規模にもよるけど、ExcelよりAccessを使った方がいいかもよ。
Accessなら複雑な集計がExcelよりは楽に出来ることのが多い。
235: ◆adhRKFl5jU
07/11/25 18:24:04
>>233
>検索範囲が$A、合計範囲が$Bから始まっているので、検索に合致したセルの
>右のセルの値が合計される、という意味になるのでしょうか?
右のセルの値とは限らないです
今回は検索範囲と合計範囲の大きさ(範囲の形)を同じにしています
選択した検索範囲と同じ形の合計範囲が同じならば、イメージとしては検索範囲と合計範囲を
重ねた時に一致したセルの値が合計されます
例えば =SUMIF(A1:C5."条件",X21:Z25) という式では
B2とC5に"条件"という文字が入っていた場合Y22とZ25の値が合計されます
236: ◆adhRKFl5jU
07/11/25 18:31:18
書き忘れました
>今回は検索範囲と合計範囲の大きさ(範囲の形)を同じにしています
ヘルプより
「合計範囲に含まれるセルの個数と形状は、必ずしも対応するセルと一致している必要はありません。
加算の対象となる実際のセルは、合計範囲の左上のセルを基準にして決定されます。」
でも一致させた方がわかりやすいので今回は一致させました
237:名無しさん@そうだ選挙にいこう
07/11/25 18:58:06
また出てきたのか>>◆adhRKFl5jU
なんでそんなに自己主張したがるの?
無名で回答すれば、単なる初級回答者として多少は有り難がられるのに
酉付きで出てくると、過去の暴走を知ってる人達から叩かれるだけだよ
238:220
07/11/25 19:45:04
>>234
ありがとうございます。
詳しく説明するとかなり長くなってしまうのでやめときますが、
今回の場合はフォームよりはこっちのほうがよさそうです。
不特定多数といっても、1人1つこのファイルに入力してもらう感じで、
入力者は全部のシートを見て全体をみながら考える・・・といった感じなのです。
わかりにくいかもしれませんがどうでもいいので気にしないでくださいw
>>235
なるほど、そういう事ですか。
かなり参考になりました、ありがとうございます!
239:名無しさん@そうだ選挙にいこう
07/11/25 20:04:24
期間中にクリック数の一番多い国が優勝!
URLリンク(www.clickclickclick.com) (戦場はこちら)
ルールは簡単( ^ω^)認証文字を打ち込んだら、あとはクリックボタンを連打連打!!!
おまえさんたちのクリック魂を見せてくれ!
◇新規さんや古参帰還兵さんへ
初めまして、そして久しぶりです。この熱き戦いももう半年を迎えました。
現在GAME29(11/26-11/30まで)に突入、我らが日本は強豪ハンガリーに苦戦を強いられています。
世界が総力を挙げて競っているこの戦いに、あなたの力を貸してください!
ClickJapanポータルサイト→ URLリンク(www.clickjapan.jp)
初めての方はこちらのwikiを→ URLリンク(www37.atwiki.jp)
久しぶりに参戦の方へ→ URLリンク(www33.atwiki.jp)
わからない事はこのスレ(落ちてたら↓から)で聞いてね!(ポータル内のフォーラムでもOK!)
URLリンク(www.clickjapan.jp)
【砲台ランキング】一番クリックした国が優勝【はじめました】
スレリンク(news4vip板)
240:194
07/11/25 23:34:04
>>214
うをを、簡単にできました。
どうもありがとうございました。
こんなの本に載ってないし、ググっても出てこないのでまいります。
241:名無しさん@そうだ選挙にいこう
07/11/25 23:52:08
2003使ってます。
セルで列または行に
例 (列)
TEL123−456−789
TEL123−456−789
TEL123−456−789
TEL123−456−789
TEL123−456−789
並んでいるときにTELの文字だけ一気に消したいのですが
どうしたらいいのでしょうか?
242:名無しさん@そうだ選挙にいこう
07/11/25 23:55:23
>>241
置換で空白にするとか
243:名無しさん@そうだ選挙にいこう
07/11/25 23:59:38
>>242
天才ですね!!!!!!!!!!!
ありがとうございます!!!!!!!!!!!!!!!!
244:名無しさん@そうだ選挙にいこう
07/11/26 00:20:42
>>220
関数を使わずに、「データ」メニューから「統合」を使うのも良いのでは?
左端列をチェックすれば、集計出来ます。
245:名無しさん@そうだ選挙にいこう
07/11/26 08:14:24
>>237
自己紹介乙w
246:名無しさん@そうだ選挙にいこう
07/11/26 11:10:22
方向キーを押すとカーソルが移動しないでシート全体が移動してしまいます。
カーソルを移動するようにするにはどうすればいいでしょうか?
247:名無しさん@そうだ選挙にいこう
07/11/26 11:53:21
ScrollLock
248:名無しさん@そうだ選挙にいこう
07/11/26 11:55:15
>>245
せんせー、おはようございます
249:名無しさん@そうだ選挙にいこう
07/11/26 13:31:16
>>247
できました。ありがとうございます。
250:あ〜
07/11/26 18:51:21
エクセルで、グラフとかどう作るの?
途中までできるんだけど、完全にできない。
251:名無しさん@そうだ選挙にいこう
07/11/26 20:09:32
あなたにはできないので、諦めてください。
252:名無しさん@そうだ選挙にいこう
07/11/26 22:43:12
ひどい質問だ。
この聞き方じゃリアルでもどうにも答えられんよな。。。
253:名無しさん@そうだ選挙にいこう
07/11/26 23:50:49
教えてください。
シート1のセル「A2」に何か入力(文字種は問わない)があれば、
シート2のセル「B3」に、
シート1のセル「A1」に入力されている文字(例えば人の名前とか)をそのまま表示する。
シート1のセル「A2」に何も入力がなければ、シート2のセル「B3」は空白のままにしておく
ということをするために、シート2のセル「B3」に入力する書式がわからなくて困っています。
どなたかご教授いただけないでしょうか?
よろしくお願いいたします。
254:テスト ◆WBRXcNtpf.
07/11/26 23:51:04
sage
255:253
07/11/26 23:53:06
書き忘れました、すいません
【1 OSの種類 .】 Windows XP SP2
【2 Excelのバージョン 】 Excel 2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 よくわかりません
【5 検索キーワード 】excel 関数を調べてみましたがよくわかりませんでした
よろしくお願いいたします。
256:名無しさん@そうだ選挙にいこう
07/11/26 23:56:19
>>253
=if(シート1!A2<>"",シート1!A2,"")
257:名無しさん@そうだ選挙にいこう
07/11/27 00:18:52
>>255
どんな関数でも数式でも、別のシートを参照するにはセル指定の前にシート名とびっくりマークを書けばいいだけ。
=IF(Sheet1!A2<>"",Sheet1!A1,"")
最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
5379日前に更新/90 KB
担当:undef