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/07/06(火) 03:36:53.85

＞気がしました

2021/07/06(火) 03:49:27.61

なんだこの安価は
>>728へのリスペクトか？

2021/07/06(火) 07:55:07.41

>>739
複数アンカは最初だけ>>付けて、数字だけを , で区切ればいいのよん
連続なら最初の番号-最後の番号で
ブランクなしで

2021/07/06(火) 16:58:11.44

そう言えば昔適当なプロシージャをexit subで中断させると、何故か呼び出し元のモードレスフォームが解放されて処理が止まる事あったな
原因は結局分からなかったが、デフォルトインスタンス(load関数でいきなり読み込める方)じゃなくてnew演算子でインスタンス化したら発生しなくなったよ

◆QZaw55cn4c (ﾜｯﾁｮｲ 46e9-20Cu) · 2021/07/06(火) 18:58:42.36

>>725
これこそソソる画像を是非

2021/07/06(火) 19:44:23.49

社員がVBAマクロを作成する事はできなくするけど、情シス等で作成されたVBAマクロは実行可能にするexcel設定は可能ですか？

2021/07/06(火) 20:43:58.56

はい

2021/07/07(水) 07:33:40.59

社員がVBAマクロを作成する事はできなくする？

2021/07/07(水) 08:56:35.74

関数オンリーとかただの地獄で草

2021/07/07(水) 12:17:34.42

サーバー上のExcelファイルを、xlsx形式以外は1日1回Deleteする…
なんてのがあるだろうけど絶対生産性落ちる地獄

2021/07/07(水) 13:04:02.71

そんな原始的な運用しなくても、Excelのマクロはグループポリシーで禁止できる
システム部の配布した業務用マクロは許可して自作マクロだけ禁止も可能

2021/07/07(水) 13:11:28.10

厳密に言うと、作成まで禁止するのは不可能
実行ができなくなるだけ

2021/07/07(水) 13:35:56.30

関数オンリーとか原始時代に戻されるレベル

2021/07/07(水) 13:41:58.29

saveasで保存したブックを指定する方法はありますか？

元ブックをsaveasで保存して、保存したブックの不要箇所を削除して閉じるの動作を元ファイルが終了するまで繰り返すマクロを作れないか試してます。
saveasで作ったブックを指定する術がわからず、つんでおります。

**デフォルトの名無しさん** (JP 0Hc7-kf3V) · 2021/07/07(水) 13:49:30.49

>>753
パスとファイル名を変数かセルに覚えとく

2021/07/07(水) 16:21:53.05

初めて質問させていただきます。

画像(.jpg)と数値のデータ(.csv)を別々に保存しているのですが、ひとつのExcelファイルにまとめたいです。

csvファイルの右隣に対応するjpgファイルを貼り付けることが出来るコードを教えて頂きたいです。

出来れば繰り返しできるようにしたいのでよろしくお願いします。

2021/07/07(水) 17:18:23.23

>>755
要件が不明確

細かく質問してもいいけど
最終的にExcel上でどういう表示になってほしいのか、サンプルデータで作成して
ここにスクリーンショット貼ってもらったほうが多分早い

2021/07/07(水) 17:21:30.63

csvファイルの右隣って何だよ…
対応するjpgってのも曖昧だし。

2021/07/07(水) 17:56:43.90

いつものあいつ

2021/07/07(水) 18:00:22.73

まず自分で書いたコードをあげろ

2021/07/07(水) 18:03:20.12

シートにcsvの中身出力してその右隣に対応する画像ファイル貼りたいって話じゃないの？

**デフォルトの名無しさん** (JP 0Haa-5wx8) · 2021/07/07(水) 19:01:59.33

このスレでいうのも何だけど、VBAってそんなにありがたいかな？　個人的には、できる限りVBAを使わないというのは、特に企業では合理的な選択肢だと思うけど。
どうしても必要でVBAを使うことはあるけれど、VBAを使った時点でそのExcelファイルは二等市民的というか、もはやまとも扱いは受けられないものだと思っている。社外的にマクロ付きファイルの受け渡しをするなんてまともな会社ならありえないし、ちょっと大きめの会社なら部署間でもでもそうでしょ。
MicrosoftがExcel本体の機能を強化して、できるだけVBAを使う機会を減らそうとしているのは基本的に正当な方向性だと思うけどなぁ……。

