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/05/22(月) 19:23:18.88

いや、いちいち何でマウント取ろうとするのか…年収低いのかな

**デフォルトの名無しさん** · 2023/05/22(月) 19:56:20.06

Then の後に記述する量が余計でしょ？　IF分岐させる意味無いでしょ？
ま、あれこれ試して失敗したり成功したりしながらウデを磨けばいいんだろうけど

**デフォルトの名無しさん** · 2023/05/22(月) 20:00:51.23

>>864
本当にありがとうございます

**デフォルトの名無しさん** · 2023/05/22(月) 21:24:15.99

すぐマウンティングする人って、年収低いからその他の要素で勝ち誇る傾向あるらしいね。

**デフォルトの名無しさん** · 2023/05/22(月) 21:29:35.14

>>864
bung ai君にも　ifとthenが必要です
と怒られました

**デフォルトの名無しさん** · 2023/05/22(月) 22:19:23.91

まああれだ　美容院へ行って、頼んだ(つもりの)髪型と、仕上げた(つもりの)髪型が、まるで別物みたいなもンだ
ちがうか　何がしたいんだかとっ散らかって来てる様子だな
>>825 のリンク先のコードで目的は果たしたんじゃ無いのか？それのシェイプアップに勤しんでるのか？
Cellの背景色を操作するには、Rangeオブジェクト配下のInteriorオブジェクトをいぢる必要があるのに、
CellのValueを持ち出して来てるのは bung ai (バング？)の指図か？　bug ai に改名した方がいいな

広く世界に回答を求めると、ごまんと「もう食えねえ」ってぐらい返答があるかも知れないけど、そのうちで
どれが美味いものかは、本人しか決められねえ　近頃は bung ai のスレもあるだろうし、今後はソッチで堪能した方がいいような

**デフォルトの名無しさん** · 2023/05/22(月) 23:44:38.04

仕事は確実にできないといけない
できもしない仕事は引き受けてはいけない
という話はそっくりそのままAIにも当てはまるからAIは仕事ができない無能だと思うよ

**デフォルトの名無しさん** · 2023/05/23(火) 01:19:58.26

AIの仕様は誰かが決めたのかね
確実な答えを責任持って返すとか、そんな仕様どこで決められたんやろ

**デフォルトの名無しさん** · 2023/05/23(火) 01:24:30.48

ChatGPTは本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール

**デフォルトの名無しさん** · 2023/05/23(火) 01:59:10.03

vbaでの処理のさせかた、ひらめきが大事なんよ
センスない奴はコードの書き方以前にその発想が弱い
要するに仕事が出来ない
短く書く、無駄なく書くことが目的になって年収が低い

**デフォルトの名無しさん** · 2023/05/23(火) 02:10:53.64

どんなにいい道具でも使う人間がアホだと問題が起きる

**デフォルトの名無しさん** · 2023/05/23(火) 02:33:58.28

Google検索もウィキペディアも本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール

**デフォルトの名無しさん** · 2023/05/23(火) 02:34:15.26

新聞もテレビも本当なのか間違っているのか判断できない連中が無条件に信じてありがたがるツール

**デフォルトの名無しさん** · 2023/05/23(火) 07:03:01.44

自分が一番信じられないし

**デフォルトの名無しさん** · 2023/05/23(火) 08:27:02.94

任された仕事、受けた仕事ができないのは失格だー
というのならAIだって不正格なのだから失格ですね

**デフォルトの名無しさん** · 2023/05/23(火) 08:39:19.88

AIへの嫉妬が凄まじいなw

**デフォルトの名無しさん** · 2023/05/23(火) 08:58:47.24

>>877
仕事できなかったら給料もらえんだろ

**デフォルトの名無しさん** · 2023/05/23(火) 08:58:47.58

君は完璧で究極の人工知能

**デフォルトの名無しさん** · 2023/05/23(火) 09:04:21.95

結果から言うと、こんだけ話題になって活用されて金も集まってるんだろうからかなり有能だなw

**デフォルトの名無しさん** · 2023/05/23(火) 10:54:52.74

