Excel VBA 質問スレ Part79

1 名前：デフォルトの名無しさん mailto:sage [2023/01/28(土) 11:46:47.21 ID:mBQ16TA8.net] ↑同じ内容を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 669 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 08:37:28.66 ID:mp9OxrP6.net] 褒められたい 認められたい 尊敬されたい 何か間違ってますか？ 670 名前：デフォルトの名無しさん [2023/04/30(日) 09:41:48.68 ID:n+FRgVAt.net] >>658 確実にウザがられますから 671 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 11:07:37.09 ID:vWJSQfSu.net] たまたまマクロ使えただけとかいうクソがいてマジでイラつくわ 672 名前：デフォルトの名無しさん [2023/04/30(日) 11:38:27.17 ID:n+FRgVAt.net] >>658 それはあなたがまだまだお若いからです 猛勉強をして医学部になり研修医になり医者になった人が、それからも成功したいと思い開業医になり、猛勉強をしながら人のために何をしたらいいのかと考え続けておられましたが、そうした生活の中で得られた結論は「他人を変えられない」でした 673 名前：デフォルトの名無しさん [2023/04/30(日) 12:01:39.99 ID:n+FRgVAt.net] Bingのチャット面白いですね 674 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 13:38:29.83 ID:pCoVes+C.net] >>664 医者と関係なくない？ というかなぜ医者の話をしたの？ 675 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 14:58:48.37 ID:izKLiPLe.net] 'A列の重複文字を削除したいのですが.RemoveDuplicatesで型が一致しないとでます。 どうすればよいでしょうか。お願いします。 Sub RemoveDuplicatesExample() Dim lastRow As Long Dim rng As Range Dim dupCount As Long Dim cell As Range ' 最終行を取得する lastRow = Cells(Rows.Count, "A").End(xlUp).Row ' A列の範囲を取得する Set rng = Range("A6:A" & lastRow) 676 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 14:59:03.71 ID:izKLiPLe.net] ' 文字列を含むセルを数字に変換する For Each cell In rng If IsNumeric(cell.Value) Then cell.Value = Val(cell.Value) End If Next cell ' 重複を削除する dupCount = rng.RemoveDuplicates(Columns:=1, Header:=xlNo) ' メッセージを表示する MsgBox "重複を" & dupCount & "個削除しました" End Sub 677 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 16:08:17.99 ID:nWN6HH2r.net] RemoveDuplicates はメソッド　メソッドとはオブジェクトを操作する命令文 dupCount はCellの数を削除前と後でCount辺りで別途算出 678 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 17:39:59.36 ID:xlDTnGib.net] 「ちょうふく 」と読む人と「じゅうふく」と読む人いるね 679 名前：デフォルトの名無しさん [2023/04/30(日) 17:43:09.61 ID:n+FRgVAt.net] >>666 一生懸命勉強をして頑張っている人でも人を変えるのは無理だというのが結論なのにあなたにはそれが出来るのですか？ 680 名前：デフォルトの名無しさん [2023/04/30(日) 17:58:36.35 ID:V4pO/PXO.net] 「じゅうふく」と読む人と「ちょうふく」と読む人いるね 681 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 18:10:45.40 ID:SF8fLpoq.net] すでに回答あるけどエラー表示通り、Long型の変数にRangeを入れようとしてるから 検証してないけど rng.RemoveDuplicates Columns:=1, Header:=xlNo で動くかな?カウントは処理前後で取得すればいいかと。 682 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 21:51:10.68 ID:izKLiPLe.net] >>669 >>673 出来ました。ありがとうございます。 683 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 23:47:19.54 ID:xlDTnGib.net] >>672 どちらが正解かな？ 684 名前：デフォルトの名無しさん mailto:sage [2023/04/30(日) 23:54:50.78 ID:RAvx61h8.net] ダブり 685 名前：デフォルトの名無しさん [2023/05/01(月) 08:25:17.17 ID:Bz4H7pRU.net] >>675 どちらも正解だけど一般的にはちょうふく 686 名前：デフォルトの名無しさん mailto:sage [2023/05/02(火) 17:39:15.35 ID:s64+rcVS.net] Option Explicit　は使った方が良いですか？ Lastrowが多すぎて外していたんですけどやめた方がいいのかわからない。 直すのも面倒 687 名前：デフォルトの名無しさん mailto:sage [2023/05/02(火) 18:06:55.02 ID:rzS4cwhi.net] >>678 苦行が好きならどうぞ外してくださいな。 688 名前：デフォルトの名無しさん [2023/05/02(火) 19:43:32.75 ID:5m1nmjju.net] >>678 そんなことも人に聞かないとわからない人は外さない方がいい 689 名前：デフォルトの名無しさん mailto:sage [2023/05/02(火) 19:52:52.48 ID:+blsYFqi.net] Option Explicitを使用することをお勧めします。Option Explicitは、VBAプログラム内で使用されるすべての変数を明示的に宣言することを強制するため、タイプミスやスペルミスなどのエラーを防止するのに役立ちます。 また、変数を宣言することによって、コードの読みやすさと保守性を向上させることができます。たとえば、変数のデータ型が分かっている場合、誤ったデータ型によるエラーを防止することができます。 つまり、Option Explicitを使用することは、より正確で安全なコードを作成するために重要です。したがって、可能な限りOption Explicitを使用することをお勧めします。 また、コードの修正が面倒である場合でも、過去のコードを修正することで、将来的に発生する可能性のあるエラーを防止することができます。 690 名前：デフォルトの名無しさん [2023/05/02(火) 19:56:11.18 ID:DG7CtCYh.net] フィルターの項目事、あるいはセルの項目ごとにシートにコピーするかファイルに出力する方法はありますか？ 691 名前：デフォルトの名無しさん mailto:sage [2023/05/02(火) 22:53:54.12 ID:W01QlVgz.net] ありまぁす 692 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 04:56:22.98 ID:KcOhtZMX.net] 過去スレにそんなもんは付けないよとかほざく猛者いたな。 理由は支離滅裂だったけど 693 名前：デフォルトの名無しさん [2023/05/03(水) 08:16:46.41 ID:zwp10Saa.net] 本当ならOption Explicitの他にOption Strictも欲しいくらい。 ただ、それに慣れるとVBSやJavaScriptみたいな言語に当たったときに一瞬躊躇するから 型に関してはそれが読み取れるような変数や定数の名前の付け方をするように心掛けてはいるけど中々難しいんだよね 接頭に型を現すような文字付けるのも有りっちゃ有りなんだけどなんか「あー、初心者がよくやるよね」みたいな感じがしてちょっとイヤ 694 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 08:38:47.67 ID:07Dbowlh.net] jsはletあるやん 695 名前：デフォルトの名無しさん [2023/05/03(水) 17:42:16.15 ID:6h8oPcDB.net] BingのAIと会話してみた感想 サイトの記述を引用しているだけだから自然な文章なのは当然 回答パターンがまだまだ少ない いいねボタンとバットボタンがある いいねの多い回答だけ残す、バットの多い回答は表示させない ↑であれば当たり感触のない回答しか学習しない、人間の知能を越える事はない そしてそのやり方は前からあったシミレーションのプログラムと同じ 696 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 17:46:59.65 ID:8i/q/Kgr.net] 何そのツッコミ待ち 697 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 19:15:10.32 ID:KcOhtZMX.net] BingのAIはすぐ拗ねちゃうからな 698 名前：デフォルトの名無しさん [2023/05/03(水) 19:36:47.70 ID:6h8oPcDB.net] ChatGPT 3.5は出鱈目な回答をしていた　4.0になって当たりざわりのない回答になった そういう事でしょう？ 699 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 19:40:16.52 ID:Kv12u2jn.net] お前がそう思うんならそうなんだろう…お前ん中ではな… 700 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 19:41:04.17 ID:Ia3mFb59.net] 有用性とか将来性が分からなければそれでいいんじゃね 勝手に遠ざけてどんどん取り残されればいいさ 701 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 20:14:55.06 ID:F2sofNfH.net] Lastrowってどんな感じで変化させてる？ シート数多すぎて混乱する 702 名前：デフォルトの名無しさん [2023/05/03(水) 21:36:02.93 ID:6h8oPcDB.net] 野獣先輩　と聞けば回答を途中で打ち切る しかし　中国　野獣先輩　と尋ねると中国での野獣先輩ブームをスラスラ答える 703 名前：デフォルトの名無しさん [2023/05/03(水) 21:51:50.56 ID:6h8oPcDB.net] やーい　AIの癖に掛け算も割り算もできない奴〜 704 名前：デフォルトの名無しさん mailto:sage [2023/05/03(水) 23:21:43.78 ID:nQu3mtYe.net] Bingさんは普通に計算できるが？ 705 名前：デフォルトの名無しさん mailto:sage [2023/05/04(木) 17:35:46.71 ID:SG8oVDU2.net] 複雑なのはダメ。 706 名前：デフォルトの名無しさん [2023/05/04(木) 19:50:34.95 ID:Sg4+jaA6.net] AIの回答には引用元のリンクがあるので著作権問題に繋がるのもよく分かる 707 名前：デフォルトの名無しさん mailto:sage [2023/05/05(金) 06:38:40.34 ID:P+m46K4i.net] >>693 クラスモジュールの出番だな 708 名前：デフォルトの名無しさん [2023/05/06(土) 10:27:00.05 ID:fVwKK7Qd.net] 仮にここから5.6.7とバージョンを重ねてデータベースが増えたと言ってもそれはますます膨大な情報量によって平均への回帰とかよくあるご意見になるだけだと思う 膨大なデータベースがあるからとほぼ全ての人間が間違っていると考える答えを導き出しますか？ そうでなくてもデータベースにない（人間の盲点）情報は出鱈目な回答を生成しますよ 現状は人間が検索していくつものサイトを見て得た情報を代わりに要約してくれる（しかもその要約も正しいか不明、正しいとしても他に見るべき情報は本当にないのか？）程度の品物だと思う つまり検索エンジン 709 名前：デフォルトの名無しさん [2023/05/06(土) 10:47:11.02 ID:fVwKK7Qd.net] 人型ロボットの進化も著しいものがあります しかし直ぐに壊れる、壊れやすいと言う欠点（これは私も盲点だった）が露呈した 「人型ロボットはここまで進化した（している）」という短い動画を見て凄い、凄いと言っていただけでその裏側を見ていなかった ごく一部の切り取りだった 710 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 12:49:51.00 ID:DOnaG3pX.net] 独り言とかどうでもいい 711 名前：デフォルトの名無しさん [2023/05/06(土) 13:01:03.66 ID:fVwKK7Qd.net] >>702 あれだけAIが凄いと言っていた人が多いのに？ 712 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 15:26:46.40 ID:V/5WCcXW.net] 多いんじゃ無くて、特定の少数がやかましいだけ 新しい技術はまずは様子見するのがベテランだろ　触ってみて将来性を鑑みて安定しそうならダッシュで技術を取り込む 今のところずば抜けた検索エンジン程度なら、のんびりザッピングしてじぶんが認める結果を取り込んでた方がマシ 急がば回れ　慌てるコ〇キは貰いが少ない　善は急げで道端の石に蹴躓いてたんじゃ元も子もない 713 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 17:05:38.77 ID:uYMm8A/b.net] 様子見するのはベテランじゃない レイトマジョリティ、あるいはラガードな 714 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 17:25:28.28 ID:l5Xh2UOq.net] これはvbsスレの気持ち悪いのがこっちに移住してきたと考えるのが自然か 715 名前：デフォルトの名無しさん mailto:sage [2023/05/06(土) 17:25:52.89 ID:V/5WCcXW.net] おお、かっちょいい呼び方　ま、覚えてられないと思うけど 散々鳴り物入りでお披露目されて大勢が一斉に傾いた技術でも、スタンダードに成れなかったのはいくらでもあるし HTML5 PHP 業界の擦り合わせで潰しに掛かるまであるし　何度も踊らされた経験持つ人ほど出足は鈍い(の意味てことで) それに比べたらOfficeのVBAなんて、使い込まれてレガシーだけど生き続けてて実績たっぷりだしそれなり充実してて　イイネw 716 名前：デフォルトの名無しさん [2023/05/06(土) 19:06:41.82 ID:fVwKK7Qd.net] 初めての試み 他の人がやっていない事 他と違う事 は往々にして頭がおかしいと言われます AIがこれらの回答を生成してもそれは同じ 717 名前：デフォルトの名無しさん mailto:sage [2023/05/07(日) 01:23:52.56 ID:31z9TTNB.net] なんだかこのスレも気持ち悪くなったな。 718 名前：デフォルトの名無しさん [2023/05/07(日) 01:49:32.50 ID:oPHUqsU3.net] 最初からだぞ 719 名前：デフォルトの名無しさん mailto:sage [2023/05/07(日) 04:38:26.84 ID:31z9TTNB.net] 例の精神病んでる人が最近しつこいしな。 720 名前：デフォルトの名無しさん [2023/05/07(日) 05:20:09.87 ID:tNDxK8R1.net] AIに狩野英孝って書いて画像生成させてみ？ 女性しか生成されないぞ？ 721 名前：デフォルトの名無しさん mailto:sage [2023/05/08(月) 17:42:02.89 ID:4wzuVWZF.net] 5：20に何を言ってるんだ？ 722 名前：デフォルトの名無しさん [2023/05/08(月) 20:14:43.36 ID:sHCjNd7k.net] 肖像権の侵害 723 名前：デフォルトの名無しさん mailto:sage [2023/05/08(月) 21:20:01.63 ID:mh5d7unG.net] >>693 シート数それぞれの最終行を変数に入れたいなら配列かDictionaryでいいんじゃね？ 724 名前：デフォルトの名無しさん [2023/05/10(水) 00:19:20.08 ID:ispoDagW.net] そうね エンティティクラス作ってシート名と最終行をプロパティに持たせる方法と ディクショナリーかコレクションを使ってシート名をキーに、最終行を値に持つ方法と 2次元配列持って要素にシート名と最終行を持たせて管理する方法を思いついたけど、 最終行以外の何かしらのシート情報を持たせるならクラスを、 そうでなければそれ以外の方法を使う感じになると思うのだけれど、 実際、配列をループして取り出すのとディクショナリーやコレクションにキーを指定して取り出すのはどっちが速いんかね？ 個人的にはあまり配列からループして取り出すのはコード書くのが面倒なのと記述がその分長くなるのとObjectとして扱えないから好きではないんだけど。 725 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 12:35:00.38 ID:kLH3jMBB.net] 揮発性メモリなら生成コストも比較してる？ 726 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 14:00:21.35 ID:t+3iUujv.net] test 727 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 14:06:43.49 ID:t+3iUujv.net] トグルA、Bがあって、 ①(初期状態)AがOFF BがOFF ②AをON ③BをON の順に操作した場合、 まず②で、トグルA_Click()イベントのみ発生 ③では、トグルB_Click()イベントだけでなくトグルA_Click()イベントも発生するんだけど、 前からそういう挙動でしたっけ？ 728 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 15:00:24.82 ID:t+3iUujv.net] >>719は無視してください。 729 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 15:13:48.51 ID:t+3iUujv.net] トグルA_Click()のイベントプロシージャの中に、 トグルBのValueをFalseにする処理を入れています。(>>719はこのことを失念していました) トグルBがONになっている� 730 名前：�態でトグルAをクリックしてOFF→ONにするとトグルBがOFFになります。 この時、トグルB_Change()イベントが発生するのは分かるのですが、トグルB_Click()イベントも発生します。 これは仕様ですか？ [] [ここ壊れてます] 731 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 17:55:26.74 ID:iwbfLeO4.net] 仕様です 732 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 19:03:43.77 ID:+eiaChgK.net] ならしようがないね 733 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 21:12:59.13 ID:o4erV5Yp.net] スレチっぽいですが、わかる方いましたら回答をお願いします。 VBAとSeleniumを使用してスクレイピングをしたいのですが 1枚の画像を取得するだけでもメモリ不足と出ます。 ChatGPTに聞いたら 734 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 21:13:48.62 ID:o4erV5Yp.net] Seleniumは外部のWebブラウザを制御するため、メモリ使用量が増加する可能性があります。 と返答がきましたが、VBAでは重くなるのでしょうか？ 735 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 21:15:41.06 ID:mDjUk4R1.net] >>724 プログラムが間違ってる可能性のが高い 736 名前：デフォルトの名無しさん mailto:sage [2023/05/10(水) 23:57:34.43 ID:o4erV5Yp.net] >>726 ありがとうございます。 何か負荷がかかることをしているのかもしれませんね もう一度見直してみます。 737 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 11:43:08.05 ID:1+aaeJbv.net] そのChatGPTとやらが回答するシチュエーションの、一文字ずつ表示する方法を知りたい　とか、もっと前向きに 単にmsgbox出すよりは注目されそうだし（そのうち飽きられるだろうけど） 738 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 11:51:22.37 ID:AMweY8Mr.net] wsCopyTo.Cells(wsCopyTo.Cells.Rows.Count, "A").End(xlUp).Offset(1).Value = today wsCopyTo.Cells(wsCopyTo.Cells.Rows.Count, "A").End(xlUp).Offset(1).NumberFormat = "mm/dd""(""ddd"")" 日付の書式設定を変えたいのですが 「range クラスの numberformat プロパティを設定できません」と出ます。 どうすればよいでしょうか 739 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 11:58:50.33 ID:6FktRVdV.net] >>729 "mm/dd""(""ddd"")""" 740 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 12:26:29.64 ID:AMweY8Mr.net] >>730 エラーは出なくなりましたが表示形式は変わりません。 これは"を一つ追加したようですがどういった意味があるのでしょう 741 名前：デフォルトの名無しさん mailto:sage [2023/05/11(木) 13:08:23.72 ID:6FktRVdV.net] >>731 前略Offset(1).Value = Now 742 名前：デフォルトの名無しさん [2023/05/12(金) 06:37:47.52 ID:RwI7vd5H.net] 仕事でVBAマクロを使用しておりそのマクロではapplication ontime？　を使用しエクセルが開かれてから一定時間過ぎたら閉じますか？とメッセージを出す処理をしています 仮にこのブックをブックAとします ブックAを開いた状態でそのブックとは別のブックを開きます このブックをブックBとします。 ブックAとブックBを同時に開いた状態でブックAだけを閉じても何故か一定時間経過後ブックAが自動で開きブックを閉じますか？とメッセージがでます。 ブックBのソースコード見てもマクロは組まれておらず何で？と困ってます 一応ブックAの処理に特定のファイル名の時だけメッセージが出るようにしたのですがその処理も勝手にブックAが開いてから流れるため困ってます わかりにくくてすみませんがアドバイスよろしくお願いします。 743 名前：デフォルトの名無しさん [2023/05/12(金) 07:53:35.95 ID:hB6iHQ/6.net] 興味深い現象だな 744 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 08:45:29.16 ID:273OhBWp.net] >>733 OnTimeの処理はExcel本体とは別のプロセスが引き受ける仕組みになってる ブックを同時に開かないよう気をつけるのが一番簡単 勝手に直していいんなら開いてるブックを判定するコードとかブックを閉じる時にタイマーを止める処理を書き足す 任意のタイマーを止める方法は、ちょっとぐぐったことあるけど、設定された時刻が判明しない限り簡単じゃない この点はみんな苦労してる 745 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 11:06:37.75 ID:7uGQBCYW.net] その、閉じますかマクロは必須、必要な処理なのか？意図がわからない むかしのメモリ使用量節約とかで組んでたとか？複数ファイル開くとフリーズとか防止用？ 746 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 11:59:40.51 ID:/sP06OC3.net] 職場で使っているマクロは現在の担当者が正しく動作するように管理する責任があると思うので 自分が作ってないからどう動くかわからないとしても責任を逃れることはできない 747 名前：デフォルトの名無しさん [2023/05/12(金) 17:51:08.96 ID:xsCXSmel.net] ADODB.recordsetで名前に角カッコ([←これ)がついたcsvファイルを扱いたいんですが、何か方法ありますか？ 748 名前：デフォルトの名無しさん mailto:sage [2023/05/12(金) 18:03:43.71 ID:273OhBWp.net] ある 749 名前：デフォルトの名無しさん [2023/05/12(金) 20:13:32.86 ID:f5ZiP8iw.net] 一つお尋ねしたいのですが シートをコピーした後にコピ元のシートと一番新しいシートで変更のあった、更新のあったセルに色を塗りつぶすVBAは組めるでしょうか？ わたしは「一番新しいシート」と元シートの比較をすると言うのが非常に複雑なコードになりそうな気がするので コピーしたシートで一番新しいシートの名前は固定のものに変更する またはセルの比較と塗りつぶし作業後にシート名を変更するコードを書こうかなと思っています 750 名前：デフォルトの名無しさん [2023/05/12(金) 20:38:30.74 ID:8W63Tv/2.net] 組める お前の頭が追いついていないだけ 751 名前：デフォルトの名無しさん [2023/05/12(金) 21:51:44.25 ID:f5ZiP8iw.net] https://daitaideit.com/vba-compare-two-sheets/ このコードを応用すればできそうな気がしてきました 752 名前：デフォルトの名無しさん [2023/05/13(土) 00:26:35.42 ID:XDOekk9R.net] シート1をシート2に転記 シート2にはシート1との比較の関数を仕込む シート2を末尾にコピー 最終的にこうしました 753 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 08:56:53.55 ID:IDKvuPgu.net] たまにしか使わないマクロを 「開発」 → 「マクロ」をクリックした画面から非表示にする方法はありますか たくさんプロシージャがあって探すのがわかりづらいので。 754 名前：デフォルトの名無しさん [2023/05/13(土) 10:14:45.62 ID:qLGZy+iI.net] たまにしか使わないのとよく使うマクロを区別する方法がない 755 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 11:55:35.18 ID:/fPWBZJh.net] PERSONAL.XLSB内の個人マクロかなんかのこと？ 使わないのはprivateにでもしたらいい 756 名前：デフォルトの名無しさん [2023/05/13(土) 14:12:54.71 ID:GFR2hXVT.net] てすと 757 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 17:08:43.77 ID:V8yG/UHy.net] >>744 モードレスのユーザーフォームにボタン並べてショートカットツールボックスでも作れば。。。 758 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 23:12:26.90 ID:25Zi9cll.net] UserFormにボタンを追加した後、ボタンをダブルクリックすると、 コード内にボタン_Click()が挿入されるけど、 そのボタン_Click()の挿入位置はランダムですか？ 759 名前：デフォルトの名無しさん mailto:sage [2023/05/13(土) 23:22:19.81 ID:HLBQiI9F.net] 一番上固定かな？ 760 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 00:50:10.90 ID:T/aUw/Co.net] 一番上とか一番下なら分かりやすいんですが、そうならないんですよね。 追加した順でも、VBE上の直前のカーソル位置でもなく。 761 名前：デフォルトの名無しさん [2023/05/14(日) 08:49:07.12 ID:NGLUYN6O.net] 　　With 　　　　Worksheets(1) 　　　　Debug.Print .Name 　　　　Worksheets.Add Before:=Worksheets(1) 　　　　Debug.Print .Name 　　End With と入力している場合、当然ワークシート（1）に対してしかwithで省略して記述することはできませんよね？ 762 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 09:12:17.84 ID:l3SxB+lY.net] それ以外にも記述できたらどれに記述してるかわからなくなりますやん 763 名前：デフォルトの名無しさん [2023/05/14(日) 11:24:04.23 ID:RX81XCn0.net] IF分の中に何個もIFをつけると嫌がられますが上級者の方達は条件分岐どのように処理をさせていますか？ 綺麗なコードの書き方のアドバイスお願いしたいです 764 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 11:56:15.05 ID:/qnsVbR/.net] >>754 長くなる数式や複雑な条件判定は別の関数を作ってその中にまとめる 765 名前：デフォルトの名無しさん [2023/05/14(日) 14:28:00.07 ID:NGLUYN6O.net] オートフィルターを設定 セルの値でフィルター 別シートにコピー .copy（名前をつけて保存） までVBAで組めました セルの値を別シートが別の列に用意したリストで繰り返しをして名前をつけて保存を繰り返すVBAが組みたいのですがどうすればいいでしょうか？ ちなみにオートフィルターを設定して、セルの値でフィルターをかけるコードを書かなくても オートフィルターをかけた表で作成して 手動でフィルターをかけた結果 に対してコピーと名前をつけて保存を行うコードを作ればよかったと思いました 766 名前：デフォルトの名無しさん mailto:sage [2023/05/14(日) 17:40:28.14 ID:RbSCBcNR.net] VBScriptの公式ドキュメントどこに行ったんですか！？！？ 767 名前：デフォルトの名無しさん [2023/05/14(日) 23:25:20.98 ID:ugePsCnu.net] >>757 それがこのスレと何か関係あるのか？ 768 名前：デフォルトの名無しさん mailto:sage [2023/05/15(月) 01:52:14.73 ID:qI8Xfg30.net] うるせえ！ 769 名前：デフォルトの名無しさん [2023/05/15(月) 20:37:17.97 ID:XzAuzUrA.net] sheet（2）,range.value = sheet（1）,range,value と書いてあって、ちゃんと1と2のsheetがあるのに インデックスの範囲外 のエラーが出る事はありますか？ 770 名前：デフォルトの名無しさん mailto:sage [2023/05/15(月) 21:25:34.18 ID:uCrsxXET.net] エクスプローラ上で画像選んで 右に回転、左に回転 てありますけど あれをvba上でファイルパス渡して出来ないですかね？ ググってみたら以外と出てこなくて… 771 名前：デフォルトの名無しさん mailto:sage [2023/05/15(月) 22:52:46.17 ID:+mRHKUjh.net] https://excel-ubara.com/excelvba1/EXCELVBA421.html ここ辺りを参考に、画像の選択までできるなら [Shift]+[F10] でオプション出して [T] か [L] 送れば何とかならん？ 772 名前：デフォルトの名無しさん [2023/05/16(火) 13:06:53.10 ID:P46L4qJ3.net] >>739 ありがとうございます 773 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 13:52:02.22 ID:pE03OLEM.net] >>762 やはりこういうアプローチになりますか… OS標準で簡単にできることが VBAから出来ないんですよねぇ かと言って、これだけのためにライブラリ追加したりってのも… WindowsAPI経由ならいいかなと思ったけど そういうのもドンピシャなのは見つからなくて… .netのSystem.Drawing.Bitmapもvbaからは使えないようですし 774 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 14:01:09.62 ID:HY4KEFhG.net] vbcコンパイラ入ってるからexe作っちまえよ 775 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 14:58:33.26 ID:xHVT0jsn.net] ファイルの中身をいじくって保存するアプローチならgdi+でいいですよ vbaからgdi+はネット上にかなりの資料があります 776 名前：デフォルトの名無しさん mailto:sage [2023/05/16(火) 15:38:41.06 ID:KioSfVLt.net] >>764 エクスプローラの機能がOS標準機能だったことなんて一度でもあったっけ 777 名前：デフォルトの名無しさん [2023/05/16(火) 17:26:18.33 ID:LV7QjD3v.net] Worksheets(〜).Copy ActiveWorkbook.SaveAs fileName:= 〜 =xlOpenXMLWorkbook ActiveWorkbook.Close でワークシートをコピー→名前をつけて保存→保存して作成したブックを閉じる がしたいです しかし、active work sheet.saveasでコピーしているワークシート（book1）とかそういう仮称が選択できません なぜでしょうか？ 778 名前：デフォルトの名無しさん [2023/05/16(火) 20:44:51.09 ID:AsBF0aZH.net] シート（A）に記入します シート（A）を複製するコードを実行して シート（A）2を作成します シート（A）2に記入します シート（A）とシート（A）2の値が違うところ（差分）をわかりやすく表示する仕組み（条件付き書式）をコードするにはどうしたらいいでしょうか？ 779 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 11:46:37.22 ID:RlbRWgaL.net] ど初心者で申し訳ない ユーザーフォームを移動というより スラーっと画面左から右へスライドさせる事なんてプロシージャで出来る？ 780 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 13:37:03.45 ID:CM8OYJGJ.net] なぜその程度の事を試さないでいるのかわからん 781 名前：デフォルトの名無しさん [2023/05/17(水) 20:26:57.88 ID:Y2fbuf/F.net] >>770 ユーザーフォームの表示位置は設定できるんだから 後はAPIでもなんでもいいから一定時間で起動するイベントで 位置をずらして行けばいいだけじゃないの？ そういう意味じゃなくて？ 782 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 20:34:40.20 ID:edeIW3zk.net] 自分だけで利用するならいいけど、他人も利用するのをそんな仕様にしたら気味悪がられるぞ 最悪上司に「PCが乗っ取られました！」とか報告行っちゃうぞ　部署中てんやわんやに成るぞ それとも相手の要件がそれなのか？　マウスで好きな位置にドラッグしろと突っ撥ねろ 783 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 20:36:59.98 ID:jhfa7U3i.net] 懐かしのブラクラかよ 784 名前：デフォルトの名無しさん [2023/05/17(水) 22:00:50.03 ID:KPgK0GXZ.net] やっぱり二つのワークシートを比較するVBAはスルーされるくらいに複雑なんですね 素直にコピーをするときにシート名を指定して複製したシートの名前を固定します そして複製したシートに固定の名前のシートを条件付き書式を設定します 785 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 22:19:01.82 ID:B0NmirsY.net] なぜってvbaでベタに比較して色を着けるだけの処理なら条件付き書式は要らないからですよ 786 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 22:37:47.21 ID:dtCX3F+n.net] >>770 なんでそんな事が必要って話。 マウスが無いなら別だけど。 787 名前：デフォルトの名無しさん mailto:sage [2023/05/17(水) 23:14:20.94 ID:CM8OYJGJ.net] >>775 2つのワークシートの比較が複雑か複雑でないかはシートの複雑さによる セルの値を比較するだけなら単純にセルの前にシート名を書けばいい 788 名前：デフォルトの名無しさん [2023/05/18(木) 00:00:54.09 ID:wiHk9Ekj.net] >>778 どういう事でしょうか？ 789 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 00:19:39.19 ID:re225Wjq.net] >>779 シート1とシート2で左上(1,1)のセルが同じかどうかの比較 考え方のサンプルなので細かいとこは気にすんな If Sheets(1).Cells(1, 1) = Sheets(2).Cells(1, 1) Then MsgBox ("同じ") Else MsgBox ("違う") End If 790 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 00:39:29.96 ID:ejLN3NBy.net] あっけなく終了 791 名前：デフォルトの名無しさん [2023/05/18(木) 06:34:53.48 ID:wiHk9Ekj.net] >>780 どうやってElseのセルの塗り潰しをしますか？ 792 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 07:03:21.02 ID:qSj77xHN.net] interiorcolor 793 名前：デフォルトの名無しさん mailto:sage [2023/05/18(木) 13:22:02.41 ID:re225Wjq.net] >>782 もし自力で調べたのにわからないで質問しているならこういうの向いてないと思う Sheets(1).Cells(1, 1).Interior.Color = vbRed 794 名前：デフォルトの名無しさん [2023/05/18(木) 17:13:43.92 ID:NCEYaWdi.net] Private Sub FillDiff( _ ByVal DstSheet As Worksheet, _ ByVal SrcSheet As Worksheet, _ ByVal cy As Long, _ ByVal cx As Long, _ ByVal f As Long) Dim d() As Variant Dim s() As Variant Dim row As Long Dim col As Long With SrcSheet.Cells(1, 1).Resize(cy, cx) s = .Value End With With DstSheet.Cells(1, 1).Resize(cy, cx) d = .Value .Interior.ColorIndex = xlNone End With For row = 1 To cy For col = 1 To cx If Not (d(row, col) = s(row, col)) Then With DstSheet.Cells(row, col) .Interior.Color = f End With End If Next Next End Sub 795 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 11:26:43.98 ID:36zUuL+C.net] >>785 VBAでセルの色も塗れないようなレベルじゃ このサブルーチンを使うための引数さえ入れることができないと思われる 796 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 11:51:40.30 ID:UVQ9qsjN.net] 変数名に違和感しかない 俺ならDst,SrcじゃなくてSrc,Dstの順番にする 座標にはx,yじゃなくてr,cを使うし、範囲(大きさ)ならw,h(width,height)にする あと、変数名にrowを使うのは悪手 797 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 12:35:54.69 ID:Djo90icR.net] 座標にx、yを使う気持ちはわかる CADソフトや三次元測定機を使用するととにかくxyz方向で指示したくなる 798 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 12:52:50.03 ID:SzaRWxxH.net] 他人が定義した変数名なんて本人以外には暗号みたいなもんよね。とくに省略3文字とか。 本人でさえも1ヶ月後には解読に時間がかかる。 799 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 14:32:46.40 ID:YHChQzBZ.net] 俺はタイピングが面倒て理由から変数名は1文字2文字を多用するけど、宣言にコメントは必ず書く方針 Dim sr() ' Source Range みたいな感じ 800 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 16:03:10.43 ID:KvfJxEtf.net] VBAなんてグループで開発することなんてほぼ無いし コーディングルールなんかあってないようなもんだな 801 名前：デフォルトの名無しさん [2023/05/19(金) 16:13:15.68 ID:4eBJWkt8.net] グループでなくとも別の人とか辞めた後にとかあるのに 802 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 16:30:13.95 ID:c4GhPl6O.net] 自分の書いたコードが解読できなくなるのは言語を問わず昔からプログラマーあるあるだぞ 803 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 17:26:41.01 ID:WMf1UBB/.net] 出先で打ち合わせ中にノートに速記した自分が書いた字が、帰社してみるとぜんぜん読めねえ 史上最強の暗号に成り果てる　どこかにうっかり置き忘れても心配無用 だけど、チームの女の子の内ひとりだけが解読できる　彼女は優秀なデクリプター　粗末には扱えない (因みに彼女は打ち合わせに同席していない)　罵倒されながら清書している時間は至福のひととき 804 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 17:51:29.85 ID:/14cz11e.net] はいはい そうですか 805 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 18:06:46.91 ID:PQ/SGKnq.net] >>792 それよくいうけど、 知ったこっちゃないしそんなことまで面倒みれないなってのが正直なところだよ 806 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 18:09:20.34 ID:NNcalgSE.net] とうとう当スレに 散文詩を記す御仁が出現・・・ 807 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 18:33:52.51 ID:/14cz11e.net] >794 こんな無能の塊と一緒に仕事する人は可哀そうだな 808 名前：デフォルトの名無しさん [2023/05/19(金) 20:20:11.33 ID:WP5xx6oL.net] >>790 ふーん 俺とは逆だね 変数名は見てどういう用途で使っているか 解るようにして、逆にコメントは その処理を何のために行なっているかとか どういう経緯で作成されたか後で分からなく なるのを防ぐために付けるくらい。 後はモジュールや関数のヘッダに その関数の役割とシグネチャの説明をふるくらいかな 関数もひとつにひとつの役割しか持たせないようにして なるたく短く作ってしの関数を組み立てて 更にひとつ上の役割の関数を作るようにしてる。 809 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 20:30:07.26 ID:xLo0lAaU.net] エクセルを月曜～金曜の決まった時間に実行する場合は イベントプロシージャを使うのが一番いいですか？ ググったらスクリプトを作るという方法もあるようです。 長所・短所がわからないので教えてください 810 名前：デフォルトの名無しさん [2023/05/19(金) 20:41:37.93 ID:WP5xx6oL.net] >>800 いやいや、ずーっとEXCEL立ち上げっぱ、 VBA動かしっぱにして時間を迎えたイベントを使うってこと？ タスクスケジューラーに 対象のブック開くように設定しといて オープン時にマクロが走行するようにしとくんじゃダメなの？ 811 名前：デフォルトの名無しさん [2023/05/19(金) 20:43:39.44 ID:BcAhLJQp.net] >>800 エクセルを実行するのだからタスクスケジューラだろ 馬鹿ですか？ 812 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 21:00:02.29 ID:xLo0lAaU.net] >>801 盛大に勘違いしてました。 タスクスケジューラーで問題ないですね。 ありがとうございます。 813 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 21:05:29.56 ID:faLTwFuJ.net] >>787 cx cyは座標ではなく count of x count of y MSがwin32APIのc/c++で使ってきた古い接頭語です まだSIZE構造体に残っています 814 名前：デフォルトの名無しさん [2023/05/19(金) 21:30:19.21 ID:1xa+FLVk.net] 変数の理解が怪しいのはその通りです 815 名前：デフォルトの名無しさん mailto:sage [2023/05/19(金) 21:43:28.41 ID:ROSMxwdg.net] はあ～またいつものマウント取りあい始まったよ 816 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 00:07:38.75 ID:yUZCKNSa.net] ビーングは4.0って本当かよ 3.5の方が正しいコード書いてくれるんだが 817 名前：デフォルトの名無しさん [2023/05/20(土) 18:29:05.09 ID:MvHSHmnI.net] 条件付き書式によって塗りつぶされた背景色をコピーして上書きでペーストしたいのですがどうすればよろしいでしょうか？ 818 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 22:25:35.47 ID:9t/DZW9a.net] 背景色を変更する条件が付いているから 条件付き書式 と呼ぶ 条件付きでなら普通にコピペできるが条件を無視した背景色だけのコピペはできない 819 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 22:28:37.71 ID:9t/DZW9a.net] とおもう 820 名前：デフォルトの名無しさん [2023/05/20(土) 22:48:50.21 ID:MvHSHmnI.net] 条件付き書式の色だけをコピーするためには クリップボートのコピーと貼り付けを行えばいいところまではわかりました そしてそれを行うためにはSelection.Copyを行えばいいという所まで突き止めました しかしActiveSheet.Pasteで貼り付ける事ができないです どうすればクリップボートのコピーをそのまま貼り付けられるでしょうか？ 821 名前：デフォルトの名無しさん mailto:sage [2023/05/20(土) 23:06:35.71 ID:Is+IXHBJ.net] 同じとこにそのままペーストしてるからじゃね 822 名前：デフォルトの名無しさん [2023/05/20(土) 23:18:24.07 ID:MvHSHmnI.net] >>812 ところにそのままペーストすることは無理なのですか？ ではこの様に Sub Sample1() Worksheets("Sheet1").Select Range("A1").Select Selection.Copy Worksheets("Sheet2").Select Range("C2").Select ActiveSheet.Paste End Sub とするのであれば問題ないのでしょうか？ 823 名前：デフォルトの名無しさん [2023/05/20(土) 23:41:42.54 ID:MvHSHmnI.net] やりたい事は 今選択しているシートをコピーして末尾に送る コピー元のシートの条件付き書式のセルの色をコピーペーストで同じシートにペーストする、色を残す という事がしたいです なのでコピーしたコピー元シートをセレクトして範囲を選んでアクティブシートペーストならできますか？ 824 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 00:16:44.41 ID:aFtCgtc/.net] やってみて理想通りの動作だったら問題ないんじゃね 825 名前：デフォルトの名無しさん [2023/05/21(日) 01:12:12.18 ID:wgbwVMTA.net] 頭が悪いからPASTEに拘るのね 826 名前：デフォルトの名無しさん [2023/05/21(日) 02:07:29.20 ID:T6kvmVJR.net] いったい何のために 827 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 02:24:13.63 ID:Pd8Z4Ia6.net] VBAが使えないのにワープロが使えたことを自慢していた爺かな 828 名前：デフォルトの名無しさん [2023/05/21(日) 06:58:31.07 ID:sFREmMbU.net] >>816 ペースト以外にクリップボートを貼り付ける方法はありますでしょうか？ 829 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 07:13:41.86 ID:B1R6uG7N.net] 条件付き書式から条件を消して結果の色だけ残したいんやろ それは単純なコピペじゃ無理 DisplayFormatでセルの色を調べて自力で再設定するしかない 830 名前：デフォルトの名無しさん [2023/05/21(日) 07:35:11.64 ID:sFREmMbU.net] >>820 https://tokusengai.com/_ct/17541893 https://dekiru.net/article/16416/ クリップボートにコピーをして貼り付けを実行すれば塗り潰しの色のみ残ることは判明しました そしてクリップボートのコピーはselection.copyだという事も判明しました なので後は貼り付けのみ実行したいのですが ペーストもスペシャルペーストもエンターキー送信も 全て貼り付けられませんでした 831 名前：デフォルトの名無しさん [2023/05/21(日) 07:58:40.07 ID:sFREmMbU.net] ちなみにThis workbookにコードを書いているからアクティブシート、ペーストができないという事はないですよね？ 832 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 10:39:24.18 ID:E0jRkIIp.net] 初心者によくある思い込みと表現が稚拙すぎてかみ合わない 833 名前：デフォルトの名無しさん [2023/05/21(日) 11:17:23.92 ID:sFREmMbU.net] もしかして VBAで条件付き書式のある範囲をコピーをコピーしたときは 必ず色のコピペではなく、条件付き書式のコピペになってしまう という事でしょうか？ なのでVBAで条件付き書式でつけられた色を塗りたいときは 必ず Range("A1").Interior.ColorIndex = Range("A1").DisplayFormat.Interior.ColorIndex を使用しなければならないという事でしょうか？ しかも範囲選択も使えないと 834 名前：デフォルトの名無しさん [2023/05/21(日) 12:35:30.87 ID:sFREmMbU.net] https://okwave.jp/qa/q9992673.html 最終的にこれでやりました もっと短いコードで行う方法はないでしょうか？ 835 名前：デフォルトの名無しさん [2023/05/21(日) 12:49:41.48 ID:sFREmMbU.net] 別シート（コピー先シート）の範囲に.DisplayFormat.Interior.ColorIndexの値をコピーさせることはできないので 別シート（コピー先のシート）にコピー元のアドレスを参照させるという形なのでしょうか？ 836 名前：デフォルトの名無しさん [2023/05/21(日) 13:31:14.96 ID:WfmE7WFK.net] 馬鹿は馬鹿だから自分の考えた方法が間違えていると指摘されても馬鹿な考えに拘り続ける法則 その実例 837 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 13:35:13.93 ID:swYKjccv.net] そういうの一言でなんて言うか知らない？ 838 名前：デフォルトの名無しさん [2023/05/21(日) 13:36:12.22 ID:z6jOsvMa.net] 馬鹿は死ね 839 名前：デフォルトの名無しさん [2023/05/21(日) 14:39:46.36 ID:sFREmMbU.net] >>827 すみません 今回は条件付き書式で塗られている色を値が変わっても残る様にしてほしい という注文があったので条件付き書式の色を残すという事を考えていました 私は簡単な事だと考えていましたが、「条件付き書式の色をコピーするという事」が想像以上に難しかったです 今回エクセルの古い機能は問題があるかもしれないと学びました 840 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 14:58:07.98 ID:sqwcjnc8.net] Excelのせいかよw　古かろうが新しかろうが、使用してる環境で張り切るっきゃ無いだろ それが注文を請けた側の望まれる姿勢　無理なら「できません」ってアタマ下げる アタシは悪くない、ぜんぶExcelの古い機能のせい　ハイハイ、注文した方にそう言い訳しときな つか、最終形に到達したんだろ？　それをもっと短いコードに出来ないってだけだろ？ 自分はできないけど誰かやって、かよ　それをじぶんの手柄か？　おめでてえな 841 名前：デフォルトの名無しさん [2023/05/21(日) 15:21:34.77 ID:sFREmMbU.net] >>831 つまり今回の例で言うとExcelの仕様的に出来ないと断るのは望まれる姿勢なので良くて 出来そうだから引き受けたが、かなり難しいのは望まれる姿勢ではないのでダメという事でしょうか？ では例えば知らないので出来ません（無知の知）というのは望まれる姿勢なのでしょうか？ 842 名前：デフォルトの名無しさん [2023/05/21(日) 15:52:29.72 ID:JkAFBIVP.net] 馬鹿って自分ができないことは製品のせいにするんだな 843 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 15:56:24.43 ID:UPj07kqo.net] 注文って言ってるぐらいだから金が発生してる仕事なのかしらんけど こんな奴に作らせていいものかと思わなくもない 書き込み数から見て必死さはうかがえるが 844 名前：デフォルトの名無しさん [2023/05/21(日) 16:02:51.00 ID:sFREmMbU.net] すみません 私は世の中の事や仕事という事を全く分かっていなかったです。 久しぶりの感覚を味わいました。 こらからは出来ない事は出来ないとしっかりいう様にし、自分に確実にできる事をいう様にします。 845 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 16:05:39.40 ID:sqwcjnc8.net] それはそうだろw　出来もしない奴が「できらあ！」で勝手にいぢくりまわしたら周りが迷惑 どういう立場(内製・外注)か分らんが、出来ないものは「出来ません」とキチンと伝えられた方が 頼む方も判断の材料に成る　「じゃあ他の奴に」と方針決定も早くできる 請けたままグダグダいつまでも結果出さないでいる連中が多過ぎるのは企業(組織)の損失 846 名前：デフォルトの名無しさん [2023/05/21(日) 16:58:16.81 ID:Q4lfSNZO.net] なぜ「エクセルの古い機能」と決めつけて「問題」だとも決めつけているのか こういう中途半端の知ったかのせいで風評被害が生まれる 847 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:08:55.76 ID:z50pDIFk.net] vbaばっかり使ってて知識のアップデートも出来てないから関数を全く使えてない xlookup？xmatch？？unique？？？indirect？？？？おっさんには無理 848 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:15:28.73 ID:UPj07kqo.net] 浅い知識でなんとかなると思って痛い目みてると自覚してるならもっと勉強しような 849 名前：デフォルトの名無しさん [2023/05/21(日) 17:25:06.42 ID:JkAFBIVP.net] >>838 負け惜しみ乙 850 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:29:48.85 ID:z50pDIFk.net] 何でそんなに無差別に煽ってるのか 余裕ないな…年収低いのかな… 851 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 17:35:24.54 ID:aFtCgtc/.net] 高いのは血圧ぐらいです 852 名前：デフォルトの名無しさん [2023/05/21(日) 20:44:03.59 ID:E0jRkIIp.net] 条件付き書式の「条件」を調べて マクロ中で条件を判断してコピペ時に 自分で書式を設定するのがいいのではと提案する 853 名前：デフォルトの名無しさん [2023/05/21(日) 20:47:46.54 ID:E0jRkIIp.net] それでも条件付き書式の優先順位やペースト時は値だけにするとか色々あるけどな 854 名前：デフォルトの名無しさん [2023/05/21(日) 20:55:57.95 ID:36TdhBaA.net] 先程の話を聞いた限りでは もうひとつシート作っといて 対象シートと同じ値を設定しといて 値が違うなら着色するのを条件付き書式の 条件の中に混ぜてやれば出来ない 気がしないでもない。 その判断用シートを見せたくないなら Very hiddenで隠しておけばいいし。 ま、方法は探せばまだなんかありそうな気もするね。 855 名前：デフォルトの名無しさん [2023/05/21(日) 21:06:13.61 ID:sFREmMbU.net] すみません 本当にその通りだと思います 情けないです 856 名前：デフォルトの名無しさん [2023/05/21(日) 22:03:54.55 ID:sFREmMbU.net] 試しに最終的に使用したコードをbing AIくんに尋ねてみました そうしたら解説をして頂けました ありがとうございます 857 名前：デフォルトの名無しさん [2023/05/21(日) 23:39:24.56 ID:sFREmMbU.net] 任された仕事、引き受けた仕事はミスなく完璧に仕上げないといけない という話を聞いてそれではとても仕事を引き受けられないと思うのと、ネットで言われていた「私がやります」と仕事を引き受けたら責任の押し付けをされるから誰も引き受けようとしないという話がやっと理解できました 858 名前：デフォルトの名無しさん [2023/05/22(月) 00:19:24.60 ID:epRK61rP.net] 転職するなら早い方がいい 859 名前：デフォルトの名無しさん [2023/05/22(月) 01:39:29.37 ID:nnY2CicD.net] こんなのが入社してくるのは勘弁してくれ 860 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 02:12:11.55 ID:BEHGXC7t.net] 馬鹿連発病気野郎はこのスレにもいるのか？ 861 名前：デフォルトの名無しさん [2023/05/22(月) 07:02:02.27 ID:XzxYYIb6.net] 責任の押し付け合い、押し付けになるのなら誰もやりたがらない 普通ですよね？ 862 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 07:26:17.83 ID:rjxFOQbK.net] ワッチョイないせいか完全に雑談みたいなスレになっちまってるな 863 名前：デフォルトの名無しさん mailto:sage [2023/05 ] [ここ壊れてます] 864 名前：/22(月) 10:28:31.01 ID:AcQsf8Uu.net mailto: 元々へんなおぢさんが立てたスレだぞ　正規のスレは別にちゃんと現在進行形で生きてる それでも所々ではキチンと応じてるひとも居るから続いてるだけのこと >>825　のリンク先の回答で、なにが不満なんだかソッチのが理解できない 「もっと短いコード」って、それ以上短く出来ないだろうに もしかして試して無いんじゃないのか？一瞬で要望満たすぞ？ Excel2016での質問だし、もっと古いVer使ってんのか？ そこで解決！で終わらせてりゃ、余計な罵倒されずに済んでたのに　　まぁ、要件が要件で無意味な要求にも思えるけど [] [ここ壊れてます] 865 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 12:34:00.56 ID:JoSCbJ/9.net] 会社のレベルが低いし勤務してる俺のレベルも当然低いんだが DX化の推進、早くpython入れないと と連呼してる人の内容を聞いたら 社内サーバの特定の場所にある1000以上あるpdfをExcelに名前を取得してリスト化したいと… 更にリンクで飛べるようにしたいと… pythonいれずともマクロでやって神扱い 866 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 13:27:39.73 ID:rjxFOQbK.net] はいはい 867 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 14:36:24.55 ID:BEHGXC7t.net] 自慢なのかただの事例報告なのか分からんが、凄いとは思う 868 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 15:33:00.76 ID:1/Dfn2ke.net] とにかく書き込まれるレス全てに煽らないと気が済まない奴がいるよな。 >>856とかその常連だし。 869 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 16:07:41.58 ID:y9n3XARC.net] PDFのファイル名だけならそこまででもないような？ まあ神扱いされて？ならそうじゃないんやろなあ 870 名前：デフォルトの名無しさん [2023/05/22(月) 18:22:15.70 ID:XzxYYIb6.net] >>854 わざわざすみません セルの色　= ディスプレイに表示されているセルの色 に勝るシンプルなコードはありませんよね 情けないです 871 名前：デフォルトの名無しさん [2023/05/22(月) 18:23:42.16 ID:XzxYYIb6.net] >>855 全く悔しくないので申し訳ないですがパワークエリでも出来なくもない様な、、、 872 名前：デフォルトの名無しさん [2023/05/22(月) 18:48:11.43 ID:XzxYYIb6.net] For Each Range型変数 In 範囲 If Range型変数.Value <> Sheets("比較するシート").Range(Range型変数.Address).Value Then やっぱり短いコードがあったのですね 本当に恥ずかしい 873 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 19:23:18.88 ID:1/Dfn2ke.net] いや、いちいち何でマウント取ろうとするのか…年収低いのかな 874 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 19:56:20.06 ID:AcQsf8Uu.net] Then の後に記述する量が余計でしょ？　IF分岐させる意味無いでしょ？ ま、あれこれ試して失敗したり成功したりしながらウデを磨けばいいんだろうけど 875 名前：デフォルトの名無しさん [2023/05/22(月) 20:00:51.23 ID:XzxYYIb6.net] >>864 本当にありがとうございます 876 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 21:24:15.99 ID:BEHGXC7t.net] すぐマウンティングする人って、年収低いからその他の要素で勝ち誇る傾向あるらしいね。 877 名前：デフォルトの名無しさん [2023/05/22(月) 21:29:35.14 ID:XzxYYIb6.net] >>864 bung ai君にも　ifとthenが必要です と怒られました 878 名前：デフォルトの名無しさん mailto:sage [2023/05/22(月) 22:19:23.91 ID:AcQsf8Uu.net] まああれだ　美容院へ行って、頼んだ(つもりの)髪型と、仕上げた(つもりの)髪型が、まるで別物みたいなもンだ ちがうか　何がしたいんだかとっ散らかって来てる様子だな >>825 のリンク先のコードで目的は果たしたんじゃ無いのか？それのシェイプアップに勤しんでるのか？ Cellの背景色を操作するには、Rangeオブジェクト配下のInteriorオブジェクトをいぢる必要があるのに、 CellのValueを持ち出して来てるのは bung ai (バング？)の指図か？　bug ai に改名した方がいいな 広く世界に回答を求めると、ごまんと「もう食えねえ」ってぐらい返答があるかも知れないけど、そのうちで どれが美味いものかは、本人しか決められねえ　近頃は bung ai のスレもあるだろうし、今後はソッチで堪能した方がいいような 879 名前：デフォルトの名無しさん [2023/05/22(月) 23:44:38.04 ID:XzxYYIb6.net] 仕事は確実にできないといけない できもしない仕事は引き受けてはいけない という話はそっくりそのままAIにも当てはまるからAIは仕事ができない無能だと思うよ 880 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 01:19:58.26 ID:RbKIxQ9F.net] AIの仕様は誰かが決めたのかね 確実な答えを責任持って返すとか、そんな仕様どこで決められたんやろ 881 名前：デフォルトの名無しさん [2023/05/23(火) 01:24:30.48 ID:9axP82/J.net] ChatGPTは本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール 882 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 01:59:10.03 ID:Mz8pt3CW.net] vbaでの処理のさせかた、ひらめきが大事なんよ センスない奴はコードの書き方以前にその発想が弱い 要するに仕事が出来ない 短く書く、無駄なく書くことが目的になって年収が低い 883 名前：デフォルトの名無しさん [2023/05/23(火) 02:10:53.64 ID:r33tzfWd.net] どんなにいい道具でも使う人間がアホだと問題が起きる 884 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 02:33:58.28 ID:gjFqswYh.net] Google検索もウィキペディアも本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール 885 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 02:34:15.26 ID:gjFqswYh.net] 新聞もテレビも本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール 886 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 07:03:01.44 ID:/oIAnKQO.net] 自分が一番信じられないし 887 名前：デフォルトの名無しさん [2023/05/23(火) 08:27:02.94 ID:gffLmLO8.net] 任された仕事、受けた仕事ができないのは失格だー というのならAIだって不正格なのだから失格ですね 888 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 08:39:19.88 ID:iPJXRLkn.net] AIへの嫉妬が凄まじいなw 889 名前：デフォルトの名無しさん [2023/05/23(火) 08:58:47.24 ID:2rT2TxeB.net] >>877 仕事できなかったら給料もらえんだろ 890 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 08:58:47.58 ID:sEILZwQ1.net] 君は完璧で究極の人工知能 891 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 09:04:21.95 ID:iPJXRLkn.net] 結果から言うと、こんだけ話題になって活用されて金も集まってるんだろうからかなり有能だなw 892 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 10:54:52.74 ID:m0qa5Enf.net] 昨年はまではchatgptなんて話題無かったもんな。 893 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 12:37:59.39 ID:ZGM1evgE.net] Excelって凄い有能だよね 894 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 16:07:55.58 ID:m0qa5Enf.net] だから世界中で売れとる 895 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 16:13:25.70 ID:QEfHRB4s.net] ツールはどちらも有用 896 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 18:19:29.54 ID:gjFqswYh.net] 道具なんて使う人次第 包丁だって人を殺せるし、Excelも使い方を間違えれば生産性を落として会社を殺す 897 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 20:00:04.71 ID:m0qa5Enf.net] あまりExcelをヨイショすると、またGoogleスプレッドシート厨が暴れだすからうざったい。 898 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 21:12:44.25 ID:S1i8GJCU.net] GSSは所詮真似ソフトだから比較にならん 899 名前：デフォルトの名無しさん mailto:sage [2023/05/23(火) 22:14:41.12 ID:3uLTyIP1.net] >>876 w　嫌いじゃ無いw 900 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 08:34:36.23 ID:sVnHWppj.net] 半年くらいだったら自分の書いたコードの意味が一発ではわからない。 チャット GPT にリファクタリングをたのめるのだろうか 901 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 09:44:03.20 ID:TKPmz7Nx.net] 書けるけど読めないは最悪で将来役立たず認定されるから早めに現状から抜け出す手はずを整えたほうがいい 902 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 10:33:00.51 ID:sVnHWppj.net] >>891 おっしゃる通りなんだが、クセというのはなかなか治らないものだから 自分だけで見ていても問題点がわからない。それでチャット GPT に見せれば 厳しく指摘してくれるんじゃないかと。 もちろん全部 鵜呑みにするわけじゃなくて、言ってみれば アイディア出しのツール として使えないか っていうことなんだけど。 どうかな？ 903 名前：デフォルトの名無しさん [2023/05/24(水) 11:19:15.40 ID:1HEEtapb.net] またへんなのでてきたw 904 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 11:25:33.56 ID:TKPmz7Nx.net] >>892 その指摘を理解できるのって話じゃない？ このスレはChatGPTに話を振るやつ多いけどそもそも自分の書いたコードにしろ他人が書いたコードにしろ読めない奴が リファクタリング以前に何をしたいコードかわからないならどんな指摘もらってもそれが正しいものかわからないだろ？ その時にはどうするのって話理解できてる？ 905 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 11:51:37.14 ID:sVnHWppj.net] >>894 半年経ったら一発で読めないだけで、何がやりたかったのか全体的なイメージは記憶に残っているし、時間をかければ各行の役割は理解できる。それを一発ですらすらわかるようなコードにリファクタリングできないかというだけの話 906 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 11:58:12.96 ID:TLmwN/Fk.net] ChatGPTに聞きまくって作りまくってるしコメントも残してあるからメンテも超楽 もうvbaは十分だからpythonを学ぶべ 907 名前：デフォルトの名無しさん [2023/05/24(水) 12:08:05.38 ID:1HEEtapb.net] >>895 最初にそうやって書いておけばいいだけの話では 908 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 12:57:02.51 ID:gQe9IGSI.net] 性格わるいひとがおおいこと 909 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 13:02:25.38 ID:TKPmz7Nx.net] >>895 コード1行1行がわからないとかおかしくないか？書いてあることそのままだろ？ ブロック単位のコードが読めないならコメントなりでやってることを自分が読める言葉で書いておけばよくね 910 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 14:25:50.78 ID:lcK3sBWk.net] Excelに長けてるやつなんて大抵は性悪だろ。 911 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 17:46:17.42 ID:TxgMbCbW.net] オリジナルな変数名や関数名使ってる人は 自分の書いたコード読めなくなってそうな気がする 912 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 19:17:06.63 ID:1HEEtapb.net] 他人が考えたコードをコピペするだけの奴の方が内容覚えてないだろう 913 名前：デフォルトの名無しさん [2023/05/24(水) 20:06:55.55 ID:MlnLG95A.net] 任された仕事が出来なかったら怒られるんだったら仕事をどんどん引き受けようとは思わない、スキル開発なんて出来るはずがないですよ 914 名前：デフォルトの名無しさん [2023/05/24(水) 20:10:33.59 ID:kc6C7Km2.net] >>903 馬鹿には無理なだけ 915 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 20:23:24.53 ID:l+gVJ33A.net] 情けないw　きんたま付いてンのか ま、そういう連中が多ければ多いほど、それを乗り越えられる奴が人より伸びて出世して率いていける それでも、昔と違って上役個人のその場その時の感情に任せた怒りは害悪だと広く知らしめられているご時世だから 怒られるってのは随分減ってる　注意されるのが嫌だと言うなら、それは自分でじぶんの成長を止めているという事 上司上長だって見込みの無い奴にいちいち注意とか指導とかしたくない　したところで変わらないと承知してる 注意されたり指導されたりしたら、見込まれてると信じて自分を成長させていく努力を重ねろ そんなのは嫌だと言うのなら、そのままペーペーの下っ端の人生をまったりと送れ 916 名前：デフォルトの名無しさん [2023/05/24(水) 21:19:13.86 ID:ATYAg5h+.net] 本当にChatGPTがそこまで有能ならば VBAのプログラマーであるお前らはもう用済みだろうな SEとChatGPTだけで開発出来ることになる 917 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 21:19:58.19 ID:e8mgmyMR.net] ウィンドウ枠の固定の固定を行列両方でやる方法はありますか？ 手作業でやった場合は B7を選択し、表示 → ウィンドウ枠の固定 → → ウィンドウ枠の固定　の順でクリックすると十字線で固定になります。 これをVBAでやる方法を知りたいです。 ' 起点となるセル（B7）を選択 Range("B7").Select ' 行と列を同時に固定 With ActiveWindow .SplitColumn = 1 .SplitRow = 6 End With ActiveWindow.FreezePanes = True これだと上手くいきません。 918 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 21:43:25.82 ID:lDhUSoZp.net] >>907 その真ん中は要る? >>909 こういう書き方はどう? 　　　　Sub a() 　　If b Then Cells(1, 1).Value = 1 　　Else Cells(1, 1).Value = 2 　　End If 　　　　End Sub 919 名前：デフォルトの名無しさん mailto:sage [2023/05/24(水) 22:42:40.02 ID:EnBFiGu7.net] >>907 ThisWorkbook.Worksheets("Sheet1").Activate Range("B7").Select ActiveWindow.FreezePanes = False ActiveWindow.FreezePanes = True 920 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 00:15:01.22 ID:7ru6gnb4.net] >>906 つか最近はVBAの案件が激減りでしょ。 クラウドワークスやココナラにたまに案件出る程度。 しかもクソ以下な報酬だし。 921 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 00:33:58.70 ID:htkuBd+g.net] Microsoft365Copilotってどこまでできるようになるのかね？ VBAコーディングのアシスタントもしてくれるのかな？ 922 名前：デフォルトの名無しさん [2023/05/25(木) 08:17:33.66 ID:r97jG93E.net] >>904 初めてやる事、勉強しないとわからない事をミスや間違いなくやれって言われても無理だなぁ 923 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 08:42:09.76 ID:qOk7CQOp.net] 職場内の指示ならサポートする人がいるでしょ 自分で取ってきた仕事ならそれをわかってて受ける奴がバカでしょ 924 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 10:05:56.11 ID:wW289g5U.net] >>911 オープンソースのChatGPTでも、適切に質問すればちゃんと動く完全なVBAを書いてくれる それ以下の性能になる可能性は低い 925 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 10:25:12.16 ID:lc7HulhJ.net] いやむしろChatGPT並のaiを搭載出来ると思えん 毛の生えたイルカ 926 名前： [] [ここ壊れてます] 927 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 10:38:34.50 ID:bvQ+M2zu.net] 今のAIなんて性能は横並びで、違いは学習データの多さだけ 言い換えれば回線の太さとハードディスクの容量で決まるようなもん 最初はポンコツでもMSの持つリソースを考えればChatGPTなんかすぐに追い抜くのは容易に想像できる 928 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 11:45:58.08 ID:7ru6gnb4.net] 昨年までchatgptなんて話題になかった。今年からだよね確か？ 929 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 12:30:54.27 ID:BeRM8aLP.net] chatgptにTTRPGのGMやらせたのは去年だった気がする。 930 名前：デフォルトの名無しさん [2023/05/25(木) 12:40:15.38 ID:yD7GMOxx.net] >>910 そうなのかな？ VBAのPGだけで飯食ってる訳じゃないから分からないけど ChatGPTがそこまで有能だと言うのであれば いずれはプログラマー全員が干されることになるだろうな 931 名前：デフォルトの名無しさん [2023/05/25(木) 12:43:50.88 ID:+8NgUpWi.net] >>919 そんなことを思うのは無能のレベルの低い人だぞ 932 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 14:06:21.16 ID:7X+fG8I/.net] >>919 確かにchatGPTはコードを書けるけど なんの責任も取らないchatGPTが書いたコードを 何も知らないままコピーで使うってのは流石にできないだろ 人間がそれなりにコードのこと知っている(=そのコードの責任を取る)からこそ コピーが出来るんじゃないか？ 933 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 14:24:44.64 ID:wW289g5U.net] 今のAIは、結果が正しいかどうか判断できないもんな そこまでできるようになったら人間の仕事がいよいよなくなる 934 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 15:33:05.20 ID:7ru6gnb4.net] chatgptに試しにコードを頼んだら、変なことやり出す時あるから恐ろしいわな。 935 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 15:40:09.70 ID:WTdNLwFH.net] 普通に考えて間違っていることなのに正しいと言い張って悪いことする人間もいる 936 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 16:38:38.94 ID:9aT2N2S/.net] まともなコードをかける人だけがChatGPTを貶しなさい 937 名前：デフォルトの名無しさん [2023/05/25(木) 18:25:35.42 ID:IdJA6u5F.net] chat GTPがコードを書いてくれても使う側の人間がシート名を変えたり、シートを並び替えたり、列や行を挿入したりするから無意味だゾ 938 名前：デフォルトの名無しさん [2023/05/25(木) 19:12:38.82 ID:uTGbx62u.net] >>910 クソの値段は？ 939 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 19:14:42.03 ID:YbSVtxjN.net] プライスレス 940 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 19:25:43.50 ID:ka2xCALB.net] 外資系化学メーカーだけど日本の企業からExcelが消えることは自分が定年するまではないわ AIが発達するならそれに任せるしそこまでいかないなら今まで通り自分で作ってメンテする ただGPTは十分つかえるし凄い 941 名前：デフォルトの名無しさん [2023/05/25(木) 19:48:46.62 ID:WHjTQOsf.net] 無能な人はありがたがる 942 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 20:14:18.01 ID:qOk7CQOp.net] 自分が作りたいものはほぼ過去作のコードコピーして手直しするような感じだからそういう人にはあまり必要ないかもしれないが まるまる使うわけでなくひな形としてサンプルコード生成してもらうような使い方ならありかもね 943 名前：デフォルトの名無しさん [2023/05/25(木) 22:01:48.16 ID:IdJA6u5F.net] 非表示のシートにコピーしようとする あるいはアドレスで参照しようとする時にエラーを出す条件はなんですか？ 944 名前：デフォルトの名無しさん mailto:sage [2023/05/25(木) 22:38:06.47 ID:OGK1w7li.net] エラーの内容は？ 945 名前：デフォルトの名無しさん [2023/05/25(木) 22:41:38.89 ID:IdJA6u5F.net] >>933 1004ですね😅 946 名前：デフォルトの名無しさん mailto:sage [2023/05/26(金) 04:05:15.06 ID:t8aTcQe9.net] クラウドワークスのVBA案件が少ないのは分かるが、単価はクソじゃないだろ。 947 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 10:51:17.80 ID:Or9ZKlcs.net] コードが長いのでプロシージャを分けたいのですが変数は グローバル変数を使って変数をひとまとめにするのと 再度プロシージャで同じように定義しなおすのはどちらが一般的ですか？ 948 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 11:22:44.57 ID:9h/NVUyr.net] 全体の一部だけ修正するなら好きにしろじゃね 関数Aを関数Bと関数Cに分割するならPublic（モジュールのPrivate）変数にしたほうが直しやすいし 関数Aを関数A自体は残して中のコードを関数Bと関数Cに振り分けるなら Public変数だけでなく関数Aのローカル変数を関数Bと関数Cの引数に渡すこともできる 949 名前：デフォルトの名無しさん [2023/05/27(土) 12:40:25.19 ID:cGvl/d1n.net] >>936 自分で考えるのが一般的じゃね 950 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 13:14:17.41 ID:RPl8pCqm.net] >>936 作業用の捨て変数のことなら、毎回いちいち宣言しないとバグの元 グローバルにすると、例えばループの中から別プロシージャを呼んだ時に破綻する 951 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 13:38:59.73 ID:pJTb6Vhd.net] >>936 グローバルかローカルかは変数の役割と範囲次第だな。 グローバル変数は便利だけど多用しすぎると 面倒臭くなるから注意な。 ローカル変数は見通し良くなるから使えるときは使うべき。値の受け渡しが必要なら引数使うのが普通だよ。 とはいえ、プロジェクトの性質や要求によって 適切な方法は変わるから自分で考えてみてくれ。 952 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 15:12:20.44 ID:Or9ZKlcs.net] ありがとうございます。 プロシージャ毎に１つずつ実行するときと 複数順に実行する場合があるので 引数だと面倒だなと思ったのでグローバルにしようか悩んでいました。 自分の能力ではコードが増えたときにグローバル変数だと混乱するのではやめておきます。 953 名前：デフォルトの名無しさん [2023/05/27(土) 22:23:40.36 ID:wfFOuEPe.net] ミスや不具合のあった時にあーだこーだ言われるのだから日本にはAI開発なんて不可能 954 名前：デフォルトの名無しさん [2023/05/27(土) 23:08:54.80 ID:rPvuWgFx.net] それは極論 955 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 16:42:51.88 ID:pV4wEcmO.net] 日本企業は権力に弱いからあーだこーだ言われてしまうと萎縮してしまい海外AIのような思い切ったプロジェクトを立ち上げる事ができないという事は言える これは各省庁の圧力を封殺して国が主導して補助金まで出すようになれば事態は一変するかもしれない 956 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 17:53:17.80 ID:aECve9cA.net] 他人のカネをあてにしたプロジェクトで成功した試しが無いだろ ビンボこそがパッションとモチベと成し遂げる意思と工夫とプランニングに富む基礎と成る　 食えるか食えないかギリギリのビンボがな 957 名前：デフォルトの名無しさん [2023/05/28(日) 18:05:09.72 ID:8TEHyhBs.net] 課題が多いのは事実だがそれを乗り越える技術のある人もいることに期待する 958 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 20:48:41.35 ID:aECve9cA.net] もっと言うと、デカく成った企業は保身に走る、突っ走る　デカく成りつつある企業もそれに倣って保身に走る それは中の人が(俺の代でポシャる訳にはいかない)と、無難な路線しか認めないから　挑戦の二文字は倉庫に仕舞い込んでる それに加えて昨今のHDブーム　何でもかんでもホールディングスにすりゃいいと安易に設立して内部留保に励む 前世紀末のバブル崩壊をまざまざと経験した世代は特に臆病風を吹かしまくる　チキン・ハート症候群だ(現役だけに大迷惑) その点、昨今の怖いもの知らずのZ世代なら、悪事を働く方向とは真逆のベクトルで突っ走ってくれたら とんでもないイノベーションを起こす可能性を持ち合わせている　ウィリアムやスティーブのようなのが出て来る可能性も まあ、願望だけだが　　それでも、ひとりかふたり出てくれればゴロっと変わる可能性だってあるんだから、希望の光は消えない 959 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 21:45:16.66 ID:FAxVwT0p.net] Application.OnTime TimeValue("12:00:00") オンタイムメソッドのコードのテスト方法って何かありますか？ 動くかの確認に毎回時間を合わせてテストするのが大変なので質問しました 960 名前：デフォルトの名無しさん [2023/05/28(日) 21:50:34.02 ID:0FRQEohw.net] すみません ここまでのコードはうまくいくのですがこの先の以下のコードを実行すると400や1004のエラーメッセージが表示されます しかしながら望み通りの場所に名前をつけて保存してくれます なんのエラーが出ているのでしょうか？ Sheets("リスト").Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\TEST1.xlsx" ActiveWorkbook.Close End Sub リスト　シートをコピーして新しいブックとして開き、名前をつけて同じ場所に保存という事がしたいです。 961 名前：デフォルトの名無しさん [2023/05/28(日) 22:12:18.01 ID:0FRQEohw.net] おそらくやっと原因が判明しました OneDriveのせいでした 962 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 22:50:47.30 ID:v/IHwhGn.net] ２～３０年後ぐらいにAIの分野の遅れが致命的になり慌ててAI庁とか作りそう 963 名前：デフォルトの名無しさん [2023/05/28(日) 23:40:07.55 ID:O8C+AHmT.net] デジタル庁があるやん 964 名前：デフォルトの名無しさん [2023/05/29(月) 02:32:31.75 ID:A0J6rQWV.net] 金目当ての仕事しかしないで中身スカスカだろうけど 965 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 06:53:52.00 ID:6VgnbzRd.net] >>946 今の日本は現場が下に見られるから 技術のある人は権力や役職者にいいように利用されて終わることが多い 966 名前：デフォルトの名無しさん [2023/05/29(月) 10:00:53.79 ID:XEr4TBXw.net] みんな、エッチ団結しようよ！ 967 名前：デフォルトの名無しさん [2023/05/29(月) 15:43:26.34 ID:sEjgVYtC.net] >>954 多いだけで全員ではない 968 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 16:43:45.59 ID:617wK6FV.net] やっぱりめちゃくちゃ丁寧にコメント残して変数の宣言をめんどくてもしっかりしとくと後で手直しが楽だな… 社内サーバーが変更になって他部署のマクロがあちこちエラーでバタつきまくってるけど俺の作ったvbaちゃん達は少しメンテしただけでオールオッケー ヘルプが来たけど他人の作ったマクロ全然わかんね 969 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 17:02:10.90 ID:4Pg0mNi+.net] ウデを持ってるなら、そんな環境からとっととおサラバするのがいい サヨナラされてようやく気付く企業も多く成るべき それでもそこにしがみ付きたいなら、技術だけじゃなくて知恵も蓄えないと どうやってその邪魔な上役・役職者を失脚させて、徐々にでもじぶんの地位を上げるか　とか 学歴・派閥・職歴えｔｃ、ひとは誰しも欠点を持ち合わせてンだし、そこをトコトン突っ突かないと ブツブツ文句垂れてるだけじゃなにごとも変わらない　諦めたらそこで終わりなのも事実だし 970 名前：デフォルトの名無しさん [2023/05/29(月) 21:13:35.07 ID:PjfX8r01.net] 一つだけお聞きしたいのですが、VBAを作成したとしても利用者がシート名を変更したり、シートを削除したり、シートを追加したり、並び替えたりしたら自動化や効率化のやりようがないですよね？ オブジェクトが存在しないとか並び替えられていたらインデックスで指定するのが無理とかそう言う事になりますよね？ VBAは決められた手順通りに定められたメゾットを実行する物であって、ブックがめちゃくちゃだと実行しようがないですよね？ 971 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 21:20:52.62 ID:4q9o84pD.net] シートをオブジェクト名で処理すればシート名変更・並び替え・シート追加はどうでも良くなる シート削除対策は予備シートを他のブックにでも入れておいて本シートの存在判定後に予備シートからコピーすれば良い 972 名前：デフォルトの名無しさん [2023/05/29(月) 21:26:22.38 ID:PjfX8r01.net] >>960 なるほど ちなみに一番新しいシートのオブジェクトを指定する方法はあるでしょうか？ ブックにあるオブジェクトを探して一番大きい数字のオブジェクトを指定できるなら助かるのですが worksheet.countやworksheet.count - 1の様な事をオブジェクトで行いたいです 973 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 21:38:44.22 ID:5rIVitSK.net] もちろんできる 974 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 21:43:07.69 ID:4q9o84pD.net] 普通は新しいシートを作る位置でその手のコントロールをすると思うけどね 975 名前：デフォルトの名無しさん [2023/05/29(月) 21:45:22.79 ID:PjfX8r01.net] >>963 並び替えられると動作しなくなるのでどうにか不変もので出来ないのかなと思いました 連番？で数字が増える事だけが頼りです 976 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 21:53:57.15 ID:4q9o84pD.net] >>964 新しいシートを作るのがコード自身ならコントロールできるでしょ あと、並び替え程度で動かなくなるとか シートを作られただけで動かなるコードなんてのは脆弱すぎるので 先ずはその点の改良をしたほうがいい 977 名前：デフォルトの名無しさん mailto:sage [2023/05/29(月) 22:02:48.61 ID:nq5ttQ99.net] そんなんで駄目になるなら初めからガチガチにロックしてこっちが想定した操作以外できなくしてしまったほうが早い気がする 978 名前：デフォルトの名無しさん [2023/05/30(火) 02:48:24.27 ID:ztJvp+qD.net] VBAでどんなコードを書いてもユーザーが勝手に変更したら動かなくなるよ 979 名前：デフォルトの名無しさん [2023/05/30(火) 06:48:55.03 ID:D1ASN+X8.net] >>965 やりたい事は一番新しいシート（最新のシート）とその前に作成されたシート（古いバージョンの様な）を比較して一致しないセル（変更のあったセル）に色を塗ると言う事がしたいです 一番新しいシートはマクロを実行する度に複製されます 私は一番新しいシートに記入してマクロを実行すると直前のシートと比較して色を塗る所まで出来ました しかし利用者の方が一番新しいシートに記入される方ばかりではないと言う事にも気がつきました。 なのでどこのシートでマクロを実行しようとも一番新しいシートとその直前のシートで比較するマクロを組みたいです。 980 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 06:57:07.62 ID:T5vzeTOi.net] どこかにシートの作成履歴を保存しておくしかないのでは？ 981 名前：デフォルトの名無しさん [2023/05/30(火) 07:58:55.38 ID:IcFRt183.net] ブックを開きその時点での一番新しいシートに記入する マクロのボタンを押す シートを複製する 一つ前のバージョンのシートと比較して変更のあったセルに色を塗る と言う事がしたいです つまりマクロを実行するシートというのは常に新しく複製されたシートです 理想は常に新しく複製されたシートのオブジェクト名を取得してその前のバージョンのシートと必ず比較できるマクロが組みたいです 982 名前：デフォルトの名無しさん [2023/05/30(火) 08:01:10.86 ID:IcFRt183.net] ttps://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11256025046 ここに書かれているCode nameが最大のシートを探すと言うのが答えになりそうなのですが私には分かりませんでした 983 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 08:29:21.45 ID:qMHj8iFj.net] そのブックの構成がよくわからないな その古いシートへユーザーが書き込むってのはミスなの？そのシートに書き込む必要がある状態なの？ 因みに、codenameを取得して番号から最新シートを把握というのはちょっと微妙な気がする 何故ならシートのオブジェクト名もシート名も そのEXCELブックが立ち上がった時の一番若い番号に振られるから つまり、オブジェクト名に歯抜けの番号があればその歯抜け番号が最新番号になる、、はず そんなのより各シートにインデックス番号を シート内の固定場所に 振っていくほうが手っ取り早いんじゃないの？ 若しくは管理用シートを別に用意するとか手段はいくらでもある 984 名前：デフォルトの名無しさん [2023/05/30(火) 08:29:25.24 ID:IcFRt183.net] なんとなくわかって来ました 初期値のworksheet（シート名？オブジェクト？）　< ブックの中のシートのコードネーム がthenならそのCode nameを変数に入れたらいい そしてそのCode nameのシート名を取得して変数に入れればいい と言う事ですね 985 名前：デフォルトの名無しさん [2023/05/30(火) 08:49:28.89 ID:IcFRt183.net] >>972 本当にありがとうございます 私はvbaの初心者で必ず最新のシートが選択される様にする と言うだけでこの通り全く分からない状態です そんなのより各シートにインデックス番号を シート内の固定場所に 振っていくほうが手っ取り早いんじゃないの？ 若しくは管理用シートを別に用意するとか手段はいくらでもある ↑ 私もインデックスを固定して操作する方が確実だとは思うのですがシートの並び替えだけを禁止すると言う理解でよろしいでしょうか？ 986 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 09:26:21.94 ID:qMHj8iFj.net] >>974 いや、ちょっと勘違いしているね 平易に言うと、自分で作った通し番号を各シートの固定場所に記載するってこと。 シートの並び順はもはや関係なくなる 具体的には、一番最初のシートには使ってないセルに「1」を振る 次に新しいシートを作るときは for each 変数名 in thisworkbook.worksheets でブック内全シートの番号を降った場所を検索して 一番大きな番号を取得 その取得した番号の次の番号を新しいシートに振る これでいつでも最新シートを更新出来るようになる 987 名前：デフォルトの名無しさん [2023/05/30(火) 10:50:25.84 ID:IcFRt183.net] >>975 なるほど！ わかりやすい😭 988 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 17:51:07.23 ID:1Ly+sIKy.net] こないだの奴だろ？　わかったつもりでいても、実装には難儀する気がする そもそも要件と、それをまかなう仕様がなんかまちがってる気がしてならない 古いSheetと新しいSheetで違う値のセルをハイライト で、その新しいSheetは明日には古いSheetに成るんじゃないのか？ハイライトする意味は？ ひとつのブックをみんなで寄ってたかって編集してるのか？　で、制作物は最終的にひとつなのか大量にあるのか 古くなったSheetはもう不要なのか、いつか参照するのか　ブック内でどんどんSheetが増えていくのか　その頻度は 書ける範囲で業種とか業務とかの概略を書いた方が結果的に近道な気がする　気がするだけだけど その用途ならこうした方がいいぞ　というアドバイスも出てきそうだし 989 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 18:47:46.87 ID:rtVxM/0K.net] 適当な人間が使ってるものを深く考えずに何とかしようとしてるだけだから仕方なくね ぶっちゃけこんな感じなるなら別のブックにマクロいれて ファイル名、変更前シート、変更後シート あたりを入力して変更後シートの変更箇所に色塗りするってマクロ作った方がいいんじゃねと思うわ そもそも勝手にシート増やされたとしてそのシートが番号振ってあるシートだったら破綻するだろ？ 990 名前：デフォルトの名無しさん [2023/05/30(火) 19:50:15.30 ID:D1ASN+X8.net] >>978 シートを手動でコピーされるかあるいは新しいシートを挿入されたら終わり 確かにその通りでした やはり浅はかでした どうにもシートの保護などは禁止らしく、他のブックで比較するのも禁止らしいです では最終手段として一番新しいシートを一番右に、その前のバージョンのシートをその左に手動で並べて右と左で比較するコードをと提案しましたが必要を理解してもらえませんでした 991 名前：デフォルトの名無しさん [2023/05/30(火) 19:57:03.41 ID:D1ASN+X8.net] 個人的にはマクロが登録されているボタンを押して作成している限りにおいては正しい動作が行われるで満足なのでセルに数字を入力してシートを指定する案で終わります 992 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 20:02:47.81 ID:8KdzSu0t.net] 誰もマクロを触れない部署で全く新しいアプローチでツールを作ってくれと言われて 今月の残業時間40Hだが全部vbaに費やしてる まだ試作だけど部長に糞誉められた いやでも会心の出来かも デバックエラーが絶対起きないようにあらゆる想定をしてユーザーフォームのボタンに込めた 993 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 20:08:16.56 ID:rtVxM/0K.net] そうかよかったな チラシの裏にでも書いておけ 994 名前：デフォルトの名無しさん [2023/05/30(火) 20:19:41.96 ID:D1ASN+X8.net] ちなみに当の本人は「サンプルシートに記入した人がいる、キチガイやろ？」と言っていました 私はそれはシートの保護をせず、入力ができるからでは？入力ができる以上、そう言う操作を行う人が居るのは当然なのでは？入力するべきではないシートだとわかりにくいからでは？と思いました。 そして人の悪口を言うのを辞めようと思いました。 995 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 20:30:00.27 ID:LGax4AHG.net] >>982 こういう年収低い奴はやたら攻撃的だな 格差社会の弊害がここに 996 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 20:33:12.41 ID:8KdzSu0t.net] 常に煽り口調なレス怖いですね 低年収なら仕方ない…のか？ それこそチラシの裏に社会への不満書くのがいいかと 997 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 21:00:59.18 ID:rtVxM/0K.net] 書いてる内容で年収わかるなんてすごいですね そもそもここは質問スレなんだから質問とその回答以外を書く方がおかしくね >>981はもしかしたら質問かもしれないから念のため>>982の回答をしてみたんだが 998 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 21:19:25.23 ID:LGax4AHG.net] すごいだろ でも書いてる内容見りゃお前が間違いなく底辺なのがわかっちゃうんよ それを回答と言ってる時点で知能指数もしれてるわな 999 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 21:45:11.73 ID:hm9t4j8O.net] まあ目くそ鼻くそだけどな 1000 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 21:57:16.96 ID:rtVxM/0K.net] 同年代の年収の平均値・中央値よりもぜんぜん上だけどまあ言わせておくよｗ >>988 ほんとその通りな ワッチョイありの頃はそれなりに回ってたけどワッチョイなしで立てたクソ野郎のせいで VBA質問スレは無関係のことしか書かないカスみたいなやつのたまり場になっちまったわ 1001 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 22:00:08.95 ID:iuWp6cF1.net] >>989 ワ有りと無しは同時に存在することが許されるし ワ有りスレもあるのにここに居続けてるのは自身の選択だろとしか 1002 名前：デフォルトの名無しさん [2023/05/30(火) 22:14:49.50 ID:D1ASN+X8.net] とりあえず納得するものが作れたと思います 少なくとも自分がどんな操作も受け付けるマクロやブックを作っておきながらそれを使用する人に対してキチガイという人には負けたくありません 1003 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 23:08:53.36 ID:LGax4AHG.net] wをつけだしたらおわりだわ 1004 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 23:17:06.57 ID:LGax4AHG.net] 平均値中央値よりもぜんぜん上 こんなこっぱずかしいレスをネットで久しく見た 1005 名前：デフォルトの名無しさん [2023/05/31(水) 00:42:56.05 ID:Akn6fcLj.net] 必要な操作をできる人、理解している人が行う とか シートを保護する とか そう言う事は禁止らしいんですよ どうしても理解度がバラバラの作業者にやらせたいらしいです 1006 名前：デフォルトの名無しさん [2023/05/31(水) 00:44:54.70 ID:Akn6fcLj.net] きっと記入例シートに　みほん　とデカデカと透かし図を貼り付ける事も　シートを保護する事も禁止なんだと思います 1007 名前：デフォルトの名無しさん mailto:sage [2023/05/31(水) 01:13:44.98 ID:zw3Mw+mP.net] じゃあ次スレはﾜｯﾁｮｲ有りにすればええやん 今がチャンスだぞ 1008 名前：デフォルトの名無しさん [2023/05/31(水) 01:17:01.07 ID:5IfBNuLp.net] いやワッチョイスレあるから Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり) https://mevius.5ch.net/test/read.cgi/tech/1674875532/ ダメなら立てなきゃいいんじゃないの？ 1009 名前：デフォルトの名無しさん [2023/05/31(水) 01:27:46.77 ID:Akn6fcLj.net] この間の銃殺事件があってもまだ誹謗中傷を続けるの？ 1010 名前：デフォルトの名無しさん [2023/05/31(水) 03:53:32.03 ID:ul21zY0k.net] このスレを立てた爺の正体 ↓ 掲示板でのケンカが孤独感を薄めてくれる 零細企業勤めで結婚もしておらず、交流する友人もいないが、「ネットが趣味なのが救いだ」と話す。 「掲示板サイトに書き込んだり、VBAはわかりませんが、日本語ワープロに詳しいと自慢したり、チャットGPTを使ったり……いい話し相手になってくれるんですよ。たまに掲示板でケンカもしちゃうんですが、それが孤独感を薄めてくれているのかもしれませんね」 ネット書き込みの裏には孤独を抱えた高齢者の姿がある。 ―［中高年［貧困と孤独］の実態］― 1011 名前：デフォルトの名無しさん [2023/05/31(水) 03:54:06.20 ID:ul21zY0k.net] ---- 1012 名前：1001 [Over 1000 Thread.net] このスレッドは１０００を超えました。 新しいスレッドを立ててください。 life time: 122日 16時間 7分 19秒 1013 名前：過去ログ ★ [[過去ログ]] ■ このスレッドは過去ログ倉庫に格納されています

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef