23/11/27 10:15:31.31 ujSb7R+LM.net
1200万円の解析装置部署で導入
メーカーと商社の話だともし必要であれば
データ処理するソフトもオプションでありますけどおまけ程度の機能になります
VBAを色々いじれる人がいるならそっちの方がはるかに良いです
ソフト買う方向に進めたいのに反対勢力が、、いやお前が作ってくれるなら俺もソフトいらんよ
3:デフォルトの名無しさん
23/11/27 22:26:13.00 CI3qhd280.net
ここに出入りしてる人間なら率先して試作してみりゃいーじゃねーか
商社はメーカー同席だと言い辛いかも知らんが、同じ製品納めてる他の企業の事例を、こっそり耳打ちして
くれるかもだし 可能性は山ほどある すぐ拒否・否定に逃げるのはオトコじゃ無い
チャレンジしてこそのサラリーマン 失敗したってダメ元 挑戦の無い企業に発展は無い
つか、どっかのExcelスレで同じ質問を目にした記憶があるような デジャブか
4:デフォルトの名無しさん
23/11/27 22:51:04.78 CI3qhd280.net
URLリンク(www.capind.co.jp)
これなんか良さげだな 複数機器に対応してるのもいい
稟議上げて社長におねだりしてろ おいくら万円かは分からん
5:デフォルトの名無しさん
23/11/27 23:03:30.45 YDVDDDMEM.net
1000万以上の装置なら有限要素解析とかFFT解析とかなのか
VBAの知識だけではどうにもならない気がするけど
6:デフォルトの名無しさん (ワッチョイ 47b6-1fOb)
23/11/28 10:41:11.25 V3dCbzyl0.net
計測器統合制御をExcelで実現するアドイン
『Sequence Maker』 ← 無償(商用利用でも個人利用でも無料
URLリンク(sequencemaker.hioki.com) こんなん出ましたけど
こういうのでなくて?
7:デフォルトの名無しさん
23/11/28 11:39:13.35 x9cWJykmM.net
>>2の内容だと制御がしたいのではなくてデータ処理の方じゃないの?
8:デフォルトの名無しさん (ワッチョイ 5fb5-rRln)
23/11/29 23:02:10.85 A5d8zOu00.net
データ処理なんよ
座標はマイナスもあるからなかなかめんどくさい
幾何公差やズレ量はvbaで作り込むとめちゃんこ便利なんだけどね
あと100年はvbaでいいぐらいめちゃんこしこしこ相性がいい
9:デフォルトの名無しさん
23/11/30 10:17:18.39 YCOtWOlp0.net
リンク先見てみればわかるけど、制御もデータ処理も両方だよ
接続方式も様々、データ送るのも受けるのもあれこれ それが「無料」 らしい
じぶんトコの機器と繋いで試してみるには充分 受け取ったデータをどう加工するか
それがしやすいか、試行錯誤するにはもってこいじゃ?
10:デフォルトの名無しさん
23/12/23 11:24:28.66 0DKgSd0V0.net
すみません 質問です
C1にはrandom関数が入っています。B1にはC1のコピーしたものの値を貼り付けています。A1にはB1が0.6より大きければ◯小さければ✕が入るようにします。A1
を下にオートフィルすればB2にはC1を参照としてC1をコピーした値、A2にはA1と同じように◯✕が入るようにしたいです
よろしくお願いいたします
URLリンク(i.imgur.com)
11:デフォルトの名無しさん (ワッチョイ a3b5-pDLy)
23/12/23 15:04:46.53 Gwk7x+r/0.net
AとB列は全部同じ値になるだけじゃ
12:デフォルトの名無しさん (ワッチョイ 63bf-pDLy)
23/12/23 19:02:50.72 QzF0pH9f0.net
マクロが突然壊れた。
ある時、マクロの一覧が表示されなくなり、
セキュリティー(トラストセンター)をいじったら一時的に
治ったが、また表示されなくなり、今に限っては
マクロを動かすと全く違う動作をしたり、今まで正常に
何回も動かしてたマクロが突然エラーになって動かない。
ファイルが壊れたか???と思ったが、別のPCでそのファイル
正常に動作するんで、オフィス修復やったが治らず、
で、結局再インストしたらあっけなく治った。
プログラムが何かの拍子で壊れる、ということがあるらしい。
13:デフォルトの名無しさん (ワッチョイ 63bf-pDLy)
23/12/23 21:28:56.85 QzF0pH9f0.net
12だがやはり「マクロの登録」一覧からマクロが突然消える。
誰か対策教えてくれ。
14:デフォルトの名無しさん
23/12/23 21:55:07.93 wXkv6mGDd.net
どうせマクロに署名してないから起動時に無効化されてるってオチ
15:デフォルトの名無しさん (ワッチョイ 6301-cfY7)
23/12/23 22:27:46.32 8ng/MRqb0.net
ストレージか?
16:デフォルトの名無しさん
23/12/24 08:57:28.13 emWydGj70.net
>>12
随分前だけどバージョン違いのExcelでマクロを起動すると似たような状況になったことがあったな
複数人で使い回したりしてる?
17:デフォルトの名無しさん
24/02/29 03:28:34.72 fThkXDoh0.net
以下のようにデータを入力したときに
画像のようにレイアウトをかえて、表示用として別シートに書くことは出来ますか?
A出版 004
A出版 003
B出版 006
B出版 005
(本当は画像と同じように書きます)
URLリンク(i.imgur.com)
単純に取引先でソートして
VBAで転記するときに、
上と同じなら文字削除すれば簡単でしょうか?
18:デフォルトの名無しさん
24/02/29 03:34:27.60 Abbi1OW1d.net
できます
19:デフォルトの名無しさん (ワッチョイ ca77-DUIk)
24/02/29 09:37:23.42 VmbR4Tf/0.net
>>17
後の流用を考えると、削除しないほうが良いんじゃない?
20:デフォルトの名無しさん
24/02/29 14:12:43.39 JwatrK+sd.net
>>19
あくまでも表示用のシートです
削除しないとなると、どのような処理になりますか?
色を背景色にするのでは選択すると入力できてしまうので、誤入力防止で削除を考えました
21:デフォルトの名無しさん
24/02/29 14:38:52.61 VmbR4Tf/0.net
>>20
ごめん、表示用だと認識してませんでした
22:デフォルトの名無しさん (ワッチョイ 1b56-AA/x)
24/03/03 09:38:35.96 nYZbKW3u0.net
セル内に改行付きで入ってる文字列をWordファイルの指定のセルに転記させたいです。
当初差し込み印刷でやろうとしたんですが改行が消えてしまって…
23:デフォルトの名無しさん
24/03/05 15:19:55.05 lrAkKyth0.net
>>22
具体的な用途がわからないけど、文書内の表のセルにただ入力したいだけなら文字列で書き込めばいいんじゃないかな
Sub 文書内のセルに転記()
Dim str As String
str = Cells(1, 1).Value
Dim doc As Object, i As Long
Set doc = Documents.Open(ThisWorkbook.Path & "\文書1.docm")
doc.Tables(1).Cell(1, 1).Range.Text = str
End Sub
24:デフォルトの名無しさん (ワッチョイ 7b6e-0WZ8)
24/03/05 21:04:29.79 vpqODFup0.net
500行ずつ下へ移動するオシャレな方法があれば教えて
コードは簡単に書けるけどボタンをどうしようか悩んでいる。
25:デフォルトの名無しさん (ワッチョイ cb01-fRaX)
24/03/05 22:42:06.84 uv6Tn7vf0.net
リボンかクイックに置けばいいだけ
26:デフォルトの名無しさん (スップ Sdbf-ZLJX)
24/03/05 23:06:34.48 1MXf4VgDd.net
ボタンなんてダサい
ショートカットキーにしとけ
27:デフォルトの名無しさん (ワッチョイ 4bfa-sqC9)
24/03/06 00:55:19.48 g0HJYNda0.net
>>26
ショートカットキーでマクロ発動とかできるの?
28:デフォルトの名無しさん (ワッチョイ cb41-zqCT)
24/03/06 21:07:09.63 J53jsheD0.net
ちっさいユーザーフォームに[↓500] [↑500]のボタン置いて、Sheetの前面にフロートさせとく
29:デフォルトの名無しさん
24/03/22 23:46:16.21 4cmyPG190.net
質問させていただきます
Cellsでセルを指定するときにセル番地を簡単にわかる方法はないでしょうか?
R1C1参照形式というものがありますがこれだとRangeを使用する際に不便だと思います。皆様はどのようにCellsとRangeに適したセル番地を把握されてますか?
30:デフォルトの名無しさん (ワッチョイ 591c-/oLk)
24/03/23 01:40:54.15 WFks+Yvw0.net
よくわからないけど
Range("A1") と書くのと Cells(1, "A") と書くのは同じです
31:デフォルトの名無しさん (ワッチョイ d901-8/Mv)
24/03/23 09:27:28.74 Y5NpvLBG0.net
>>30
mjsk
初めて知った(今頃)
32:デフォルトの名無しさん (スプープ Sd33-MwD1)
24/03/23 09:36:59.52 mhs1yCGmd.net
>>31
rangeオブジェクトのリファレンスに一度目を通しておくと良いよ
33:デフォルトの名無しさん
24/03/23 13:55:04.13 ulv10UCb0.net
助けて下さい
txtに変換して
そのtxtを別のアプリで
読み込もうとしています
Application.CutCopyMode = False
Dim book1 As Workbook
Sheets("label").Select
Application.DisplayAlerts = False
Set book1 = Workbooks("◯◯◯.xlsm")
book1.SaveAs Filename:="C:\Users\aaaaa\Desktop\片山\label.txt", _
FileFormat:=xlCurrentPlatformText
Application.DisplayAlerts = False
Range("B3").Select
Sheets("入力チェック表").Select
Range("H4").Select
Application.Quit
ThisWorkbook.Close
ActiveWorkbook.Close SaveChanges:=False
End Sub
34:デフォルトの名無しさん
24/03/23 14:01:19.14 ulv10UCb0.net
シートlabelをtxtに変換して
別のアプリで読み込もうと思います
ですが、最後はエクセルが
終了してしまうため
(bookが閉じる)
終了しないようにしたいのですが
最後3行を削除すると
txtを保存するためのアラートが出たり
アプリで読み込むと
読込エラーが出たりします
(txtファイル使用中の為?)
エクセル終了しない方法は
ありますか?
35:デフォルトの名無しさん
24/03/23 14:30:10.11 JDdDfN3id.net
>>34
Application.quitしてるからExcelが終了するのは当然では
36:デフォルトの名無しさん
24/03/23 15:09:35.81 ulv10UCb0.net
>>35
ありがとうございます
>>34
Application.quit
を削除したのですが
エクセルは終了しませんが
book?が終了します
37:デフォルトの名無しさん
24/03/23 15:47:42.35 2VB/Vbesd.net
>>36
ブック開いてると排他制御かかるから書き込みロックするソフトから当該ブック開けなくなる
だから閉じるしかないと思うよ
38:デフォルトの名無しさん
24/03/23 15:48:11.11 2VB/Vbesd.net
ああ、Excel側で読み取り専用で開き直すって手があるな
39:デフォルトの名無しさん
24/03/23 16:28:38.79 ulv10UCb0.net
>>37
アドバイスありがとうございます
閉じるしか
無理ですか...
40:デフォルトの名無しさん
24/03/23 22:42:53.35 ULmGYrNT0.net
助けてで始まる質問をする奴は○○って法則
41:デフォルトの名無しさん
24/03/26 11:45:12.02 JlWIdVqx0.net
ブックのフルパス取得しといて開きなおすとこまで書けばいいんじゃ
42:デフォルトの名無しさん
24/03/26 12:10:47.06 qhsI8dwj0.net
何がしたいかわからん
43:デフォルトの名無しさん (ワッチョイ 62ad-aQbW)
24/04/08 04:42:24.97 1vwt4prT0.net
日付(2024/01/01)のセルをVBAのRange("A1").Valueなどで取得すると、勝手に2024/01/01 (月)って曜日の文字列が追加されます。
曜日なしで取得する方法をご存じの方いましたら教えてください。
曜日がついているせいでDateとして扱えず困っています。
Dim d As Date
d = CDate(Range("A1").Value) '2024/01/01 (月)が入ってるため
これでエラーが出ます。
2024/01/01 01:00:00のように時間が入っている場合は2024/01/01 (月) 01:00:00になります。
NumberFormatLocalでフォーマットを指定してもダメでした。
取得するセルの書式設定は日付でユーザー定義ではないです。
最終手段の文字列を加工するのはなしでお願いします。
44:デフォルトの名無しさん
24/04/08 07:42:44.65 TVRO53b8d.net
>>43
Dim d As Date
d = CDate(DATEVALUE(Range("A1").Value))
45:デフォルトの名無しさん
24/04/08 14:05:35.40 nl9i5mBy0.net
>>43
試してみたけど、この3行はどれもエラーにならず同じ結果になった
d = CDate(Range("A1").Value)
d = Range("A1").Value
d = Range("A1")
セルA1の内容は本当にシリアル値か?
OSやOfficeは日本語版か?
ロケールは日本になってるか?
シリアル値ならそのままDate型に代入できるかららCDateで変換するのは無駄
A1セルの書式を標準に変えたらどんな表示になるか確認
46:デフォルトの名無しさん
24/04/08 14:31:02.66 bhILccJZ0.net
>>43
試したけど自分も再現しない。
そちらで新しいブックを作って同じ事を試したら再現する?
47:デフォルトの名無しさん
24/04/09 13:20:50.97 CNAyRCwJM.net
すみません。初心者です。調べてもわからなかったので質問します。urlのようにまず一週間分の表を作って 一週間ごとにオートフィルすれば表がつくれるのですがそれをマクロでやりたいです。よろしくお願いいたします
48:デフォルトの名無しさん
24/04/09 13:30:27.56 CNAyRCwJM.net
URLリンク(tadaup.jp)
これでお願いいたします
49:デフォルトの名無しさん
24/04/09 13:31:59.88 +lYdM27Td.net
質問とは
50:デフォルトの名無しさん
24/04/09 13:32:38.30 CNAyRCwJM.net
ボタンを配置して押すごとに一週間分作成という風にしたいです。
51:デフォルトの名無しさん
24/04/09 13:34:22.65 CNAyRCwJM.net
>>49
誠に勝手ながらコードを教えて欲しいです
52:デフォルトの名無しさん
24/04/09 14:44:25.19 EBugvdEwM.net
>>47
Sub 全自動で表を作るMacro1()
Dim da As Date
da = "1/1" 'この日からスタート
ro = 2
For we = 1 To 52 '52週間分作る
Cells(ro, 3).Resize(1, 3) = Array("a", "b", "c")
For lo = 1 To 7
Cells(ro + lo, 2) = da
da = da + 1
Next
Set ra = Cells(ro, 2).Resize(8, 4)
ra.Borders(xlEdgeLeft).LineStyle = xlContinuous
ra.Borders(xlEdgeLeft).Weight = xlMedium
ra.Borders(xlEdgeRight).LineStyle = xlContinuous
ra.Borders(xlEdgeRight).Weight = xlMedium
ra.Borders(xlEdgeTop).LineStyle = xlContinuous
ra.Borders(xlEdgeTop).Weight = xlMedium
ra.Borders(xlEdgeBottom).LineStyle = xlContinuous
ra.Borders(xlEdgeBottom).Weight = xlMedium
ra.Borders(xlInsideVertical).LineStyle = xlContinuous
ra.Borders(xlInsideVertical).Weight = xlMedium
ra.Borders(xlInsideHorizontal).LineStyle = xlContinuous
ra.Borders(xlInsideHorizontal).Weight = xlMedium
ro = ro + 8
Next
Range("B:B").Font.Name = "MS 明朝"
Range("C:E").Font.Name = "MS ゴシック"
Range("B:E").Font.Bold = True
Range("B:B").NumberFormatLocal = "m月d日 (aaa)"
End Sub
53:デフォルトの名無しさん
24/04/09 15:00:14.82 CNAyRCwJM.net
>>52
ありがとうございます。大変申し訳ありません。
54:デフォルトの名無しさん
24/04/09 16:35:36.48 CNAyRCwJM.net
>>52
すみません。これでも大丈夫ですがマクロ1回実行するごとに7日分つくりたいです。わがまますみません。
55:デフォルトの名無しさん
24/04/09 17:25:50.64 GvF1xxBu0.net
>>54
Sub 一週間ずつコピペ追加Macro1()
ro = Cells(Rows.Count, 2).End(xlUp).Row
Cells(ro - 7, 2).Resize(8, 4).Copy Cells(ro + 1, 2)
For Each c In Cells(ro + 2, 2).Resize(7, 1)
c.Value = c + 7
Next
Columns("B").AutoFit
End Sub
56:デフォルトの名無しさん
24/04/09 17:44:22.55 CNAyRCwJM.net
>>55
ありがとうございます!助かりました
57:デフォルトの名無しさん
24/05/14 11:08:08.44 4ur2uort0.net
ワークシート上で使うつもりの関数についてですが
Function で関数を作る場合に
ワークシートのsum関数のように、「開始セル:終端セル」で範囲指定したものを
引数として渡すにはどのように書けばいいでしょうか?
Fuction Nmame(ここにどう書けば・・・) as Ingteger
という意味です
58:デフォルトの名無しさん
24/05/14 12:42:16.58 kD3ns+u20.net
>>57
例
Function Nmame(セル範囲 As Range) As Integer
Nmame = WorksheetFunction.Sum(セル範囲)
End Function
59:57
24/05/14 14:38:27.21 w6s7TkHo0.net
>>58
ありがとうございます
様子がわかりました
60:デフォルトの名無しさん
24/05/15 02:47:04.16 m8dxiqQg0.net
WorksheetFunctionを知らないのか便利さを理解してないのか分からんが、使わない奴多すぎだよ。
61:デフォルトの名無しさん (ワッチョイ 0eda-UQRA)
24/05/20 19:11:18.88 7XMc72u80.net
たしかにExcel使っている人の中で99.9%の人は使ってないと思うよ
62:
24/05/21 10:21:01.62 KUESjums0.net
WorksheetFunctionは後でかなり読みづらくなるのとエラーの対処が面倒になるから極力避けちゃうな
SequenceとXlookupはたまに使う
63:デフォルトの名無しさん
24/08/19 12:24:22.85 r5bjtZ4H0.net
>>62
そのままベタで書いてない?
Set wf = WorksheetFunction
n = wf.Vlookup(以下略
みたいにすれば式が長くて読みづらいのはだいぶ改善されるけど
64:デフォルトの名無しさん
24/08/19 13:00:42.46 0FLHd/HT0.net
object変数使うのとwith句どっちにするか悩む
65:デフォルトの名無しさん
24/08/21 16:25:00.16 p6R299lZ0.net
まーあまり使う機会が無いからね
今パッと思いつくのでも銀行丸めでない四捨五入くらい
66:デフォルトの名無しさん
24/08/21 21:12:32.10 imFiEHqt0.net
wFuncと書くかな王道のキャメルネームってヤツで
67:デフォルトの名無しさん
24/08/21 21:32:45.54 mP9N7y9+0.net
functionの省略形はFn
キートップの表記もそうなってるし
68:デフォルトの名無しさん
24/08/21 21:39:19.62 9O1swhs+d.net
キートップでいうならほとんどのキーボードはFだよ
F1~F12のF
69:デフォルトの名無しさん
24/08/22 19:14:36.54 4iA6d+k70.net
なるほど、fnを変数名もありだね
短くて分かりやすいのがベスト
70:デフォルトの名無しさん
24/08/22 20:47:55.78 2kUwH3KZ0.net
>>68
そのパターンだと、続く数字がないと、F だけじゃ意味を認識できにくくないかな?
VBAと同じ祖先のN88-BASICにDEF FN()っていうステートメントがあったぐらいだし、Fnあたりが無難じゃないかなあと
71:デフォルトの名無しさん
24/08/22 21:40:22.16 4iA6d+k70.net
変数名悩むよいつも
72:デフォルトの名無しさん
24/08/24 06:52:44.35 BUiu5a090.net
wFuckでいいんじゃね
73:デフォルトの名無しさん
24/08/24 15:53:04.39 9/zXA2VM0.net
それもありだね
何となく意味が分かる変数名がベスト
74:デフォルトの名無しさん
24/09/03 11:47:24.62 RHXywGfU0.net
20種類前後の機材があり、1部屋につき5~10種使っていて、全部で50部屋程度ある
部屋毎に以下の内容を記載したシートを作らないといけない(機材名 サイズ 台数)というのが定期的にあり
現在は(部屋番号a 部屋名)と(部屋番号b 機材名 サイズ 台数)の一覧シートを作って
For 部屋番号=2 to 部屋番号bmax
部屋番号a=部屋番号b
*転記
といった形のマクロを使用しているのですが
いちいち機材名等をコピペするのが手前なので(機材名 サイズ 台数 部屋番号b1 b2…)のシートを作って部屋番号a=b1*転記、a=b2*転記みたいにしたいです
ただ、私の知識だと判定と転記の行を増やすくらいしか思い付かず、スッキリとした形にできるのでしょうか
75:デフォルトの名無しさん (ワッチョイ 5f41-RGwf)
24/09/03 16:38:51.21 UjP0155+0.net
すいません自己解決しました
76:デフォルトの名無しさん (ワッチョイ 5fdb-nMrU)
24/09/05 12:36:06.75 z+pIceuZ0.net
雑魚解決
77:デフォルトの名無しさん
24/12/05 14:41:34.90 BRiCmyxP0.net
B1:D1が全てTRUEの時、◯を違う時×を表示するという具合の関数を組みたいのですが何を使えばいいのでしょうか?
78:デフォルトの名無しさん
24/12/05 14:48:46.36 2LNpfkRJa.net
lookup
vlookup
79:デフォルトの名無しさん
24/12/05 15:13:00.67 BvdDuGAN0.net
=IF(COUNTIF(B1:D1,TRUE)=3,”◯”,”×”)
80:デフォルトの名無しさん
24/12/05 16:43:15.56 e2kHlQPe0.net
=IF(AND(B1:D1),"○","×")
81:デフォルトの名無しさん (ワッチョイ 18f8-RZe5)
24/12/05 19:34:08.56 8QbKq8w50.net
VBAスレだからworksheetfunctionって明示しないと
82:デフォルトの名無しさん (ワッチョイ acce-WFUB)
24/12/05 21:20:09.22 7iZ97EoX0.net
= Mid("◯×", Range("B1") * Range("C1") * Range("D1") + 2, 1)
83:デフォルトの名無しさん
24/12/07 08:22:31.23 m++O9Thl0.net
>>77
頭を使ったほうが良いと思う
84:デフォルトの名無しさん
24/12/07 18:22:33.39 FGUnkbhB0.net
ここに来るのは、頭だけは絶対に使わない人達
85:デフォルトの名無しさん (ワッチョイ 0e62-jXfH)
24/12/07 20:46:46.78 5zqnWiz30.net
ポコポコヘッドを覚えてから質問して来い?
86:デフォルトの名無しさん (ワッチョイ 5f4d-RZe5)
24/12/07 21:35:52.97 5P3CnKiu0.net
>>84
よう馬鹿!
87:デフォルトの名無しさん
24/12/09 11:28:21.48 WZWOgPIq0.net
うんこ
88:デフォルトの名無しさん
25/01/23 21:39:17.03 L52ALlnW0.net
カレー
89:デフォルトの名無しさん
25/06/10 22:29:47.99 chtn5cci0.net
今どきのCONTINUEと同じように使えるのが goto CONTINUE方式
90:デフォルトの名無しさん
25/06/11 17:06:06.79 KpaZiopI0.net
ワッチョイありのがええんやで
91:デフォルトの名無しさん
25/06/15 12:04:33.82 VWehYNCSa.net
無の方は荒らされてるな
92:デフォルトの名無しさん
25/06/15 16:04:36.12 iEbH+tZ40.net
バカが騒いでるだけ
わざわざ私バカですって手を挙げて出てくるのが面白い、本人がわかってなくてw
93:デフォルトの名無しさん
25/06/15 23:58:19.79 K8AqenHf0.net
VBAスレ2つあったの今知ったわw
94:デフォルトの名無しさん
25/06/16 07:54:22.50 ibaltNjp0.net
>>92
わかってる奴は質問スレ使う理由ないんだから、
質問スレでマウント取る奴ってそのために質問スレに書き込むバカでしかないんだよな
疑問の解決に寄与するならまだしも的外れなこと言ってる奴もいるし
95:デフォルトの名無しさん
25/06/16 13:10:13.94 Mgfu6kwT0.net
昔から言われてるでしょ
「バカって言うやつが本当のバカ」
96:デフォルトの名無しさん
25/06/16 21:13:13.73 jCyEwpBS0.net
>>95
昔から言われてるでしょ
それ言ってるのはバカしかいないと
97:デフォルトの名無しさん
25/06/17 18:43:01.81 XfPfRxIO0.net
昔から言われてるのは、5ちゃんねるに書き込んでる事自体馬鹿ってヤツ
98:デフォルトの名無しさん
25/06/17 19:14:09.68 ebkbzKcj0.net
それは否定できねぇなあ
99:デフォルトの名無しさん
25/06/17 20:52:08.20 87w8cuvY0.net
踊る阿呆に見る阿呆、同じ阿呆なら踊らにゃ損損
100:デフォルトの名無しさん
25/06/20 21:29:26.25 sV38LovV0.net
アホちゃいまんねんパーでんねん
101:デフォルトの名無しさん
25/06/22 11:13:20.67 pDLda+7Na.net
シットルケ