Excel VBA 質問スレ Part70

2021/03/18(木) 22:08:43.71

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part69
https://mevius.5ch.net/test/read.cgi/tech/1607786543/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/05/08(土) 19:23:35.24

>>750
この文章でモロバレ

2021/05/08(土) 20:01:04.28

With使わないのは、C#に採用されなかったように最近の流れだからまあいい
Doも、ループはWhileに統一しろってルールならまあいい

Dim使わんってどういうことだ？
まさか変数の宣言しないってことじゃないよな

Option Explicitなんて自分で書くことまずないが、真っ先に変更するオプションじゃないのか

2021/05/08(土) 20:07:27.25

変数の宣言しないと型違いのエラーとか検知しづらくなるし、
コードの中で比較が出てきた時に自作関数の結果か変数の値かどっちと比較してるのかわかりづらくなったり…

とにかく色々エラー回避とかメンテナンス性とか考えて変数宣言しないのはナシよりのナシかと

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/08(土) 20:35:45.94

基礎ができてなくて、型の使い分けがわからなくて全部Variantで書いてる人

2021/05/08(土) 21:04:16.49

>>755
しない

以下でエラーが起きないって時点で俺はアホらしくなって宣言をやめた

Sub foo()
Dim a As String
Dim b As Long

a = "1"
b = 2
Debug.Print a + b　'3が出るぞ良かったな

End Sub

2021/05/08(土) 21:06:38.67

宣言しないと何ができなくなるのか、何を間違えるのかが分からん

2021/05/08(土) 21:30:00.76

>>758
それは暗黙の型変換が行われるから。

変数の宣言をしたほうがいいのは以下のような場合にエラーにできるから。

public sub foo()
hensu = 1
Debug.Print hansu + 1
end sub

2が出力されることを期待しているが、この場合1が出力される。（変数名の打ち間違い）

2021/05/08(土) 21:36:40.65

VB6やVBAは型が弱いので、変数名の先頭にintやlng、str等をつけてデータ型がわかるようにするのが一般的だと思ってる。
この場合だと
Dim intHensu As Integer
の宣言を入れておくべき。

2021/05/08(土) 21:37:56.47

>>760
なるほど
そういう意味では型をつけずに全部variantで宣言はアリなのか
dim a,b,c
ってな感じで

2021/05/08(土) 21:39:48.07

>>761
変数名見れば何入ってるか分からないか？

2021/05/08(土) 21:43:37.13

>>763
ごめん一般的といったのは、自分がそう思ってただけなので、実際はそうじゃないかも。

2021/05/08(土) 21:45:17.15

何でもかんでもVariant型だと余計にメモリ食ったり速度面で劣るんじゃなかったっけか

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/08(土) 21:52:57.44

簡単なマクロならメモリも速度もほとんど気にしなくていい
そういうのが気になってきてから速くする方法を勉強してもいいと思う

2021/05/08(土) 21:55:44.85

文字列　String
整数　Long
小数以下も必要　Single
日付　Date
Setが必要なもの　Object
なんでも　Variant

初心者ならこれくらいの使い分け出来てたら十分だから宣言はして

2021/05/08(土) 21:57:26.01

大量のデータをがばっと取るときはsql
とってきたデータをチマチマ加工したいときはVBA

二刀流がべだー

2021/05/08(土) 22:02:54.21

変数宣言でいちばん重要なのは
パブリック変数なのか
プライベート変数なのかだよ

型はそんなに気にしなくてよいから
3文字以下ならプライベート、パブリックなら5文字以上にする

2021/05/08(土) 22:18:22.12

>>769
いや、そもそも
外部とのやり取りはプロパティで行わないと
ブレイクポイント等仕掛けて
どこから呼ばれたか分かり辛くなることを考えると
変数をPublicで宣言する機会はまず無くなるだろう。

もちろんこのプロパティと言うのは概念的なものを含めて
Javaの様に関数と同じ様に設定することも含めるけど。

そうすればパブリック、プライベートの
判断のために変数名の考慮を行う必要も無くなる。
良かったな。

2021/05/08(土) 22:31:52.03

>>765
variantはかなり遅い
longをvariantにすると
0.001秒の処理が0.01と、処理時間が10倍近くになることも

