Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

2023/01/28(土) 12:12:12.41

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

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

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.2ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.2ch.net/test/read.cgi/tech/1667104996/

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

2023/10/30(月) 12:07:45.37

前の空白は数値で付くのはわかるが後ろの空白は謎

2023/10/30(月) 12:28:45.35

おそらく非表示の書式文字はアンダーバー+半角スペース1文字

2023/10/30(月) 15:52:04.09

会計を設定した場合に隙間が空くのは、次のような表示形式が行われるからです
_ \* #,##0_ ;_ \* -#,##0_ ;_ \* "-"_ ;_ @_
https://www.officepro.jp/exceltips/tips_format/index16.html
基本のキ

2023/10/30(月) 16:33:05.01

いやそれが何故かっていう疑問なんじゃないの・・・
（言い換えれば空ける理由、空けなくてもいいんじゃない？っていう疑問だと思う）

答え出るかわからんし闇っぽいから、はい次の方

2023/10/30(月) 16:45:21.41

闇って言いたいだけだろ

2023/10/30(月) 22:20:23.95

書式設定を変えた時、文字の位置が少し変わるのは知ってたけど、まさかそれを内部的には空白で表現してるとは思わなかったよ

2023/11/01(水) 01:09:45.26

【質問】
Excelのソートに関しての質問です。

①シートの１列目の文字列に基づいて昇順でソートする。
②シートの１列目の文字列の先頭に「○」や「☆」などの記号がある場合は、それらを無視して２文字目の文字に基づいてソートしたい。

そこで下記コードを実行したところ、
「実行時エラー '1004': 並べ替えの参照が正しくありません。」というエラーが出ます。
どこをどう修正すればよいでしょうか？

2023/11/01(水) 01:11:37.64

Sub CustomSort()
Dim LastRow As Long
Dim SortRange As Range
Dim SortKeyRange As Range
Dim i As Long

With ActiveSheet
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Set SortRange = .Range("A2:A" & LastRow)
Set SortKeyRange = .Range("B2:B" & LastRow)
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=SortRange, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange SortRange
.Sort.Header = xlNo
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With

2023/11/01(水) 01:12:11.61

For i = 2 To LastRow
If Left(SortKeyRange(i, 1), 1) Like "[○☆]" Then
SortKeyRange(i, 1) = Mid(SortKeyRange(i, 1), 2, 1)
End If
Next i

With ActiveSheet
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=SortKeyRange, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange SortRange
.Sort.Header = xlNo
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With

For i = 2 To LastRow
If Left(SortKeyRange(i, 1), 1) Like "[○☆]" Then
SortKeyRange(i, 1) = "○" & SortKeyRange(i, 1)
End If
Next i
End Sub

2023/11/01(水) 03:09:14.48

>>909
何もかも違ってる気がするので丸ごと作り直してみたけど、これで希望の結果になってるかはわからない

Sub CustomSort()
　　Dim LastRow As Long
　　Dim SortRange As Range
　　Dim SortKeyRange As Range
　　Dim i As Long

　　With ActiveWorkbook.ActiveSheet
　　　　LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
　　　　Set SortRange = .Range("A2:B" & LastRow)
　　　　Set SortKeyRange = .Range("B2:B" & LastRow)
　　　　.Range("A2:A" & LastRow).Copy Destination:=SortKeyRange
　　　　For i = 2 To LastRow
　　　　　　If Left(.Cells(i, 1), 1) Like "[〇☆]" Then
　　　　　　　　.Cells(i, 2) = Mid(.Cells(i, 1), 2, 1)
　　　　　　End If
　　　　Next i

　　　　With .Sort
　　　　　　.SortFields.Clear
　　　　　　.SortFields.Add2 Key:=SortKeyRange
　　　　　　.SetRange SortRange
　　　　　　.Header = xlNo
　　　　　　.MatchCase = False
　　　　　　.Orientation = xlTopToBottom
　　　　　　.SortMethod = xlPinYin
　　　　　　.Apply
　　　　End With
　　End With
End Sub

**デフォルトの名無しさん** (ｽﾌｯ Sd33-wFsA) · 2023/11/01(水) 03:13:41.64

