Excel VBA 質問スレ Part71

2021/05/25(火) 12:48:01.06

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

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

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

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/06/14(月) 16:56:10.84

IEサポート終了でVBAからのIE操作は出来なくなる？
インストール出来ない環境だとこれしかないのに

2021/06/14(月) 19:11:40.02

>>349
つまりやったことないと・・・
EXCELはCOMだからjavaやC#で外部から弄るとObject開放の壁があってかなり面倒になることはやったことある人なら一発でそれが出てくるもんなんだけどな。

NPoi辺り入れれば開放考えないで済むけどわざわざそのために新しい構文覚えるのも面倒だし
何といっても仕事場に入れていいかどうか確認するのも大変だし入れられないとなったらこの手段も使えない。

そんなもんが入れられるならむしろこういう物をブチ込んだ方がまだ楽
https://qiita.com/mochimo/items/e9be36619a76e15bc898

2021/06/14(月) 19:16:33.90

>>349
それと何か勘違いしているみたいだから言っとくとC#で組んだら楽というのであればC#で組めばいい。

EXCEL VBAはそれがEXCEL単体で動くから楽なのであって、別にプログラムをC#で組むことは出来る。

2021/06/14(月) 19:43:39.24

趣味に使える言語とは

2021/06/14(月) 20:10:59.34

>>358
背景にエロ画像表示させる

2021/06/14(月) 20:16:40.74

厳しい事書くけど、「Excelやマクロの基礎ってなんですか？」と聞いている時点であなたには無理です

と、昔に俺も言われた事ある泣
このスレだったかExcelスレだったか忘れたけど。。。
キツいレスだったけど、今思えば回答者は間違った事は言っていたなかったなと。

2021/06/14(月) 20:25:07.84

いじめられすぎると人間どういうわけか
なにがなんでも相手が正しい理由を見つけようとするらしい

2021/06/14(月) 20:36:24.35

いや、自分の質問が悪かったんす
基礎の意味もわからずに質問するな！と言うことなんでしょう。
いじめられても仕方ないです。

2021/06/14(月) 20:50:26.37

基礎なんて知らなくてもVBAは出来る

2021/06/14(月) 21:16:26.49

そもそも何がエクセルやマクロの基礎なのかはっきりしてないからな
非常に答えにくい

2021/06/14(月) 21:19:53.67

いやまじで基礎ってなんやろね

2021/06/14(月) 21:29:21.12

皆さんありがとうございます。
基礎なんて意識しなくて良いんですね

2021/06/14(月) 21:46:33.20

基礎を身につけろ、というならまず基礎を定義してもらわないと　　

2021/06/14(月) 21:58:08.80

お仕事で使ってる人は仕事場にコーディング規約があるから基本それが基礎と考えていいと思う。

基礎として存在しているものがなぜ基礎と定義付けられているのか？それを考えるのが一番大事なこと。

例えば基礎なんて意識しないでGoto文とか乱用したりするとどうなるか、とか考えれば必然的に何故基礎というものが大事か、と言うことが分かってくると思う。

2021/06/14(月) 23:27:08.94

上で言われてる基礎って　gotoをめちゃくちゃ乱発できるようなレベルの話じゃないと思うけど

2021/06/14(月) 23:49:48.00

つまづいて初めて基礎の大切さが分かる話ですかね

2021/06/15(火) 02:43:34.40

ただの言葉遊び

2021/06/15(火) 07:25:28.47

option explicitでさえ議論分かれるもん
変数宣言はするべきって所は共通みたい？　ただしforループのカウンタ変数はいちいち宣言しないって人も見た

2021/06/15(火) 07:29:25.50

最初は変数宣言とかオプションなんちゃらとかイラン
処理速度稼ぎたくなったりdate関係で躓いたときにはじめてやればいいだろ

2021/06/15(火) 09:14:11.62

最初は、ならね

2021/06/15(火) 09:18:55.44

だから最初の話でしょこれ
独学で出来て躓いたレベルの人の話じゃないっしょ

2021/06/15(火) 09:26:51.68

ここにはトレーナーに付いて教わる人達はいないでしょう。。。
つまり独学できる高い能力もった人達ばかり

2021/06/15(火) 09:38:25.55

