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/04/08(土) 16:05:06.51

教えて下さい

m1 MacBook Air でvbaやってるんですが

dim wdapp as word.application
set wdapp = new word.application ←
矢印の部分でオートメーションエラーが出るんですが
原因として何が考えられるでしょうか？

wordの参照設定はしてあります

**デフォルトの名無しさん** · 2023/04/08(土) 16:12:27.46

>>384
新規プロジェクトでその2行だけのコードを動かしたらどうなる？

**デフォルトの名無しさん** · 2023/04/08(土) 16:27:58.20

Set wdApp = CreateObject("Word.Application")
or
Set wdApp = GetObject(,"Word.Application")　

do not work either.

**デフォルトの名無しさん** · 2023/04/08(土) 16:33:45.44

>>385

wordアプリケーションが開いた後
同じくオートメーションエラーが出ました

エラーコードでググったらodbc32ビットと64ビット
がうんちゃらかんちゃらと出てきてit弱者の自分には
よくわかりませんがもう少し調べてみます

エラーコードは-2147467259(80004005)です

**デフォルトの名無しさん** · 2023/04/08(土) 16:41:33.24

>>383 なぜかcancel行はエラーが出るけど
カーソル移動で次々値がコピーされるようになりました
かなり思ってたのと近い事ができるようになったのでどうもありがとうございます

**デフォルトの名無しさん** · 2023/04/08(土) 18:02:10.35

>>384
「教えて」「助けて」系の例の法則と思ったけど、
これは違うみたいね

インテル系Macでもダメだった
Wordは立ち上がるのだがオートメーションエラーで止まる

**デフォルトの名無しさん** · 2023/04/08(土) 20:05:01.26

>>384
Windowsだとエラーは出ないんで俺にはわからん

**デフォルトの名無しさん** · 2023/04/08(土) 21:34:53.96

0x80004005エラーは要因が沢山あって詳細を書いてくれないと絞れないんだよ
システムにWordプロセスが残っている場合
異なるアーキテクチャを呼び出している場合
32bitのodbcと連携してて64bit環境で実行してる場合等
Officeのバージョンとか判ってる情報を全部載せてくれ

**デフォルトの名無しさん** · 2023/04/08(土) 22:32:42.99

>>391
馬鹿はコメントするな

**デフォルトの名無しさん** · 2023/04/08(土) 22:34:09.73

みんなありがとう
明日アッポーのサポートが助けてくれるらしい
多分解決すると思う

**デフォルトの名無しさん** · 2023/04/08(土) 23:36:44.53

土日祝関係なくMS製品の尻拭いまでやってくれるなんて優秀だけどなんか泣けるよね

**デフォルトの名無しさん** · 2023/04/08(土) 23:45:41.57

>>394
いやappleのバグの可能性もある

**デフォルトの名無しさん** · 2023/04/09(日) 04:11:37.57

>>391
知らないくせに出しゃばる馬鹿

**デフォルトの名無しさん** · 2023/04/09(日) 11:09:50.22

with ステートメントは指定したオブジェクトに対して一連の操作を行うものだから
例えていうとアクティブオブジェクトに対してのみオブジェクト名を省略して行う事ができるという事でしょうか？

**デフォルトの名無しさん** · 2023/04/09(日) 12:44:51.59

実際にコード書いてみればわかるような事を質問するやつってこの手の作業に向いてないと思うんだよね
それに書いて動かしてこうなったんですが？（実際にコードつける）なら回答する側も具体的に回答してくれると思うんだが

**デフォルトの名無しさん** · 2023/04/09(日) 15:23:49.51

最近VBAもedge任せだわ
たまに違うってのもあるけど楽で仕方ない
このコードの共通する部分を関数にしてとか
イエス・ノーできるポップアップ作ってとか（これはいちいち覚えていないので）

**デフォルトの名無しさん** · 2023/04/09(日) 18:19:04.23

>>397
自分用語に例える意味がわからない
コードを書くときにwithで指定したオブジェクトの記述を省略できる
内部的にはオブジェクトへの参照回数が減るのでスピードアップする
そんだけ

**デフォルトの名無しさん** · 2023/04/09(日) 22:24:57.39

>>399
・コード全部投げてリファクタリングして
・人のコード全部投げてコメントつけて
めちゃくちゃ楽だよな
今までのアホみたいな作業はほぼなくなったわ

**デフォルトの名無しさん** · 2023/04/09(日) 22:41:51.31