>>769
vbaのグローバル変数はマジでやめたほうが良い。大体良くない事が起こる
グローバル変数使うなら作業シートに書いたほうがよっぽどマシ
逆にシートにないデータをconst staticみたいに使うならアリ

2021/05/08(土) 23:54:10.02

>>758
そもそもそのコードで３を期待しないのがおかしいとしか思えんのだが

"12"を期待するなら+じゃなくて&使えよ

2021/05/09(日) 00:48:39.55

>>761
ハンガリアンなついな
VBAあたりを最近書いてないからか

2021/05/09(日) 01:41:49.82

variantにすると型間違いでエラーがでないので
やはり推奨できない

2021/05/09(日) 02:15:37.67

知恵を貸してください

ある可変長2次元配列のデータについて
各列のデータから1つずつ抽出した文字列の組み合わせを出力したいと考えています

例えばArray（2,2）のデータが以下だとします
Array（0,0）="いちご"
Array（0,1）="みかん"
Array（0,2）=""
Array（1,0）="あまい"
Array（1,1）="すっぱい"
Array（1,2）="にがい"
Array（2,0）="100円"
Array（2,1）="200円"
Array（2,2）=""
この場合
「いちご,あまい,100円」「いちご,あまい,200円」「みかん,すっぱい,100円」
などの
空白を除く2*3*2=12通りの組み合わせ全てを抽出したいのです
（抽出先はシートでも配列でも何でも良いです）

そして実際にはこの配列をArray（x,y）とすると
xとyは1以上の自然数で不定です

配列の行数が固定長であれば各行において行の数だけFor文でループの中にループを入れれば良いのでしょうが
配列の行数が1以上の不定数の場合にどうすれば良いか思い付きません

vbaというよりアルゴリズムの問題かも知れませんが
良い方法はあるのでしょうか

2021/05/09(日) 02:26:22.29

はい、いつものあいつ

2021/05/09(日) 04:53:38.03

>>724
はい、難しいです。簡単なら今頃VBマスターで溢れ帰ってます！
日々の努力あるのみです！

2021/05/09(日) 06:11:50.07

相手しない相手しない

2021/05/09(日) 08:20:21.39

ワークシートをグローバル変数みたいなつかい方をする

うむ、よくある

2021/05/09(日) 09:19:54.62

uboundで現在の配列の最大要素番号調べて、そこまでループとかじゃないの？
そもそも配列なんて自分はあんまり使わない。redim preserveって確かかなり遅かった気がする。

2021/05/09(日) 09:44:03.47

ReDim Preserveは１番ケツの次元しか可変に出来ねぇのがとても残念

2021/05/09(日) 09:48:20.73

>>775
Sub foo()
Dim array1() As String
ReDim Preserve array1(3, 3)

array1(0, 0) = "いちご"
array1(0, 1) = "みかん"
array1(0, 2) = ""
array1(1, 0) = "あまい"
array1(1, 1) = "すっぱい"
array1(1, 2) = "にがい"
array1(2, 0) = "100円"
array1(2, 1) = "200円"
array1(2, 2) = ""

For Each dim1 In array1
If dim1 <> "" Then
Debug.Print dim1
End If
Next

End Sub

vbaの動的配列は本当にめんどくさいな

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/09(日) 10:05:56.73

行数、列数はUBound関数で調べられる
2次元配列の場合は

UBound(array1, 1)
UBound(array1, 2)

で、それぞれの次元の大きさが取得できる
2番目のパラメータが対象となる次元

あと、多次元配列に一気に代入するにはarray関数を次元と同じ数だけ入れ子にする方法がある

　　array1 = Array( _
　　　　Array("いちご", "みかん", ""), _
　　　　Array("あまい", "すっぱい", "にがい"), _
　　　　Array("100円", "200円", ""))

2021/05/09(日) 10:13:55.83

ありがとうございます

ReDim Preserveの配列再定義は知っているのですが
例えば>>782のようだと
「いちご」
「みかん」
「あまい」
……
「200円」
のような2+3+2の7個出力されるだけですよね