>>909
ほぼマルチんこ

2023/11/01(水) 07:02:30.74

>>912
ありがとうございます。
ただ、そのコードを実行してみたら、ちょっとセルの中身がずれたりしていたので、色々試した結果、下記のコードで解決しました。

Sub CustomSortWithSymbol()
Dim LastRow As Long
Dim ws As Worksheet
Dim i As Long, j As Long, k As Long
Dim sortKey As String
Dim originalValue As String

Set ws = ThisWorkbook.ActiveSheet ' アクティブなシートを設定
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 最後の行を取得

Dim sortKeys() As String ' カスタムソートのため、ソートキーを一時的に保持
ReDim sortKeys(1 To LastRow)

For i = 2 To LastRow ' ○や☆の文字で始まる文字列の場合、次の3文字をソートキーとして設定
originalValue = ws.Cells(i, 1).Value
If Left(originalValue, 1) = "○" Or Left(originalValue, 1) = "☆" Then
sortKeys(i) = UCase(Mid(originalValue, 2, 3))
Else
sortKeys(i) = UCase(Left(originalValue, 3))
End If
Next i

2023/11/01(水) 07:04:31.49

For i = 2 To LastRow ' ソートキーを使ってソート順を決定
For j = i + 1 To LastRow
If sortKeys(i) > sortKeys(j) Then
Dim tempKey As String ' ソートキーの順序を入れ替え
tempKey = sortKeys(i)
sortKeys(i) = sortKeys(j)
sortKeys(j) = tempKey

Dim tempValue As String ' A列のセルの値も入れ替え
tempValue = ws.Cells(i, 1).Value
ws.Cells(i, 1).Value = ws.Cells(j, 1).Value
ws.Cells(j, 1).Value = tempValue

For k = 2 To 10 ' B列～J列のセルの値も入れ替え
tempValue = ws.Cells(i, k).Value
ws.Cells(i, k).Value = ws.Cells(j, k).Value
ws.Cells(j, k).Value = tempValue
Next k
End If
Next j
Next i
End Sub

2023/11/02(木) 01:34:57.09

めっちゃ解りやすい。上手ですね

2023/11/02(木) 10:47:14.24

いえいえ

2023/11/02(木) 12:10:56.31

swap関数作るともっと簡単に

2023/11/10(金) 14:54:35.91

VBAでスクレイピングをしてるんだが

これはOK
Set o_elem = Driver.FindElementsByCss("ul.M_pager > li[class = 'next'] > a")
これはOK
Set o_elem = Driver.FindElementsByCss("ul.M_pager > li[class *= 'next'] > a")
これはエラーになる
Set o_elem = Driver.FindElementsByCss("ul.M_pager > li[class ！= 'next'] > a")

VBAのFindElementsByCssで!=を使う方法てある？
もちろん<>もだめ。

2023/11/10(金) 18:46:25.71

ソレってVBAではなくDriverさんの文法ですよね？

2023/11/10(金) 20:05:43.07

コレでどーなるか　ちょっと試してみてもらえるかぬ
Set o_elem = Driver.FindElementsByCss(“ul.M_pager > li:not([class = ‘next’]) > a”)

2023/11/10(金) 23:38:13.76

>>921
THX
それだとエラーはなくなるけど
<li class=next><a>も選ばれてしまう。
.

ul.M_pager > li:not([class]) > a
だとうまくいきました

2023/11/11(土) 00:16:15.21

解決オメだぬ

2023/11/12(日) 20:06:42.57

デスクトップに保存したhtmlファイルを、Shell ("エッジのパス\msedge.exe" & path, vbNormalFocus)で開いています。
んで、そのhtmlファイルには複数個のリンクがあります。
各リンクを自動的にonClick()でクリックするにはどのようにすればいいでしょうか？

2023/11/13(月) 01:56:20.78

知らんが、onclickするより、
そのhtmlをテキストで読み込んで、
アドレス調べて直接開いた方がはやい

2023/11/13(月) 07:48:09.28

>>924
ウイルスみたいなことは止めてね

**あぼーん** · NG

あぼーん

