Excel VBA 質問スレ Part79

**デフォルトの名無しさん** · 2023/01/28(土) 11:46:47.21

↑同じ内容を3行貼り付けること

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

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

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

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

**デフォルトの名無しさん** · 2023/02/10(金) 19:31:04.95

>>143

自分も>>150と同じ方法でやるかな。

ちなみに実際にコード書いてみたら22行だった
(変数の取り方とかで多少ずれるけどほぼこのくらいかと)。

**デフォルトの名無しさん** · 2023/02/10(金) 19:32:46.64

>>148
基本賛成だけど、この議案だけ反対って場合は一括賛成、個別反対を許すようにした
個別入ってるときはそっち優先
なるべく入力を減らす配慮

>>150
それがやりたいっす
>>151
く、くださいっ

**デフォルトの名無しさん** · 2023/02/10(金) 20:01:37.48

>>152
関数で解決できそうなら無理にVBAで解決することもないと思う

で、これはやりたいことと解決したいことが合ってるのか気になっての質問なんだけど
6行目、議案3の他に2,4も世帯人数と比べ回答数が少ないように見えるけどそこには何もしなくていいの？

**151** · 2023/02/10(金) 20:45:28.82

>>152

コードは下記。
今回は記述してないが、500行あるなら
screenupdatingをfalseにした方がいいかと。

Sub 議決()

Dim i As Long, j As Long
Dim r1 As Range, r2 As Range 'r1は一括の空白数取得用、r2は各議案の空白数取得用
Dim rowNumber As Long 'データが埋まっている行数取得用

rowNumber = Cells(Rows.Count, 1).End(xlUp).row

For i = 3 To rowNumber
Set r1 = Range(Cells(i, 2), Cells(i, 4))

If WorksheetFunction.CountBlank(r1) <> 3 Then
For j = 5 To 17 Step 3
Set r2 = Range(Cells(i, j), Cells(i, j + 2))
If WorksheetFunction.CountBlank(r2) = 3 Then
r2 = r1.Value
End If
Next j
End If
Next i

End Sub

**デフォルトの名無しさん** · 2023/02/10(金) 21:17:11.72

>>153
その数値の整合性は表決者依存にしました
議案4に個別したらそれを尊重すると

>>154
で、できました
ささっと作ってくれるってすごいです
ありがとうございます
総会乗りきれます！

**デフォルトの名無しさん** · 2023/02/10(金) 21:52:52.21

>>155
9人世帯の議案4には棄権1しか入っていないけど、これは
一括に関係なく議案4に個別で入れた人が棄権1人しかいなかった
その上で9人世帯は議案4に関して棄権1名のみとして扱う
みたいな解釈でいいのかな？
一括が何票あろうが個別1票のが上みたいな
単純に各議案ごとに全世帯での票数を計上したいわけじゃなさそうだよね

**デフォルトの名無しさん** · 2023/02/10(金) 22:03:07.12

>>140
セル範囲指定するとに配列の変数名指定するだけ
バリアント型じゃないと無理かもしれん

>>142
WorksheetFunctionでセル範囲指定する奴はほとんど配列でもいける
というか、VBAにわたってくるときに内部的に配列になってるはず

**デフォルトの名無しさん** · 2023/02/10(金) 22:07:47.74

参考コード
Option Base 1
Sub x()
Dim a(10, 2)
For i = 1 To 10
a(i, 1) = i: a(i, 2) = i & "だよ"
Next
MsgBox WorksheetFunction.VLookup(7, a, 2)
End Sub

**デフォルトの名無しさん** · 2023/02/11(土) 03:59:07.46

>>156
実際はシャンシャン総会なので一括賛成で終わると思ってます
書面7割、ネット3割を想定
ネットはGoogle Formsを使うので、定義として全項目スキップできるようにしてあって
概ね賛成だけど議案4だけ個別回答
その場合は表決者がつじつま合わせないとその議案はそっち優先にしますよとしています

**デフォルトの名無しさん** · 2023/02/11(土) 07:30:30.25

>>158
マジか！！！　と思って試してみたらマジだったｗ

んで個人的によく使うmin,max,match,countifを試してみたら
min,maxはできたけどmatch,countifはダメだった。
要素の中身を取り出す系の関数はいける感じかな？

ひとつ理解が深まった気がするよ。ありがとう。

**デフォルトの名無しさん** · 2023/02/11(土) 08:41:56.27