2021/07/07(水) 19:09:31.08

xlsmはローカルにしか保存してないな
第三者に使わせて不具合起きても責任取れん

2021/07/07(水) 19:12:25.86

東証一部上場企業の品質保証部門だけど割りとなんでもかんでも業務の自動化効率化にVBA使おうとするぞ
１万ステップのツール作成なんか日常茶飯事

2021/07/07(水) 19:34:48.73

関数程度で済む作業だけならいいんだけどどうあがいても無理な作業があるから

2021/07/07(水) 19:39:36.81

>>761
言っていることがよく分からないな。
そもそも会社から外に出てはいけない内容が載っていた時点で社外秘だ。載せてはいけない内容をVBAに拘る理由がよく分からん。

2021/07/07(水) 19:47:07.04

そういや、そもそも関数って汚くなるよね
大量の処理用の関数列のなんと醜いことか
関数使って並び替えするだけで大騒ぎだ

2021/07/07(水) 19:48:43.14

>>763
悪夢だなあ

2021/07/07(水) 20:29:59.95

>>767
しかも作成から管理まで俺のワンオペ

2021/07/07(水) 20:39:17.25

>>761
マクロの入ったファイル自体を受け渡すのではなくて、マクロを使って動的生成されたxlsxファイルを受け渡すような用途にも使ってるよ。

Officeのマクロだからといって文書ファイルの生成に限らず、自分が普段パソコンを使って行っている繰り返し作業等もExcelマクロでツール化できるのがいいところ。
C#等でツール作成してもいいけど、Excelのほうが手軽なことが多い。

2021/07/07(水) 20:43:32.57

>>768
異動になったらどうすんの？

2021/07/07(水) 20:49:55.50

異動先の仕事をすれば良いんじゃね

2021/07/07(水) 20:50:38.88

>>770
どうすんだろね？引継ぎ先もないからメンテナンスされないまま使い続けて使い物にならなくなってから大慌てするんかね？いなくなってから呼び出されんのだけは勘弁して欲しいんだがなぁ

2021/07/07(水) 21:12:41.25

退職チラつかせて給料アップいけそう

2021/07/07(水) 21:32:42.95

事務員のオレオレマクロはともかく情シスがVBAでツール作ってるとか信じられん
テストとか保守とかどうしてるのさ

2021/07/07(水) 21:36:44.07

しない
必要に応じて各人で作り検証は最終成果物に対して行う

2021/07/07(水) 21:59:27.47

ウチの一部上場企業のソレだわ
データをプリント、その数値を各フォーマットへ手入力とかザラにあるわ
VBAで入力&自動化ツールをいつくか作って感謝されたが、元データや出力の仕様変更があれば手直ししなければいけない

IT途上国だと心底思うわ

2021/07/07(水) 22:15:26.68

プリントして手入力はさすがに最近聞かない

2021/07/07(水) 22:16:30.49

とおもったが
ちょっとまえまで勤務表で無意味にやらされてたわ
ただのいじめだとおもう

2021/07/07(水) 22:49:08.74

>>755
Ruby では、CSV で、配列同士を連結すると、

require 'csv'

input_1 = <<"EOT"
1,1.1
2,2.2
EOT

input_2 = <<"EOT"
a.jpg
b.jpg
EOT

# 2次元配列
ary_1 = CSV.parse( input_1 )
ary_2 = CSV.parse( input_2 )

# 最初の配列に、後ろの配列を連結する
ary_1.zip( ary_2 ).each do |one, two|
one.push two[ 0 ]
end

# 2次元配列を、CSV 文字列に変換する
csv_str = ary_1.map( &:to_csv ).join
print csv_str

出力
1,1.1,a.jpg
2,2.2,b.jpg

2021/07/07(水) 23:24:13.32

>>779
いつものあいつ=Ruby馬鹿

2021/07/07(水) 23:30:24.01

