Excel VBA 質問スレ Part83

**デフォルトの名無しさん** · 2025/06/08(日) 11:06:42.20

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

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

※前スレ
Excel VBA 質問スレ Part82
https://mevius.5ch.net/test/read.cgi/tech/1737657075/1

**デフォルトの名無しさん** · 2025/06/29(日) 18:43:03.87

マクロから直接印刷はさすがにしてないです
pdf出力するのをしています
ちなみにどうしても縮尺指定にこだわりたい人の為に、縮尺指定→印刷プレビュー→印刷プレビュー閉じる→左右のページ数確認→ループのコードを書きました。

**デフォルトの名無しさん** · 2025/06/30(月) 06:28:01.78

Excelの知識がなさすぎるひと向けに作るのはやめた方がいい

**デフォルトの名無しさん** · 2025/06/30(月) 11:45:51.43

つかExcelVBAは使うのやめた方がいい
トラブルの元

**デフォルトの名無しさん** · 2025/06/30(月) 11:49:50.48

このスレで言うことか？

**デフォルトの名無しさん** · 2025/06/30(月) 18:11:33.26

印刷やろうとしてる人に向けてだろ…
でも明らかにセンスも作り込みスキルもなさそうだから同意

**デフォルトの名無しさん** · 2025/06/30(月) 20:01:12.87

>>309
センスも作り込みスキルも無さそうでしょうか？

**デフォルトの名無しさん** · 2025/06/30(月) 20:48:43.72

>>310
ごめん、そんなことはないけど
印刷のVBA化に無理に固執するもんじゃない
マジで
昔経験したからわかる

**デフォルトの名無しさん** · 2025/06/30(月) 20:54:02.73

>>311
ありがとうございます
vbaで直接プリンターに飛ばすわけではありません
とりあえず改ページの仕様はいくらか理解できたと思います

**デフォルトの名無しさん** · 2025/07/01(火) 00:25:06.97

Chatさんに聞いてみたけど面倒くさそう。

' 例：20行目の上に改ページ（21行目から新しいページ）
余白2cm
Sub 印刷設定サンプル()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

With ws
.ResetAllPageBreaks
.HPageBreaks.Add Before:=.Rows(21)

With .PageSetup
.PrintTitleRows = "$1:$3"
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.LeftMargin = Application.CentimetersToPoints(2)
.RightMargin = Application.CentimetersToPoints(2)
.TopMargin = Application.CentimetersToPoints(2)
.BottomMargin = Application.CentimetersToPoints(2)
.CenterHorizontally = True
End With
End With

MsgBox "印刷設定を適用しました。"
End Sub

**デフォルトの名無しさん** · 2025/07/01(火) 00:32:33.67

続き。こういうのも多分いるよね。

指定した行数がA4印刷1ページに収まるかを調べ収まらない場合は改ページを設定する

各行の高さを合計して、ページ内に収まるかを判定。A4の印刷可能範囲の高さ（ポイント単位）と比較。オーバーするならその直前に改ページを入れる。 A4用紙の印刷可能な高さ（おおよそ）
A4縦の高さ：29.7 cm = 約842 pt
上下余白（例）：2cm + 2cm ≒ 113 pt（計）
⇒ 実質印刷可能範囲：約729 pt
※余白・ヘッダー・フッターにより変動
コード例
Sub 自動改ページ_行数と印刷高さを基準に()
Dim ws As Worksheet
Dim i As Long
Dim rowHeightSum As Double
Dim printHeightLimit As Double
Dim lastRow As Long
Set ws = ThisWorkbook.Sheets("Sheet1")
ws.ResetAllPageBreaks
' 印刷可能な高さを計算（A4縦：842pt - 上下余白約113pt）
printHeightLimit = 842 - 113
rowHeightSum = 0
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
For i = 1 To lastRow
rowHeightSum = rowHeightSum + ws.Rows(i).RowHeight
If rowHeightSum > printHeightLimit Then
' この行の直前で改ページを入れる
ws.HPageBreaks.Add Before:=ws.Rows(i)
rowHeightSum =ws.Rows(i).RowHeight ' 次ページの高さリセット
End If
Next i
MsgBox "改ページを設定しました。"
End Sub

