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

**348** · 2023/03/24(金) 12:31:11.37

>>357
今後マクロを読む引き継ぎ先に向けてのシートだろ？
マクロ内での定数宣言で問題ないのに
わざわざシートから参照する方式で難解にする意味が分からん

百歩譲ってそこを許すとしても
一覧表シートの指定はLSheet関数じゃなくて
SPath、SName内でWorksheets(シート名定数)だろ

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

変数を日本語（漢字）で宣言してるわ…
いけないのはわかってるけどメンテナンスする時に楽だから…
Dim 列 As Range
Dim 行 As Range

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

>>359
ちょっと待て
列や行をの型がRange？
どういう状況なんだ？

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

>>360
表かなんかの取得で列や行の一部しか入れないんでねーの
行 = Range(A1:C1)みたいな

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

>>358
値の取得は Range("設定!名前")
ファイル名やら出力先シート名とかね
ダイアログの代わりみたいなもんか

**デフォルトの名無しさん** · 2023/03/24(金) 13:36:50.23

なるほど
したっけ変数名は「行取得セル」とかにした方がいいだろな

**348** · 2023/03/24(金) 14:11:44.49

>>362
結局なんでマクロ上に定数で書くんじゃなくシートから持ってきてるんだよ

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

>>363
北海道民か

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

>>364
設定ダイアログの代わりにワークシートを使っています。

これでいい？

**デフォルトの名無しさん** · 2023/03/24(金) 16:49:43.95

>>366
なら、セルひとつで済むんじゃないの？
対象セルに入力規制掛けてリスト化してしまえば。

**デフォルトの名無しさん** · 2023/03/24(金) 17:41:36.37

>>367
そうだね
ほとんどは1つのセルにそれぞれ名前を付けてるね

まあオレがそうしてるだけでゴリ押ししてるわけじゃないからな
無駄だ！と言われればそうですねとしか答えられない

**デフォルトの名無しさん** · 2023/03/27(月) 19:44:14.62

そうですねと答えられたら「そうですか？」と聞き返すしかない

**デフォルトの名無しさん** · 2023/03/27(月) 21:10:49.67

問題は名前（文字列）でシートを識別する方式にある
プロパティのところでクラス名やモジュール名みたいにワークシートのオブジェクト名を自由に編集できる
これはシートに付与した名前とは別物で、シート名がどう変わろうと常にそのシートを示す
with worksheet("hoge")
ではなく、オブジェクト名で
with HogeSheet
のように記述できるようになる
名前がHageに変えられたり毛髪に問題が起きても常にHogeSheetにアクセスできる

**デフォルトの名無しさん** · 2023/03/27(月) 21:14:34.52

あなたの日本語難しいネ！

**デフォルトの名無しさん** · 2023/03/27(月) 22:12:35.66

左にあるのから123って指定できたやろ名前関係なく

**デフォルトの名無しさん** · 2023/04/06(木) 23:56:50.44

マクロで記録して
　　　　　　　　　　　再生すると　　　　　　　　　　　何だよ
　　　　　　　　　　　　　　　　　　エラーになるのは　　　　図形に多い

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

記録したコード見て直せ

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

マクロだけのファイルでもデバッグ効くんだっけ？
デバッグはスルーするけど実行時にエラー起こすんなら原因は別か
「何だよ」書かれても状況書かないなら単なる愚痴ボヤキ

**デフォルトの名無しさん** · 2023/04/08(土) 11:49:01.95

VBAで別のブックを開いて（或いは別のブックから）何か操作をしてそのブックを閉じるという操作をする時に
必ずdimやsetでオブジェクトやパスを格納しなければならないという事はないでしょうか？

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

ボタンが貼ってあるセルを選択･値をクリップボードへコピーするコードはどう書けばいいでしょうか？
Bingチャットさんの作ってくれたコードはどれもうまく動きませんでした

**デフォルトの名無しさん** · 2023/04/08(土) 13:09:03.48

>>377
bingチャットさんのコードはどんなの？

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

>>376
無いよ

**デフォルトの名無しさん** · 2023/04/08(土) 13:29:49.15

ボタンが貼ってあるセル　←そんなものは無い　
両者は別物だし、セルを覆い隠すようにボタンが貼られてたとして、そのセルに何の値があるというのか
矢印キーで移動してそのセルを選択した時に、数式バーに数式とかが表示されるならその値だし
名前ボックスにセル位置以外のものが表示されたら、その名前を調べればいいし

マクロの記録で、そのセルをコピー　だけでコード書かれるけど
Sub Macro1()
Range("A1").Select
Selection.Copy
End Sub　　　　　こんなもの書いてどうしたいんだか　Winキー + V　でクリップボードの中身も見れるけどどうしたいんだか

**デフォルトの名無しさん** · 2023/04/08(土) 14:35:09.85

Sub CopyButtonCell()
ActiveSheet.Buttons(Application.Caller).Select
　　Selection.Copy
End Sub
>>377 みたいな感じです

>>380 エクセルのシートから他アプリへたくさん値コピーしなければならないような時
Ctrl+cよりワンクリックでやりたいから汎用のボタンができないかと思ってたんですが
構造的にムリならいいです

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

ちょっとやってみるか

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

と思ったけど
＞エクセルのシートから他アプリへたくさん値コピーしなければならないような時
＞Ctrl+cよりワンクリックでやりたいから汎用のボタンができないかと思ってたんですが
これエクセルvbaじゃなくキーボードマクロですわ

どうしてもやりたいならボタンじゃなくてセルの変更やダブルクリックでコピーでいいだろう

Private Sub Worksheet_BeforeClick(ByVal Target As Range, Cancel As Boolean)

With Target
Cells(Target.Row, Target.Column).Copy
Cancel = True
End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
Cells(Target.Row, Target.Column).Copy
Cancel = True
End With

End Sub

**デフォルトの名無しさん** · 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以外にしなきゃダメだろ