Excel VBA 質問スレ Part49©2ch.net

2017/06/26(月) 02:15:14.60

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※前スレ
Excel VBA 質問スレ Part48
http://mevius.2ch.net/test/read.cgi/tech/1494890685/

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

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

2017/07/19(水) 21:53:52.63

>>371
成仏しなされ

2017/07/19(水) 22:03:31.20

>>373
> 配列は要素数の空判定でお茶を濁そう。
それが簡単にできれば>>363とかがわざわざレスせんよ

>>375
> ArrayはVariant型以外の場合もあるから、この方がいい。
アホか、ビットマスクなんだから And VbArray で判断しろよ

2017/07/19(水) 22:03:54.68

vbNullString を厳密に判定する場合、StrPtr()使わないと判定できないと思ふ

If StrPtr(vbNullString) = 0 Then ’～　Null Pointer

2017/07/19(水) 22:36:12.42

>>388
Select文だとAnd vbArrayって使えないと思うんだけど、例文出してくれる？

2017/07/19(水) 23:08:15.46

>>386
無い
作れば？

2017/07/19(水) 23:33:45.07

>>390
ひょっとして応用力ないとか？
Selectにこだわる必要ないし
どうしてもやりたきゃ
Select Case True
Case （VarType(hoge) And VbArray) <> 0
...
でいいだろ

2017/07/19(水) 23:39:04.83

>>392
ああ、やっぱりそういう方法しかないのね。

元々がIf文を可能な限り使わないというところから出発しているし、
それだとIf Else使った方が処理も速いしSelect文で読みやすくするっていう利点も潰してるんだよな。

2017/07/20(木) 01:20:53.05

>>381,383
たしかにvbNullStringと""は別物なんだが
vbNullString=""の比較はTrue返すはず
単に空チェックだけなら""とだけ比較しとけば良いんじゃね

2017/07/20(木) 01:36:37.21

やはり、配列の空判定は別関数にしたほうが良さそうだね。

Function IsNone(hoge) As Boolean
　　Select Case VarType(hoge)
　　　　Case vbEmpty, vbNull
　　　　　　IsNone = True
　　　　Case vbObject
　　　　　　If hoge Is Nothing Then IsNone = True
　　　　Case vbString
　　　　　　If Len(Trim(hoge)) = 0 Then IsNone = True
　　　　Case Is >= vbArray
　　　　　　If ArrayEmpty(hoge) Then IsNone = True
　　End Select
End Function

Function ArrayEmpty(hoge) As Boolean
　　美しいコード
End Function

2017/07/20(木) 01:50:57.43

>>384を使って、

Function ArrayEmpty(hoge) As Boolean
　　If SafeUbound < SafeLBound Then ArrayEmpty = True
End Function

Function SafeUBound(hoge, Optional div As Long) As Long
On Error GoTo fin
If div = 0 Then div = 1
SafeUBound = -1
SafeUBound = UBound(hoge, div)
fin:
End Function

Function SafeLBound(hoge, Optional div As Long) As Long
On Error GoTo fin
If div = 0 Then div = 1
SafeLBound = 0
SafeLBound = LBound(hoge, div)
fin:
End Function

う～～ん、、、いまいち美しくない…orz

2017/07/20(木) 02:11:18.92

>>394
> 単に空チェックだけなら

Len(Trim(hoge)) = 0

で事足りてるような気はする。

イミディエイトウィンドウでテストしてみて。

? Len(Trim(InputBox("値を入力してね"))) = 0

［OK］［キャンセル］どちらでも True が返る。

2017/07/20(木) 02:46:26.38

>>396
Function RBound(hoge, Optional div As Long) As Long
On Error Resume Next
If div = 0 Then div = 1
RBound = UBound(hoge, div) - LBound(hoge, div) + 1
End Function

あくまで配列要素数があるかどうかだけ判断したいなら、こういう関数でもいいと思うけど。