**デフォルトの名無しさん** · 2025/07/01(火) 07:51:53.41

>>313
このコードは何をしているかというと、
21行目の上　つまり20行目と21行目に改ページを設定して
上にヘッダー？を設定して
縮尺解除
全列を1ページに収める
行のページ数は自動
用紙サイズはA4
という設定をしています
しかし、改ページの設定は
改ページビューの青い点線（実はこれが自動改ページ）ではないから
1ページと2ページに余分な空白のページが挟まる

**デフォルトの名無しさん** · 2025/07/01(火) 12:47:55.21

インスパイアされて作ってみた
関西のコミュニケーションの多様性にはリスペクトしか無い
https://89.gigafile.nu/0706-cf0368763b1caf00c266d1efc563aea36
ネィティブでは無いので誤りが有ったら指摘もらえば改良もやぶさかではない
Captionだけじゃ物足りないので喋らせてみたが、これが結構ドツボ
ExcelでのSpeakは、まだまだ途上らしい

**デフォルトの名無しさん** · 2025/07/01(火) 21:04:55.51

>>316
何をお作りになられたのでしょうか？

**デフォルトの名無しさん** · 2025/07/01(火) 23:30:56.43

俺氏、VBAで去年社内最優秀賞30万
今年はちょびちょび改善で出して1万6500円
抜群のセンスだわさ

**デフォルトの名無しさん** · 2025/07/02(水) 00:01:46.59

そう思うならさっさと転職して本職のITエンジニアになった方が稼げるよ

**デフォルトの名無しさん** · 2025/07/02(水) 02:51:17.71

AI時代にここの質問スレは盛況なのは何故だ

**デフォルトの名無しさん** · 2025/07/02(水) 03:40:33.29

AIがイマイチだから

**デフォルトの名無しさん** · 2025/07/02(水) 07:59:03.99

AIに書かせることはできても、それの検証はどのみち必要だから

**デフォルトの名無しさん** · 2025/07/02(水) 08:13:15.57

ガイジだけど質問ある？
死にたいガイジ…空気読めないガイジ…死にたいガイジ…

**デフォルトの名無しさん** · 2025/07/02(水) 08:19:12.11

AIはうそつきだし
適度に事実も混ぜてくるから一番やっかい

**デフォルトの名無しさん** · 2025/07/02(水) 08:29:36.52

やっかいだと思うなら使わなけりゃ良いだけなのに、
他人にもそうさせようとするのはなんで？

**デフォルトの名無しさん** · 2025/07/02(水) 08:36:59.95

>>317
[はい][いいえ]を関西弁で、という話題にインスパイアされて
･一つのユーザーフォームを使い回しできる方法
･セルの文字をボタンやラベルのキャプションにしてしまう方法
･何ならしゃべらせる方法
関西弁に限らず、広島弁でも博多弁でもかごんま弁でもとーほぐ弁でもご随意に
リンク先の[ダウンロード開始]ボタンで落とせる
うかつに開くといきなりダイアログが出てきてしゃべりだすので音量注意

OSに入ってるナレーターは、Haruka、Ayumi、Sayaka、Ichiroと選べるはずが
Wordと違ってExcelだとデフォルトのHaruka限定にされて変えられないとのことで
そこがドツボだった　まぁ幸い解決方法を指南してくれてるサイトに辿り着けた
喋ってる間は全リソース奪われて他の操作は一切出来なくなるのは、如何ともし難いのか

**デフォルトの名無しさん** · 2025/07/02(水) 08:47:20.48

関西弁のyes/no
それはええ／それはええ

**デフォルトの名無しさん** · 2025/07/02(水) 08:49:18.32

>>325
個人の中で完結ならいいけど、AIの嘘回答でドヤってくるのが迷惑