Subtotalって集計キーを２つ指定したいときはどうやるの？

**デフォルトの名無しさん** · 2023/02/11(土) 09:45:09.37

sumproduct

**デフォルトの名無しさん** · 2023/02/11(土) 19:56:49.54

マクロの資格とかあるの？MOSのこと？

**デフォルトの名無しさん** · 2023/02/11(土) 20:04:45.09

そいやあるのかね、言語としては古くてしょうもないが

**デフォルトの名無しさん** · 2023/02/11(土) 20:10:27.29

VBAエキスパートという民間資格
MOS ビジネス統計すぺしゃりすと IC3 あどび認定ぷろふぇっしょなる Microsoft認定資格 App Development with Swift IT Specialist えｔｃ
https://www.odyssey-com.co.jp/index.html

**デフォルトの名無しさん** · 2023/02/11(土) 20:16:37.74

ありがとう。あるんですね。

**デフォルトの名無しさん** · 2023/02/11(土) 20:18:50.78

イミディエイトウィンドウでは実行できないステートメントはどれか。次の中から1つ選びなさい。

1.?Range("A5").Value
2.MsgBox "Hello!"
3.Dim x As Integer
4.For i = 1 To 10:total = total + i:Next i:Print total

３番かな？

**デフォルトの名無しさん** · 2023/02/11(土) 20:20:26.56

次のような2つのプロシージャを同一の標準モジュール上に作成した。「M_Proc」プロシージャの実行結果はどうなるか。次の中から正しいものを1つ選びなさい。

Sub M_Proc ()
Dim a As Long
a = F_Proc(3)
MsgBox a
End Sub

Function F_Proc(Optional x As Long = 5) As Long
F_Proc = x * 2
End Function

---
①6
②9
③10
④実行時エラーが発生する

**デフォルトの名無しさん** · 2023/02/11(土) 20:23:23.87

Optional x As Long = 5
って何？この引数。

**デフォルトの名無しさん** · 2023/02/11(土) 20:25:24.81

次のプロシージャはセルA1の値に応じてメッセージを表示するものである。セルA1の値が3未満だったら「A」と表示させたい。このとき、【　1　】に入る適切な命令を解答欄に入力しなさい。

Sub Sample()
Select Case Range("A1").Value
Case 【　1　】
MsgBox "A"
Case 5
MsgBox "B"
Case 7 To 9
MsgBox "C"
Case Else
MsgBox "該当なし"
End Select
End Sub

**デフォルトの名無しさん** · 2023/02/11(土) 20:30:06.33

資格が役立つかさておき、いい問題だね。

**デフォルトの名無しさん** · 2023/02/11(土) 21:14:28.92

>>169
省略引数でしょ
って言うか vba optional でググれ

**デフォルトの名無しさん** · 2023/02/12(日) 08:33:11.90

vba解説してるサイト見たら皆プロシージャの最後に
set obj = nothing　'後始末
ってやってるけどあれ循環参照以外で意味ある？

やらずにadodbとかseleniumで10万回以上実行してるけど何の問題も起こらない

**デフォルトの名無しさん** · 2023/02/12(日) 09:18:22.71

>>173
意味ない
循環参照でもそれで解決するならやらなくても解決する

**デフォルトの名無しさん** · 2023/02/12(日) 11:39:10.47

.cels(1,1) = 〇〇
セル指定で行や列の連番を簡単に入力する方法ってありますか？
以下のようにオートフィルのような感じでコードを作成したいです。

.cels(1,2) = 〇〇
.cels(1,3) = 〇〇
.cels(1,4) = 〇〇

**デフォルトの名無しさん** · 2023/02/12(日) 13:09:04.90

>>174
これからも書かない事にしときます

>>175
こういう事？

Sub a()
Dim i
For i = 2 To 10
Cells(i, 1) = i
Next
End Sub

**デフォルトの名無しさん** · 2023/02/12(日) 13:12:25.71

>>175
For で回すのがだめな理由を書いて

**デフォルトの名無しさん** · 2023/02/12(日) 13:17:48.68

>>175
連続するセルに違う内容を書き込みたいんなら配列を使う手もある
Range("B1:D1") = Array("あああ","いいい","ううう")

**デフォルトの名無しさん** · 2023/02/12(日) 15:04:05.55

>>175
celsの用語が間違っているのと、
○○を "○○" のように書けば簡単に入力できますよ

