2ちゃんねる ■掲示板に戻る■ 全部 1- 最新50    

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 154

1 :名無しさん@そうだ選挙にいこう:2023/05/05(金) 21:37:01.08 .net
【1 OSの種類         .】 Windows**
【2 Excelのバージョン   】 Excel**
【3 VBAが使えるか    .】 はい・いいえ
【4 VBAでの回答の可否】 可・否

注意事項
・情報を隠すために別の問題を設定するのはやめましょう。たいていの場合その問題は的外れな設定で、期待していたものからずれた回答が返ってきます。

スレッド作成は>>980がやります

※前スレ
Excel総合相談所 153
https://mevius.5ch.net/test/read.cgi/bsoft/1678315752/

371 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 07:07:13.35 .net
と、前頭葉が縮小した爺が言っております

372 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 08:46:36.03 .net
カイル君GPT、Officeアシスタントを最新Excelで再現する
https://vbavb.com/assistant/

373 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 10:25:44.59 .net
ChatGPT 未満

374 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 10:35:09.88 .net
>>368
まず基本的な形から見ていきましょう。

IF文は条件分岐を表現します。以下のように使用します。

If 条件 Then
' 条件が真(True)のときの処理
Else
' 条件が偽(False)のときの処理
End If
FOR文はある範囲に対して反復処理を行います。以下のように使用します。

For i = 初期値 To 終了値
' iの範囲で反復的に行う処理
Next i
そして、これらを組み合わせて使うことで、より複雑な処理を表現することができます。たとえば、シート上のある範囲のセル(A1:A10とします)について、各セルの値が10以上なら"OK"、そうでなければ"NG"をB列に書き込むという処理は、以下のように記述できます。

For i = 1 To 10
If Cells(i, 1).Value >= 10 Then
Cells(i, 2).Value = "OK"
Else
Cells(i, 2).Value = "NG"
End If
Next i
このコードは、FOR文で1から10までの範囲を指定し、その範囲内でIF文を使って条件分岐を行うことで、各セルの値に応じた処理を行っています。

以上が基本的な使い方になります。もし具体的な問題や詳細なシチュエーションがあれば、それについても質問していただければ、より具体的なアドバイスが可能です。

375 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 13:25:10.20 .net
xlsファイルをoffice365で開く
TEXTボックス内に=A1とかで式が入ってると
A1セル変更してもTEXTボックスの表示が更新されない
再計算しても保存して再起動して読み込んでも印刷しても変わらない
TEXTボックス内にカーソル置いてエンタ押すと更新される
大問題

376 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 16:20:27.23 .net
SHIFT + F9 でなら更新できる場合は、オプションの計算モードを変えてみれば治るかも
何も365に限らないが、複数のExcelファイルを開いていてどうも更新がおかしい?とかいう場合は得てしてそれ

377 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 17:18:58.36 .net
A列に時刻
B列に値が入ってて
値は0から100程度まで増えてまた0に戻る
下り坂で初めて50を下回った時の時刻が知りたい

378 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 17:28:47.12 .net
おまえら、大好物の超難問が届いたぞ! 我こそはという猛者はさっそくチャレンジしろ!!(オレにはサッパリ判らん)

379 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 17:32:52.87 .net
>>375
再現しなかった。恐らく何らかのバグ
・xlsxにして保存してみる
・xlsxのファイルを新規に作成し、そこに全部のシートを移動させる

>>377
https://i.imgur.com/akcgTtT.png

数式コピペ用
=+IF(AND(B1>=50,50>B2,B2<>0),TRUE,FALSE)
=+XLOOKUP(TRUE,C:C,A:A,NA(),0)

>>378
死ぬほど簡単だぞ

380 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 17:50:22.08 .net
うへぇ 下り坂で通じるんだ 参りました
A列の時刻もランダムじゃなくて時系列と決まってるんだ へー 行間を読む達人だな←負け惜しみ

381 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 18:32:00.07 .net
空白ではない、文字列の入っているセルのみコピーする方法はありますか?
空白を無視するが全く機能せず困っています
セルはちゃんとnullにしてあります
なぜ空白を無視するが機能しないのでしょうか?

382 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 18:51:40.98 .net
>>379
ウヒーめっちゃ説明わかりづらい

383 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 19:40:35.50 .net
>381
そのファイルをアップロードしてもらわないと分からない