**デフォルトの名無しさん** · 2025/07/02(水) 08:52:51.46

>>328
嘘回答でドヤってきた奴に言えよ
十把一絡げに迷惑って言い散らかすのも充分迷惑だと気付かないのか？

**デフォルトの名無しさん** · 2025/07/02(水) 09:23:01.60

AIにも種類あるからなぁ
問い方にもよるし

**デフォルトの名無しさん** · 2025/07/02(水) 09:28:17.31

AIにテストとバグ取りまでやらせろ

**デフォルトの名無しさん** · 2025/07/02(水) 11:09:29.63

>>327　ww

**デフォルトの名無しさん** · 2025/07/02(水) 12:42:29.90

AIに作らせて出来てなかったら投げかけるだけだろ
こんなIT音痴な奴がVBA触ってる事にビビる大木

**デフォルトの名無しさん** · 2025/07/02(水) 19:40:08.71

AI使って嘘の回答だったら質問変えたりコード直せばいいだけでしょ。
実際自分で調べるよりもめちゃくちゃ早いし便利に使えてるよ。

人間は平気で嘘つくのにAIに嘘つくなって求めるのはおかしいでしょ。

**デフォルトの名無しさん** · 2025/07/02(水) 20:01:38.68

VBAの場合は他のメジャーなプログラミング言語と比べて平均的な人間とAIの差が大きすぎるから、いきなりゼロショットで指示すると期待通りの結果が得られにくい
もちろんAIの方が上だ
AIに対して予め既存のコードをサンプルとして与えてあげてレベル感を知ってもらうと、いい感じに合わせてくれるよ

ころころ · 2025/07/03(木) 10:04:12.85

｢嘘の回答だったら｣
そもそも嘘かどうか知ってるなら聴く必要が無い
結局嘘じゃないことを調べるのにそれ以上に時間がかかる

**デフォルトの名無しさん** · 2025/07/03(木) 10:05:56.29

｢人間は平気で嘘つくのに嘘つくなって求めるのはおかしい｣
判らんのに平気で嘘回答するネラーも多い罠

**デフォルトの名無しさん** · 2025/07/03(木) 10:16:58.13

政治家の財源がないは嘘

**デフォルトの名無しさん** · 2025/07/03(木) 10:28:29.92

學歴も嘘

**デフォルトの名無しさん** · 2025/07/03(木) 10:37:23.12

>>337
だから話半分に聞くだろ？
AIの回答もそういう姿勢で、参考にはするけど盲信しないことが大事
全部鵜呑みにするならそいつももはやAIと変わらん

**デフォルトの名無しさん** · 2025/07/03(木) 10:44:24.00

340
どうみてもAI以下です

**デフォルトの名無しさん** · 2025/07/03(木) 20:41:52.66

こんなAIの本質をわかってないような奴らが作るVBAなんてたまらんよ

**デフォルトの名無しさん** · 2025/07/03(木) 20:45:28.43

>>342
AIのプロフェッショナル様だ！
我らに叡智を与えたまえ！

**デフォルトの名無しさん** · 2025/07/03(木) 21:14:39.37

どこの誰がなにをどう作ろうとも、その成果物に実際に触る訳でも無いし
それに依って迷惑を被る訳でも無いだろ？
ナニを上から目線で大口叩いてんだか
偶々そのソースを目にすることがあろうとも、評価してくれと頼まれた訳でも無いし
VBA評議会の高位評議員という立場でも無いだろ　何がしたいん？

**デフォルトの名無しさん** · 2025/07/03(木) 22:51:34.02

>>336
AIに質問すればコードの１行ずつ丁寧に解説してくれるけどそれでも正しいかどうか調べるのに時間がかかるの？

**デフォルトの名無しさん** · 2025/07/03(木) 22:55:11.76

それをAIに１行ずつ丁寧に解説させて、その内容をさらにAIに解説させて.....以下略

