Excel VBA 質問スレ Part74

2021/12/20(月) 01:40:59.22

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

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

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

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

2022/01/25(火) 00:50:53.14

excel VBAは手段であって目的ではない

2022/01/25(火) 01:30:31.84

日本の場合、会社組織そのものが、非効率の根源なんだけどね。

上層部は社内での自分の立場を確立するために、イエスマンで固める伝統が根付いてて
下から変えるのは、ほぼ不可能。

その意味から言って、コロナ禍は日本にとって救いの神だった。

コロナ禍がなかったら、マズゴミの情報鎖国で、あと１０年以上、変わらずに
気がついた時にはASEAN諸国にまで、IT技術と経済で抜かれてただろう。

おそロシア

2022/01/25(火) 02:03:41.94

>>613

まさに典型的な、俗人的業務の思考。

個人の力量に関係なく、最高パフォーマンスで会社がまわるのを考えるのが
企業としての真の効率化。

いまだに営業職がメインの日本型企業は特に糞。

ＧＡＦＡM等、欧米のトップ企業に、そんなカビ臭い会社が無いのを見れば明らか。

2022/01/25(火) 04:51:07.51

>>604
＞関数も長々とした入れ子はダメというローカルルールできた。

それはちょっと残念かも
呼び出す関数の役割が明確化されていれば
どんなに入れ子が多くなっていても
一度内容を理解してしまえば
そんなに読み込むの苦労しないと思うし
場合によっては途中から奥まで
読まなくても解るようになるのに。

デコレーターパターンみたいのを
使いたい場合はどうするの？

2022/01/25(火) 06:27:16.77

>>599
> VBA自体がオブジェクト指向言語だけどね。
VBAのオブジェクト指向はあまりにも中途半端
Workbook や Worksheet 等のオブジェクトを扱えるけどオブジェクト指向の知識はほとんど要らん
Let と Set の違いがわかれば充分

2022/01/25(火) 06:40:37.19

>>604
嫌がらせに100万行 x 1.6万列目のセルに途中の計算式入れて50万行目 x 8万列目辺りからoffset関数で参照だな

2022/01/25(火) 07:26:11.67

>>619
まぁMicrosoftが元々中途半端で終わらせるのが好きだからしょうがない。
旧VB6とVB.Netに切り替わったときもそうだった。

とは言ってもObject指向知ってるのと知らないのではロジック作成するときの視野の広がりが変わってくる。

何かのロジック組むときにどういう方法で組むのがモアベターか、取れる手段が増えてくるよ。

2022/01/25(火) 07:56:08.67

>>618
途中計算用のシートを作れば良いのでは

2022/01/25(火) 08:05:53.28

>>621
取れる手段増えてもVBAで使えなきゃ意味ないだろ
てか余計ストレス溜まるわ

2022/01/25(火) 08:50:51.46

>>607の例は結局どんなことして出した結果なのかを証明できなければ使えないってことも含まれてるんでしょ
そういう場所では非効率でも電卓なりつかえってことさ

2022/01/25(火) 09:32:01.78

上席から見たら本来業務を疎かにしてVBAで遊んでるように見えてるんだろ
そりゃマクロ禁止にするわな

2022/01/25(火) 10:18:32.74

>>619

worksheet や workbook も確かにオブジェクトだけど
オブジェクト指向のオブジェクトとは意味が異なるよ。

オブジェクト指向言語であるか否かは、C言語と、
C++やJavaの違いなので。

2022/01/25(火) 10:26:48.56

本当にVBAプログラミングがやりたいのなら
仕事を変えるしか無いわな。

いまだに80年代のようなやり方を変えずに
やるのを良しとする老害が、上席に居るような
会社に、残念ながら未来はない。

2022/01/25(火) 10:46:46.71

製造業の事務員にVBA使える人一人欲しいんだけど事務で求人しても碌なの来ないんだよなぁ

2022/01/25(火) 10:53:10.17

>>628
ここで募集してみては？
リモートでやってくれる人がいるかもしれない

2022/01/25(火) 10:58:19.04

同志達の職場もいろいろ大変だね書き込み見ていると。うちだけじゃないのね。
長い計算式はバグがあった時に困るから作業列を使えとお達しがありましたよ。
うちの女の子達は複雑なのはあまり直せないから。
マクロはやはり過去に作った人が退職して誰も直せないから禁止になったみたい。

2022/01/25(火) 11:00:59.60

>>620
その手があった！
じゃなくてそれやるのやめてけろー泣