エクセルのデータをプリントアウトして別のソフトに手入力させられたことある
たまらず自動化した
手作業だと月20時間くらいかかるんよアホくさい

2021/07/07(水) 23:40:11.63

うちは逆に、明らかにVBA程度で十分な業務も何でもかんでもITベンダーに投げてシステム化された結果身動き取れなくなってるわ
ちょっと業務を変えようと思えばすぐSIer案件だ
それなりに金持ちな会社なのと商売の特性上IT投資が通りやすいのとで、ジャブジャブ金が出る

2021/07/07(水) 23:45:26.80

そりゃ景気が良いようで何よりだね…

2021/07/08(木) 00:00:54.36

正直今EXCEL VBAとは全く関係ないシステムを作っているけど恐らくEXCEL VBAで全く遜色ないものが作れるのは内緒だ

2021/07/08(木) 00:17:04.27

あるシステムをVBAで作ることを提案したら却下されて外部に投げる事になった

他部署で似たシステムをVBAで運用してたらエクセルファイルがクラッシュして惨事になったかららしい
VBAでもプロが作ってたらこんな事にはならなかったんじゃないかな多分

2021/07/08(木) 00:17:34.22

ウチの職場の課長はとにかくExcelの高い技術もっているヤツの評価を上げてくる
複雑な表作れるヤツは査定上がりまくり
なぜか社員同士で技術を競わせる。。。
これ変わった職場なんかな？

2021/07/08(木) 00:47:52.09

課長の頭がちょっと変ですね

2021/07/08(木) 00:52:55.83

A/Bテストとか確率統計的なのとか
背景にある仕事を無視して
複雑な表の一言で片づけてないか

**デフォルトの名無しさん** (JP 0Hc7-kf3V) · 2021/07/08(木) 03:09:52.98

特定の社員に依存してると、その人がいなくなった時に惨事になる
まともな会社はちゃんと金かけて外部に作らせる

2021/07/08(木) 07:23:57.98

そんな金があるならVBA使える人材を雇ったほうが良くない？

2021/07/08(木) 07:29:04.11

どう考えても外部に頼む方が安いだろ

2021/07/08(木) 07:31:58.17

いや頼むたびに金かかるんだろ
今いるやつをいくらか首にして
これから雇うやつはvba使えるやつオンリーにしたほうが安くならんかね

2021/07/08(木) 07:46:45.16

社員1人にやらせた場合、年間500百万くらい人件費かかるんだよ

**デフォルトの名無しさん** (JP 0Hc7-kf3V) · 2021/07/08(木) 07:47:16.89

ならんよ
コーディングの仕事がコンスタントに発生するわけないし、コーディングルールや担当者が変わった時の引き継ぎの方法など、ルール作りには莫大なコストがかかる
プログラムが書ける人だけいてもしょうがないんだよ

2021/07/08(木) 07:49:04.32

年間5億かかる社員1人ってやばくないか

2021/07/08(木) 07:49:41.17

500万ね

2021/07/08(木) 08:18:34.75

別にVBAだけやらせる訳でもないし
規模にもよるんだろうけど
外部に頼んで操作性最悪のゴミプログラム作られるよりはマシだと思うけどな
ゴミプログラムでずっと非効率的な入力してるやつがいてゾッとした

2021/07/08(木) 08:49:58.84

人事を自由にできる立場なら好きに人員配置すればいいんじゃね
お前の職場の問題は職場内で解決しろよ

2021/07/08(木) 09:42:40.08

で、いつもの人みたいなのが入社してくる

2021/07/08(木) 10:33:08.75

気づいたらrubyで組まれてるよ

2021/07/08(木) 11:06:41.42

あほか

2021/07/08(木) 13:17:32.45

外注するといくらくらいかかるのだろうか

2021/07/08(木) 14:11:06.03

毎日要求する仕様が変わっていくからそれに対応するにはたくさんいるよ

2021/07/08(木) 14:17:02.21

https://www.itra.co.jp/webmedia/programming_language_ranking.html

こうやって見てるとVBAの年収が611万、
月に換算して大体ひとり頭51万くらい。
これに使うPCのリース料や
交通費支払いを含めてひとり頭53万くらい
見とけばいいんじゃないの？