2017/07/20(木) 07:38:01.83

>>398
おおー、だいぶスッキリしたね。

ひとつ残念なのは、引数の次元指定が美しくないんだよなー。

つか、1次元の要素が空の配列なんて使う？
1次元が空かどうかだけ判定すればいいんじゃね？

2017/07/20(木) 08:01:18.50

関係ないけど配列の次元を求めるWin32APIがあるのに、いつまでたってもVBAから使えないのは何なの？

2017/07/20(木) 08:08:10.03

>>399
Optionalをわかってないのは美しい美しくないとか言う以前の問題。

2017/07/20(木) 08:34:30.46

その理屈だと、大抵の事はC＋＋で出来るから他の言語は不要ということになるな

2017/07/20(木) 09:48:29.70

>>402
VBAから使えるようになればC++の必要性が減る、と解釈するのが自然だと思うけどな？

2017/07/20(木) 12:39:43.62

>>393
速いとか読み易いの前に正しいコードを書きましょう
って話
動けばOkでいいじゃんと言うなら返す言葉はないけど

2017/07/20(木) 12:51:59.09

>>401
optionalはわかるよ。

仮に引数指定するとして、どの時点で指定するのかな、って。

2017/07/20(木) 12:55:10.23

>>404
つか、正しくないコードは動かないでしょ。

2017/07/20(木) 13:34:31.13

>>398のは
配列要素数があるかどうか「だけ」判断するというのとOptional引数で
次元を指定させる点がちぐはぐなんだよね。

2017/07/20(木) 13:40:13.76

それとも手持ちの関数をまんまコピペしたのかな？

2017/07/20(木) 18:17:53.32

ま、配列の空判定関数は各自で書くということでこの話題は完結かな。

ちなみに俺は、

Function ArrayEmpty(hoge) As Boolean
　　On Error Resume Next
If UBound(hoge) - LBound(hoge) < 0 Then ArrayEmpty = True
End Function

って感じ。

空判定関数を書くというだけの話題だったけど、いろいろ勉強になったね。

おつかれさまー。ﾉｼ

2017/07/20(木) 18:32:35.34

3行目は

If UBound(hoge) < LBound(hoge) Then ArrayEmpty = True

のほうが美しいな。

2017/07/20(木) 18:53:02.67

そしたら

ArrayEmpty = UBound(hoge) < LBound(hoge)

でもいける。

2017/07/20(木) 18:56:56.64

>>411
素晴らしい！！

頭が柔らかくて羨ましいよ。

2017/07/20(木) 19:42:53.19

完成した関数テンプレにのこしておいてよ
vbaの良質なコードはすごく希少だし

2017/07/20(木) 19:58:58.45

>>406
たまたま動いてるだけのコードも正しいと言い張るの？

2017/07/20(木) 20:06:31.90

>>414
つか、いったい何が悔しかったの？
君ほどの実力者が。

2017/07/20(木) 20:27:30.52

>>413
どこに残せばいいの？

完成品はこれでいいかな。

Function IsNone(hoge) As Boolean
　　Select Case VarType(hoge)
　　　　Case vbEmpty, vbNull
　　　　　　IsNone = True
　　　　Case vbObject
　　　　　　IsNone = hoge Is Nothing
　　　　Case vbString
　　　　　　IsNone = Len(Trim(hoge)) = 0
　　　　Case Is >= vbArray
　　　　　　On Error Resume Next
　　　　　　IsNone = UBound(hoge) < LBound(hoge)
　　End Select
End Function

簡潔で美しいね。みんなの力の結晶だ。

2017/07/20(木) 22:00:04.12

>関数テンプレにのこしておいてよ

どこにあんだよ、そんなの
ここで知った人間で保存しておきたいって奴が保存しておけば良いだろ

2017/07/20(木) 23:07:38.62

スレッドのテンプレに残しておいてほしいって事なんじゃないの。
でも残し始めたら際限無くなるし、コピペで済ませずに理論と意図を理解して同じものを一から書けるようになってほしいなぁ。