**デフォルトの名無しさん** · 2025/07/03(木) 23:14:39.22

どんだけAIに質問投げるの下手なんだよマジでよー

**デフォルトの名無しさん** · 2025/07/03(木) 23:19:49.48

人間と同じで相性なんですかね。
合わないものは合わないのかなぁ。

**デフォルトの名無しさん** · 2025/07/04(金) 08:07:10.89

>>345
AIだろうと人だろうと成果物のテストするだろ
何のためにテストすると思ってるの？

**デフォルトの名無しさん** · 2025/07/04(金) 09:00:20.43

AIに投げる質問を造るのがうまいと言うことは既にAIに聴く必要が無いんだわ

**デフォルトの名無しさん** · 2025/07/04(金) 13:21:56.31

それは違う
プロンプトエンジニアリング能力と他の能力は別物

**デフォルトの名無しさん** · 2025/07/04(金) 15:02:13.77

だったらAIにでも話してろよ

**デフォルトの名無しさん** · 2025/07/04(金) 18:27:01.53

一生懸命コードの基礎学んだのにセンスが無い奴は必死になるよなそりゃ

**デフォルトの名無しさん** · 2025/07/04(金) 19:13:39.58

>>353
？

**デフォルトの名無しさん** · 2025/07/04(金) 21:05:20.15

>>349
言いたいことがよくわからないです。

おっしゃってるようにAIでコードを書いても人で書いてもテストはします。
ただAIで書いたコードのテストは人のコードより時間がかかるというお話ですか？
丁寧にAIに教えてもらえても？
AIは関係ないと思うけど違うのかな。

**デフォルトの名無しさん** · 2025/07/04(金) 21:22:07.36

>>355
どこの何をテストする必要があるのかを判断できる能力がある、
もしくはどこの何をテストする必要があるかを導くプロンプトを書ける、
もしくは必要な箇所なテストまで終えるプロンプトをかけるなら問題ない

**デフォルトの名無しさん** · 2025/07/05(土) 06:16:26.93

>>356
例えばCSVファイルを開くときのテストケースを教えてってAI聞いてみたけど答えてくれたよ。

VBAでCSVファイルを開く処理に対して、以下のようなテストケースを行うと、動作の信頼性やエラー対策が強化できます。

主なテストケース一覧
・CSVファイルが存在し開ける正常にファイルを開けることを確認
・ファイルが存在しない場合指定されたCSVが見つからない場合の対処
・既に開かれているブックかどうかを確認
・読み取り専用のCSVを開けるかどうかのテスト
・空のCSVファイル内容が空でもエラーにならないか確認
・文字コードに関わるデータが正しく読めるかのテスト
・CSVの列数・行数が極端に多いたくさんのデータがあるときのパフォーマンスの確認
・ダブルクォートやカンマを含むセル "東京,品川"のようなセルが正しく扱われるかセル確認
・ファイルロックされている場合のエラー回避の確認

**デフォルトの名無しさん** · 2025/07/05(土) 06:51:38.76

>>357
それだとハルシネーションが含まれていた場合のことを考慮できてない

**デフォルトの名無しさん** · 2025/07/05(土) 08:48:09.96

>>357
余計な型変換に関する確認が必要
0312345678 → 312345678
1-2 → 1月2日

**デフォルトの名無しさん** · 2025/07/05(土) 08:57:41.98

古いExcelでは先頭がIDだとSYLK扱いされる問題もあるな

**デフォルトの名無しさん** · 2025/07/05(土) 09:10:19.51

>>357
csvファイルへのショートカットだった場合のチェックがない
開くと読み込みを一緒にしているのが気になった
その前にもともと自力でできる作業なら初めからAIは使わないだろうし
AIが示さない項目を無視していいかの判断ができるのかな
主な項目だからそれ以外もあるよとか後になって言うのはどうかと思うし

**デフォルトの名無しさん** · 2025/07/05(土) 09:13:22.18

ショートカット？これは馬鹿のふりしてるの？