昨年はまではchatgptなんて話題無かったもんな。

**デフォルトの名無しさん** · 2023/05/23(火) 12:37:59.39

Excelって凄い有能だよね

**デフォルトの名無しさん** · 2023/05/23(火) 16:07:55.58

だから世界中で売れとる

**デフォルトの名無しさん** · 2023/05/23(火) 16:13:25.70

ツールはどちらも有用

**デフォルトの名無しさん** · 2023/05/23(火) 18:19:29.54

道具なんて使う人次第
包丁だって人を殺せるし、Excelも使い方を間違えれば生産性を落として会社を殺す

**デフォルトの名無しさん** · 2023/05/23(火) 20:00:04.71

あまりExcelをヨイショすると、またGoogleスプレッドシート厨が暴れだすからうざったい。

**デフォルトの名無しさん** · 2023/05/23(火) 21:12:44.25

GSSは所詮真似ソフトだから比較にならん

**デフォルトの名無しさん** · 2023/05/23(火) 22:14:41.12

>>876
w　嫌いじゃ無いw

**デフォルトの名無しさん** · 2023/05/24(水) 08:34:36.23

半年くらいだったら自分の書いたコードの意味が一発ではわからない。
チャット GPT にリファクタリングをたのめるのだろうか

**デフォルトの名無しさん** · 2023/05/24(水) 09:44:03.20

書けるけど読めないは最悪で将来役立たず認定されるから早めに現状から抜け出す手はずを整えたほうがいい

**デフォルトの名無しさん** · 2023/05/24(水) 10:33:00.51

>>891
おっしゃる通りなんだが、クセというのはなかなか治らないものだから自分だけで見ていても問題点がわからない。それでチャット GPT に見せれば厳しく指摘してくれるんじゃないかと。
もちろん全部鵜呑みにするわけじゃなくて、言ってみればアイディア出しのツールとして使えないかっていうことなんだけど。
どうかな？

**デフォルトの名無しさん** · 2023/05/24(水) 11:19:15.40

またへんなのでてきたw

**デフォルトの名無しさん** · 2023/05/24(水) 11:25:33.56

>>892
その指摘を理解できるのって話じゃない？
このスレはChatGPTに話を振るやつ多いけどそもそも自分の書いたコードにしろ他人が書いたコードにしろ読めない奴が
リファクタリング以前に何をしたいコードかわからないならどんな指摘もらってもそれが正しいものかわからないだろ？
その時にはどうするのって話理解できてる？

**デフォルトの名無しさん** · 2023/05/24(水) 11:51:37.14

>>894
半年経ったら一発で読めないだけで、何がやりたかったのか全体的なイメージは記憶に残っているし、時間をかければ各行の役割は理解できる。それを一発ですらすらわかるようなコードにリファクタリングできないかというだけの話

**デフォルトの名無しさん** · 2023/05/24(水) 11:58:12.96

ChatGPTに聞きまくって作りまくってるしコメントも残してあるからメンテも超楽
もうvbaは十分だからpythonを学ぶべ

**デフォルトの名無しさん** · 2023/05/24(水) 12:08:05.38

>>895
最初にそうやって書いておけばいいだけの話では

**デフォルトの名無しさん** · 2023/05/24(水) 12:57:02.51

性格わるいひとがおおいこと

**デフォルトの名無しさん** · 2023/05/24(水) 13:02:25.38

>>895
コード1行1行がわからないとかおかしくないか？書いてあることそのままだろ？
ブロック単位のコードが読めないならコメントなりでやってることを自分が読める言葉で書いておけばよくね

**デフォルトの名無しさん** · 2023/05/24(水) 14:25:50.78

Excelに長けてるやつなんて大抵は性悪だろ。

**デフォルトの名無しさん** · 2023/05/24(水) 17:46:17.42

オリジナルな変数名や関数名使ってる人は
自分の書いたコード読めなくなってそうな気がする

**デフォルトの名無しさん** · 2023/05/24(水) 19:17:06.63

他人が考えたコードをコピペするだけの奴の方が内容覚えてないだろう