2022/01/25(火) 11:06:46.89

VBA使いたいから仕事辞める人なんていないでしょ
>>628
ここにいるぐらいなら自分でやればいいのでは

2022/01/25(火) 11:15:20.00

俺を雇ってくれ
必要な能力はVBAだけでええんか？その業種に固有の知識が必要だとアウトかもしんないけど

2022/01/25(火) 11:21:08.63

>>630
基本的には作業列が良い
ただその作業列も、右に言ったり左にいったり、ではなく、
左の数字を右に流していく、最後は一番右に書く、
のように統一していないと、やっぱり読みづらくなる

2022/01/25(火) 11:59:13.06

>>626
> worksheet や workbook も確かにオブジェクトだけど
> オブジェクト指向のオブジェクトとは意味が異なるよ。
どこが違うというのか？

> オブジェクト指向言語であるか否かは、C言語と、C++やJavaの違いなので。
意味不明

2022/01/25(火) 11:59:36.95

その業種独特とか固有とかそこらじゅうに転がってるぞ　それを読み解くチカラ無くしてVBAだけ　等とは笑止千万
だいたいが、VBAどころかExcelすら無関係でも彼らはそれをこなしてる　先ずはそこがボーダー
そこを起点に、それが効率化できるか改善できるか、でようやくVBAの出番
改善や効率化が不要なら出番すら無い　むしろ出しゃばるな　今のままでいい　　それを見極めるのが上司上長の役目

あと無意味に改行する奴

2022/01/25(火) 11:59:54.76

オブジェクティブCは？

2022/01/25(火) 12:15:21.94

>>628
自分ができないのにできる人が来ないとか言うなよ

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-IuBN) · 2022/01/25(火) 12:31:10.86

「オブジェクト構造」と「オブジェクト指向プログラミング」を混同していませんか

2022/01/25(火) 12:42:30.48

自分の要求を完璧に実行してくれる天才に
金を払わないでもやってくれる人ってなかなかいないんだよね

2022/01/25(火) 13:18:00.17

事務員に+αでVBA知識なんだから月給なんて20万程度での募集なんでしょ
やめとき

2022/01/25(火) 14:06:19.97

テスト

2022/01/25(火) 14:10:24.68

>>628
詳細をお伺いしたいので、よろしければ一度ご連絡下さい
vba_20220125@yahoo.co.jp

2022/01/25(火) 14:50:40.66

余程VBAが好きならその仕事を受けるのはアリだと思いますが、それでも知らない会社のシステム組むのは恐いですな。
何かあった時の各種トラブル対応を完璧にできる人じゃないとキツイのでは？

2022/01/25(火) 14:52:58.84

>>634
なるほど。同志の言うとおり
作業セルも作り方が人によりけりなので統一すべきですね。

2022/01/25(火) 15:04:52.93

大介って光2コンボ好きなのか

2022/01/25(火) 16:23:40.81

右から来たものを左へ受け流す

2022/01/25(火) 19:20:32.27

Excel VBAで、Windowsサーバの管理とか
OracleとかのDB連携システムを構築できれば
月収40～50万は余裕でもらえるけどね。

一般職よりIT技術者になった方が
年収は一気に上がるのに。

2022/01/25(火) 19:43:09.58

>>648
それはさすがにMSSQLサーバー必須
vbaはほとんど使わない

構築だけならアホみたいに余裕

2022/01/25(火) 20:00:58.11