**デフォルトの名無しさん** · 2025/07/05(土) 09:31:15.35

ショートカットでもcsv開くことがあるがcsvでないことはしっている

**デフォルトの名無しさん** · 2025/07/05(土) 09:35:20.09

既にAIの知能が人間を遥かに超えており、ボトルネックがバカな人間であることがよくわかるスレ

**デフォルトの名無しさん** · 2025/07/05(土) 09:46:16.30

うちの環境が普通でないなら無視してくれて構わんよ

**デフォルトの名無しさん** · 2025/07/05(土) 09:55:15.54

我流、独学でExcelをやっている人が表を作ると、そのつもりやその存在を全く知らなくても、マトリクス表形式で表を作成してしまい、しかも完成したものに対してピボットテーブルを使用すると言うのはあるあるですよね？

**デフォルトの名無しさん** · 2025/07/05(土) 10:34:06.26

>>358
それを自分で確認したらダメなんです？

>>359
>>360
>361
指摘ありがとうございます。

主な一覧だったのでテスト例はさらに出てきたかもしれないです。
開くと読み込むは問い合わせ方が悪かったかもです。

AIで出てこなかった項目が無視できるかどうかの判断は難しいですね。
明らかにテストしなきゃいけない項目がAIで抜けててAI丸投げで作った製品を納品されると怖いものがありますね。

ただAI丸投げの流れは止められないでしょうね。

**デフォルトの名無しさん** · 2025/07/05(土) 11:46:24.77

>>357
CSVカラムの途中で改行が入る場合

**デフォルトの名無しさん** · 2025/07/05(土) 15:15:49.95

「俺が流れを止めるからお前は先に行け！」みたいなこと言ってみたいね

**デフォルトの名無しさん** · 2025/07/05(土) 15:50:51.02

「その作業が本当に必要かどうか、もう一度考え直す」

**デフォルトの名無しさん** · 2025/07/05(土) 19:53:47.88

>>370
それはVBA職人的にはタブーでしょ
人力でやってた仕事というのは、自動でやるなら本質的にはそもそもやる必要のないものが多い
VBAはワークフローの改善に踏み込むことなくただ人力作業を単純に自動化するのが王道で、
仕事の意味を問うてしまうとVBAの仕事が減ることに繋がる

**デフォルトの名無しさん** · 2025/07/05(土) 22:49:12.14

>>368
指摘ありがとうございます。

もう回答を全部出してみたよ。
これ以外でテストケースがあるなら負けです。。。

VBAでCSVファイルを開いて読み込む際には、さまざまなケースに対応する必要があります。考えうるテストケースをカテゴリ別に網羅的に洗い出します。

基本ケース
1 正常なCSVファイルを開いて正しく読み込めるか
2 ファイルが存在しない場合のエラー処理
3 空のCSVファイルを読み込んだときの動作
4 CSVファイルのパスに全角文字・日本語が含まれる場合

データ構造・形式のバリエーション
5 カンマを含むデータがダブルクォートで囲まれている "東京都,千代田区"など
6 改行が含まれるデータ
7 ダブルクォートを含むデータ
8 区切り文字がセミコロンやタブなどの場合
9 複数の空白を含む行
10 各行のカラム数が不揃い
11 数値が先頭に0を含むデータ
12 日付形式のデータ
13 UTF-8 BOM付きファイル
14 Shift-JIS形式のファイル

**デフォルトの名無しさん** · 2025/07/05(土) 23:41:01.05

>>372
・パスが長すぎる場合
・処理系による改行コードの違い
・ファイル全体でダブルクォートが奇数個(閉じられていない)
・巨大すぎる(項目のサイズ、項目の数、行数)
・ファイルの破損(バイナリデータ混入など)
・ファイルシステムの破損、不良セクタなど

**デフォルトの名無しさん** · 2025/07/06(日) 02:30:01.30