384 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 19:40:50.86 .net
なに? たった14分弱で、質問に触れてその内容を理解し、Sheetに例題を記入してその解を解いてみせ
あまつさえそれを二画面スクショした上でimgurに載せ、リンクをコピって、質問から10分後に書き込まれた
煽り文句にまで応じるレスを成し遂げる奴が居るってか?
とんでもねえ奴だな 並みの逸材じゃ無いぞ  こういうのを四文字熟語でなんつったっけ?

385 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 19:46:23.05 .net
自作自演

386 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 20:00:42.14 .net
>>379
作業列使うのは不本意だけど背に腹は代えられないので使います
感謝

387 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 20:23:36.10 .net
>>381
FILTER関数で<>""とかでできない?

388 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 20:34:16.30 .net
>>384
俺自身がchatGPTの洗礼を受けるとは思わなかった。これは面白いな
当然この回答は自力だぜ。ってかchatGPT使う方が遅い
で、四文字熟語をchatGPTに聞いてみたけど、「神童揮毫」「一鳴驚人」が当てはまるらしいな。
俺は使ったことないけど、どうなんだろうな

389 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 21:10:55.35 .net
自作自演

390 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 22:35:02.26 .net
自画自賛

391 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 22:56:04.31 .net
VLOOKで、関数内にでなく、
検索リスト側にワイルドカード付与したいんだけれども
何か良い方法は無いでしょうか。

例えば、3500〜3599までの値が入力されたとき
もしリスト側に完全一致する数値が無い場合には、
「35??」の1行から引っ張ってくるような処理をしたいんだけども
手持ちの参考書数冊漁ったがめぼしい記述は無かった…

392 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 23:04:35.45 .net
>>391
こう?
←のウィンドウはB2の数式
https://i.imgur.com/a7DqCGH.png

393 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 23:06:03.24 .net
違いますw
何でそう思ったのか

394 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 23:11:23.80 .net
>>386

=LET(時刻,A1:A10,値,B1:B10,データ量,ROWS(値),INDEX(時刻,データ量+1-MATCH(49.9999,INDEX(値,データ量+1-SEQUENCE(データ量)))))

395 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 23:18:09.21 .net
>>393
あれ、違うのか
正解の一例教えてくれれば作るよ
飲み会から帰ってきたばかりであんまり頭回んない

396 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 23:20:50.81 .net
>>391

=IFERROR(VLOOKUP(C1,A:B,2,0),VLOOKUP(REPLACE(C1,3,2,"??"),A:B,2,0))

397 :名無しさん@そうだ選挙にいこう:2023/05/29(月) 23:35:30.20 .net
>>392
>>396
ありがとうございます。
あぁシンプルにシンプルに、検索値を置き換えてしまえば良かったのか
忙しくてテンパってて何も思いつかなくてずっと関数ごちゃごちゃぐちゃぐちゃ弄ってた…
明日がんばれる ほんと有難う。

398 :名無しさん@そうだ選挙にいこう:2023/05/30(火) 00:24:36.52 .net
もっと聞きまくるといいぞ

399 :名無しさん@そうだ選挙にいこう:2023/05/30(火) 10:19:53.98 .net
なぜ質問と回答をコピペしてるんだ?

400 :名無しさん@そうだ選挙にいこう:2023/05/30(火) 10:58:35.19 .net
テキストボックスの中の文字を検索して置換するのに
アドインのRelaxToolsが有名だけど
あんな豪華なのじゃなくてもっと軽いやつない?

401 :名無しさん@そうだ選挙にいこう:2023/05/30(火) 12:15:12.76 .net
どうせ使いもしない機能満載の豪華なExcelというアプリを使ってて問題無いんだから
著名で安定して使えるRelaxToolsアドインがひとつ増えたところで問題無い 使える部分だけ使ってりゃいい

402 :名無しさん@そうだ選挙にいこう:2023/05/30(火) 12:22:49.10 .net
なぜ上から目線なんだ?

403 :名無しさん@そうだ選挙にいこう:2023/05/30(火) 12:28:16.53 .net
お前が底辺側にいるからだよ

404 :名無しさん@そうだ選挙にいこう:2023/05/30(火) 15:09:17.15 .net
ウケるー

405 :名無しさん@そうだ選挙にいこう:2023/05/30(火) 20:24:48.94 .net
Excelおじさん上から見るか下から見るか

406 :名無しさん@そうだ選挙にいこう:2023/05/30(火) 22:19:46.54 .net
みんなお手軽に目立ちたいだけなんだね

407 :名無しさん@そうだ選挙にいこう:2023/05/30(火) 23:57:00.56 .net
掲示板でのケンカが孤独感を薄めてくれる

零細企業勤めで結婚もしておらず、交流する友人もいないが、「ネットが趣味なのが救いだ」と話す。