**デフォルトの名無しさん** · 2023/05/24(水) 20:06:55.55

任された仕事が出来なかったら怒られるんだったら仕事をどんどん引き受けようとは思わない、スキル開発なんて出来るはずがないですよ

**デフォルトの名無しさん** · 2023/05/24(水) 20:10:33.59

>>903
馬鹿には無理なだけ

**デフォルトの名無しさん** · 2023/05/24(水) 20:23:24.53

情けないw　きんたま付いてンのか
ま、そういう連中が多ければ多いほど、それを乗り越えられる奴が人より伸びて出世して率いていける
それでも、昔と違って上役個人のその場その時の感情に任せた怒りは害悪だと広く知らしめられているご時世だから
怒られるってのは随分減ってる　注意されるのが嫌だと言うなら、それは自分でじぶんの成長を止めているという事
上司上長だって見込みの無い奴にいちいち注意とか指導とかしたくない　したところで変わらないと承知してる
注意されたり指導されたりしたら、見込まれてると信じて自分を成長させていく努力を重ねろ
そんなのは嫌だと言うのなら、そのままペーペーの下っ端の人生をまったりと送れ

**デフォルトの名無しさん** · 2023/05/24(水) 21:19:13.86

本当にChatGPTがそこまで有能ならば
VBAのプログラマーであるお前らはもう用済みだろうな
SEとChatGPTだけで開発出来ることになる

**デフォルトの名無しさん** · 2023/05/24(水) 21:19:58.19

ウィンドウ枠の固定の固定を行列両方でやる方法はありますか？
手作業でやった場合は
B7を選択し、表示 → ウィンドウ枠の固定 → → ウィンドウ枠の固定　の順でクリックすると十字線で固定になります。

これをVBAでやる方法を知りたいです。
' 起点となるセル（B7）を選択
Range("B7").Select

' 行と列を同時に固定
With ActiveWindow
.SplitColumn = 1
.SplitRow = 6
End With
ActiveWindow.FreezePanes = True
これだと上手くいきません。

**デフォルトの名無しさん** · 2023/05/24(水) 21:43:25.82

>>907
その真ん中は要る?

>>909
こういう書き方はどう?

　　　　Sub a()
　　If b Then
Cells(1, 1).Value = 1
　　Else
Cells(1, 1).Value = 2
　　End If
　　　　End Sub

**デフォルトの名無しさん** · 2023/05/24(水) 22:42:40.02

>>907
ThisWorkbook.Worksheets("Sheet1").Activate
Range("B7").Select
ActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = True

**デフォルトの名無しさん** · 2023/05/25(木) 00:15:01.22

>>906
つか最近はVBAの案件が激減りでしょ。
クラウドワークスやココナラにたまに案件出る程度。
しかもクソ以下な報酬だし。

**デフォルトの名無しさん** · 2023/05/25(木) 00:33:58.70

Microsoft365Copilotってどこまでできるようになるのかね？
VBAコーディングのアシスタントもしてくれるのかな？

**デフォルトの名無しさん** · 2023/05/25(木) 08:17:33.66

>>904
初めてやる事、勉強しないとわからない事をミスや間違いなくやれって言われても無理だなぁ

**デフォルトの名無しさん** · 2023/05/25(木) 08:42:09.76

職場内の指示ならサポートする人がいるでしょ
自分で取ってきた仕事ならそれをわかってて受ける奴がバカでしょ

**デフォルトの名無しさん** · 2023/05/25(木) 10:05:56.11

>>911
オープンソースのChatGPTでも、適切に質問すればちゃんと動く完全なVBAを書いてくれる
それ以下の性能になる可能性は低い

**デフォルトの名無しさん** · 2023/05/25(木) 10:25:12.16

いやむしろChatGPT並のaiを搭載出来ると思えん
毛の生えたイルカ

**デフォルトの名無しさん** · 2023/05/25(木) 10:38:34.50

今のAIなんて性能は横並びで、違いは学習データの多さだけ
言い換えれば回線の太さとハードディスクの容量で決まるようなもん
最初はポンコツでもMSの持つリソースを考えればChatGPTなんかすぐに追い抜くのは容易に想像できる