>>372
Workbooks.OpenでCSVを読むならテスト項目ほとんど要らなくね？
テキストファイルとして読んで、列と行の分割処理をするなら、
CSVのフォーマット定義を先にやらないとテスト項目作れなくね？
読み込みファイルの指定方法も先に決める必要がなくね？

**デフォルトの名無しさん** · 2025/07/06(日) 06:55:32.42

>>373-374
Claude様に聞いてやったぞ

373と374は的外れすぎる

373について
・「ファイルシステム破損、不良セクタ」→ システム障害テストの範疇、CSV処理テストじゃない
・「ファイル破損（バイナリ混入）」→ 同上、テスト範囲を混同してる
・「巨大すぎる」→ パフォーマンステスト、機能テストと分けろ
改行コードとダブルクォート奇数個は有効だが、他は論点ズレ

374について
完全に間違ってる
・「Workbooks.Openならテスト項目要らない」→ 嘘、文字化け・区切り文字誤認識・データ型自動変換でバグ頻発する
・「CSVフォーマット定義を先に」→ RFC4180あるし、372みたいに実際の問題パターン網羅する方が実用的
・「読み込み方法を先に決める」→ 順序が逆、テストケース洗い出してから実装方法決めるのが正解

372が一番まとも。実際の開発で遭遇する問題を的確に押さえてる

**デフォルトの名無しさん** · 2025/07/06(日) 08:00:56.53

>>375
外部仕様を先に決めるべきという意味だったんだけど、それも間違ってんの？
CSV＝RFC4180というのは一般的じゃない気が・・・
Workbooks.Openを使うなら、「CSVフォーマットはExcelのAPIのそれ」で決定だからAPI動作の二重チェックは不要かな～と。

**デフォルトの名無しさん** · 2025/07/06(日) 12:05:21.27

セマフォは？
別プロセスが同じファイルを開いてるから今は処理すべきでない、とか

**372** · 2025/07/06(日) 21:01:04.07

すみません。
昨日テストケースをすべて載せるつもりだったのですが書き込み制限で書けず途中で諦めました。

テストケースは37項目まであります。

**デフォルトの名無しさん** · 2025/07/07(月) 09:23:50.46

だが、Copilotにプログラムを作らせると、こんなにも原始的でバグだらけなのであった
しかもこれだとクソ遅い

【設問】以下はVBAでCSVファイルを開いて読み込むプログラムである。バグを指摘せよ。

FilePath = "C:\Users\YourName\Documents\sample.csv"
FileNum = FreeFile
Open FilePath For Input As #FileNum
RowNum = 1
Do Until EOF(FileNum)
　Line Input #FileNum, LineData
　DataArray = Split(LineData, ",")
　Dim i As Integer
　For i = 0 To UBound(DataArray)
　　Cells(RowNum, i + 1).Value = DataArray(i)
　Next i
　RowNum = RowNum + 1
Loop
Close #FileNum

**デフォルトの名無しさん** · 2025/07/07(月) 10:00:11.48

>>379
CopilotはVBAerほどじゃないにせよアホの子だからね
以下、Claude Opus 4 with extended thinkingの回答

主なバグ：

1. カンマを含む値（“Tokyo, Japan”等）が分割される
2. エラー処理なし。ファイルなかったら死ぬ
3. 変数宣言してない（Option Explicit使ってたらエラー）
4. UTF-8読めない。日本語文字化け
5. セル1個ずつ書き込みでクソ遅い
6. 前のデータ消さないから残る

最悪の例：
CSVに "売上高は1,000,000円" があったら
→ 売上高は1 000 000円" の3列に分解されるｗ
結論：Workbooks.OpenTextかQueryTables使え

**デフォルトの名無しさん** · 2025/07/07(月) 10:31:44.26

>>380
変数宣言は行数の都合でカットしたのでCopilot君は悪くない

**デフォルトの名無しさん** · 2025/07/07(月) 14:15:38.83

>>379
ChatGPTだとこんな感じですね。
そのまま貼り付けたので全角も見てくれてる。