「いちご,あまい,100円」
「いちご,あまい,200円」
「いちご,すっぱい,100円」
……
「みかん,にがい,200円」
のような2*3*2の12個を出力したいのです

行数が固定なら例えばArray（2,x）のように列数が不定でも
For i=0 To UBound Array（0,x）
For j=0 To UBound Array（1,x）
For k=0 To UBound Array（2,x）
Debug.Print Array（0,i）& "," & Array（1,i）& "," & Array（2,i）
Next
Next
Next
のようにして空白部分の例外処理を適当に入れれば良いのは分かりますが
行数が不定なので分からないというお話です

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/09(日) 10:14:00.97

>>775
2次元配列の要素数が不明の場合こういう書き方もできる
　　For i = 0 To UBound(array1)
　　　　For j = 0 To UBound(array1(i))
　　　　　　Debug.Print array1(i)(j)
　　　　Next j
　　Next i

2021/05/09(日) 10:14:31.62

>>782は全然違うわ、スマン

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/09(日) 10:50:20.26

>>784
とりあえず、Array関数というのが存在するから、変数名にArrayは使っちゃだめ
ArrとかMyArrayとか何か別の名前に変えないと

2021/05/09(日) 11:38:04.63

自分で書くならこうかな？
再帰処理使わないでスッキリ書く方法は思いつかなかった。

https://i.imgur.com/noQC9bg.png

これでだめ？

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/09(日) 11:47:23.05

とりあえずもう一つ突っ込みたい
Preserveは不要だしパラメータも(3, 3)じゃない
ReDim array1(2, 2) が正解

>>788
ネストの深さが不定の時は再帰でやるのが一番自然だと思うよ

2021/05/09(日) 11:59:36.87

ごめんちょっと動作検証してたら、Uboundのとこxとyが逆だった。
Ifの中に書いてるのが、Ubound(ary1)
でForの中に書いてるのが
Ubound(ary1, 2)
ですね。

2021/05/09(日) 12:09:11.80

>>789
おっしゃるとおりですm(_ _)m
せっかくご指摘いただいたので、直したものを上げ直します。

https://i.imgur.com/ykrQPY4.png

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/09(日) 12:10:40.52

やってることは同じだけど画像だと入力が面倒だろうし、俺もほとんど同時に作っちゃってたんで貼らして

Option Explicit
Sub foo()
　　Dim array1() As String
　　ReDim array1(2, 2)
　　array1(0, 0) = "いちご"
　　array1(0, 1) = "みかん"
　　array1(0, 2) = ""
　　array1(1, 0) = "あまい"
　　array1(1, 1) = "すっぱい"
　　array1(1, 2) = "にがい"
　　array1(2, 0) = "100円"
　　array1(2, 1) = "200円"
　　array1(2, 2) = ""

　　Call recloop(array1, 0, "")
End Sub

Sub recloop(array1, row1, str)
　　Dim col1
　　If row1 < UBound(array1, 2) Then
　　　　For col1 = 0 To UBound(array1, 2)
　　　　　　If array1(row1, col1) <> "" Then Call recloop(array1, row1 + 1, str & array1(row1, col1) & ",")
　　　　Next
　　Else
　　　　For col1 = 0 To UBound(array1, 2)
　　　　　　If array1(row1, col1) <> "" Then Debug.Print str & array1(row1, col1)
　　　　Next
　　End If
End Sub

2021/05/09(日) 12:23:48.39

ありがとうございます
再帰関数の知識は持っていたのですが
自身で再帰関数を使用したことは無かったため盲点でした
このように使用するのですね

助かりました参考にさせて頂きます

2021/05/09(日) 13:41:59.08

>>779
グローバル変数と言うよりストレージみたいなもんだと思ってる

2021/05/09(日) 21:06:29.88

ReDim使うのって要素数に変数使うときじゃなかった？
数が決まってるならDim array(0 to 2, 0 to 2) As Stringで良いんだよね？

2021/05/09(日) 21:07:35.90

>>737
あなたに禿同！

2021/05/09(日) 21:47:13.65

>795
動的配列と静的配列の違いだよ
「変数」でもなければ「数が決まってる」でもなく、「後で変更するかどうか」が違う所

2021/05/10(月) 01:12:41.56