**デフォルトの名無しさん** · 2023/05/25(木) 11:45:58.08

昨年までchatgptなんて話題になかった。今年からだよね確か？

**デフォルトの名無しさん** · 2023/05/25(木) 12:30:54.27

chatgptにTTRPGのGMやらせたのは去年だった気がする。

**デフォルトの名無しさん** · 2023/05/25(木) 12:40:15.38

>>910
そうなのかな？
VBAのPGだけで飯食ってる訳じゃないから分からないけど
ChatGPTがそこまで有能だと言うのであれば
いずれはプログラマー全員が干されることになるだろうな

**デフォルトの名無しさん** · 2023/05/25(木) 12:43:50.88

>>919
そんなことを思うのは無能のレベルの低い人だぞ

**デフォルトの名無しさん** · 2023/05/25(木) 14:06:21.16

>>919
確かにchatGPTはコードを書けるけど
なんの責任も取らないchatGPTが書いたコードを
何も知らないままコピーで使うってのは流石にできないだろ

人間がそれなりにコードのこと知っている(=そのコードの責任を取る)からこそ
コピーが出来るんじゃないか？

**デフォルトの名無しさん** · 2023/05/25(木) 14:24:44.64

今のAIは、結果が正しいかどうか判断できないもんな
そこまでできるようになったら人間の仕事がいよいよなくなる

**デフォルトの名無しさん** · 2023/05/25(木) 15:33:05.20

chatgptに試しにコードを頼んだら、変なことやり出す時あるから恐ろしいわな。

**デフォルトの名無しさん** · 2023/05/25(木) 15:40:09.70

普通に考えて間違っていることなのに正しいと言い張って悪いことする人間もいる

**デフォルトの名無しさん** · 2023/05/25(木) 16:38:38.94

まともなコードをかける人だけがChatGPTを貶しなさい

**デフォルトの名無しさん** · 2023/05/25(木) 18:25:35.42

chat GTPがコードを書いてくれても使う側の人間がシート名を変えたり、シートを並び替えたり、列や行を挿入したりするから無意味だゾ

**デフォルトの名無しさん** · 2023/05/25(木) 19:12:38.82

>>910
クソの値段は？

**デフォルトの名無しさん** · 2023/05/25(木) 19:14:42.03

プライスレス

**デフォルトの名無しさん** · 2023/05/25(木) 19:25:43.50

外資系化学メーカーだけど日本の企業からExcelが消えることは自分が定年するまではないわ
AIが発達するならそれに任せるしそこまでいかないなら今まで通り自分で作ってメンテする
ただGPTは十分つかえるし凄い

**デフォルトの名無しさん** · 2023/05/25(木) 19:48:46.62

無能な人はありがたがる

**デフォルトの名無しさん** · 2023/05/25(木) 20:14:18.01

自分が作りたいものはほぼ過去作のコードコピーして手直しするような感じだからそういう人にはあまり必要ないかもしれないが
まるまる使うわけでなくひな形としてサンプルコード生成してもらうような使い方ならありかもね

**デフォルトの名無しさん** · 2023/05/25(木) 22:01:48.16

非表示のシートにコピーしようとする
あるいはアドレスで参照しようとする時にエラーを出す条件はなんですか？

**デフォルトの名無しさん** · 2023/05/25(木) 22:38:06.47

エラーの内容は？

**デフォルトの名無しさん** · 2023/05/25(木) 22:41:38.89

>>933
1004ですね😅

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

クラウドワークスのVBA案件が少ないのは分かるが、単価はクソじゃないだろ。

**デフォルトの名無しさん** · 2023/05/27(土) 10:51:17.80

コードが長いのでプロシージャを分けたいのですが変数は
グローバル変数を使って変数をひとまとめにするのと
再度プロシージャで同じように定義しなおすのはどちらが一般的ですか？

**デフォルトの名無しさん** · 2023/05/27(土) 11:22:44.57