例えばだけど
仕事場でコーディング規約に「モジュールの頭にはOption Explicitをつける」と書いてある場合、付ければ問題ないし、付けなければ怒られる。
コーディング規約に書いて無ければ付けても怒られないし、付けていなければ怒られないケースと、「そのくらい書いていなくても常識だろう」と怒られた挙句、「コーディング規約に書いていなかった」と反論しても、「じゃ、書いといて」と言われるケースも考えられる。
コーディング規約に「付けるな」と書いているのであれば付ければ怒られるし、付けなければ問題ない。

この内、書かれていなかったケースで融通を利かせて付けるか、一応上の人の判断を仰ぐか、付けないかを選択するかはその人次第。
ちなみに付けず、書いてないからと言い張った場合、面倒くさい奴とみなされて仕事場から叩き出される可能性もあることを考慮すること。

2021/06/15(火) 09:50:00.14

客先とかユーザー先とかに提出する成果物や後々他の誰かが見るようなものでなければ正直どうでもいい。
個人で作って試す程度のものであればどう組もうがその人の勝手。
そういうときにやっておけばそうでないものを作成したときに癖になっていて忘れない程度のメリットはあるがその程度。

2021/06/15(火) 13:29:22.70

動作を理解したうえでやる/やらないを自分できめたならそれでいい
問題が起きて困るのは理解していない初心者だろうしね

2021/06/15(火) 13:55:03.32

それですぐこのスレに泣き付いてしまいます

2021/06/15(火) 14:01:02.47

正しい動作を理解しているなら自力で対応できるよでしょ

2021/06/15(火) 14:20:04.52

VBA初心者ですが、任意のセルへ他のシートへジャンプする以下のような関数を埋め込みたいのですが、
エスケープ方法がわからずエラーが出てしまいますがどう書けばいいのでしょうか？

=HYPERLINK("#シート5!A1","詳細")

「シート5」の「5」の箇所を変数「シート番号」にして異なるシートへ飛ばすように書こうとしていますが、これがまた全然うまくいきません。。

"=HYPERLINK("""#シート" ＆シート番号＆ "!A1""","""詳細""")"

説明サイトで見た感じでは↑このように書けばいいとなってましたがエラーになります。「！」もエスケープが必要なのでしょうか？

2021/06/15(火) 14:21:48.91

>>386
＃もエスケープがひつようなのでしょうか？　エスケープだらけでわけがわかりませんｗｗ

2021/06/15(火) 14:41:36.14

Sheet1.Cells(1, 1) = "=HYPERLINK(""#シート" & num & "!A1"",""詳細"")"

2021/06/15(火) 14:52:21.80

>>388
ありがとうございます！！エスケープは2つでいいのですね。助かりました！

2021/06/15(火) 20:02:28.14

>>376
for文用の変数をいちいち宣言するってなんか間抜けだしな

2021/06/15(火) 20:58:00.15

他は宣言するのにって場合はだらしない感じがする
抜くところがずれてるというか

2021/06/15(火) 22:03:38.82

>>376
> ただしforループのカウンタ変数はいちいち宣言しない
っていうのがよく分からん
Option Explicit 使うとエラーになるからそう言う人は Option Explicit 使ってないってこと？
まさかと思うがグローバル変数じゃないよね…

2021/06/15(火) 22:21:19.07

>>392
別に人に見せるもんじゃなきゃどう作ってもいいとは思うけど、
何かどう書いてあるか想像するだけで頭が痛ーくなりそうな感じだね。
俺はそういうの見たくはないわ。

2021/06/15(火) 23:05:45.51

田中信者はすぐ宣言が～とか言い出す
まーダメだあのオッサン
VBAの話より上から目線で説教の方が長い位だわ

2021/06/16(水) 01:37:47.41

確かに、これから屁をしますっていちいち宣言しないよな。

2021/06/16(水) 02:46:45.21

a for

2021/06/16(水) 04:49:12.21

VBAは消えるかと思ってたけど消えなかったな、PowerオートメイトでExcelはVBAでやってちょうだいって仕様になってる。
てかVBAの言語をいい加減強化してほしいよな、メモリー不足やら宣言やらガチガチすぎ

2021/06/16(水) 04:53:08.08

メモリーは32GB積んでるが
計算で32GBのメモリーが不足するとは思えない。
明らかに嘘だろう

2021/06/16(水) 08:18:34.18