再帰を使わない方法でやってみた
「r行c列」の配列を「c桁のr進数」とみなしてる。とりあえず動いたけどバグあるかも

Sub Macro5()
　　Dim array1() As String
　　ReDim array1(2, 2)
　　array1(0, 0) = "いちご"
　　array1(0, 1) = "みかん"
　　array1(1, 0) = "あまい"
　　array1(1, 1) = "すっぱい"
　　array1(1, 2) = "にがい"
　　array1(2, 0) = "100円"
　　array1(2, 1) = "200円"
　　row0 = UBound(array1, 1)
　　col0 = UBound(array1, 2) + 1
　　For n = 0 To (row0 + 1) ^ col0 - 1
　　　　nn = n
　　　　s = ""
　　　　For row1 = row0 To 0 Step -1
　　　　　　col1 = nn Mod (row0 + 1)
　　　　　　nn = nn \ (row0 + 1)
　　　　　　If array1(row1, col1) = "" Then
　　　　　　　　s = ""
　　　　　　　　Exit For
　　　　　　Else
　　　　　　　　s = array1(row1, col1) & s
　　　　　　　　If row1 Then s = "," & s
　　　　　　End If
　　　　Next
　　　　If s <> "" Then Debug.Print s
　　Next
End Sub

2021/05/10(月) 20:50:28.57

そもそもの疑問で、なぜVBAは初心者向けとか言われるのでしょうか。
こんなに小難しいチマチマしたこも書かなきゃいけないのに。
全然わからん。

2021/05/10(月) 20:50:49.81

>>761
俺もハンガリアン使ってるわ

2021/05/10(月) 20:53:01.66

>>775
総当りってよく考えればパワークエリでクロス結合すれば一発だろって思ったら、パワークエリにクロス結合が無かった・・・
https://www.shegolab.jp/entry/excel-macro-cross-join

accessだとアホみたいなクエリで即完成
https://i.imgur.com/moHa3bx.png

2021/05/10(月) 20:55:51.32

>>799
昔はプログラミングはもっと敷居が高かったんだよ
その中では、Excelさえあれば使えてUIはExcelのワークシートをそのまま利用できるという手軽さは初心者には魅力的だった
その頃の名残だね
今ではPowerAppsとかGASとかSalesforceとかもっと簡単で強力な選択肢は色々あるし、
プログラミングの勉強ならPythonとかJavaScriptの方が初学者には敷居が低い

2021/05/10(月) 20:57:55.19

ハンガリアンより#%&$の方が分かりやすいよな

2021/05/10(月) 21:06:13.53

>>802
レスありがとうございます。
今、流行りの言語に比べてなぜこんなに、と思っていました。
もっと難しかったのですね。
理解しました。
パソコン仕事を楽に短縮できるよう頑張ります。

2021/05/10(月) 21:09:38.66

ｖｂａは本当に楽。forとif覚えるだけで仕事がはかどりまくり
Cはメモリの知識やらヘッダやら本当に覚える事が多かった上に超便利なワークシートってもんもない

2021/05/10(月) 21:10:42.65

まったくな

2021/05/10(月) 21:13:02.21

沢山の似たようなライブラリが公開されていて
いろいろな方法でやりたいことが実現できる

それはそれはいい時代になりました

でも、コレがやりたければコウ書け！
まどろっこしいが他に道は無い！
ってのも初心者にはいいものですよ

2021/05/10(月) 21:46:59.07

条件付き書式や文字の縮小機能まであって、CopyFromRecordsetの異様な速さ
（もちろんシート関数やオートフィルタの速さも異様でしょう）
VSでは無理だし、自作も当然無理
Excel部署の人だって、１人では無理でしょう

2021/05/10(月) 21:59:47.57

でも.NETに比べれば、メモリを意識するよ
参照渡しとかMidで打刻とか
結果、値渡しの.NETの方が速いけどｗ（初期の.NETはVBAの方が速かったが）

2021/05/10(月) 22:34:57.25

VBA は、シェルスクリプトと同じ。
ちょっとした事しかできない

それを知らない香具師が、複雑なプログラミング用途に使って、
結局保守できなくて、Ruby の10倍ぐらいのコストが掛かる