全体の一部だけ修正するなら好きにしろじゃね
関数Aを関数Bと関数Cに分割するならPublic（モジュールのPrivate）変数にしたほうが直しやすいし
関数Aを関数A自体は残して中のコードを関数Bと関数Cに振り分けるなら
Public変数だけでなく関数Aのローカル変数を関数Bと関数Cの引数に渡すこともできる

**デフォルトの名無しさん** · 2023/05/27(土) 12:40:25.19

>>936
自分で考えるのが一般的じゃね

**デフォルトの名無しさん** · 2023/05/27(土) 13:14:17.41

>>936
作業用の捨て変数のことなら、毎回いちいち宣言しないとバグの元
グローバルにすると、例えばループの中から別プロシージャを呼んだ時に破綻する

**デフォルトの名無しさん** · 2023/05/27(土) 13:38:59.73

>>936
グローバルかローカルかは変数の役割と範囲次第だな。
グローバル変数は便利だけど多用しすぎると
面倒臭くなるから注意な。
ローカル変数は見通し良くなるから使えるときは使うべき。値の受け渡しが必要なら引数使うのが普通だよ。
とはいえ、プロジェクトの性質や要求によって
適切な方法は変わるから自分で考えてみてくれ。

**デフォルトの名無しさん** · 2023/05/27(土) 15:12:20.44

ありがとうございます。
プロシージャ毎に１つずつ実行するときと
複数順に実行する場合があるので
引数だと面倒だなと思ったのでグローバルにしようか悩んでいました。

自分の能力ではコードが増えたときにグローバル変数だと混乱するのではやめておきます。

**デフォルトの名無しさん** · 2023/05/27(土) 22:23:40.36

ミスや不具合のあった時にあーだこーだ言われるのだから日本にはAI開発なんて不可能

**デフォルトの名無しさん** · 2023/05/27(土) 23:08:54.80

それは極論

**デフォルトの名無しさん** · 2023/05/28(日) 16:42:51.88

日本企業は権力に弱いからあーだこーだ言われてしまうと萎縮してしまい海外AIのような思い切ったプロジェクトを立ち上げる事ができないという事は言える
これは各省庁の圧力を封殺して国が主導して補助金まで出すようになれば事態は一変するかもしれない

**デフォルトの名無しさん** · 2023/05/28(日) 17:53:17.80

他人のカネをあてにしたプロジェクトで成功した試しが無いだろ
ビンボこそがパッションとモチベと成し遂げる意思と工夫とプランニングに富む基礎と成る　
食えるか食えないかギリギリのビンボがな

**デフォルトの名無しさん** · 2023/05/28(日) 18:05:09.72

課題が多いのは事実だがそれを乗り越える技術のある人もいることに期待する

**デフォルトの名無しさん** · 2023/05/28(日) 20:48:41.35

もっと言うと、デカく成った企業は保身に走る、突っ走る　デカく成りつつある企業もそれに倣って保身に走る
それは中の人が(俺の代でポシャる訳にはいかない)と、無難な路線しか認めないから　挑戦の二文字は倉庫に仕舞い込んでる
それに加えて昨今のHDブーム　何でもかんでもホールディングスにすりゃいいと安易に設立して内部留保に励む
前世紀末のバブル崩壊をまざまざと経験した世代は特に臆病風を吹かしまくる　チキン・ハート症候群だ(現役だけに大迷惑)

その点、昨今の怖いもの知らずのZ世代なら、悪事を働く方向とは真逆のベクトルで突っ走ってくれたら
とんでもないイノベーションを起こす可能性を持ち合わせている　ウィリアムやスティーブのようなのが出て来る可能性も
まあ、願望だけだが　　それでも、ひとりかふたり出てくれればゴロっと変わる可能性だってあるんだから、希望の光は消えない

**デフォルトの名無しさん** · 2023/05/28(日) 21:45:16.66

Application.OnTime TimeValue("12:00:00")

オンタイムメソッドのコードのテスト方法って何かありますか？
動くかの確認に毎回時間を合わせてテストするのが大変なので質問しました

**デフォルトの名無しさん** · 2023/05/28(日) 21:50:34.02