バグ・問題点
１変数の未宣言
２インデントに全角スペースが混在
３変数 i の Dim がループ内にある

補足（改善点）
・CSVにカンマを含むセルがある場合、Splitだけでは不十分（→正確なCSV解析が必要）。
・ファイル存在チェック (Dir(FilePath) など) を入れるとより堅牢になります。
・Shift-JIS以外の文字コード（例：UTF-8 BOM付き）は Open では正しく読み込めないことがあります。

**デフォルトの名無しさん** · 2025/07/07(月) 22:35:59.87

バグも直してもらえばいいんじゃね

**デフォルトの名無しさん** · 2025/07/08(火) 00:47:00.39

今日のCopilotはWorkbooks.Openの気分らしい
だけどFormat引数が間違ってて動かないw

ファイルパス = "C:\Users\YourName\Documents\" ' ←適宜変更してください
ファイル名 = "sample.csv" ' ←読み込むCSVファイル名に変更
完全パス = ファイルパス & ファイル名
Workbooks.Open Filename:=完全パス, Format:=6

↓（実行時エラー1004で動かないぞ！直せ）↓

ファイルパス = "C:\Users\YourName\Documents\" ' ←適宜変更してください
ファイル名 = "sample.csv" ' ←読み込むCSVファイル名に変更
完全パス = ファイルパス & ファイル名
Workbooks.Open Filename:=完全パス

直った

**デフォルトの名無しさん** · 2025/07/08(火) 01:58:30.92

Format:=6なんて絶対使わないのに、どこからコピペしてきたんだよ

**デフォルトの名無しさん** · 2025/07/08(火) 10:53:17.46

馬鹿の上塗り

**デフォルトの名無しさん** · 2025/07/08(火) 16:04:18.48

このスレ沼しか居ねぇな…google ai studioの方がまだ良い解答してくれんぞ…

**デフォルトの名無しさん** · 2025/07/08(火) 17:01:18.70

>>387
とても鋭い視点です。さすがですね！

**デフォルトの名無しさん** · 2025/07/08(火) 17:33:24.49

studio と名付けられてる意味わかってんのかな？
中の人はGeminiそのものらしいじゃんか

**デフォルトの名無しさん** · 2025/07/08(火) 17:42:58.67

>>389
その論理だとChromeとChrome OSも比較できないことになるが？
同じモデル使ってても実装・UI・機能が違えば体験は全然違うぞ

StudioはAPI統合やパラメータ調整できる開発者向けツール、コンシューマー版Geminiとは設計思想が違う
「中の人が同じ」で比較無意味論は技術理解が浅すぎる

387の解答品質指摘は妥当な比較対象だし、実際のユーザー体験差を無視してる時点で的外れ

とAI様が仰せになっている

**デフォルトの名無しさん** · 2025/07/08(火) 18:21:34.45

>>385
どうやらCopilotさんは間違って記憶している模様

> Workbooks.OpenのFormat 6 はカンマ区切りですか？
はい、Excel VBAで使用される Workbooks.Open メソッドの Format:=6 は「カンマ区切り (CSV) 形式」を示します。
これは、テキストファイルを開くときに、フィールド区切り文字としてカンマが使われている場合に指定されます。

> CSVは2じゃないの？
まず結論から言うと：
Format:=2 → タブ区切り（Tab-delimited）
Format:=6 → カンマ区切り（Comma-delimited）
つまり、CSV形式のファイル（カンマ区切り）を読み込むには Format:=6 を使うのが正解です。

w

**デフォルトの名無しさん** · 2025/07/08(火) 18:33:40.30

うちでは2って教えてくれた

**デフォルトの名無しさん** · 2025/07/09(水) 08:08:49.40