2017/07/21(金) 05:39:07.68

>>415
えっ？
なにか悔しいことでもあったの？ w

2017/07/21(金) 12:22:10.00

こんなコードテンプレに残したらますます初心者が初心者を惑わすスレに拍車がかかるなｗ
本当に仕事でエクセルマクロを必要としてる人には迷惑かけんなよｗ

2017/07/21(金) 12:42:41.45

残せというやつがwikiでも立てて残していきなよ

2017/07/21(金) 14:22:43.43

> 初心者が初心者を惑わすスレ

言い得て妙だｗｗ

いいんだよ、それで。
VBA使いはエンジニアじゃないから。

2017/07/21(金) 14:37:29.87

>>422
さーせん
lsi engっす

2017/07/21(金) 14:46:06.01

>>422
まだVBA使い≠エンジニアとか言ってるの？
エンジニアでもVBA使いは居るってのに

2017/07/21(金) 15:00:26.78

低スキルにありがちな下らないレッテル張り

2017/07/21(金) 15:28:32.09

どの言語の質問スレも初心者が初心者を惑わすスレ化してるのが悲しい。
「よくある質問と回答」レベルなら問題ないんだけど、ちょっと突っ込んだ質問になるととたんに雲行きが怪しくなる。

ある程度の実力を身につけたら2chじゃなくてちゃんとしたコミュニティか何かに参加するべきなんだろうけど、
だいたい見つからないし、見つけても2chほど気軽に質問投げられるような場所じゃなかったりするんだよな。

2017/07/21(金) 17:53:53.00

>>426
知恵袋とか、もっと酷いよ。

2017/07/21(金) 19:35:15.46

>>426
ネットの情報なんだから裏を取ればいいだけ
今時書いてあるキーワードでググれば調べるのもそんなに苦労しないしな
惑わされるより過疎化してまともな回答が少なくなってる方が問題だわ

2017/07/21(金) 19:48:27.62

>>424
エンジニアでもVBA使いは居るけど、
VBA使いになりたいエンジニアはいない。

2017/07/21(金) 19:55:14.10

>>429
これな
いやいやだわ
javascriptのほうが楽しいし

2017/07/21(金) 19:56:51.84

>>430
JavaScriptのほうが楽しい理由は？

2017/07/21(金) 19:57:13.96

＞javascript
お、おう

2017/07/21(金) 20:01:12.83

javascriptってvbaの次に底辺やんwww

2017/07/21(金) 20:05:21.15

そりゃていへん(大変)だ

(´・ω・｀)b

2017/07/21(金) 20:10:04.71

>>433
使ったことある人が多い言語って底辺扱いされやすいよね。

おそらく、C や Java の比じゃないと思うよ。＞VBA

でも、Java は使う人が多くなりつつあるから、底辺扱いされるのは時間の問題かもね。

2017/07/21(金) 20:58:10.67

新興の言語って利用者全員が似たような習熟度だから意思疎通が図りやすいし、
どんなにクソみたいなコード書いても判断材料が無くて効率的なコードって言ってもらえるからな。

2017/07/21(金) 21:00:52.93

>>369
欠陥なんじゃなくて、馬鹿ほどvariantを使う法則なだけ

2017/07/21(金) 21:04:33.39

何の話だっけ？

2017/07/21(金) 21:21:32.57

西中島南方北口の話

2017/07/21(金) 21:54:13.22

長い間SQL触ってたので、
SelectがVBAにもあったのを完全に忘れていた、という話。

2017/07/21(金) 21:57:47.01

複数の言語を使うとselectとswitchは妙に間違える
俺だけかねー？

2017/07/21(金) 22:03:49.06

>>441
わかる

2017/07/21(金) 22:16:02.62

JavascriptにおけるjQuery的な
VBAのクラスってどっかにないのかな