ちょっとしたナイフで、マグロをさばいたりするのと同じ。
道具・用途のミスマッチ

だから、ウェブ系の会社は、プログラミング言語は適材適所で選択しますって言う。
道具・用途を合わせる。
言語を固定化しない

頭が柔軟。
先に道具を選択しない。
用途から道具を選ぶ

実社会では、ほとんどこればっかり

2021/05/10(月) 23:04:34.19

ExcelのAPIが優秀なのであってVBA自体は微塵も良くない

2021/05/10(月) 23:09:51.84

>>810
で、終わったRubyしか使えず>>712みたいな嘘を書き散らすようになると

2021/05/11(火) 00:42:36.92

先に道具を選択しないと言いながら、道具ありきの叩きｗ

オープン系は外から機能を持って来るのが特徴なので、言語自体の機能は不要
なんでも呼べるシンプルなシェルのようなもの、オープン系の起点としてふさわしい

大量データの組合せならSQL ServerにBULK INSERTしてCROSS JOINするのが最速のはず
でもそのクエリを投げるのはVBAで十分で、結果の表示はExcelのCopyFromRecordsetが最速のはず

2021/05/11(火) 01:44:32.13

>>801
それじゃ希望した動作にならないのでは？
テーブルの数が不定なのだから。
集計するごとにクエリを作り直すことになる。

2021/05/11(火) 05:27:49.58

>>814
クエリってAccess VBAで動的に生成できるんだぜ

2021/05/11(火) 07:53:09.78

>>815
そんなん知ってるが、結局VBAかよw

2021/05/11(火) 09:04:47.57

>>816
適材適所だろ
全部VBAで組むより全然楽だし分かりやすいよ

2021/05/11(火) 11:31:41.06

無償のSQL Serverがあるのに、わざわざ有償で低性能のAccessを使う理由は、初級者であること以外にないですよ
でもExcelはいろんな点で他では追い付けない性能があるので、初級者でなくても使う理由がある

AccessのグリッドもVS等の普通のグリッドとは違い、非同期のリピーターコントロールでできていて、
大量件数でも先頭から順次描画し、全行をメモリに持たないため、高速になるとのこと
その点では、VSより性能がいい（あと子要素の帳票フォームの簡潔さ）
そのかわり常に大量のイベントが走るため、不安定になりやすい
（DBとしてはなんちゃってなので、業者はADP等でSQL Serverと連携して使う）

その速度をさらに超えるのがExcel（特定の使い方で）
イベントが少ないので、不安定になりにくい（Delphiもその点が良かった）
イベントはブック単位で代表できるため、ソースも統合管理しやすい

2021/05/11(火) 11:39:24.42

ユーザーフォームのマルチページ、タブ自体のBackColorプロパティってありますか？
なければ代替手段を教えてください

2021/05/11(火) 14:43:21.70

Excelフォームが中途半端な出来損ないだから
ここを最新のユーザーエクスペリエンス()で作り直せばAccessなんかすぐに駆逐できる

2021/05/11(火) 18:04:28.65

そうだね
大規模なのはSQL
小回りをきかせたいときはエクセル
事務屋ならこれで8割できてしまうだろうね

2021/05/11(火) 19:06:43.69

ただ、VBAはヤメテ

2021/05/12(水) 12:57:12.16

フォームがもう少し何とかなればとは思うよ
>>819然り、痒いところまであとちょっとって感じることがしばしば

2021/05/12(水) 15:18:28.53

>>822
アホか
ここは何のスレだと思ってるんだ？
VBA書くのがイヤなら
SQLSERVERのスレ立てて
そこでSQLでもストアドプロシージャでも
関数でも好きな話題してれば良かろう

2021/05/12(水) 15:47:57.27

なんだ？喧嘩勃発か？

2021/05/12(水) 15:55:47.07

ちょこちょこ書く分には十分なものだと思うよ

2021/05/13(木) 12:11:34.16

そうかな

2021/05/13(木) 16:10:32.92

ビジネスやってる人じゃないとわからないと思うよ

2021/05/13(木) 17:14:21.80

確かに。趣味レベルの自分じゃ縁のない話すぎるわ