**デフォルトの名無しさん** · 2023/02/12(日) 18:33:42.43

>>175
.celLs(1,1) = 〇〇をワークシートに貼り付けて
フィルハンドルを下にドラッグしたら簡単ですよ

**デフォルトの名無しさん** · 2023/02/13(月) 00:34:04.23

わざとやってるだろw

**デフォルトの名無しさん** · 2023/02/13(月) 10:11:26.26

暇潰しで初心者のふりしてるように見えるね

**デフォルトの名無しさん** · 2023/02/13(月) 14:01:41.50

>>173
通常のローカル変数に対しては、意味がない
本当にプロシージャの最後で通常のローカル変数なら、循環参照でも意味はない

書くのが良い作法とされる流派はあるが、それどこの解説ページだ？
いまどきは、皆って言うほど書く人はいないイメージだがな

>>174
通常のローカル変数じゃなければ意味はあるかもしれんぞ

**デフォルトの名無しさん** · 2023/02/13(月) 14:31:44.50

>>183
> 通常のローカル変数じゃなければ意味はあるかもしれんぞ
どんなケース？

**デフォルトの名無しさん** · 2023/02/14(火) 03:25:36.32

>>184
通常のローカル変数じゃないんだから
グローバル変数とか、Static変数とかだろ

**デフォルトの名無しさん** · 2023/02/14(火) 06:05:43.15

>>183
> >>173

collectionとかに格納したオブジェクト変数なんかはちゃんと開放されてるのか不安にはなるね。

**デフォルトの名無しさん** · 2023/02/18(土) 22:43:39.59

windows10アップーデートしたけど、普通にvbaでIE操作できるね。助かったわ

**デフォルトの名無しさん** · 2023/02/19(日) 01:32:52.35

EdgeのIEモードは実質IEが動いてるのでな
いまの所MSも2029年まではIEは裏方で生き長らえる保証してるから安心していいぞ
どうせ6年後もWindowsが存在してればIEの寿命も延長されるだろうよ

**デフォルトの名無しさん** · 2023/02/19(日) 02:32:29.18

Windows12の噂もちらほらだからまだまだ消えないだろうや

**デフォルトの名無しさん** · 2023/02/19(日) 13:49:26.92

セル内にある数式の"＝"を削除する方法はありますか
テキストとして、”A1-A2”などだけが残るようにしたいのです

**デフォルトの名無しさん** · 2023/02/19(日) 14:00:41.05

>>190
Range("A1") = Mid(Range("A1").Formula, 2, 999)

**デフォルトの名無しさん** · 2023/02/19(日) 16:05:55.05

ワークシート関数なら
=SUBSTITUTE(FORMULATEXT(A1),"=","",1)

**デフォルトの名無しさん** · 2023/02/19(日) 16:31:24.35

>>192
それA1に設定したらA1が「SUBSTITUTE(FORMULATEXT(A1),"=","",1)」にならない？

**デフォルトの名無しさん** · 2023/02/19(日) 18:14:30.54

>>190

どういう風に残したいかによって変わるかと。
対象の関数が入っているセルから関数(=)を消すなら=を空白に置換、
別のセルに書き出したいなら>>192の書いてる方法かと。

**デフォルトの名無しさん** · 2023/02/19(日) 21:30:32.90

ここはVBAスレ

**190** · 2023/02/20(月) 15:11:57.56

どうもです

A1、A2を足し算する場合、＝A1+A2
となりますが、この結果をcsvで保存しているのです
ですから、式の部分が結果の数値になります
毎日、あらかじめよぶんに式を次の行にコピーしておいて使いたいので、式の入っている部分をそこのセルだけ下にドラッグしています
そのままですと、式の結果だけ残って、式が消えてしまって不便なのでイコールを除去して取っておこうと思ったわけです

イコールの追加
ActiveCell.formula ="="&ActiveCell.Value

イコールの削除
ActiveCell.Value =Replace(ActiveCell.Formula,"=","" )

これでいけるだろうかと思ってやっているところであります

**デフォルトの名無しさん** · 2023/02/20(月) 15:29:44.23

エクセル形式で保存してください

**デフォルトの名無しさん** · 2023/02/20(月) 18:06:18.64

vba以前の問題というか無知な質問でごめん

転職先で会社からUSBメモリを配布されたから
自宅のPCでマクロ作ってxls形式、xlsm形式の両方で会社のPCに移して使おうとしたら何度やってもアクセシビリティの利用不可？で無限ループのごとくフリーズ
タクスマネージャから強制終了