つまり、開発環境てことだろ？　その中のAI部分を担当してるのはGeminiという認識なんだが？
そのGeminiを使ってAI開発に特化した環境を整えてみましたが、何か？　っつーのがStudioなのでは？
じゃあ、コンシューマー向けGeminiとStudioの中の人と成り果ててるGeminiと有料版Studioの中の人は
ぜんぶ別人が担当してンのか？
それぞれ精度にランク付けしてて、コンシューマー向けにはBマイナス程度でいいや
StudioならAな　その有料版ならA++とかAAAとかでお答えして差し上げろ　とか差別化してるん？
Ver違いってならまだ判る　無料なら2.0でいいよ Studioは2.5にしとくか有料版は3.0β版な
Copilotを多用してる奴に向かってgoogle ai studio(←ぜんぶ小文字なのが何とも)のが優れてる！
っつーお門違いのコンコンチキな放言は許容できるのか？
おなじGemini同士で比較して見せるとかならまだしも
まあ、おれにはどうでもいいんだけど、ブレインストーミングがてらにしたためてみました

**デフォルトの名無しさん** · 2025/07/09(水) 08:48:44.88

スレ違いの長文とか救えない

**デフォルトの名無しさん** · 2025/07/09(水) 09:32:08.40

391
x 間違って記憶している
o 過學習でアホになった

**デフォルトの名無しさん** · 2025/07/09(水) 10:08:19.13

LLMで過学習…？

**デフォルトの名無しさん** · 2025/07/09(水) 10:36:50.67

391
x 間違って記憶している
o 円形脱毛症でハゲになった

**デフォルトの名無しさん** · 2025/07/14(月) 13:04:26.89

https://forest.watch.impress.co.jp/docs/news/2030817.html
「JScript」に代わり「JScript9Legacy」が既定のスクリプトエンジンに～Windows 11 24H2以降で

**デフォルトの名無しさん** · 2025/07/15(火) 10:46:15.47

Windows11の24H2にしたらJScriptが動かない
https://blog.macorin.net/dos-not-work-jscript-on-windows11-24h2/

**デフォルトの名無しさん** · 2025/07/15(火) 11:19:52.18

毎日夜中の定刻に、気象庁Webサイトの2つのページからcsv落として月次集計する、
マクロとPowerQuery使った2×2の4つのブックを
VBS（例：以下）とタスクスケジューラーを使ってやらせてるんだけど、
いい加減、VBS部分を乗り換えるとしたら、
何がとっつきやすいのかな？
PowerShell？
PowerAutomate？
Python？

---例：DLブックを実行させるVBS---
Const WB_PATH = "E:\集計\01_DLファイル\DLブック_地点A.xlsm"
Const PROC_NAME = "DL_Ref"
Dim excelApp
Set excelApp = CreateObject("Excel.Application")
With excelApp
.Visible = False
Dim wb
Set wb = .Workbooks.Open(WB_PATH)
.Run wb.Name & "!" & PROC_NAME
.DisplayAlerts = False
wb.Close
End With
excelApp.Quit

**デフォルトの名無しさん** · 2025/07/15(火) 11:31:18.20

>>400
**PowerShell**がおすすめです。

理由：

- VBSに最も近い書き方
- Excelの操作がそのまま使える
- Windowsに標準搭載
- 学習コストが低い

移行例：

```powershell
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$wb = $excel.Workbooks.Open("E:\集計\01_DLファイル\DLブック_地点A.xlsm")
$excel.Run("DL_Ref")
$wb.Close()
$excel.Quit()
```

PythonやPower Automateは学習コストか制約があるので、PowerShellが無難です。

**デフォルトの名無しさん** · 2025/07/15(火) 11:33:01.33

vbsに近いならjsだろう

**デフォルトの名無しさん** · 2025/07/15(火) 11:52:00.35

PowerShellは遅くてびっくりするのと
COM(IDispatch)経由の操作なので基本的に書き方はvba/vbsを踏襲する
普通に使うと割とつまらない

**デフォルトの名無しさん** · 2025/07/15(火) 11:53:44.70

>>400
スレ違い

**デフォルトの名無しさん** · 2025/07/15(火) 13:45:04.50

>>401,403
ありがとう。やってみる。