2021/07/08(木) 14:43:27.68

特定のセルへのリンクは番地指定ですが、この場合にリンク先の情報をソートしてしまうと全部ずれてしまい、
出鱈目なリンクになってしまいますが
ソートしてもリンクが保たれるように番地以外で指定できる方法は無いのでしょうか？

2021/07/08(木) 15:11:39.55

求人要項に「Excelの機能関数マクロに精通している方」と募集すれば腕自慢の人材がたくさん応募してくるはず

2021/07/08(木) 15:35:33.49

>>805
セルに名前をつける
Sheet1のA1のセルにhogepiyoって名前を付けたら
Sheet1.Range(″hogepiyo“)で指定可能

2021/07/08(木) 15:51:51.75

>>807
こんな手があったんですねぇ、勉強になりました。
ありがとうございます！

2021/07/08(木) 17:31:18.98

名前のリンク切れてゴミが残るので使わなくなった名前は削除忘れるなよ

2021/07/08(木) 18:55:36.10

>>809
ありがとうございます。

2021/07/08(木) 20:34:54.66

長い自分語りからやっと質問が来て草

2021/07/08(木) 20:58:45.45

教えて下さい。
名前の定義を設定したセルの値を、他のブックからセル指定ではなく定義名で参照して変数に格納したいのですが、どのような構文になりますか？

2021/07/08(木) 22:21:17.23

セル番地で指定するときと同じで

変数名 = WorkBooks("ブック名").WorkSheets("シート名").Range("セルの名前").Value

2021/07/08(木) 22:31:20.47

>>804
えっVBA使えるだけでその年収？マジで？

2021/07/09(金) 00:24:58.21

>>814
もちろん上下のバラつきはあるだろうけどそんなもん。
もし驚くほど自分の貰ってる給料が安いならVBAの中でもそれだけ簡単な作業なのか
あるいはそれだけ中抜きが発生していると言うことだと思うよ。

2021/07/09(金) 00:33:20.26

どれくらいの事ができれば600万円稼げる?
無理だろ

2021/07/09(金) 00:49:15.02

VBA使えるプログラマの年収だろ

**デフォルトの名無しさん** (JP 0H99-0sKs) · 2021/07/09(金) 00:51:46.29

つまりVBAは使えないと言っといた方が給料は上がる

2021/07/09(金) 01:18:28.83

それは案外ある

履歴書に「VBA」ってあったら、
この人VBAにスペース割かないといけないほど技術力のアピールポイントないのかと心配になる

2021/07/09(金) 02:04:09.67

そうかな？
Javascriptも出来てASP.NetのVB.Net、C#、
普通にCやC++、Pythonやアセンブラが経歴書に載ってたとしても俺ならVBAも書いとくよ。
EXCELやそのVBAはUTやITとかでデータの整合性を確認するのに必要不可欠だから書いてあるとそういうのも効率よく手っ取り早くやれると判断されるからね。

2021/07/09(金) 02:31:07.79

必要ないよ～

2021/07/09(金) 03:38:16.92

なんだろうな
お前にとってテスト結果をエクセルにまとめるのは技術力の一つだと思ってるのかもしれないけど、
エクセルに関数打ち込んだり簡単なマクロ操作したりなんて
その場で適当にググって作れるものという判断です。

仮にそれをVBAとかを駆使して美しく作っても
「おえかきのセンスがあるひとだ」「こんなのに凝ってヒマなんだな」って扱いです。

2021/07/09(金) 04:28:38.56

VBA使えます（※ただしEXCELに限る）　って書かないと

2021/07/09(金) 05:10:19.31

>>822
大丈夫です。
適当にその場凌ぎにググって書いて動きゃ後はどうでもいいと思ってる人のソースはVBAに限らず一時が万事そんな感じです。

そして適当な仕事しか出来ないので給料も安く同じ現場で長続きしません。3ヶ月から半年で退場させられてしまいます。
プロパーであった場合は周りから使えない人というレッテルを貼られて辞めたり左遷されたりします。