セキュリティで弾かれてますか？

**デフォルトの名無しさん** · 2023/02/20(月) 18:09:31.33

自宅で作ったプロシージャをtxtとかで会社メールに送ってそこで新しく作って標準モジュールとかに入れてけば出来る？
忙しすぎて会社で試せてない

**デフォルトの名無しさん** · 2023/02/20(月) 20:29:16.39

>>198
分かりません

>>199
分かりません

**デフォルトの名無しさん** · 2023/02/20(月) 20:37:46.69

セキュリティの厳しい会社だと、メールや添付ファイルに何らかのプログラムが書いてあると自動的に削除される

**デフォルトの名無しさん** · 2023/02/20(月) 21:03:48.15

なんで赤の他人にそんなセキュアな疑問訊ねるかな？社内規定でどう扱えばいいかUSB渡されたとき聞いてなかったのか
勝手なことしてるとまたすぐ転職する羽目に陥るぞ

**デフォルトの名無しさん** · 2023/02/21(火) 12:00:15.73

どなたかVBAでのレジストリ操作についてわかる方いたら教えてください。
以下の方法を試しましたが、取れる値と取れない値がありました。
取得したい値の読み取り権限も許可してもうまくいかず。。。

・WScriptのRegRead()メソッド
・api
・bat

色々切り分けたところbatファイルを単体で実行したときには取得できて
VBAからbatファイルを実行すると値が取得できないので
VBAの実行権限に問題があるのではと考えていますが
権限とか関係なしにapiでどこでも取得できるよとか
何かご存知の方いたらコメントお願いします。

**デフォルトの名無しさん** · 2023/02/21(火) 12:02:26.74

連投すみません
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft配下の
値を取得できない状況です

**デフォルトの名無しさん** · 2023/02/21(火) 12:23:42.75

>>203
VBAで昇格は無理だからコマンドライン呼び出せ

**デフォルトの名無しさん** · 2023/02/21(火) 12:58:35.82

>>205
回答ありがとうございます。
コマンドラインで呼び出すというのは
以下コードのように実行結果を取得する感じですかね。
試してみたところ、実行結果が空白で返ってきたのですが
基本的にはレジストリのどの値も取得できるのでしょうか？

'実行するコマンドを指定
command = "ping 192.168.10.1"

Set wsh = CreateObject("WScript.Shell")

'コマンドを実行
Set execObj = wsh.exec("%ComSpec% /c " & command)

'コマンドの実行結果を取得
commandResult = execObj.stdOut.ReadAll

**デフォルトの名無しさん** · 2023/02/21(火) 13:01:26.92

pingの実行結果は返ってきますが
reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft" /v "指定の場所"の
結果が返ってこないです。

**デフォルトの名無しさん** · 2023/02/21(火) 13:15:24.72

まるごと不可？
部分的に不可？

**デフォルトの名無しさん** · 2023/02/21(火) 13:16:41.22

>>208
まるごと不可です

**デフォルトの名無しさん** · 2023/02/21(火) 13:17:37.19

>>207
コマンドは管理者権限で実行せんとあかんのと違う？

**デフォルトの名無しさん** · 2023/02/21(火) 13:40:16.54

5か所くらい検証してみたら部分的にとれないが正解でした。
×　"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\MachineGuid"
○　"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\InstallRoot"
×　"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\WinSqmFirstSessionStartTime"
○　"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Palm\DelayManipulationDuration"
○　"HKEY_LOCAL_MACHINE\SOFTWARE\Apple Inc.\Apple Application Support\InstallDir"

**デフォルトの名無しさん** · 2023/02/21(火) 15:07:37.73

win10とvsとvbaで試してきた
LOCAL_MACHINE
"SOFTWARE¥Microsoft¥Cryptography"
"MachineGuid"

RegGetValueWで読めた

**デフォルトの名無しさん** · 2023/02/21(火) 15:32:26.88

凄いですね・・・
もう一つの方も行けましたか？
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SQMClient\

**デフォルトの名無しさん** · 2023/02/21(火) 15:44:36.64