2023/11/13(月) 10:34:01.20

>>927
これは試す価値あるな

2023/11/13(月) 11:23:51.91

>>924
イベントハンドラ(onClick)を自動的にクリックとか表現してるあたり、なんか基本がわかってなさそうなふいんきだけど、大丈夫？

Edgeに限らず、Shellで開いたアプリをクリックするのは不可能じゃないけどかなり大変
APIを使わないと無理なんだけど、Shell以外の方法で開くのはだめなの？

2023/11/13(月) 20:01:33.22

そういうのは、Ruby, Selenium WebDriver で出来そう

2023/11/14(火) 05:23:36.97

アクティブブックを保存してBluetoothでファイル転送。の方法をお教えいただきたくお願いいたします。

上記についてはウェブサイトでも見つかりませんでした。今は手段をメール添付にして似た動作で行っていますが、ローカルPCでも自動ファイル転送するケースがでてきたため、Bluetooth転送方法をお願いいたします。

2023/11/14(火) 07:04:54.83

転送したいファイルを右クリックして　送る　で　ＢＴデバイスを選択するダケと思いましたケドぬ

2023/11/14(火) 13:08:23.76

>>931
BT通信の自動化はかなりめんどい
専門家に開発費を払って作ってもらうレベル
自分でやりたいなら、ここを参考にして
https://www.softech.co.jp/mm_170705_tr.htm

2023/11/16(木) 21:59:20.91

Microsoft 365 Excel バージョン2310 ビルド 16924.20124だけど、
name no
a 1
b 2
c 3
みたいなテーブル1を作ってワークシート上で
XLOOKUP("a",テーブル1[name],テーブル1[no],"")
ってやると当然1が帰るけど、
vbaで
With ThisWorkbook.Sheets(1).ListObjects("テーブル1").DataBodyRange
MsgBox Application.WorksheetFunction.XLookup("a", .Range("テーブル1[name]"), .Range("テーブル1[no]"), "")
End With
みたいにするとaだけ帰ってこない b以降はOK これは何でしょ？

2023/11/17(金) 00:30:19.09

With ThisWorkbook.Sheets(1).ListObjects("テーブル1").DataBodyRange
MsgBox Application.WorksheetFunction.XLookup("a", .Range("テーブル1[name]A1:A3"), .Range("テーブル1[no]"), "")
End With

こんなカンジで試してみてどーかぬ

2023/11/17(金) 05:58:28.92

>>934
そのコードで本当に動いた？エラーになるけど。
そのWithの指定だとテーブルの中身だけ持ってくるから .Range("テーブル1[name]") で参照出来ないと思う。

2023/11/17(金) 10:29:57.13

>>935
ありがとあとで試してみる
>>936
動いてるコードそのまま貼ったつもりなんだけど…動かなかったらすまん

2023/11/17(金) 12:35:58.54

商社から上司経由でシステムの売り込みとかよく来るしpython勉強すればもっと広い範囲で出来たりするんだろうけど
vbaで何とかしようと考えちゃう悪癖が無くならない
42歳だけど化石人種のまま定年になるんかなぁ

2023/11/17(金) 17:47:10.30

得意なツールでなんとかするのわ　ワルくわネエと思いますケドぬ

2023/11/17(金) 17:58:29.35

ではN88BASICとフロッピーでなんとかします！

**934** (ﾜｯﾁｮｲ ffbd-f7HJ) · 2023/11/17(金) 20:54:07.11

With ThisWorkbook.Sheets(1).ListObjects("テーブル1")
MsgBox Application.WorksheetFunction.XLookup("a", .ListColumns("name").Range, .ListColumns("no").Range, "")
End With

結局これでうまくいったおまえらありがとう

2023/11/17(金) 21:14:43.08

解決オメだぬ

2023/11/18(土) 09:48:39.54

ChatGPTのcursorとエクセルを連動することって出来ますかね？

cursorで作成したVBAコードをVBEに貼り付けて実行ではなく、
cursor内から直で実行したいです。

2023/11/18(土) 11:55:47.75

cursor ってpythonなので　python でエクセルを呼んでやれば可能と思いますケドぬ