ん？意味わかってないね…(汗

Excel のフォームをフロントエンドにして
データベース検索できるようにするんだよ。

Excelでボタン押すと、入出力フォームが出てきて
データベースへの読み書きを簡単にできるってやつ。

VBA上級者なら簡単に作れる。

2022/01/25(火) 20:05:26.58

あとは、 Excelフォームから、WindowsサーバにAPIでアクセスして
ハードウェアのリソース管理とか、AD管理できるようにするとか。

サーバーの監視部隊が定期的に手作業でやってる管理業務を自動化する。

AD とは、Active Directory のことね。

2022/01/25(火) 20:09:23.34

>>649
SQL Serverじゃなくても、VBAから
OracleでもMySQLでも連携可能だよ。

2022/01/25(火) 20:16:10.91

>>651
フロントエンドにExcelを選定する時点で怪しすぎるわ

2022/01/25(火) 20:18:03.17

VBAでイキってて草

2022/01/25(火) 20:19:27.46

もちろん、DBの深い知識とか、Windowsサーバを
管理できる知識がないとできないけどね。

どちらもSQLの読み書きは必須。

2022/01/25(火) 20:19:40.81

酷い言い方する人は、VBAはプログラミングではないと言いきる人いますからね

2022/01/25(火) 20:21:51.60

吾輩は猫であるとかいう人もいるからな

2022/01/25(火) 20:22:00.61

>>653
うん・・・
SQLServerの情報は、accessで引っ張って来て終わりなんだ
VBAは使わないはず

2022/01/25(火) 20:22:19.53

ん？Access でも、Word でも作れるよ。

MS Office を使えばコスパ良く自動化できる
ってのを、割と知らない無能が多いから
ヒントを書いたまでだけど？

2022/01/25(火) 20:25:27.78

なぜかバカほど高価なミドルウェアを使いたがるけど
VBAで自動化したらタダでできるのに。

オレはVBSでも作ったけどね。
VBSならメモ帳だけでプログラミング可能。

2022/01/25(火) 20:28:01.06

>>656

ああ居る居る。
Javaとか、Pythonじゃないととか…
ただマウント取りたがる無能なんだろうね。

VBAは、Officeのリソースしか使わないから
コストパフォーマンス最高なのに。

2022/01/25(火) 20:31:39.60

>>658

Accessなら、標準でSQL Serverとの連携は
VBA使わなくても簡単にできるけど、

フォームを使いたい場合は、VBA必須。

2022/01/25(火) 20:35:14.51

MS Officeが無い場合でも　JavaScriptでも
できるけど。

とにかく色んな自動化は、格安でできるってこと。

弘法筆を選ばずとはこの事。笑

2022/01/25(火) 20:38:14.03

まあ、給料上げたいなら
努力して頑張りましょう。

2022/01/25(火) 20:40:51.27

Excel VBAでも作れるけどC#とかの方が全然楽だぞ
定期的なADの操作とかならPowerShellでいいし
VBAしか書けないというのでなければ.NETFrameworkの恩恵を受けられないVBAの出る幕はない

2022/01/25(火) 20:41:24.90

いつもの馬鹿か？

2022/01/25(火) 20:44:12.39

ID:mNb42c/J0

いつもの知ったかの馬鹿？

2022/01/25(火) 20:46:43.85

コスパの話をしてんのよ。

わかるかな？無能さん。

2022/01/25(火) 20:58:23.53

>>668
無能はお前だろ、馬鹿が
コスパなら>>665が書いてるようにPowerShellだろうが

2022/01/25(火) 21:01:31.55

もちろん、PowerShellでも作れるし
他にもテキストベースなら
JavaScript、VBSでもつくれるし。

2022/01/25(火) 21:01:47.49

VBAスレなのになぁ

2022/01/25(火) 21:04:24.62

無能はスマソ。
Windows環境なら、簡単に自動化する方法は
沢山あるよって話でした。

さようなら。

2022/01/25(火) 21:28:25.73

>>672
話しを誤魔化して逃げるのかよ、馬鹿

2022/01/25(火) 21:31:06.39

放置しとけよw
別に今時のWindowsならC#でもVB.NETでも使えることすら知らんみたいだし

2022/01/25(火) 22:00:31.09

>>604

なんかもうため息というかなんというか。要は上司の「俺が理解できないから」だよね。
悪い意味での日本流。東アジア流かもしれん。

偶然の産物かもだけど、「長々とした入れ子は駄目」は賛成する。

4段以上のネストとか30行以上の関数とか俺の頭じゃバッファオーバーフロー。

2022/01/25(火) 22:08:37.63

If( 正当条件1 ) Then
　　If( 正当条件2 ) Then
　　　　If( 正当条件3 ) Then
　　　　　　If( 正当条件4 ) Then
　　　　　　　　長～い正当処理1
　　　　　　　　長～い正当処理2
　　　　　　　　長～い正当処理3
　　　　　　Else
　　　　　　　　エラー4
　　　　Else
　　　　　　エラー3
　　　Else
　　　　エラー2
　　Else
　　　エラー1
End If

こんなの見ると、「初手でエラー全部弾けよ」と思う。

2022/01/25(火) 22:11:24.49

まあまあ、自分が昔組んだコード見ると何でこんな面倒なことやってたんだろうってみんなが通る道だし

2022/01/25(火) 22:16:18.25

>>676
こういう場合どうすべきかね
フラグ立ててfalseならexitsubにしてしまうか
gotoかエラーコードで最後に飛ばすか

2022/01/25(火) 22:21:46.97

いま、Youtubeひろゆきライブ配信やってるから

よく聴いて、社畜奴隷の洗脳を解きなさいな。

2022/01/25(火) 22:23:22.62

Office田中先生、近々ようつべに復帰するみたいですね。
内容は当たり外れあるからアレだけど、あの方の喋りはひょうきんで楽しい。

2022/01/25(火) 22:24:31.01

>>677
恥ずかしくなりますよね昔のシート見ると。
当時の自分は何がしたかったのかみたいな。

2022/01/25(火) 22:32:38.66

>>676 なら

If Not 正当条件1 Then
　エラー1
ElseIf Not 正当条件2 Then
　エラー2
ElseIf Not 正当条件3 Then
　エラー3
ElseIf Not 正当条件4 Then
　エラー4
Else
　長～い正当処理1
　長～い正当処理2
　長～い正当処理3
End If

とする、面倒なのは

If 正当条件1 Then
　ちょっとした処理1
　If 正当条件2 Then
　　ちょっとした処理2
　　If 正当条件3 Then
　　　長～い正当処理1...3
　　Else
　　　エラー3
　Else
　　エラー2
Else
　エラー1

のケースでこの時はルーチン分けるかGotoで途中脱出させると思う

2022/01/25(火) 23:09:39.57

Select Case 0
Case 正当条件1
エラー1
Case 正当条件2
エラー2
Case 正当条件3
エラー3
Case 正当条件4
エラー4
Case Else
長～い正当処理1
　　長～い正当処理2
　　長～い正当処理3
End Select

どやさ

2022/01/25(火) 23:20:00.64

Call 長い正当処理1to3

2022/01/25(火) 23:22:36.33

>>676
VBAはショートサーキットしないからIfを何段も並べた方が効率いい場合がある
けど、この場合はエラーも4種類だから判定式を1つにまとめるわけにいかない

この書き方が読みにくいと思うならIfからエラーまでをそれぞれ4つのFunctionに飛ばすかな

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-N4O5) · 2022/01/25(火) 23:29:04.02