>>401
edgeにAIがあってコードを勝手に考えてくれるのですか？

**デフォルトの名無しさん** · 2023/04/10(月) 03:34:03.61

Ruby,Python, 今度は Edge もNG追加だな

**デフォルトの名無しさん** · 2023/04/10(月) 12:35:10.06

了解
春になると意味不明な書き込みばかりよね

**デフォルトの名無しさん** · 2023/04/10(月) 17:13:47.76

>>403
>>404
情弱+思考停止で草

**デフォルトの名無しさん** · 2023/04/10(月) 17:30:51.74

Edgeさんは短いコード貼るとどういう動作するコードなのか教えてくれるし
やっぱり可能性を感じる

**デフォルトの名無しさん** · 2023/04/10(月) 18:09:43.78

>>405
すれ違いの書き込みを誘導するのって宣伝か荒らしだろ
糞して寝ろ

**デフォルトの名無しさん** · 2023/04/10(月) 18:38:40.13

春だなぁ

**デフォルトの名無しさん** · 2023/04/10(月) 19:38:37.33

>>402
edgeというかbingな。あれは無料でやや精度が悪い
俺は有料でchatGPT4

ほとんど口語でテキトーに指示出しても良い
下手な新入社員の1兆倍使える

https://i.imgur.com/UxjOSS8.png
https://i.imgur.com/5pPwWWD.png

**デフォルトの名無しさん** · 2023/04/10(月) 19:49:20.11

>>407
キモい

**デフォルトの名無しさん** · 2023/04/10(月) 20:03:19.84

金払ってこんなことさせてんのか？おいたわしい

**デフォルトの名無しさん** · 2023/04/10(月) 21:56:37.82

>>411
VBAしか出来ない保守的なお年寄りの多さが良くわかるな
まぁ頑張って自力で全部書いてくれ

**デフォルトの名無しさん** · 2023/04/10(月) 22:52:59.23

>>411
まぁ、頑張って君は一生懸命コードを書いてくれたまえ
そのうち総務のおばはんが「これ間違っちゃったから別のコード書いて（笑）」ってアホみたいな入力でvba自動生成しますんで

**デフォルトの名無しさん** · 2023/04/10(月) 22:54:57.04

vbaしか使えない連中はマジでweb系覚えないと詰むぞ
saasだのなんだのシステムどんどん覚えてもいい

お勧めはGASのwebアプリケーション。あれは本当に強い。当分残る

**デフォルトの名無しさん** · 2023/04/10(月) 23:52:37.09

そういうのはそっちのスレでやれば良かろう
スレタイ読めないのかね

**デフォルトの名無しさん** · 2023/04/10(月) 23:52:42.60

ChatGPTの日本法人社長は中国人でしたとさ

**デフォルトの名無しさん** · 2023/04/10(月) 23:56:32.42

そもそもVBAスレにVBAしか使えない人がいても問題なくね？
俺は他言語の話は別のスレで書いてるから

**デフォルトの名無しさん** · 2023/04/11(火) 01:09:55.16

>>415
スレ違いって笑

**デフォルトの名無しさん** · 2023/04/11(火) 01:36:18.11

違うでしょ？VBAしか使えないんじゃなくて、Excelしか使えないんでしょ？
VBAだけでExcelの全てを動かしてる奴なんて今時はいないはず。

**デフォルトの名無しさん** · 2023/04/11(火) 02:39:51.89

EXCELしか使えない初心者がVBAの質問するのはありだろ

**デフォルトの名無しさん** · 2023/04/11(火) 07:39:15.30

>>414
そう言われつつもずーっとEXCEL VBAは消えていないんだよなぁ
むしろ手軽に組めてその気になれば事務のおばちゃんでも組めるくらいだから
Web系の知識が要らないこともある意味利点と言える。

もちろん、プログラマーとしてやってくならWeb系の知識があったに越したことはないけど
そうなったらフロントサイドではJava Script、サーバーサイドではC#とか全然別の言語使うから
ここで話していてもきりがなくなるよなぁ。

**デフォルトの名無しさん** · 2023/04/11(火) 10:12:28.00

>>409
DateSerialは存在しない日付を入れてもエラーにならず、
意図しない日付を返す可能性があるのでその辺を考慮しとかないといけないが、
このコードにはそのチェックが入ってないので正常値でのテストしかしてないとそのリスクに気づけない