2023/11/18(土) 15:43:14.57

ありがとうございます。
やっぱり難しいですよね。
そもそもVSCodeとVBAの相性もいまいちなことに気づきました。

2023/11/18(土) 18:44:14.80

コピー元.Copy : コピー先.Paste
はクリップボード経由なので遅いと聞きましたが
コピー元.Copy Destination:=コピー先
はクリップボード経由でしょうか？

2023/11/18(土) 18:45:57.90

ChatGPTの回答を貼ってくれるのでも良いです。

2023/11/18(土) 19:32:00.40

書いてる間に試せるだろうに

2023/11/18(土) 20:51:47.51

出先とかでVBA動かせない環境かもよ
copyメソッド＝クリップボードにコピー

2023/11/18(土) 23:37:15.79

フォームボタンから引数付きマクロ呼び出すとエラー出たり再度ブック開くときに壊れるね
これ改善されないのかな

2023/11/19(日) 17:49:55.03

意味わからんな、使い方が悪いんじゃね

2023/11/20(月) 18:02:44.99

それだけだと何とも
壊れるのが普通なら、壊したことないオレが優秀なのか
（RPAでXLファイル更新させたら木っ端微塵にされた経験はある）

2023/11/21(火) 14:03:41.40

された　んじゃなくて　木っ端微塵にするロードマップを書いたんだろ　参考までに載せとけ

2023/11/21(火) 15:47:16.68

>>953
開発元に連絡して不具合であることを確認済み
お前のようなアホではない
テストですぐわかるからイチイチ書かん

2023/11/21(火) 16:47:11.94

MSに問い合わせたってこと？

2023/11/21(火) 22:17:10.20

ほほう、「RPA 不具合」でググると散々だな　けちょんけちょんに貶されてる　まだ時期尚早てか
アホでは無いひとはスイスイそれらのトラブルを回避し続けてるということか　さすがです
クラウドもオンプレもどっちもロクな事書かれてない　実務で導入・運用はこええじゃん　潔いな

2023/11/22(水) 00:08:04.33

まあそこは色々な言い方があるだろうな
全銀がトラブルくらいなら各銀行は信用ならんと言う人もいるだろう
相変わらずリコール出してる車ってものは信用ならんと言う人もいるだろう
30年前は事務のおばちゃんは殆どがPCなんて使ってなかっただろう。今はEXCEL詳しいおばちゃんもいる
30年後にはAIは様々な形で普通に使われているだろう
RPAはその一部かもわからないが、実績を上げてる事例は既に多い
現場のおばちゃんが使い出したとこもある
システム開発に多額な費用出せない中小企業には救いなソリューションかもしれない

2023/11/22(水) 05:12:35.72

RPAでできることはほとんどVBAでできるしね。
RPAを導入するやつはアホとしか言えん。

2023/11/22(水) 08:00:16.99

>>958
RPA知らないバカですって言ってるようなもん

2023/11/22(水) 10:12:11.97

ロジック部分や外部連携はRPA、セルの修飾などExcel固有の処理をVBAで処理するのが本来の姿

2023/11/22(水) 10:33:46.71

いやRPAは自動化システム全体を指すし、
それの実装方法の一つとしてVBAやらPythonやらベンダーのソフトやらがある
ノーコードだって一人情シスがシコシコVBA組んだって、
それで作業自動化ができればそれはRPA
VBAだとoffice以外の自動化がしにくかったのは昔の話だし

2023/11/22(水) 13:09:03.96

言い出しっぺが、RPAでXLファイル更新させたら　って書いてんだから、VBAじゃあ無いんだろう
RPAってなんぞ？　と少しく調べてみたら、何のことは無い　自動化を言い換えただけ
MS謹製のもあるし日立とかのもあったりする様子だけど、古来そおゆうのが蔓延った試しが無い
云わば吊るしのスーツに体を合わせろの姿勢　個々の企業の千差万別の業務に特化したオーダーメードには
やっぱりVBAで対応するのが何より
その先の他業務との連携に関してはRPAがございます　どうぞよろしく　な立ち位置なのか
特にクラウド系の、外部に居てもアクセスできます　部外者へのお披露目関連はこの鯖つこてください
とかなら、ネットに疎いみなさんでも容易に使えて都合がいいのかも知れない