うちのDELLのPCどう数えても消費メモリの計算が合わない
自宅の軽快なのとあんまりにも違いすぎる
裏で何走ってんだ

2021/06/16(水) 08:19:00.13

Dellって名前のついたサービス片端から止めてもまだ焼け石に水状態

2021/06/16(水) 08:19:41.28

VBAスレか

2021/06/16(水) 13:04:22.62

>>392
それ。このスレだから上の方さがしてこい

2021/06/16(水) 13:08:18.72

あ、ごめ、option使ってないってことね

2021/06/16(水) 14:17:22.31

いつまでやってんのよ～

2021/06/16(水) 20:54:56.15

来週、急な体調不良により休暇をいただきます

2021/06/16(水) 21:54:32.97

訳「じじいなんでコロナワクチンの順番が回って来たので行ってきます。その3週間後にも休むつもりです。でもその前にアナフィラキシーショックや脳卒中や心筋梗塞で死ぬかも知れません」

2021/06/16(水) 22:13:53.78

ゲーム会社とかなら一人プログラマーが欠けた所で代わりはいくらでもいるだろうけど

VBAを使ってる現場は
周りは誰も使えなくて
そいつが抜けた引き継ぎ不能、効率ガタ落ちの地獄になりそう
とかいうイメージ

2021/06/16(水) 22:26:51.42

youtubeの某チャンネルでもそんな話あったな
便利に使ってたくせに開発できるやつが辞めたら誰も直せなくて
「余計なことしてくれるから」とほざく上司

2021/06/16(水) 22:34:53.65

まあ引き継ぎ時にはしっかり周りに合わせてファイルのレベルを下げましょうね

2021/06/16(水) 22:36:29.63

>>407
いんや
ゲーム会社ってデザイナーとか多いけど
普通プログラマーって実はそんなにいないんだよ。

チーフ、こっちの業界ではリーダーだね。
そのレベルの人が辞めたらそのゲームはぽしゃるぐらいのこともあり得るし実際あるんだよ。

2021/06/16(水) 23:14:49.27

いわゆる属人化ってやつ？
マクロはそうなりやすいよね

2021/06/17(木) 00:28:58.54

うちの会社だとそうなることは目に見えてるから
俺がいなくなることを見越して、可能な限りをシート上で設定できるようにしてる
こういう事をしても、設定の仕方を理解しようとする人がいなければ終わるんだけど
まぁそうなりつつあるが、俺はヤレルだけやった

2021/06/17(木) 03:39:58.22

動けば何でもいいんだよ　

おれは毎日残業して仕事してるぞ、
ただしその仕事内容は数時間かけて右の表から左の表へ1セルずつコピペを手でひたすら繰り返しやってるだけて奴よりはね。

2021/06/17(木) 06:13:51.80

１セル１文字の横書きしてるよりまし

2021/06/17(木) 07:19:32.62

引き継ぐ側からすると
大体の詳細設計残しておいて貰えればどういう動きすんのか分かるしまぁ大丈夫だよ。
プログラムもキチンと書いてあるならヘッダ部分のモジュールコメントと関数コメントしか基本要らない。
何か深い意味合いが有って特殊なことをやってるところだけ何のためにやっているか書いといてくれれば。

けど残念ながら大概仕事場から去るような人は意味もなく1関数に何十行にも渡るコード書いてたり、コメントに何のためにやってるかではなく、何をやってるかを書いている人の方が多い

何をやってるかなんてコード見りゃ分かるしそんなコメント要らない。
そしてよく分からないことやってる部分は概ね何らかしらの経緯をへてそうなっているからそう言うのをコメントに残して置いて欲しい。

2021/06/17(木) 07:52:14.35

関数は品質を下げる
関数作成禁止

2021/06/17(木) 08:22:18.61

VBAわかる人材が複数いるようなところは楽そうでいいね

2021/06/17(木) 08:40:50.83

人材

2021/06/17(木) 08:46:34.94

>>416
ボタンくっつけて押せばまず走るのは
関数とかメソッドなんだけど大丈夫？

2021/06/17(木) 09:09:44.79

関数はプロパーが部長の承認をもらい予算を計上して稟議の上作成する
派遣がやるのは１００年早い。

2021/06/17(木) 09:10:23.35

派遣はマクロ禁止