Set class = New class
class.lastRowAdd(Range("a1"),array)
ってやったら最終行に配列の内容をぶっ込んでくれる
とか
よくある操作をパラメーター渡せばやってくれるような

2017/07/21(金) 22:20:47.57

>>443
それって結果は何になるの？

2017/07/21(金) 22:30:00.89

>>444
このコードは妄想クラスメソッドなのでエラーになるけど
もし、いろんな汎用処理を詰め込んだクラスなりを
誰か作ってたら欲しいなーと思いましたとさ、という話

2017/07/21(金) 23:32:25.33

>>445
そうじゃなくて１次元配列が出来上がるとか２次元配列が出来上がるとか
もちょっと具体的に
あと第二引数はなんだ？

2017/07/21(金) 23:36:11.83

そこまで引っ張る話題でもなくね？と思うけど確かにどうしたいのかわからんのもあってちょっと聞きたくもあり

2017/07/21(金) 23:41:52.51

見た目からするとSQLで解決しそうな感じがする。

2017/07/22(土) 00:08:10.36

科学計算が爆速でできるVBAのフレームワークができれば、VBAの価値は一気に上がる。

2017/07/22(土) 00:08:20.61

データベースな表で
第一引数のセルから下に見ていって一番下に
第二引数の配列をズドンと書き込む
という想定

たしかにそこまで引っ張るネタでもないです

2017/07/22(土) 00:10:10.03

そんな事言わずにもう少しひっぱろうぜ

2017/07/22(土) 07:42:45.82

>>450
ネタで言ってるなら申し訳ないが、それその通りに書くだけで良くね？

2017/07/22(土) 10:25:51.44

>>452
そういう話ではない。

まあでもVBA用の色んな処理の検索はしてきたけど、アドイン化されてるものは全然見かけないなあ。
汎用的な機能を詰め込んだアドインってこれくらい？
http://software.opensquare.net/relaxtools/
>>443の求めるものとは違うんだろうけど。

結局は自作クラスってことになりそう。

2017/07/22(土) 10:32:33.05

>>451
お前の下らん雑談ネタのためにこのスレが有るわけじゃないんだyo

2017/07/22(土) 10:39:13.62

あぁarrayは横向きの配列ってことか、なるほど
VBAで汎用ライブラリ作るとしたらどんな名前になるだろう
ｔｙっと作ってみたくもあるな

2017/07/22(土) 10:51:06.27

ブログ検索すれば色々出てくるから好きなのを使う。
製品的なやつが欲しいなら知らん

2017/07/22(土) 12:11:05.98

完成した関数テンプレにのこしておいてよ
vbaの良質なコードはすごく希少だしアドインってメンテナンス大変じゃないか?
用途としてはいろんな人に使わせる用だと思うんだけど誰かが使ってる最中に変更できないじゃん
やたらにバージョン上げると某ライブラリみたいな顛末になるし

2017/07/22(土) 12:15:52.49

じゃあコピーしたもん編集して誰もいないときに上書きすればいいじゃん

2017/07/22(土) 12:17:43.62

テンプレなんかに残すと肥大化して仕方ない

2017/07/22(土) 12:26:21.19

>>431
新しい昨日が追加されるところ
まだクソなのはクソだけどvbaは一切進歩せんからなあ

2017/07/22(土) 12:38:20.99

新しい昨日って言葉が心に刺さった

2017/07/22(土) 13:17:27.76

某ライブラリの悪口はやめろ

2017/07/22(土) 17:08:46.19

>>460
> vbaは一切進歩せんからなあ

エンジニアのための言語じゃないからね。

Dim だの Set だの If Then だの、
うんざりするのはしょうがないとしても、

objFSO

なんていう変数を見た日にゃ、
ぶっ殺したくなるね。

2017/07/22(土) 18:29:44.93

>>463
継承もサポートしてないしね
だから初心者の入口としても不向き
マイクロソフト的にもお荷物だろうな
はよ.net framework対応してほしいわね