ただ、自動化の困るところは、いざトラブった時の原因の切り分けが必要以上に厄介に成るところ
一人情シスの手に負えるところじゃ無くなる　要員増やさなきゃ仕事に支障が出る　若しくは外注
中小零細はVBAでいいんだ

2023/11/22(水) 13:30:34.62

>>962
逆
一人情シスじゃないとブラックボックス化してゴミ化する

2023/11/22(水) 15:08:56.43

一人情シスをボロボロになるまで使い倒す気マンマンでﾜﾛﾀ
本人がやる気満々のうちはいいだろうが、寿命縮むぞ　そう長期に亘って携わっていられる業務じゃ無くね？
何よりどんどん投入されるこういった新しい技術も知的財産として蓄えてかなきゃならない
それが実務に応用できるかの検証が必要　デバイスもコロコロ変わる　相互の親和性とかもチェックし続け
そおゆうのをひとりっきりに任せっぱなしだと、後継者がいざ現場に就いた時に玉手箱明けたウラシマ状態
「なんじゃこりゃあ！」と必ず叫びたくなる　情報共有の重要性を切実に訴えたい
そういうトコを切り詰める企業は先細り
いや、経営陣はそんなの知ったこっちゃ無い「お金掛けてるのになんでできないの？」「失敗したら責任な」
そんなのが大半だから、ボトムアップで訴えを上げ続けないと　　　って、スレチだな　ついな

2023/11/22(水) 15:10:51.10

はい次の方

2023/11/22(水) 16:39:38.78

>>964
RPAがオワコン呼ばわりされてるのは、
結局やってることが草の根VBAと同じだからよ
RPAそのものより、その運用ノウハウの方が高く売れる
述べてる情報共有方法だったり、業務フローの資料化だったりね

2023/11/22(水) 16:40:36.89

>>964
単に一人情シス　イヤになれば　辞めたらイイと思いますぬ

2023/11/22(水) 17:58:45.17

オワコンとは思わんが
MSが推進しようとしている、総合型コラボレーションプラットフォーム Teams　だの　Azure　だの
それぞれ単品で試してウケが良かったら一つにまとめて行って高値付けて一儲けしよう　という方向性がね
尻馬に乗っかろうって他社も同様　万単位で開発者が居るような統合アプリを、一人情シスでは捌ききれん
中小零細がそれをどれだけ導入するかにも依るが　いずれは避けて通れなく成ってくんだろうとは思う
「親会社の要請で」だの「導入してないと仕事も貰えない」だの
　ノウハウ売るだけでサポートなんかしません　っつー商売はいいトコに目を付けたと思う　精々お励みください

2023/11/22(水) 18:50:32.60

仕事楽にするのは別にVBAだけじゃなくても構わんてだけのことよ
VBAに拘るのはアホってだけ

2023/11/22(水) 19:21:41.90

MicrosoftのRPAというならAzureはちょっと路線が違う
PowerPlatformの方が方向性が近い

2023/11/22(水) 20:02:38.72

[RPA]PC自動化技術総合スレ[効率化] Part.10
https://mevius.5ch.net/test/read.cgi/tech/1614946651/

2023/11/22(水) 21:22:28.41

VBAは属人化しやすいのがネックだね
Excel使えるけどVBA使えない人9割とか言われてるし

2023/11/22(水) 21:46:54.92