2021/06/17(木) 09:33:13.76

>>420
何やよう分からんけど
普通ツールやシステム組むときって
要件定義、基本設計、詳細設計、コーディング、UT、IT、ST、UAT及びレビューや戻り等の何か有ったときの余裕部分を持たせたものの工数を算出して
そこから金額的な見積もりを算出して予算を決めるもんじゃないの？
そう考えると「コーディング部分は派遣にやらせてはいけない」となるとVBAを出来る人材として派遣を雇った場合、どこを任せるのかな？
関数部分って言うからEXCELのガワでも作らせるのかな？
そんなのコーディングの中で一々分けて工数立ててんの？
大変だねぇ。

2021/06/17(木) 11:59:50.03

なぜだ？
部署全員、Excelのエキスパートで固めるとどうなる？
最強だろ？

2021/06/17(木) 12:03:07.26

マ板でやれ

2021/06/17(木) 13:14:56.38

>>423
人件費の方が高くなる

2021/06/17(木) 22:34:01.24

EXCELのツールごときに予算取れんと一蹴
ホント日本て効率化の基礎すらないよね

2021/06/17(木) 22:38:47.24

そもそも政府からして
大金かけて中抜きしてゴミみたいなシステム作り上げるからな

2021/06/17(木) 23:14:34.47

全員が田中の爺さんみたいになる必要なんか無いんだよ
かえって喧嘩になるわ

2021/06/18(金) 13:14:05.55

最近365のインスコデフォが64Bitなのか知らんが
やたら64Bit入れてるとこ多くてAPIの宣言で苦労するわｗ

2021/06/18(金) 14:31:11.45

官公庁や地方の役所は excel 禁止にするべきだと思う
マイナンバーと一緒にコピペしたゴミファイル対象に存在してそう

2021/06/18(金) 16:16:04.51

>>429
822 名無し~3.EXE sage 2021/06/16(水) 09:36:00.33 ID:mfWEfGUc
https://support.microsoft.com/ja-jp/office/2dee7807-8f95-4d0c-b5fe-6c6f49b8d261?ui=ja-jp&;rs=ja-jp&ad=jp

>インストールプロセスを始める前に、明示的に 32 ビット版を選択しなければ、64 ビット版の Office が自動的にインストールされます。

826 名無し~3.EXE sage 2021/06/16(水) 10:36:08.09 ID:mfWEfGUc
64ビット版Office
https://i.imgur.com/f4XX4AR.png

2021/06/19(土) 21:17:20.75

Wordファイルをフォルダから選択して開く方法がわからないので教えてください
Documents.open filename:＝.selectedItems(1) でエラーになってしまいます

Dim myFD As FileDialog
　Dim myFolderPath As String
My folderPath ="C:\Users\ユーザ名\Desktop\test"
　Set myFD = Application.FileDialog(msoFileDialogFilePicker)
　With myFD
　.Title = "Wordファイルを選択してください"
AllowMultiSelect = False
　With .Filters
.Clear
.Add "すべてのWordファイル", "*.doc; *.docx"
End With
.initialFileName = myFolderPath
If .Show = -1 Then
Documents.Open FileName:=.SelectedItems(1)
End If
.Filters.Clear
　End With
　Set myFD = Nothing
End Sub

2021/06/19(土) 22:01:06.86

>>415
「リーダブルコード」の丸写し？

何をやってるかはコード見りゃわかるだろって、それが
わからないからコメントって概念があるんだろ。

2021/06/19(土) 22:48:12.33

>>432
とりあえず見つけた間違いが2箇所だけど、これで動くかどうかまでは未検証

正 MyfolderPath = "C:\Users\ユーザ名\Desktop\test"
誤 My folderPath = "C:\Users\ユーザ名\Desktop\test"

正 .AllowMultiSelect = False
誤 AllowMultiSelect = False

2021/06/20(日) 04:10:19.34

>>432
>Documents.open filename:＝.selectedItems(1) でエラーになってしまいます
..selectedItems(1) の部分をpath付きでファイル名直接指定してみ

あとエラーの内容書かないで動かないとか言ってんじゃねーよ

2021/06/20(日) 04:48:09.25

>>433
＞何をやってるかはコード見りゃわかるだろって、それが
＞わからないからコメントって概念があるんだろ。