「掲示板サイトに書き込んだり、日本語ワープロに詳しいと自慢したり、チャットGPTを使ったり……いい話し相手になってくれるんですよ。たまに掲示板でケンカもしちゃうんですが、それが孤独感を薄めてくれているのかもしれませんね」

ネット書き込みの裏には孤独を抱えた高齢者の姿がある。


―[中高年[貧困と孤独]の実態]―

408 :名無しさん@そうだ選挙にいこう:2023/05/31(水) 15:57:54.01 .net
―[20代女子が溺れる[年の差不倫]のリアル]―
 今や空前の「不倫ブーム」。さらに、世間では立場あるおじさまがひと回りもふた回りも若いコと「禁断愛」に陥っている。
20代女子が年の差不倫に溺れやすい理由を作家の中山美里氏に聞いてきた。
  年上男性に惹かれる心理は3パターン
  年下女性に好かれる秘訣を伝授

みじめったらしいコピペを繰り返しアチコチに貼るより、↑こういう方が前向きだろ 
コピペしただけで惨めに成る真似して何がうれしいんだか 孤独を拗らせると自分を卑下することが快感に成っちゃうのか?
 あ! 「立場あるおじさま」ってのが無関係な層なのか? だとしたらもう救いようも無いな

409 :名無しさん@そうだ選挙にいこう:2023/05/31(水) 19:10:11.15 .net
初歩的な質問で申し訳ないですが、空白以外のセルをカウントする方法はcountifで"<>"を指定する以外にも何か方法はあるでしょうか?
数式で空白以外やcountaを使用して数えようとしていますが空白のセルもカウントされてしまいます

410 :名無しさん@そうだ選挙にいこう:2023/05/31(水) 19:38:10.30 .net
同じ質問を繰り返しているのは知的障害者か?

411 :名無しさん@そうだ選挙にいこう:2023/05/31(水) 20:08:19.96 .net
>>409
Ctrl + Shift + Enter (CSE)
=SUM(IF(A:A<>"",1,0))

412 :名無しさん@そうだ選挙にいこう:2023/05/31(水) 22:20:47.45 .net
ケチ付ける権利は誰にでも平等にある
無関係の他人を攻撃する権利は誰にもない

413 :名無しさん@そうだ選挙にいこう:2023/05/31(水) 23:57:05.23 .net
A列の任意の行に「2000年以降の日付」または文字列または「10以下の整数」が書かれています。
『A列が「2000年以降の日付」となっている行』をFILTER関数で抽出するため、FILTER関数の第二引数に(ISNUMBER(A:A))*(A:A>10)と書いていますが、これよりシンプルな書き方はありますか?

414 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 00:00:23.26 .net
コピペ

415 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 10:19:39.22 .net
office365で
グラフシートに図形でいくつか線を描いて
xls形式で保存しても問題ないけど
その図形をグループ化してxls形式で保存しようとすると
互換性チェックで
「このオブジェクトに適用されている効果は解除されます。このグラフィックの境界線からはみ出たテキストは表示されません。」
と表示されます
なぜ?

416 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 12:58:15.08 .net
仕様

417 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 13:21:10.57 .net
>>415
xlsxでも出る?

418 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 14:30:27.47 .net
コピペ