将来的にはコード自体に改良が入るか、コードの説明時に補足が入ってくるんだろうが、
現状としてはそれなりにコードが読める人以外が使うとトラブりそう

**デフォルトの名無しさん** · 2023/04/11(火) 13:54:14.11

jsみたいに0日で末日になる方が楽でいい

**デフォルトの名無しさん** · 2023/04/11(火) 20:30:28.66

VBA消える消える詐欺
10年前も20年前も同じこと聞いた
10年後も20年後も同じこと言ってそう

**デフォルトの名無しさん** · 2023/04/11(火) 20:44:05.73

comオバケのExcelをまるごと作り直す気がないとVBAでいいよねとなる
web版は頑張っているけど所詮はブラウザゲー

**デフォルトの名無しさん** · 2023/04/11(火) 21:06:30.08

Excel の Office スクリプト
https://learn.microsoft.com/ja-jp/office/dev/scripts/overview/excel

Office スクリプトと VBA マクロの違い
https://learn.microsoft.com/ja-jp/office/dev/scripts/resources/vba-differences

**デフォルトの名無しさん** · 2023/04/11(火) 21:20:40.58

「A<Bの時、Bを赤文字にする」という条件付き書式設定を列ごとに行うのはVBAでしか出来ませんか？
「A1<B1」の条件をコピーしても行番号が自動更新する方法が見つからず質問しました。

**デフォルトの名無しさん** · 2023/04/11(火) 21:22:38.94

>>427
1つずつ手入力すればVBAは不要

**デフォルトの名無しさん** · 2023/04/11(火) 21:27:12.89

最初条件付き書式に仕様がよくわからず戸惑ってたの思い出した

**デフォルトの名無しさん** · 2023/04/12(水) 01:41:59.54

>>424
それを踏まえてExcel無くなる詐欺もちらほら。

**デフォルトの名無しさん** · 2023/04/12(水) 02:55:21.49

無くなる理由でMSからもっといいのでたとか
社内でExcelの使用禁止とかなったら
なくなるかもしれんが……ないだろうね

**デフォルトの名無しさん** · 2023/04/12(水) 09:43:30.66

>427
まず最初に条件付き書式で赤文字にしたい範囲（例えばB1：B200）を選択
[条件付き書式]-[新しいルール]　→数式を使用して、、、、を選択し、次の数式を、、の枠内に
=$B1>$A1 その下の[書式]でフォント色を赤

**デフォルトの名無しさん** · 2023/04/13(木) 07:03:06.49

ChatGPT搭載されようとしてんのになくなるわけねえだろｗ

**デフォルトの名無しさん** · 2023/04/13(木) 08:16:58.94

MSじきじきに調教したchatGPTとVbaのコラボ…
すごいイルカが誕生しそうだなw

**デフォルトの名無しさん** · 2023/04/13(木) 11:00:17.46

サエコ先生を忘れないで！

**デフォルトの名無しさん** · 2023/04/13(木) 14:09:40.36

>>433
ChatGPTって断定するような言い方で出力するけど
内容はそのままでは使えない出鱈目だよ
有料なら使えるのかも知らんが

**デフォルトの名無しさん** · 2023/04/13(木) 14:57:39.54

このスレよりは役に立つだろ

**デフォルトの名無しさん** · 2023/04/13(木) 15:07:49.69

人に聞かないと何もできない頭の弱い人にはそうかもな

**デフォルトの名無しさん** · 2023/04/13(木) 16:01:23.94

ChatGPTも判断根拠とか出典を明示してくれれば使い物になるんだけどなぁ。

一次ソースを確認できない情報は信用できない。

**デフォルトの名無しさん** · 2023/04/13(木) 18:03:35.32

まず上級者はchatgpt等のツールは使わない。
だって上級者はさらに良いコードを書けるから。

**デフォルトの名無しさん** · 2023/04/13(木) 22:42:27.72

エクセルのチェックボックスにチェック入れたら、特定のセルに文字を入力する方法を教えてください
↓みたいにチェック入れたり外したりしたら、セルA1に入る文字を変えたいです
https://jsfiddle.net/9h6Lfju7/

あと、できればVBA使わずに実現したいんですけど方法はありますか？

**デフォルトの名無しさん** · 2023/04/13(木) 22:45:59.87

>>440
使う。
使った方が確実に早い

使用頻度に低いコードもノータイムで書いてくれる