どうでしょう。あなたもそういった考えを捨ててもう一歩先に進んでみては？

いつものRubyの人か他のどの言語やってる人か分かりませんが、わざわざ他の言語のスレに来てその言語を見下したような発言をしてマウントをとったような気になる惨めな心境ではなく、本来の自分の言語のスレでマウントが取れるようになるかも知れませんよ。

もっとも、そこまで行けば精神的に余裕が生まれるのでマウントを取ろうとも思わなくなるかも知れません。

2021/07/09(金) 09:05:08.09

俺は>>822に同意するわ
俺の経験としても、少なくとも今の会社と前職ではVBAスキルについてはだいたい>>822のような認識だったよ
>>824の言いたいこともわからないでもないが、傍から見りゃそれこそ突然一方的な人格攻撃を仕掛けてマウント取ろうとしてるようにしか見えるから気を付けたほうがいいぞ

2021/07/09(金) 09:42:41.99

まぁVBAのスレで碌にVBAやったことない奴が適当なこと書いて煽ってるんだから何言われてもしゃーなし

2021/07/09(金) 15:37:52.84

ネットに転がっている野良マクロをコピペして「マクロを作った気」になっているのは最低でしょ

2021/07/09(金) 16:40:19.80

突然一方的か？俺には>>822が２行目から殴り掛かってるように見えるんだけど…

2021/07/09(金) 16:40:49.31

そうかなあ
Webから適当にコピペして使うのって、ある程度ちゃんとしたプログラミングのバックグラウンドがないと結構難しいと思うよ
本当に能力の低い人はググってもそれを使いこなすことができず、サンプルを渡してやらないと自分で何も作れない

**デフォルトの名無しさん** (JP 0H99-0sKs) · 2021/07/09(金) 17:26:50.00

初心者まはまず西武労働レストランでアルバイトしてこい

2021/07/09(金) 18:19:47.05

みんな優しいな
どこかの誰かがよその職場でEXCELマクロに四苦八苦しているとか正直どうでもいいことなのにね

**812** (ﾜﾝﾄﾝｷﾝ MMa3-peBq) · 2021/07/09(金) 18:30:47.59

>>813
ありがとうございました。

2021/07/09(金) 23:25:55.24

>>832
どういたしまして

ただ、この手の質問が出るって事は普段は
Set MyRange = Range("名前")
みたいに省略してたりする？

上記は勝手に ActiveSheet.Range("名前") だと解釈されるので、
出来るだけオブジェクト修飾子を省略せずに書いた方が思わぬトラブルが減るよ。
毎回書くのが億劫な場合は次のようにすると楽。

' 事前に変数に参照先を割り当てる
Dim MainSheet1 As WorkSheet
Set MainSheet1 = WorkBooks("ブック名").WorkSheets("シート名")

' プロパティで定義する
Private Property Get MainSheet2() As MySheet
Set MainSheet2 = WorkBooks("ブック名").WorkSheets("シート名")
End Property

滅多にないけど、複数のエクセルを参照してる場合は
どのエクセルかを示すApplicationオブジェクトからの参照も必要になる

Set MainSheet1 = MainApplication.WorkBooks("ブック名").WorkSheets("シート名")

2021/07/10(土) 02:33:21.25

>>833
>上記は勝手に ActiveSheet.Range("名前") だと解釈されるので
これもよくある勘違いだが間違ってるぞ
シートモジュールのコードだと未修飾のRangeはそのシートだ
なのでActiveSheetを期待して省略してもそうならないというバグのもとになる

まあ、シート指定省略するなってことだが

2021/07/10(土) 05:43:04.57

>>833
SDIになって以降はオブジェクト装飾子は明示的に指定するようにしています。
少し長い処理中に他のブック触ろうとする輩がいるもんで。

2021/07/10(土) 08:22:58.40

>>834
確認したら確かにそうだった
訂正ありがとう

2021/07/12(月) 01:12:57.21

最近は仕事で自動化できる作業がなくなって達成感なくなって
つまらん

2021/07/12(月) 03:20:10.46

せやろか？

2021/07/12(月) 07:01:52.54

それで給料もらえていいやん