2017/07/22(土) 18:50:19.82

そもそも継承が必要になるほどの大規模な開発をVBAでやる事自体が間違い定期。

2017/07/22(土) 19:09:15.96

いまさら継承はいらないよ

2017/07/22(土) 19:22:53.47

まあ継承より配列周りの強化してほしいかな
わざわざ自分でコレクションもどき作ってるけどめんどいわ

2017/07/22(土) 21:16:12.56

初めてADOっての使ったけど、なんだこりゃ。

MSQueryと違って、列名が出ないじゃん。
いや、ヘッダのON・OFFで無理矢理出せるけど、
そうするとUnionした時に、レコードの途中に列名が出やがる。(列名扱いされないから?)
列名は、出力位置の上に、予め書いとかなきゃいけないの?

2017/07/22(土) 21:48:53.95

>>467
コレクションもどきって何？
配列もどきのコレクションとは違う何かかな？

2017/07/22(土) 21:51:30.60

フォームを作ってるとき、同種のパーツのオブジェクト配列が簡単に作れたら良いのにって思うわ

2017/07/22(土) 22:39:49.33

>>470
For Each x In Userform.Controls
　　 Select Case Typename(x)
　　　　 Case "Label"
　　　　　　 ...
　　 End Select
Next

みたいなのじゃなくて？

2017/07/22(土) 23:56:17.15

>>468
列名も取れる

2017/07/23(日) 01:19:51.07

>>471
VBだとフォームパーツの型のオブジェクト変数として配列変数が宣言できる
何かと便利

2017/07/23(日) 07:50:57.33

>>470みたいな需要は確かにありそうだ。
さっそくオレ様ライブラリに取り入れよう。

2017/07/23(日) 11:44:10.83

>>469
コレクションて値の出し入れできなかったりするじゃん？
値の追加、挿入、削除、入れ替え、ソートあたりメソッドにしたクラスだね
型は安全に出来ないけどなかなか便利
objectにも対応させたいけどやや面倒だから手を付けてない

2017/07/23(日) 22:46:54.50

>>472
Forで1つずつ取る方法しかなかったわ。
CopyFromRecordsetみたいに一撃弾平なのはないのね。

2017/07/23(日) 23:32:34.17

>>475
コレクションもどきって表現はミスリーディングだな
コレクションの拡張クラスだそれは
アイテムのソートと入れ替えは便利そう

2017/07/24(月) 02:14:49.51

>>477
for eachできないからコレクションもどきとした
中身はただの配列だし

2017/07/24(月) 06:50:21.77

>>478
コレクションをラップしてるんじゃなくて中身が配列なのか
確かにそれだとコレクションもどきだな

2017/07/24(月) 08:13:01.75

>>479
継承できればコレクションからゴニョゴニョした方がいいんだろうけど
どうでも良いけど値の入れ替えのメソッド名をRepracementにしてるんだけどなんかしっくりこないんだよね
なんかいいのないかな

2017/07/24(月) 08:16:32.78

そりゃ違和感あるだろな

2017/07/24(月) 08:53:04.80

>>481
入れ替えで辞書ツール突っ込んだらそれでてきたからしゃーない

2017/07/24(月) 09:00:24.88

配列の話題になってから調べて初めて知ったけど
ArrayListをVBAで使えるんだね
一通りメソッドもそろってるみたいだし、どうかな

実際に使ってみたわけではないけど

2017/07/24(月) 09:18:31.28

>>483
便利は便利だけど遅い
三桁四桁の配列なら大差無いだろうけどね
大抵はコレクションで事足りちゃうしね

2017/07/24(月) 13:58:09.64

使い勝手はArrayListのほうが便利そうだね
まぁ確かに自分も使ったことないけど

2017/07/24(月) 21:11:53.14

ちゃんとしたやつがあるのかよwww
自作配列にArrayListって変数名付けたわwwww