>>971　ありがとう　見てきた　ほんの2日前に初めて意識したRPAだが(w　ずっとシステムとかに
携わってきた人間なら辛うじて付いて行けるだろうけど、一般の事務職や、まして中小零細の経営陣が
これに付いて来れるとは到底思えんな　上場の大企業サマ達がすったもんだし続けていて欲しい
そこで熟されたのが末端に徐々に浸透してくならまだしも　という感想
末端の実務でも「おおおっ！！」と感嘆符付けるような具体例があるなら加速するのか

PowerAutomate なんてのもそんなに普及してるとは知りもしなかったし、ために成るスレだ
（導入するかどうかは別として

2023/11/22(水) 21:50:13.81

>>973
個人でも使ってますよ
（対象になるようなことしてない人はもちろん不要）

2023/11/23(木) 03:38:46.12

Office ( Excel / Word / PowerPoint )
PowerPlatform ( PowerAutomate / PowerApps / PowerBI )
https://i.imgur.com/WGgOkUt.png

2023/11/23(木) 22:07:03.90

>>972
逆に一割もVBA使えるってこと？

2023/11/23(木) 22:53:02.20

>>976
会社でVBAを使える人はその能力を隠す傾向にある。
VBAの使い手だといろんな仕事を押し付けられる可能性がある。
そしてそれは大概人事の評価にはならない。
会社もそういう人をIT担当にするわけでもなく、
大概IT担当は使えないやつがあてがわれる。

2023/11/23(木) 23:21:45.29

>>977
イイ話やぬ

2023/11/24(金) 12:13:32.01

素性を隠してるのに統計に計上できるって、どんな徳川の隠密が暗躍してンだよ

2023/11/24(金) 20:02:24.73

そも得られた調査が正確だとゆー保証わ　ドコにもネエからぬ

2023/11/24(金) 20:15:41.76

誰か次スレヨロだぬ

2023/11/24(金) 20:42:43.52

Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1700826110/

2023/11/24(金) 20:51:57.44

>>982
ありがとぬ

2023/11/24(金) 21:08:49.46

じゃあ、九割だなんてでたらめな数字持ち出して悦に入ってる奴が唐変木ってぇことか
数字を扱う業務に携わって居ながら不埒千万だな

2023/11/24(金) 21:37:35.25

そも統計データの擬装わ　ジャップの十八番やからぬ

2023/11/25(土) 13:57:58.26

AI機能「Copilot」を組み込んだデスクトップ版「Power Automate」の2023年11月更新
https://forest.watch.impress.co.jp/docs/news/1549608.html

2023/11/26(日) 17:22:27.82

マクロ組めるのに、そのスキルをアピールしない。能ある鷹は爪を隠すだね

2023/11/27(月) 11:04:12.33

まるで、ペーパードライバー　能力を持っていながら才能を発揮して無きゃ
いざ！の時に錆び付いてて使い物に成らない　過去の遺物を触れるってだけ
そんなのを能ある鷹とは呼べず、No！だけのタコと呼んでもいい

2023/11/27(月) 12:15:29.53

タコに脳は9つあるよ

2023/11/27(月) 12:36:04.31

そのうち8個はたった1ミリしかないけどな

2023/11/27(月) 13:47:40.34

えー、鷹に対応する何か他のもの探したけど出て来なかったからタコにしただけなのにー

2023/11/27(月) 13:54:20.52

鳶とかすぐ出てこないか？

2023/11/27(月) 16:43:18.10

ゆとり教育で漢字書くのはそれほど重視されなくなった
オレはとっくに重視してなくて、書けない漢字山ほどあるわw

2023/11/27(月) 18:17:40.90

>>988
チンコみたいだね

2023/11/27(月) 19:28:46.59

>>993
漢字の話ですらないことも読み取れない脳足りんのお前
それが何を重視するとかすこぶるどうでもよい

2023/11/27(月) 20:32:41.92

能ある鷹　vs　No! だけの鳶　　ソッチのが変だろ　そんな説明しなきゃいけない時代か　やれやれ

2023/11/27(月) 20:50:08.95

>>996
タコは変じゃないのか？

2023/11/27(月) 21:11:46.40

これは「たか」と「たこ」の高度なダジャレなんですよ

2023/11/27(月) 21:29:40.40

ダジャレかな　ダジャレじゃ無いよラップだよ
のーあるたか！のーだけのたこ！　のーあるたか！のーだけのたこ！　のーあるたか！のーだけのたこ！
三回唱えりゃよっくわっかる　頭韻踏んでるラップだよ！　　なんつて　　どーもすみませんでした

2023/11/27(月) 22:03:47.07

ラップってつまるところおやじギャグの繰り返しじゃん

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 303日 9時間 51分 35秒