2021/05/13(木) 20:39:49.87

なんのビジネスだよ・・・

2021/05/13(木) 20:43:26.98

普通の仕事で書くコードってことじゃないの

2021/05/13(木) 20:48:35.69

ビジネスってよりワークで使うかな
ワークマンってよりはビジネスマンか…

2021/05/13(木) 20:50:41.60

使いどころはビジネスってよりワークかな
でもワークマンってよりはビジネスマンか…

2021/05/13(木) 21:12:55.35

ワークってよりビジネスな場合もあるかな
でもワークマンってよりはビジネスマンか…

2021/05/13(木) 21:19:10.07

なんでvbs採用したんだろう
jscriptならもっと未来あっただろうに
tsへの移行も自然だっと思う

2021/05/13(木) 21:27:44.43

>>835
そらもうvbaの登場時期が早かったからとしか言いようがない
vba開発チームが頑張ったんだろう
30年ぐらい前はBかCが当たり前で、インターネットもロクにないのに謎のjscriptなんて言語が勝つのは無理がある

2021/05/14(金) 08:17:06.17

>>818
www
初級者まる出しの文章で笑えるw

2021/05/14(金) 08:20:10.01

>>819
普通じゃ無理。
無理矢理タブもどきをつくるか、頑張ってWin32APIでやるか。
Win32APIでやるのは、まあ辞めとけ。

2021/05/14(金) 08:39:26.02

タブを切り替えた瞬間にバックカラーも切り替えれば良いだけ

2021/05/14(金) 09:49:10.63

勝手に見出しの色のことだと思ってた
エクセルのシートにやるみたいなやつ

**681** (ｱｳｱｳｳｰ Sa2d-X/m6) · 2021/05/14(金) 10:40:26.20

681です
皆さんのおかげで無事目的のコードが作れました

あと1つ質問なのですが…
画像のように重複した数値を除く総計を算出したいと思っています
会社名毎の数値を合計すればいいだけだと思ったのですが、
どうしても重複のものも一緒に合算してしまいお手上げ状態です
因みに元データは都合によりいじれないため、合算前に重複部分を削除等はできません
恐れ入りますが、宜しくお願いします

**681** (ｱｳｱｳｳｰ Sa2d-X/m6) · 2021/05/14(金) 10:41:19.08

画像を貼り忘れておりました
https://i.imgur.com/HLZYwhr.png

2021/05/14(金) 11:33:58.88

会社ごとの重複を除く合計が出たんだからそれを足すだけだろ
逆に何をやったらまた重複したものも合算するのか理解できない

2021/05/14(金) 11:38:54.22

いつものあいつだぞ

2021/05/14(金) 12:11:07.63

>>841
もとデータをいじらないでも、もとデータを別のシートにコピーすればいじれるんじゃね

2021/05/14(金) 12:24:14.75

>>841
重複除けてるのなら、結果をSUM関数で合算するだけじゃん。

>>686
で上げたように、そもそもVBAすら使う必要ない。

2021/05/14(金) 13:02:54.78

君らも構うねー
>>681への数多の回答を経て「皆さんのおかげで」としか言及しない礼儀知らずなんぞ俺なら２度と助けようと思えないけどな

2021/05/14(金) 14:11:01.00

>>841
SQLでやってるの？
VBAでやってるの？

SQLなら会社、氏名、数値でグルーピングしてから合計求めりゃいいだろうし
VBAでやってるなら上からループして会社、氏名、数値をコレクションかディクショナリーに登録しておいて
同じ組み合わせのものが登録されてたら飛ばせばいいだけじゃないの？

2021/05/14(金) 16:00:12.91

ほんとに、よう構うわ

2021/05/14(金) 16:15:08.56

暇人しかレスしない
そりゃ高齢化する罠

2021/05/14(金) 17:11:44.35

暇と時間は自分で作るもの

2021/05/14(金) 17:53:42.33

この｢いつものあいつ｣はperlスレで釣りしてたあいつだろ
回答がないと別ID自分に回答するクズだぞ
IDをコロコロ変えていることで気付け

2021/05/14(金) 18:02:17.06

ここに若い人はいないと思われ
定年退職した60～70のジジババ様がメインの予想