**デフォルトの名無しさん** · 2023/04/13(木) 22:47:20.02

>>441
Excelのチェックボックスにチェックを入れたら、特定のセルに文字を入力する方法は、次の手順に従って実現できます。

チェックボックスを挿入する："開発"タブ -> "コントロール"グループ -> "挿入" -> "チェックボックス"を選択して、ワークシート上にチェックボックスを挿入します。
チェックボックスにリンクするセルを設定する：チェックボックスを右クリックし、「コントロールの書式設定」を選択します。ダイアログボックスで「コントロール」タブを選択し、「リンク先セル」の欄に、チェックボックスに対応するセルのアドレスを入力します。
IF関数を使って、チェックボックスがチェックされた場合にセルに文字を入力する式を作成する：例えば、チェックボックスがA1にリンクされている場合、次のような式をセルに入力します。
graphql
Copy code
=IF(A1=TRUE, "チェックされました", "")
上記の式では、A1がTRUE(チェックが入っている)の場合、「チェックされました」という文字列をセルに入力します。A1がFALSE(チェックが外れている)の場合は、空白をセルに入力します。
4. チェックボックスにチェックを入れたり外したりして、セルに文字が入力されることを確認する。

以上の手順で、VBAを使わずにチェックボックスにチェックを入れたら、特定のセルに文字を入力することができます。

**デフォルトの名無しさん** · 2023/04/13(木) 23:21:52.07

ChatGPTの内部構造をよく知らんで振り回されてるやつが多いけど、質問文を文節に分解して、それぞれでぐぐってコピペしてまとめるっていう単純作業を自動化してるだけだぞ
論文をちゃんと読めば書いてあるし、開発サイドでは誰も人口知能だなんて言ってない

だから検索しても出てこない情報は含まれないし、スコアに従って切り貼りしてるだけだから文章でもコードでも前半と後半がちぐはぐな回答が出てくることがある
それをわかった上で利用すれば、退屈な作業を確実に効率化できるんだけどね

**デフォルトの名無しさん** · 2023/04/13(木) 23:26:38.72

>>444
＞検索しても出てこない情報は含まれない
人名は割と容赦なく嘘が出てくるぞ
本名で聞いてみたら1970年生まれのプロレスラー＋転職してアニメーターになったわ
もちろんそんな人物は実在しない

**デフォルトの名無しさん** · 2023/04/13(木) 23:45:01.79

確かにchatgptは早いけど、VBA上級者のような丁寧かつ分かりやすく書けるスキルには及ばないでしょ。

**デフォルトの名無しさん** · 2023/04/13(木) 23:50:31.64

>>445
Googleでもネット上に存在しないはずの人名とか単語で検索すると無関係な情報を適当に出してくる
そういう関連性の低い検索結果でもChatGPTは容赦なくコピペする仕組みになってる

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

>>446
書けるよ
コメント大量に入れてって言えば入れてくれるし
可能な限りまとめてもらったり、冗長でもいいから分かりやすく書いてって言ったらその通り出力してくれる

あとは知らなかった関数なんかも書いてくれる事がある
上級者でも答え合わせ的な意味で使った方がいい
絶対に腕があがる

**デフォルトの名無しさん** · 2023/04/14(金) 00:59:19.74

進化が恐ろしく速くなるからとにかく否定から入る硬直した頭ではダメな気がする
漠然とw

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

否定から入るのは大抵はジジババ老害でしょ？

**デフォルトの名無しさん** · 2023/04/14(金) 06:17:31.63

5chはジジババ老害の巣窟ですよ。
子供は他所で遊んだ方が良いですよ。

**デフォルトの名無しさん** · 2023/04/14(金) 12:05:37.18

>>450
それ、否定から入ってるよ

**デフォルトの名無しさん** · 2023/04/14(金) 12:35:16.38

>>452
どうみても疑問文だぞ

**デフォルトの名無しさん** · 2023/04/14(金) 13:04:36.38

VBAはジジババ老害しか使わないからね

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

このスレはジジババ専用

**デフォルトの名無しさん** · 2023/04/14(金) 16:06:06.70

若いのはVBAやらなくなったのか？

**デフォルトの名無しさん** · 2023/04/14(金) 17:09:14.68

他人にやらせるのがコミュ力と思い込んだからそれ以外もやらないだろ。

**デフォルトの名無しさん** · 2023/04/14(金) 18:09:42.10