Option Explicit
Declare PtrSafe Function RegGetValueW Lib "advapi32.dll" ( _
ByVal k As LongPtr, _
ByVal s As LongPtr, _
ByVal v As LongPtr, _
ByVal f As Long, _
ByVal t As LongPtr, _
ByVal d As LongPtr, _
ByVal n As LongPtr) _
As LongPtr
Sub DoRegTest()
Dim b(0 To 2048) As Byte
Dim n As Long
Dim r As LongPtr
Const HKEY_LOCAL_MACHINE = &H80000002
n = 2048
r = RegGetValueW( _
HKEY_LOCAL_MACHINE, _ StrPtr("SOFTWARE\Microsoft\Cryptography"), _
StrPtr("MachineGuid"), _
2, _
0, _
VarPtr(b(0)), VarPtr(n))
End Sub
↑この感じでSZ型のキーを読み取った

**デフォルトの名無しさん** · 2023/02/21(火) 16:08:56.75

>>214
ありがとうございます。
提示していただいたもので実行してみたところ
戻り値が2でシステムエラーコードで確認すると
「システムは、指定されたファイルを見つけることができません。」
となっていました。
となると、こちらの環境的な問題ですかね。。

**デフォルトの名無しさん** · 2023/02/21(火) 16:16:03.43

>>214
無事取得できました！
本当にありがとうございます。
お手数おかけしました。

**デフォルトの名無しさん** · 2023/02/21(火) 19:33:10.83

>>199
>忙しすぎて会社で試せてない

お前はいったい何をやっているのだ？VBAは仕事ではないのか？会社で試すのは仕事ではないのか？
メール開く時間すらないほど忙しい会社なのか？インポートやエクスポートを知らんのか？

**デフォルトの名無しさん** · 2023/02/22(水) 01:16:47.41

あぼーん

**デフォルトの名無しさん** · 2023/02/23(木) 14:40:13.33

俺は昨日は余計なメール開く時間も惜しいほど忙しいかったな
まあそんな日もある

**デフォルトの名無しさん** · 2023/02/23(木) 19:25:49.13

それも仕事

**デフォルトの名無しさん** · 2023/02/23(木) 21:49:11.96

ほどほどに忙しいうちが花と言われたからからね。
暇すぎはストレス溜まるし忙しすぎは思考停止する。

**デフォルトの名無しさん** · 2023/02/25(土) 08:44:32.62

VBAを使ってることは誰にも言わず
その日が期日の業務だけサッと終わらせて
後はゲームなり昼寝なりしてるけどストレスフリーよ
メールチェックとかはくだらん定例ミーティングの裏でやる

**デフォルトの名無しさん** · 2023/02/25(土) 09:53:04.96

「暇すぎはストレス溜まる」

これアホちゃう？
いままでの人生でそんな思考になったことは一度もない。
暇ならそれに感謝するだけ。
嬉しくてしかたがない。
人生にはやりたいこと楽しいことがたくさんあるんだから
それに暇な時間をそそぐだけでいい。
忙しいのは嫌い。
なぜ貴重な自分の時間をやりたくないことに使わなきゃいけないの。

**デフォルトの名無しさん** · 2023/02/25(土) 13:54:24.69

君にもそのうちわかるよ　わからなかったらそこまでだったってこと

**デフォルトの名無しさん** · 2023/02/25(土) 16:49:36.83

社会に出たことない引きこもりの思考またはよほど待遇の良い会社にいるのかどっちかだな。

暇すぎってことは仕事を見つけなければならないんだよ。
他の人の仕事手伝うとか。

**デフォルトの名無しさん** · 2023/02/25(土) 17:09:52.04

経営者じゃなけりゃ
同じ時間で給料同じなんだから
ヒマ(楽)ほどいいのは決まってるじゃん。
アルツハイマーでもこれくらい分かる。

**デフォルトの名無しさん** · 2023/02/25(土) 17:27:31.08

「暇」と「楽」が同じと思ってる時点で精神が子供だな
いや実際未成年なのかもしれないけど

**デフォルトの名無しさん** · 2023/02/25(土) 22:46:11.32

暇だー ←まともな神経なら上席に相談するでしょ？
例「係長、今、自分の仕事が終わって手が空いたのですが、この後何かお手伝いする事ありますか？」

まあアルバイト止まりの未成年君には分からないか指示待ちだもんね。

**デフォルトの名無しさん** · 2023/02/25(土) 23:57:06.22

Sub testest()
Dim z0 As LongLong
z0 = 356 * 100
End Sub

「オーバーフローしました」になるんだが

**デフォルトの名無しさん** · 2023/02/26(日) 00:11:42.16

