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(火) 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のバージョン書いて

2022/01/28(金) 13:09:05.83

>>714
あんまりスッキリした方法じゃないけど、単位ごとに処理を分けて並べるぐらいしかないのでは
式はもうちょっと整理できると思うけど、とりあえず動くやつ
=IF(RIGHT(A1,1)="G",LEFT(A1,LEN(A1)-1)*1024^3,IF(RIGHT(A1,1)="M",LEFT(A1,LEN(A1)-1)*1024^2,IF(RIGHT(A1,1)="K",LEFT(A1,LEN(A1)-1)*1024,A1)))

2022/01/28(金) 13:43:11.42

>>715
Microsoft 365 MSO(16.0.13801.21004)
>>716
本当にありがとう、助かります。

2022/01/28(金) 13:54:48.79

powerとfindで考えてたけど、あんまり変わらんかった

2022/01/28(金) 14:06:54.61

>>717
365 なら
=SWITCH(RIGHT(A1, 1), "G", 1024^3, "M", 1024^2, "K", 1024) * LEFT(A1, LEN(A1) - 1)
ただし、最後が GMK でなかった時はエラーになるのでその場合はIFERROR()で回避かな

2022/01/28(金) 14:10:37.46

集計なら式使わずに素直にVBAで処理すれば？

2022/01/28(金) 15:01:21.24

>>719
ありがとう、それも問題なくいけました。

2022/01/28(金) 15:16:30.86

>>721
1K未満の単位の付かない数値に対応したやつ
=LET(u,RIGHT(A1,1),p,SEARCH(u,"kmg"),IFERROR(LEFT(A1,LEN(A1)-1)*1024^p,A1))

2022/01/28(金) 15:34:49.10

色々ありがとう。使わせていただきます。

2022/01/28(金) 16:00:55.15

>>723
スピードを求めるならVBAでやった方がいい。
基本、VBAよりCELLに入れた数式の方が計算早いけど、
値を設定するたび再計算が走るのでは当然遅くなる。

単位をRightの1文字切り取って使うかInStrRevで1文字切り取って使うかは自由だし、
数値部分も最後のひと文字を抜いて数値変換する方法はどうにでもなるはずだから、
後は切り取った単位で冪乗計算の乗数を変えてあげれば簡単に行けるはず。

2022/01/28(金) 16:07:42.05

膨大な行数になるようなら
関数よりマクロの方が断然軽い。

マクロの記録で瞬間でできるし。

2022/01/28(金) 16:08:26.59

記述すら必要なし。

2022/01/28(金) 17:30:28.61

マクロの記録で瞬間て、どうやるの？

2022/01/28(金) 17:31:33.84

一瞬で

2022/01/28(金) 17:35:47.36

この程度なら関数の方が速いと思うぞ
マルチスレッドで動くし
再計算も変化したセルに関連するところしかやらないから問題にはならないと思う

2022/01/28(金) 17:36:25.47

ここはVBAスレだから質問はスレチだけどみんな優しいね

2022/01/28(金) 17:49:38.97

>>730
はて？

「Excel VBA 質問スレ Part74」
とあるが？

2022/01/28(金) 17:57:01.02

> ここはVBAスレだから（計算式の）質問はスレチだけどみんな優しいね

2022/01/28(金) 18:14:34.37

>>714
こんな奴に作業を任せるとかそもそも間違えている

2022/01/28(金) 18:21:53.88

今のエクセルの計算式は基本マルチスレッドでやるから、VBAでちまちまやるよりは早いだろうけど
このスレ的にはVBAで関数作るんが正解じゃないかと思った

で、ふと思ったが、VBAの関数をワークシートの計算式で使ったら、シングルスレッドで処理されるのかな