頭が悪いからずっとこれだわ

If エラー条件1 Then
エラー処理
Exit Sub
End if

If エラー条件2 Then
エラー処理
Exit Sub
End if

If エラー条件3 Then
エラー処理
Exit Sub
End if

正当処理

2022/01/26(水) 01:52:17.01

>>679
馬鹿が底の浅い知識をひけらかして嘘を書いて、捨てゼリフ吐いて逃げたのにノコノコ戻ってきて再び捨てゼリフと
馬鹿は自分の拙さを知らずに馬鹿な自分が見えるだけの世界が全てだと思っているから馬鹿なんだよ

2022/01/26(水) 06:27:00.95

>>686
サブルーチンに切り出せるならそれが一番見易い

2022/01/26(水) 11:26:17.93

パッと思い付いてすぐコードを書ける自体有能だと思いますよ。
みんな凄い。

2022/01/26(水) 11:54:57.36

たしかにVBとか普段書かないからif thenおかendなんて思い出せないよな

2022/01/26(水) 13:10:14.89

ちゃんと単体結合テストやるところの場合だと
処理毎に、Function に分けるのが吉。

2022/01/26(水) 14:42:22.30

みんな試行錯誤してきたのがよくわかる

2022/01/26(水) 16:16:07.18

Excel全般て本当に努力しないと使えないってのはウソじゃないですな

2022/01/26(水) 16:21:39.28

Excel VBAビギナーの頃
5000万の案件をやり遂げた事あるけど
VBの入り口としては良いよね。

昔はVBAを入り口に、VB6.0 に移行できたから
良かったんだがな。

2022/01/26(水) 18:39:36.99

>>623
まぁ他言語をやってない奴の意見なんてそんなもんだろな。
VBAで使えるものもあれば使えないものもある。

テンプレートメソッドパターンなんかは使えないけどストラテジーパターンなんかは使える。

そういうの使った際に分岐が減るからUT楽になるかなー、とか、それ使う程の規模かなー、とか
楽な方を選べるってことだよ。

2022/01/26(水) 18:53:39.06

>>695
> ストラテジーパターンなんかは使える。
無理じゃね？

2022/01/26(水) 19:15:39.62

グローバルしかない古代BASICに比べれば天国じゃよ

**676** (ﾜｯﾁｮｲ 8756-xA1r) · 2022/01/26(水) 20:11:08.97

みんなやっぱ困ってるお題なんだなこれ。反応ありがとう。

俺は

Function Func(Args)

　Func = TestArguments( Args ) // ←このへんは異論出るかもだけど、内部関数で引数テストはありだと思う。

