Excel VBA 質問スレ Part85

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

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

※前スレ
Excel VBA 質問スレ Part84
https://mevius.5ch.io/test/read.cgi/tech/1759297002/l50

助かった

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

なるべくexcelからは遠ざかる方が幸せになれる
入力データを編集したり、結果を出力するにはいいけど、
途中は全部excelの外でやる

excelの結果出力もCOM経由で外から操作

もう音声入力にして手を使わないで結果出力したらいいんじゃね

パソコン使わない方が良いんじゃね。

久々に「数独ソルバー」マクロを更新しました。
https://makoto-watanabe.main.jp/vba_SuDoku.html
今時 AI に頼めばこんなマクロは直ぐ書いてくれるのでしょうが、私には苦労してマクロを作るのが楽しいことだと分かりました。
そもそも「数独」は、マクロで解を求めるのではなく、一つ一つ頭で考えて答えることを楽しむゲームです。
人により楽しみ方は色々あって、とにかく楽しめることがあることは良いことです。

追記：私のマクロで解決できなかった問題(どなたかチャレンジしてみて下さい)
500 000 300
020 100 070
008 000 009
040 007 000
000 821 000
000 600 010
300 000 800
060 004 020
009 000 005

と
080000700200300008000006010
092750600030009000000400030
001500000005210060000008050

>>8
://sudoku.com/jp/sudoku-solverで解けた
591 476 382
423 189 576
678 253 149

AIにVBA作らせたら簡単すぎる
「これやって」「やっぱりこっちにする」に即座に対応
VBAの欠点（わかりにくさや情報不足）を補ってる

VBA実行したときの音楽は止められますか？

msgboxの音？　コンパネのサウンドかな？

全部の音が消えない？
明日やってみる㌧

>>11
AIの回答
VBAで音楽（BGMやSE）を流している場合、音を止めるには「再生を停止する命令（close や stop など）」を
プログラムに組み込む必要があります。

つまり、VBAで再生している部分を見て判断することになる

つんぼになれば聞こえないよ

壁の中からうめき声が聞こえるよ

立ち去れ

株式会社アイ・エス・ビー
https://kizuna.5ch.io/test/read.cgi/infosys/1756826944/

https://special.nikkeibp.co.jp/atclh/ONB/24/isb0809/

テキスト・ファイルで、一行毎に、行頭に「txt」と「out」が交互に出現する中国語のファイルがありました。
これを「txt」の行は中国語のままで、「out」の行を日本語にしたい事情が発生しました。
私は、まず元のファイルを Google翻訳で一括日本語に翻訳しました。
これらの 2つのファイルを合体して目的のファイルを作成するための VBA コードを Claude に依頼しましたらたちどころに教えてくれて目的を達成できました。
https://claude.ai/new
AI のお陰で VBA コード作成のハードルが下がって、ますます Excel VBA は有効なツールになっていくでしょう。
************************
文字コード UNICODE(UTF16) の 2つのテキストファイル(それぞれ 15,000 行程度)を読んで、行単位に選択的に合体して、一つの UNICODE(UTF16) テキストファイルを出力する、Excel VBA のコードを書いてください。
入力のファイル名は、以下の 2 つで、Excel ブックと同じフォルダに登録します。
LanguagesTraditional.txt
LanguagesSimpJP.txt
出力ファイル名は Languages.txt です。

合体のルールは、以下の３つです。
１．行が "Part=" で始まる行は、LanguagesSimpJP.txt の行を出力します。
LanguagesTraditional.txt にも "Part=" で始まる行がありますが、出力対象としません。
２．行が "out_" で始まる行は、LanguagesSimpJP.txt の行を出力します。
LanguagesTraditional.txt にも "out_" で始まる行がありますが、出力対象としません。
行頭は、"out_369=" のように、"out_" と 1〜3桁の数値 と "=" になっています。
LanguagesTraditional.txt と LanguagesSimpJP.txt の "out_" の後の数値が一致していることを確認しながら出力を進めます。
万一この数値が異なる場合は、そこで出力を終了して、エラーメッセージを表示してプログラムを終了します。
３．行頭が、 "Part=" でも "out_" でもない行は、LanguagesTraditional.txt の行を出力します。LanguagesSimpJP.txt からは出力しません。

日本語→AI→VBAの通訳ができた感じ
ただ注文多いとスパゲッティパーティ始まる

それExcel要らないよね

そういえばあんまり関係ないけどチャッピーに『○○(料理)のレシピを××(プログラミング言語)風に教えて』って訊くの楽しい
もちろんVBAでもできる

ヘイチャッピー、俺の人生をVBAで書いてみてよ

ドリル優子

TextBox1.txt = "俺の人生"

Cell（1,1） = "俺の人生"

こっちか

すまん Cell → Cells

Dim life As Object
Set life = Nothing
End