419 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 17:41:44.10 .net
A1にFALSEという文字列が入っている状態で、
if(A1="FALSE"
で評価するとtrueにならないけど、そういうもの?

420 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 17:44:50.50 .net
先頭に'を付けたら正しくなった
そしてもう元に戻せない

421 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 19:25:24.67 .net
office365なわでが
数字が0の時に空白表示するために
よく関数のIF文で""を使うけど
その計算結果をコピーして値で貼り付けると
貼り付け先を参照してる計算で
#VALUE!エラーがでる
どうやって解決したらいい?
貼り付け先を参照してる計算は俺の編集が禁止されています

422 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 19:26:21.38 .net
日本人ですか?

423 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 19:44:28.94 .net
俺の編集を許可してください

424 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 20:15:39.78 .net
xpの頃にあったfindfastってまだあるんですか

425 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 20:22:31.74 .net
>>424
今はOSそのものに検索機能が搭載されたので、FindFastはなくなったけど同等以上のことが可能になってる

426 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 20:53:56.06 .net
>>421
計算式書けよ

427 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 20:54:53.10 .net
>>417
出ない

428 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 20:57:47.95 .net
>>415
>>421
同じ知的障害者っぽいな

429 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 21:12:27.04 .net
>>428
同病相憐れむ

430 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 22:53:20.41 .net
どうしてこう馬鹿な質問者ばっかり来るのかね

431 :名無しさん@そうだ選挙にいこう:2023/06/01(木) 23:59:49.95 .net
答えられない奴は引っ込んでろ

432 :名無しさん@そうだ選挙にいこう:2023/06/02(金) 00:31:20.84 .net
馬鹿に馬鹿と指摘してあげることも必要

433 :名無しさん@そうだ選挙にいこう:2023/06/02(金) 07:17:44.29 .net
Sub B2Sort(ByRef argAry() As Variant, ByVal keyPos As Long)
Dim vSwap
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = LBound(argAry, 1) To UBound(argAry, 1)
For j = LBound(argAry) To UBound(argAry) - 1
If argAry(j, keyPos) > argAry(j + 1, keyPos) Then
For k = LBound(argAry, 2) To UBound(argAry, 2)
vSwap = argAry(j, k)
argAry(j, k) = argAry(j + 1, k)
argAry(j + 1, k) = vSwap
Next
End If
Next j
Next i
End Sub


二次元配列のソートを解説サイトから頂いて使ってるのですが、
同じ値がいくつある時にいつも同じ並びになってしまいます。
1 2 3 4 4 4 5 6 6 8 8 9
みたいな4や6や8がいつも同じ並びになるということです。
二次元配列なのでこの4はそれぞれ違う行としての性格も持っています。

偏りを無くすために同じ値のとこだけランダムにしたいのでとりあえず各数値にrand数字を付けて後から取り除きました。
目的は果たせてるのですが、しっくりきません。

関数のどこをどう触れば同じ数字の時に毎回違う並びに出来るのかアドバイスいただけませんでしょうか。

434 :名無しさん@そうだ選挙にいこう:2023/06/02(金) 07:19:14.65 .net
コピペ

435 :名無しさん@そうだ選挙にいこう:2023/06/02(金) 09:33:01.32 .net
>>433
バブルソートからクイックソートに変更

436 :名無しさん@そうだ選挙にいこう:2023/06/03(土) 06:47:00.35 .net
sort関数で第一条件と第二条件で並べるってできます?
例えば今 第一条件の番号順、第 2 条件の番号順に並べる、のような関数組み方…
質問がエスパーでほんとすいません

437 :名無しさん@そうだ選挙にいこう:2023/06/03(土) 07:48:27.45 .net
条件が4つまでなら関数、それ以上ならVBA

438 :名無しさん@そうだ選挙にいこう:2023/06/03(土) 08:02:30.88 .net
VBAって何ですか??

439 :名無しさん@そうだ選挙にいこう:2023/06/03(土) 08:13:32.73 .net
>>438
びじゅあるべーしっくフォーアプリケーションでしゅ(^▽^)

440 :名無しさん@そうだ選挙にいこう:2023/06/03(土) 13:46:43.56 .net
ブバ

441 :名無しさん@そうだ選挙にいこう:2023/06/03(土) 14:32:02.71 .net
また馬鹿が来た

442 :名無しさん@そうだ選挙にいこう:2023/06/03(土) 15:01:36.07 .net
>>441は自己紹介しなくていいのに~

443 :名無しさん@そうだ選挙にいこう:2023/06/03(土) 18:41:18.63 .net
別に誰が来ても問題ないだろ。
制限したいなら次回のテンプレートにバカは書き込み禁止って添えればよい

444 :名無しさん@そうだ選挙にいこう:2023/06/03(土) 18:49:45.12 .net
>>443
馬鹿って >441 の事か?

445 :名無しさん@そうだ選挙にいこう:2023/06/03(土) 19:53:39.27 .net
全てのセルのロックを外してシートの保護やブックの保護をかければシート名や並び替えや削除や追加だけを禁止するという事ができますか?

446 :名無しさん@そうだ選挙にいこう:2023/06/04(日) 08:52:47.81 .net
>>444

お前少し落ち着けよ支離滅裂だぞw
まず他人の言ってることを正確に把握することから始めろよ
それもできないほど低学歴なのか?

447 :名無しさん@そうだ選挙にいこう:2023/06/04(日) 13:42:03.07 .net
>>446
お前がバカって事はよくわかった

448 :名無しさん@そうだ選挙にいこう:2023/06/04(日) 14:38:21.06 .net
>>445
惜しい

449 :名無しさん@そうだ選挙にいこう:2023/06/04(日) 15:25:05.74 .net
>>446
馬鹿じゃないのなら他人に誤解を与えないよう書き込むことからはじめたら?

450 :名無しさん@そうだ選挙にいこう:2023/06/04(日) 15:43:53.11 .net
煽りやマウントが無意味だってことに気づけないレベルの馬鹿ってこと

451 :名無しさん@そうだ選挙にいこう:2023/06/04(日) 16:13:08.07 .net
>>450
効いてる証拠がお前の書き込みだと気付かない馬鹿

452 :名無しさん@そうだ選挙にいこう:2023/06/04(日) 16:52:01.43 .net
>>448
惜しかったですか泣

453 :名無しさん@そうだ選挙にいこう:2023/06/04(日) 16:55:40.35 .net
>>451
効いてる証拠がお前の書き込みだと気付かない馬鹿

454 :名無しさん@そうだ選挙にいこう:2023/06/04(日) 18:51:53.60 .net
うざい
NGワード 馬鹿

455 :名無しさん@そうだ選挙にいこう:2023/06/04(日) 20:49:53.49 .net
NGワード セル、シート、関数、コード

456 :名無しさん@そうだ選挙にいこう:2023/06/04(日) 21:35:55.37 .net
>>446>>444を支離滅裂だと思うってことは、
自分の文章がおかしいバカだって事に気付いてないんだな

457 :名無しさん@そうだ選挙にいこう:2023/06/05(月) 11:57:44.25 .net
NGワード:このスレ

458 :名無しさん@そうだ選挙にいこう:2023/06/05(月) 17:28:42.09 .net
>>456
反応鈍いですな

459 :名無しさん@そうだ選挙にいこう:2023/06/05(月) 17:35:45.12 .net
しつけえな怒
まだ気にしてるのおまいら

460 :名無しさん@そうだ選挙にいこう:2023/06/05(月) 17:45:23.28 .net
同名ファイル開こうとしたとき、
いちいちBook〇,xlsxが開くのを抑止する方法はある?

461 :名無しさん@そうだ選挙にいこう:2023/06/05(月) 18:01:27.47 .net
使い方が違うと思います
https://find366.com/excel-line-up-two-windows/
同じファイルを2つ開いて並べて作業

462 :名無しさん@そうだ選挙にいこう:2023/06/05(月) 18:27:57.41 .net
>>461
同じブックを複数ウインドウで開きたいわけじゃなく、
操作ミスでうっかり既に開いてるのを開いたとき、
既に開かれてますってダイアログが出た後で、
空のブックが開かれるのを抑制したい

463 :名無しさん@そうだ選挙にいこう:2023/06/05(月) 21:44:37.08 .net
発達障害者の頭がおかしいと言うのであれば
発達障害者の真似をしないで頂きたい

464 :名無しさん@そうだ選挙にいこう:2023/06/05(月) 22:54:19.03 .net
それは、自分の指を制御するのが一番手っ取り早いし安上がり
意図せず勝手に指先が動いてしまうなら病院へ

相談者「このファイル開け」
Excel「はいよ」
Excel「・・・ んー、もう開いてるけど?」
Excel「しゃあない、じゃあ空のファイルで」  最初の命令しなきゃいいだけだし

465 :名無しさん@そうだ選挙にいこう:2023/06/06(火) 00:08:57.34 .net
エクセルでウインドウ最小化してて
別のファイル開くと
最小化してたウインドウ表示するの
やめる方法ないの?

466 :名無しさん@そうだ選挙にいこう:2023/06/06(火) 07:22:16.94 .net
空のファイル開く合理的理由なくない?
もう開いてるで、で終わっていいと思うんだけど

467 :名無しさん@そうだ選挙にいこう:2023/06/06(火) 07:44:39.93 .net
Excelで特定の文字を空白にする場合は置換を使ってスペースか""を入力するしか無いですよね?
この場合countaを使用すると全ての行がカウント対象になりますよね?

468 :名無しさん@そうだ選挙にいこう:2023/06/06(火) 07:54:04.51 .net
>>466
自分のところだと本当に同じファイルを開いたらそのファイルが特に警告もなく前面に表示される。
違うフォルダの同じ名前のファイルを開くと「同じ名前のブックを~」と警告が出るだけで空のブックが開いたりしない。
Win10, Excel365

469 :名無しさん@そうだ選挙にいこう:2023/06/06(火) 09:16:19.79 .net
関連付けとかDDEとかおかしくなってんじゃね?

470 :名無しさん@そうだ選挙にいこう:2023/06/06(火) 09:57:43.90 .net
DDEって、何??

総レス数 1001
235 KB
新着レスの表示

掲示板に戻る 全部 前100 次100 最新50
read.cgi ver.24052200