　If Func <> Normal Then
　　Exit Function
　EndIf

　Call 長～い処理1をファンクションにしたもの
　Call 長～い処理2をファンクションにしたもの
　Call 長～い処理3をファンクションにしたもの

End Function

てな感じをイメージしてた。VBAの文法的にはむちゃくちゃかもだけど、最近書いてないのでそこは許してｗ

C風に

If ( (Func = TestArguments(Args))<>Normal ) Then て書けるのかな。

2022/01/26(水) 20:33:27.76

エラーとしてまとめるってのを昔見たことあるけど、見づらいかなぁ

Sub Func()
On Error GoTo err

flg = True

If flg Then
err.Raise Number:=513, Description:="内容"
End If

'　Call 長～い処理1をファンクションにしたもの
'　Call 長～い処理2をファンクションにしたもの
'　Call 長～い処理3をファンクションにしたもの
Exit Sub

'エラー処理
err:
MsgBox err.Number & vbCrLf & err.Description
End Sub

2022/01/26(水) 20:50:31.29

>>698
> C風に
> If ( (Func = TestArguments(Args))<>Normal ) Then て書けるのかな。
書けるけど君の思ったようには動かない、例えば
Work = (Func = TestArguments(Args))
は TestArguments() の戻り値が Func と同じなら True、違うなら False が Work に入るから、それと Normal を比較することになる
※ 実際には Func は再帰呼出しとなるが引数が指定されてないのでエラーになる

2022/01/26(水) 21:48:41.76

>>700
なる。ありがとう。

2022/01/27(木) 01:44:43.12

>>699
わざわざエラーとかせずに、普通にGOTOで飛ばせばいい

局所的にGOTO使っても可読性は落ちないし、むしろわかりやすいと思ってる

2022/01/27(木) 02:13:33.38

後藤使うのは素人

2022/01/27(木) 07:25:42.82

>>702
Raise ならエラー情報（番号とメッセージ）を伝えられると言うメリットがあるな

2022/01/27(木) 09:17:43.26

>>702>>704
そう、この場合のメリットは>>704の通り
そして他のエラーもまとめることができるのでシンプルになる

>>703
この場合はgotoかエラー以外ない

2022/01/27(木) 09:49:42.96

>>696
何故そう思う？

2022/01/27(木) 10:10:14.97

>>706
CallByName() とかを使ってやってやれなくは無いけど無理矢理感あるしな

Strategyパターンはアルゴリズムを記述するサブルーチンへの参照をデータ構造の内部に保持する。
このパターンの実現には、関数ポインタや関数オブジェクト、デリゲートのほか、オーソドックスなオブジェクト指向言語におけるポリモーフィズムと委譲、あるいはリフレクションによる動的ダック・タイピングなどが利用される。

VBAにもまともな関数ポインタがあればね…

2022/01/27(木) 10:41:53.58

>>707
そもそもクラスで普通に移譲が出来るんだから
出来るとは思わないか？
もっとも、継承が使えないので
Is a関係だろうがhas a関係だろうが
移譲に頼ることになるだろうけど。

2022/01/27(木) 11:20:16.68

>>708
ああ、インターフェースはあるから移譲はできるか

2022/01/27(木) 12:29:10.84

シンプル･イズ･ベスト。
スティーブ・ジョブズの信条でもあった。

凡才は複雑を好み、天才はシンプルを好む。

2022/01/28(金) 00:04:37.97

WorkSheetのEventで、
テーブルのフィルタソート機能(昇順or降順)をユーザが使ったときのEvent
ってできるんでしょうか？
最悪、"フィルタ機能を使った"時点でも取得できれば。。。

2022/01/28(金) 00:19:09.31

>>711
ない

2022/01/28(金) 03:12:47.26

>>712
まじですか、、、ありがとうございました。

2022/01/28(金) 12:32:58.97

すんません、膨大なデータ量の集計を任されて困ってます。
例えばA1セルに
「1.5G」とあるものは
Gを取った上で1024を3乗し、B1に表示
「256M」とあるものは
Mを取った上で1024を2乗し、B1に表示
「504K」とあるものは
Kを取った上で1024を掛け、B1に表示
みたいな便利なことができる関数があれば教えて頂きたく。
SUBSTITUTEで文字を取ったりVALUEで数字だけ抜き出したりしてみても、そこに条件判定を組み込むことが出来なくて…。

2022/01/28(金) 13:00:06.93

>>714
Excelのバージョン書いて