すみません
ここまでのコードはうまくいくのですがこの先の以下のコードを実行すると400や1004のエラーメッセージが表示されます
しかしながら望み通りの場所に名前をつけて保存してくれます
なんのエラーが出ているのでしょうか？

Sheets("リスト").Copy

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\TEST1.xlsx"

ActiveWorkbook.Close

End Sub

リスト　シートをコピーして新しいブックとして開き、名前をつけて同じ場所に保存という事がしたいです。

**デフォルトの名無しさん** · 2023/05/28(日) 22:12:18.01

おそらくやっと原因が判明しました
OneDriveのせいでした

**デフォルトの名無しさん** · 2023/05/28(日) 22:50:47.30

２～３０年後ぐらいにAIの分野の遅れが致命的になり慌ててAI庁とか作りそう

**デフォルトの名無しさん** · 2023/05/28(日) 23:40:07.55

デジタル庁があるやん

**デフォルトの名無しさん** · 2023/05/29(月) 02:32:31.75

金目当ての仕事しかしないで中身スカスカだろうけど

**デフォルトの名無しさん** · 2023/05/29(月) 06:53:52.00

>>946
今の日本は現場が下に見られるから
技術のある人は権力や役職者にいいように利用されて終わることが多い

**デフォルトの名無しさん** · 2023/05/29(月) 10:00:53.79

みんな、エッチ団結しようよ！

**デフォルトの名無しさん** · 2023/05/29(月) 15:43:26.34

>>954
多いだけで全員ではない

**デフォルトの名無しさん** · 2023/05/29(月) 16:43:45.59

やっぱりめちゃくちゃ丁寧にコメント残して変数の宣言をめんどくてもしっかりしとくと後で手直しが楽だな…
社内サーバーが変更になって他部署のマクロがあちこちエラーでバタつきまくってるけど俺の作ったvbaちゃん達は少しメンテしただけでオールオッケー
ヘルプが来たけど他人の作ったマクロ全然わかんね

**デフォルトの名無しさん** · 2023/05/29(月) 17:02:10.90

ウデを持ってるなら、そんな環境からとっととおサラバするのがいい
サヨナラされてようやく気付く企業も多く成るべき
それでもそこにしがみ付きたいなら、技術だけじゃなくて知恵も蓄えないと
どうやってその邪魔な上役・役職者を失脚させて、徐々にでもじぶんの地位を上げるか　とか
学歴・派閥・職歴えｔｃ、ひとは誰しも欠点を持ち合わせてンだし、そこをトコトン突っ突かないと
ブツブツ文句垂れてるだけじゃなにごとも変わらない　諦めたらそこで終わりなのも事実だし

**デフォルトの名無しさん** · 2023/05/29(月) 21:13:35.07

一つだけお聞きしたいのですが、VBAを作成したとしても利用者がシート名を変更したり、シートを削除したり、シートを追加したり、並び替えたりしたら自動化や効率化のやりようがないですよね？
オブジェクトが存在しないとか並び替えられていたらインデックスで指定するのが無理とかそう言う事になりますよね？
VBAは決められた手順通りに定められたメゾットを実行する物であって、ブックがめちゃくちゃだと実行しようがないですよね？

**デフォルトの名無しさん** · 2023/05/29(月) 21:20:52.62

シートをオブジェクト名で処理すればシート名変更・並び替え・シート追加はどうでも良くなる
シート削除対策は予備シートを他のブックにでも入れておいて本シートの存在判定後に予備シートからコピーすれば良い

**デフォルトの名無しさん** · 2023/05/29(月) 21:26:22.38

>>960
なるほど

ちなみに一番新しいシートのオブジェクトを指定する方法はあるでしょうか？
ブックにあるオブジェクトを探して一番大きい数字のオブジェクトを指定できるなら助かるのですが
worksheet.countやworksheet.count - 1の様な事をオブジェクトで行いたいです

**デフォルトの名無しさん** · 2023/05/29(月) 21:38:44.22

もちろんできる

**デフォルトの名無しさん** · 2023/05/29(月) 21:43:07.69

普通は新しいシートを作る位置でその手のコントロールをすると思うけどね