別に書いてあっても「親切な人だなぁ」とは思うけどきちんと単一責任原則に沿って書かれていればひとつひとつの関数やメソッドは基本そんなに長くなるもんじゃなし、ヘッダコメントに「こんなことやってます」的なことが書かれていれば必要ないよ

コードに対する読解力がないのか
コード書いてる奴が可読性低いコード書いてるのか知らないけど
自分とこの仕事場の能力の低さを棚に上げて俺に言われても困る

2021/06/20(日) 06:35:27.96

>>432
> Documents.open filename:＝.selectedItems(1) でエラーになってしまいます
エラーメッセージを書けよ…
あとそこにブレークポイント掛けて、debug.print myFD.selectedItems(1)
ってやってみて

2021/06/20(日) 07:31:37.47

>>434>>435
レスありがとうございます
エラーは実行時エラー429
ActiveXコンポーネントはオブジェクトを作成できませんです。
>>437
外にいるので後で確認します

Wordをファイル指定なら開けるのですがダイアログボックスのフォルダからファイルを選択して開くのは難しいんでしょうか

2021/06/20(日) 08:27:01.55

>>433
>>415 が言ってるのは極端な例だと
i = i + 1 ' i を１つ増やす
みたいな奴のことだろ

2021/06/20(日) 10:40:04.96

なるほどそりゃ確かに見りゃわかるわってなるな

**デフォルトの名無しさん** (ｽﾌｯ Sdba-hhAf) · 2021/06/20(日) 11:44:28.54

そんなん普通はincとdecを作るだろ

Sub inc(ByRef i)　'1増やす
　　i = i + 1
End Sub

Sub dec(ByRef i)　'1減らす
　　i = i - 1
End Sub

2021/06/20(日) 11:58:27.02

VBAらしくない

2021/06/20(日) 13:29:47.77

>>441
普通？
そんなのみたこともないけど、それを作るメリットは？

2021/06/20(日) 14:10:12.41

>>441
forループできるのにそれする意味は？

2021/06/20(日) 15:16:43.19

リーダブルコードはコードの要約よりも、意図とか疑問点とか全体としての位置付けとかを書くといいぞって主旨だった気がするが

2021/06/20(日) 15:17:08.78

ネタだぞお前ら

2021/06/20(日) 15:32:17.18

>>446
>>441のことを言ってるのか？
ネタならもう少し面白い奴にしてくれ

2021/06/20(日) 15:44:58.90

>>432
>>432
参考にしていると思われるサイト
　https://ameblo.jp/gidgeerock/entry-12059401800.html

上記に書かれているのは Word用のマクロが書かれているので
そのままでは Excelのマクロとしては実行できません

参照設定とかオブジェクトとか指定する必要があるのでExcelで動かすならExcel用のマクロを
見つけて参考にしてください

2021/06/20(日) 16:44:41.50

エクセルで何故か散布図の最大値が35になってしまうんだけどどうすればいいのかな？

2021/06/20(日) 16:54:50.18

横軸の最大値が三十五になってしまう

2021/06/20(日) 16:54:54.50

エクセルで何故か散布図の最大値が35になってしまうんだけどどうすればいいのかな？

2021/06/20(日) 16:57:32.03

VBAで散布図作ったのか？

2021/06/20(日) 17:01:39.70

>>452
そう
横軸だけ何故か35になる

2021/06/20(日) 17:12:29.90

選択したフォルダの絶対パスを取得したいと考えているのですが、下記のフォルダ選択を実行すると
Dim shell As Object
Dim p As Object
Set shell = CreateObject("Shell.Application")
p = shell.BrowseForFolder(&O0, "フォルダを選択してください", &H1 + &H10, "C:\")
オブジェクト変数がセットされていないか、Withブロックがセットさせてないとエラーが出ます。
型がオブジェクトにするといけないのでしょうか？

2021/06/20(日) 18:36:22.06

自決しました

2021/06/20(日) 19:07:41.63

Excel板で、勉強するならよねさんかインストラクターのネタ帳がオススメと言われましたが他にオススメありますか？

2021/06/20(日) 20:09:32.61

インストラクターのネタ帳はいいよね

2021/06/20(日) 22:15:33.98

>>439
ああ、なるほどｗ

それなら俺も「わかるわ。そんなもん！！」と言いたくなるな。