>>443
こんな簡単な質問で重大な間違いをしてるのに気付けるのは人だけか？　間違いを指摘するAIが必要じゃないのか？
A1にはその数式を入れるのだから、チェックボックスのリンク先はA1以外にしなきゃダメだろ

**デフォルトの名無しさん** · 2023/04/14(金) 18:16:29.82

>>458
多分理解できてないのは貴方だけ

**デフォルトの名無しさん** · 2023/04/14(金) 18:36:06.83

>>456
若さって何だ？

**デフォルトの名無しさん** · 2023/04/14(金) 18:38:36.70

振り向かないことさ

**デフォルトの名無しさん** · 2023/04/14(金) 18:40:04.49

振り向かないことさ

**デフォルトの名無しさん** · 2023/04/14(金) 18:40:49.67

愛って何だ？

**デフォルトの名無しさん** · 2023/04/14(金) 18:53:17.20

MaわレMEら輪な居こと (ﾟДﾟ)ｻｧ?

**デフォルトの名無しさん** · 2023/04/14(金) 19:26:22.99

つまり年齢などただの数字だと

**デフォルトの名無しさん** · 2023/04/14(金) 19:34:04.53

悲しいけど歳を重ねるほど才能にあふれた者と差は開いていく

**デフォルトの名無しさん** · 2023/04/14(金) 19:36:27.91

VBA哲学スレ

**デフォルトの名無しさん** · 2023/04/14(金) 20:01:52.35

>>459
質問者が「セルA1に入る文字を変えたい」と訊ねてる回答としては致命的と云ってる
こんなシンプルな質問だからすぐに間違いに気付けると思うが、より複雑な質問なら
当該セルやテーブルや名前付け範囲やらの対象を雑に扱ってたら、質問者が混乱に陥る
得意げに貼り付ける奴が間違いに気付くでも無くキチンと修正するでも無くたれ流しなのも呆れるしかない

**441** · 2023/04/14(金) 20:28:34.40

>>468
他に方法あるんですか？

**デフォルトの名無しさん** · 2023/04/14(金) 20:31:21.28

ていうか、AIの話になるんだったらA1以外のセルにしておいたらよかったですね

**デフォルトの名無しさん** · 2023/04/14(金) 20:31:31.59

>>468
最後の一文は全く同意だ
ChatGPTでの質問は質問者本人でもできる
それを代わりにやって得意げに間違えたままの回答を貼る
AI未満のことしかできないんだもんな

**デフォルトの名無しさん** · 2023/04/14(金) 20:37:10.45

A1の値(文字)がチェックボックスの状態によってTRUEとFALSEに変わる
A1の値をIF関数で判定するだけの処理なのでVBAを使うような内容ではないな

**デフォルトの名無しさん** · 2023/04/14(金) 20:38:10.01

だけどここはVBAスレ

**デフォルトの名無しさん** · 2023/04/14(金) 20:45:24.57

Excelはスレ違い

**デフォルトの名無しさん** · 2023/04/14(金) 21:04:16.77

フォームコントロール(チェックボックス)とExcel関数(IF関数)
https://i.imgur.com/RK5Jbt1.png

**デフォルトの名無しさん** · 2023/04/15(土) 15:18:17.56

ChatGPT使ったらどんなサイトよりもわかりやすいプログラムを一瞬で作ってくれる

**デフォルトの名無しさん** · 2023/04/15(土) 16:02:24.33

宣伝を鵜呑みにする情弱老害

**デフォルトの名無しさん** · 2023/04/15(土) 16:19:50.18

ChatGPTは単純で短いコードしか書けない
ちょっと長くなると動かないどころかコンパイルすらできなくなる

**デフォルトの名無しさん** · 2023/04/15(土) 16:52:23.65

>>476
スレ主の例の零細企業の馬鹿か

**441** · 2023/04/15(土) 17:31:15.11

おわります、ありがとうございました

**デフォルトの名無しさん** · 2023/04/15(土) 17:40:05.15

そもそもchatGPTはプログラム向けじゃないぞ
codex系譜のcopilotが最強
あれは関数名書くだけで内部処理全部書いてくれる

**デフォルトの名無しさん** · 2023/04/15(土) 18:00:19.46

楽しみだな。ベテランにはベテランなりの使い方するんだろうな

**デフォルトの名無しさん** · 2023/04/15(土) 22:19:52.03

GetOpenFilenameで複数画像のファイル選択は出来る？