>>228
すごい洗脳的な思考だな
まぁ立派なポチになってくれ

**デフォルトの名無しさん** · 2023/02/26(日) 00:19:21.95

>>229
それVBAのバグに近い仕様
定数は内部で勝手にInteger型に変換されるからすぐにオーバーフローする
もっとわかりやすい例だと右辺が 32767 + 1 でもエラーになる
対策としては全部の定数を先に変数に入れておくなどいくつかある

**デフォルトの名無しさん** · 2023/02/26(日) 00:20:37.48

>>229
数字の後ろに型宣言文字の ^ を付けるといい

**デフォルトの名無しさん** · 2023/02/26(日) 01:36:14.44

>>231
これをバグだと思うお前の頭がおかしい

**デフォルトの名無しさん** · 2023/02/26(日) 05:06:33.26

>>230
あのね、学生さん、YouTubeだかネットの記事を鵜呑みにしない方がいいよ。
社会に出ればこんなの当たり前だから。
人よりも仕事は早くこなして次のタスクを行う。
そうやって「評価」というものを受け取れるんだよ。

**デフォルトの名無しさん** · 2023/02/26(日) 08:24:55.67

>>230
処世術を知らんのか

**デフォルトの名無しさん** · 2023/02/26(日) 08:53:33.45

相手しない方が良いよ。
何せ社会を知らない奴なんだから。

**デフォルトの名無しさん** · 2023/02/26(日) 14:38:38.79

>>234
自分の忠犬ぶりをアピールしてご満悦とはまさに奴隷の鎖自慢だな。
仕事は自分で見つけるもんやで？
そういう奴隷根性だから未成年にしかマウント取れないんだよ、天井低い駄犬くん

**デフォルトの名無しさん** · 2023/02/26(日) 16:26:56.12

本当に社会知らないんだな？
>>237
自分で勝手に仕事見つけて行うと、「何勝手な事してるんだよ？、誰がそんな事指示した？、責任取れるんか？」
て言われるのが社会なんだよ。
良く覚えとけよ。

**デフォルトの名無しさん** · 2023/02/26(日) 21:51:00.91

>>216
今日になって気付いた
戻り値は4バイト整数だったごめん…

**デフォルトの名無しさん** · 2023/02/28(火) 15:08:20.31

>>238
世渡り上手で仕事せずともいられるって人もいるけどな
前の上司がそんな人で、平気で仕事サボって昼寝するのに上からも下からも慕われてて、
こういう漫画みたいな人いるんだなーと思った

レアケースだけど、この人はそういう人になりたいって言ってるんじゃないだろうか

**デフォルトの名無しさん** · 2023/02/28(火) 16:02:16.29

すげえww罪悪感のカケラもないその神経を見習いたいわ。
まあ、環境にもよるんだろうね。
自分の職場はみなクッソ真面目の堅物ばかり。

**デフォルトの名無しさん** · 2023/02/28(火) 16:07:15.89

そんな人がこんなスレ訪問するはず無いだろ　そんなヒマあったらサボってる

**デフォルトの名無しさん** · 2023/03/02(木) 03:52:23.34

ヒマがあったらサボってる？
普通に考えればサボっているからヒマになるのでは？

**デフォルトの名無しさん** · 2023/03/02(木) 06:53:32.06

お、おう。

**デフォルトの名無しさん** · 2023/03/02(木) 11:19:20.68

せめてヒマの意味調べようよ　意味も知らずに話ししてんのか　そりゃあ、話し掛けられた相手も困惑することだろうに

**デフォルトの名無しさん** · 2023/03/03(金) 02:31:42.07

にほんごほうかい

**デフォルトの名無しさん** · 2023/03/03(金) 07:47:29.44

まったく最近の老害ときたら…

**デフォルトの名無しさん** · 2023/03/03(金) 12:40:49.00

逆に若い方が間違った日本語を平気で使ってるよ
勢いでごまかすとか、マウント取ることしか頭にないから上司にタメ口で話したりしてるよね

**デフォルトの名無しさん** · 2023/03/03(金) 15:00:36.88

いや、最近の若いのは分別しっかりしているでしょ。
年寄りの方がタチ悪いわ。すぐ「俺は何でも知っている、お前は何も知らないからな」みたいな下らないマウント取ってくるでしょ？

**デフォルトの名無しさん** · 2023/03/03(金) 15:14:44.70

老人はオールドメディアから洗脳済で基本左翼思想なのも終わってる