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/17(月) 20:14:06.57

>>299
VBAメインという人はいないよね。

2017/07/17(月) 20:19:25.98

vbaメインは事務職だろう

2017/07/17(月) 20:21:12.48

>>303
そうそう。エンジニアじゃないのよ。

2017/07/17(月) 20:22:42.87

>>302
あれ？
VBA使いはエンジニアじゃないんじゃなかったっけ

2017/07/17(月) 20:25:53.47

>>305
つまみ食いするエンジニアはいるでしょ。

2017/07/17(月) 20:34:45.10

>>302
VBAメイン縛りなの？

2017/07/17(月) 20:37:52.24

お前の中ではVBAからプログラムに入り今は別言語メインってやつは存在しないんだね

2017/07/17(月) 20:54:22.06

エンジニアかどうかってプログラム言語に依存する概念だっけ？
実現手段なんかコロコロ変わるのに

2017/07/17(月) 20:56:09.78

vbaからhtml・phpに行ってなんか社内SEみたいなことやってるわ
割りと楽

2017/07/17(月) 21:13:30.47

>>307
うん、縛り。

>>308
多くのエンジニアの中で揉まれた経験があるかどうか、だよね。

>>310
ありがちだよね。「みたいなこと」止まり。
いわゆる「エンジニアもどき」ってやつｗ

2017/07/17(月) 21:14:47.84

エンジニアは２ちゃんねるに来ないだろう

2017/07/17(月) 21:32:12.23

>>311
揉まれた経験からだと言う割にメイン言語で縛ってたりVBA出身は違うとか言ったり

主張は明確に頼む

2017/07/17(月) 21:38:42.01

ExcelVBAの挙動が謎すぎて困る
IF xx IS NOT NULL AND xx.value = 100
みたいので例外出たときは目を疑った

nullのときも両辺評価するって決まってるならまだしも
普段は何事もなく動いてるのに
急に気まぐれに両方評価するのやめーや…

2017/07/17(月) 21:39:52.50

>>313
君こそ何が言いたいのかよくわからないけど、
まぁ、コードは簡潔に、ということ。

2017/07/17(月) 21:45:47.60

>>315
俺の言いたいことは「方言で喋るヤツは日本人じゃないよねみたいな言い回しは嫌い」ってだけ

コードは簡潔にって所は同意見だな

2017/07/17(月) 21:50:52.95

>>314
今更だろう
longな数値同士を文字列結合できるぐらいなんだし、何が起こっても驚かん

Sub foo()
Dim a As Long
Dim b As Long
a = 1
b = 2
Debug.Print a & "|" & b
End Sub

2017/07/17(月) 21:51:23.92

ってかvbaって実は内部的に全部variantで処理してない？と思うことがたまによくある

2017/07/17(月) 22:01:54.76

>>314
短絡評価が保証されてない言語で
> IF xx IS NOT NULL AND xx.value = 100
なんて書く奴の方が謎
NothingじゃなくてNULLなのも謎
あとNULLならIsNull( )じゃないのも謎

2017/07/17(月) 22:05:39.05

知らんがな！そんな詳しくない

環境制限されて使わざるをえずに使って
ちょっとカルチャーショック受けただけ

2017/07/17(月) 22:09:42.75

まえ２ｃｈでEXCELVBAが挙動アバウトだから使いたくないって言ったら
お前の頭がアバウトなだけでVBAはアバウトじゃないって返された

ほんとにアバウトやん

2017/07/17(月) 22:11:29.92

いつもながらの仲間内のどうでもいい戯言が続いているだけなんで、質問者の方は気になさらずにどうぞ～

2017/07/17(月) 22:13:55.47

>>314
＞「nullのときも」
Nullかどうか関係なく AND 演算子がつねに両辺評価だってだけよ

2017/07/17(月) 22:16:50.48

>>320
ところでちょっと興味あるんだけど「環境制限」て何がNGなの？

2017/07/17(月) 22:18:26.02

うんそれならまだわかる、たぶんそんな気がしてきた

Nullのとき正常終了してるケースがあるように見えたんだ
たぶん見間違いだ

2017/07/17(月) 22:19:24.38

>>324
アドイン

2017/07/17(月) 22:46:19.63

>>326
だっふんだ

2017/07/17(月) 23:33:07.69

まあ、VBAが言語としてクソなのは認めざるを得ないよな
最近javascriptつまみ食いしてるけど、これはこれで魔境とは言え進化してるしさ、常に

2017/07/17(月) 23:33:44.68

>>319
短絡評価が保証されてないというか無いものだと思ってたけど、短絡評価される状況ってあるの？
あるなら活用したいもんだけど。

2017/07/18(火) 00:17:38.11

nullの話出たから聞きたいんだけどnullとかnothingの判定を完結にやるいい方法ってないの?
やりたいのはnull,vbnull,nothing,emptyなどなど値が入ってない状態を検知したい

全部if elseifでやるのは汚すぎるからあまりやりたくない

2017/07/18(火) 00:18:33.82

>>330
全部調べる関数を作ればいいのでは？

2017/07/18(火) 00:19:09.03

判定メソッド作って呼ぶ

2017/07/18(火) 00:40:40.16

If文を可能な限り避けるとなると

Function foo(hoge) As Boolean
Select Case VarType(hoge)
Case 0,1
...
Case 9
If hoge Is Nothing Then
End Select
End Function

みたいな書き方かな

2017/07/18(火) 00:43:00.33

データの値の状態を判定するならif elseif よりも
Select Case Expressionの方が無駄なく綺麗に書ける

2017/07/18(火) 06:17:21.84

>>333
ていうか、このコードは何を返すの？

2017/07/18(火) 06:18:50.83

>>329
保証されてない ≒ 動作する場合があるかも知れないけど面倒だしどうでもいいから調べてない

2017/07/18(火) 06:20:35.94

>>335
「値が入ってない状態」かどうかだろ

2017/07/18(火) 06:30:18.74

>>337
なるほど。
null判定は自分で関数作っちゃうのが早いよってことね。

2017/07/18(火) 07:14:01.44

>>333
コンパイルエラー出るコードでワロタ

2017/07/18(火) 07:42:58.67

こんな感じかな。

Function IsNone(hoge) as Boolean
　　Select case True
　　　　Case IsNull(hoge)
　　　　　　IsNone = True
　　　　Case IsEmpty(hoge)
　　　　　　IsNone = True　　　　　
　　　　Case hoge is Nothing
　　　　　　IsNone = True
　　　　Case hoge = ""
　　　　　　IsNone = True
　　　　Case hoge = vbnullstring
　　　　　　IsNone = True
　　　　Case Else
　　　　　　IsNone = False
　　End Select
End Function

2017/07/18(火) 08:48:10.34

なんでこんな初心者用のスレでVBAはゴミだのカスだのドヤ顔でほざいてるの？
どうせ普段は別の言語で仕事してる奴が、ちょっと頼まれたVBAが解らなくてファビョってるんだろ？w

2017/07/18(火) 08:49:43.17

ファビョるって何？

2017/07/18(火) 10:01:29.10

先ずはググればいいんでないかな

2017/07/18(火) 11:27:07.20

>>341
その状況なら確かに愚痴りたくなるだろうね

2017/07/18(火) 12:19:29.42

どうせ自称VBAに詳しいクズと自称メインは他言語のクズしかいないんだから仲良くしろよ

2017/07/18(火) 18:53:43.35

>>341
他の言語出来るやつなら自分で調べられるし聞き方も賢くできると思うぞ

2017/07/18(火) 18:57:17.26

>>341
vbaで仕事は暇になるも、ひたすらすることがない。
コミュニケーション能力のほうが大事と気づくのに、そう時間はかからなかった

コミュ力も高まる言語、それがvba

2017/07/18(火) 19:02:27.52

>>340
横からですが、借りてってもいいですか？

2017/07/18(火) 20:30:12.85

>>348
もちろん自由に使えばいいけど、スマホで書いてるのでPCテストしてない。自己責任でよろしく。

読み返したら、Is Nothing のところは明らかにエラーになると思うので、こんな感じのほうがいいかも。（PCテストしてないので自信はない。あしからず）

Function IsNone(hoge) as Boolean
　　If IsObject(hoge) Then
　　　　If hoge Is Nothing Then IsNone = True
　　End If
　　Select case True
　　　　Case IsNull(hoge)
　　　　　　IsNone = True
　　　　Case IsEmpty(hoge)
　　　　　　IsNone = True
　　　　Case hoge = ""
　　　　　　IsNone = True
　　　　Case hoge = vbnullstring
　　　　　　IsNone = True
　　　　Case Else
　　　　　　IsNone = False
　　End Select
End Function

なんか美しくないね。
ま、好きなように書き換えて。

2017/07/18(火) 21:03:49.93

>>349
ありがとうございます。
エラーの度に色々悩んでたもので。
この辺を美しく書けるのが理想ですが、なかなか難しい。

2017/07/18(火) 21:10:08.24

僕は唱える　魔法の言葉 on error resume next
みんなで歌おう　魔法の言葉 on error resume next

2017/07/18(火) 21:12:18.15

>>349
objectを掴めてないときのemptyとか、開放できないときのオートメーションエラーとかに悩まされて、ある程度解決してたんですが、これで最終解脱できそうな予感。
ありがたや。

2017/07/18(火) 21:59:56.82

ExcelからOutlookを起動し、予定表から会議依頼を作成するマクロを作成しています
あらかた思っていたものは作れたのですが、自分の予定表ではなく共有の予定表に保存する場合のコードがさっぱり分かりません
共有の予定表での作成方法をご教示頂けますでしょうか

2017/07/18(火) 23:28:16.64

>>349
IsObject(Expression)の判定をしてるIfブロックの終了間際にExit Function入れないとダメなんじゃね？

2017/07/19(水) 00:59:23.29

>>354
おっしゃるとおり。
あるいは、Select以下をElseでつなげるか。

でも美しくないので書き換えてみた。
結構いいんじゃね？（軽くテスト済み）

結局、>>333 が最適解だったわけね。
なかなかの実力者とみた。

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 hoge = vbNullString Or hoge = "" Then IsNone = True
　　　　Case Else
　　　　　　IsNone = False
　　End Select
End Function

2017/07/19(水) 02:45:10.33

>>355
isNoneが未定になるパスがあるんじゃね

2017/07/19(水) 03:16:22.21

値とかオブジェクトが普通に入っている場合がすっぽり抜けてるんですがそれは

2017/07/19(水) 05:14:51.84

>>355
Sub buf()
On Error Resume Next
For i = 1 to n
Set MyObj = SPAM
If Err then
If not IsNone(SPAM) then Brake
Else
Goto Continue
End if
Else
ここで処理。
Continue:
Err.clear
Set MyObj = Nothing
End if
Next
End sub

みたいな使い方を考えたんですが、全然美しくない･･･
どうすれば良いでしょうか。

2017/07/19(水) 07:05:15.04

空の配列チェックも必要だと思うな

2017/07/19(水) 08:00:32.56

>>357
IsNoneの初期値をFalseにすればいいんじゃね？

2017/07/19(水) 08:37:45.43

As Booleanで指定した場合はデフォルトがFalseだからTrueになる条件だけ書いていけばいい。

**357** (ﾌﾞｰｲﾓ MM5e-Xf9t) · 2017/07/19(水) 09:22:45.29

ああなるほど、初期化って頭が全くなかった。サンクスです。

2017/07/19(水) 11:14:00.22

>>359
Case vbarray を加えればいいだけじゃね？

…って思ったら、配列の空判定は結構やっかいかも。

配列判定いる？

2017/07/19(水) 12:01:18.52

どういうものを実装するかにもよるけど経験から言うと配列の判定は別の方がいい。
アプローチの仕方が違うから、変数単体で認識させていたものを配列突っ込める様にした時なんかにバグの温床になる。

2017/07/19(水) 12:23:01.26

>>364
もちろん目的によるけどね。
個人的には空の文字列は正常側だと思うし

2017/07/19(水) 12:24:14.19

あと空の配列チェックはIsMissingと同等

2017/07/19(水) 12:28:40.18

variant型は脊髄反射で否定するくせにvariantみたいなヤリマン関数が大好きなお前らってｗ

2017/07/19(水) 12:36:53.61

variantのみを使うor絶対variantは使わない
みたいな論争は見たこと無いな

2017/07/19(水) 14:51:31.77

前スレかその前かの最後の方でVariant型絶対使わないマン出てきていた様な気がするけど。

そういう信条自体は別に良いんだけど、Variant型使えば解決出来る事を信条のせいで解決出来ず、
その結果として「VBAは欠陥」って言い出す変な人はこのスレでよく見かける。

2017/07/19(水) 15:28:03.09

便利な道具を使いこなせないドンくさい奴ってことだよ

2017/07/19(水) 18:00:12.50

すいません、353ですが自決しましたのでスルーで結構です
コピペだけでなく内容も理解できるようもっと勉強します

2017/07/19(水) 18:04:33.44

自決

2017/07/19(水) 18:31:39.20

>>364-365
配列は要素数の空判定でお茶を濁そう。

これ以上のブラッシュアップは断念。
コードとしてはそこそこ美しいと思う。

Function IsNone(hoge) As Boolean
　　Select Case VarType(hoge)
　　　　Case vbEmpty
　　　　　　IsNone = True
　　　　Case vbNull
　　　　　　IsNone = True
　　　　Case vbObject
　　　　　　If hoge Is Nothing Then IsNone = True
　　　　Case vbString
　　　　　　If hoge = vbNullString Or hoge = "" Then IsNone = True
　　　　Case vbArray + vbVariant
　　　　　　If Ubound(hoge) = -1 Then IsNone = False
　　End Select
End Function

2017/07/19(水) 18:35:56.55

訂正。最後、Trueだった。。(^_^;)

Function IsNone(hoge) As Boolean
　　Select Case VarType(hoge)
　　　　Case vbEmpty
　　　　　　IsNone = True
　　　　Case vbNull
　　　　　　IsNone = True
　　　　Case vbObject
　　　　　　If hoge Is Nothing Then IsNone = True
　　　　Case vbString
　　　　　　If hoge = vbNullString Or hoge = "" Then IsNone = True
　　　　Case vbArray + vbVariant
　　　　　　If Ubound(hoge) = -1 Then IsNone = True
　　End Select
End Function

2017/07/19(水) 18:47:58.49

>>373
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
　　　　　　IsNone = True
　　End Select
End Function

ArrayはVariant型以外の場合もあるから、この方がいい。

2017/07/19(水) 19:22:16.26

>>375
おおー、まだブラッシュアップできたか。
素晴らしい。

それなりに使える関数になったかもね。

2017/07/19(水) 19:26:12.74

素晴らしい。

2017/07/19(水) 19:29:01.56

配列と型のチェックを同時にする時はとりあえず一次元配列に直せば楽ってばっちゃが言ってた

2017/07/19(水) 20:01:06.21

書いてから気づいたけどvbnullは型ではなくてただの列挙体なので判定しなくてもいいよな

あと““はなんかダサいからvbnullstring使うのがいいかも

2017/07/19(水) 20:04:24.02

判定としては UBound < LBound にしなくちゃね

2017/07/19(水) 20:16:48.04

>>379
たとえば、InputBoxでキャンセルを押すとvbnullstringが返る。
何も入力せずにOKを押すと "" が返る。

つまり、vbnullstringと "" は別物なのでそれぞれに判定する必要がある。

2017/07/19(水) 20:20:16.17

>>380
たしかにそのほうがきれいだね。

いや、いろいろ出てくるもんだなぁｗ

美しいコード書きへの道のりは遠い…

2017/07/19(水) 20:20:56.04

>>379
vbNullStringと""は判定としては別なので、片方だけにすると抜けが起きる。

2017/07/19(水) 20:28:12.28

>>382
うろ覚えだけどVarTypeでvbArrayとして返ってきた場合でもUboundするとエラーになるケースがあったはずなので、
Uboundを使う場合は別関数でOn Error Gotoで飛ばせるようにしておきたい。

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

と置いてSafeUbound < SafeLBoundで判定したい。

2017/07/19(水) 20:38:22.51

一応簡単なテストコード的な…

hoge = Range("A1").Value: Debug.Print IsNone(hoge) & ":" & VarType(hoge)
hoge = InputBox("値を入力してください。"): Debug.Print IsNone(hoge) & ":" & VarType(hoge)
Set hoge = Sheets(1): Debug.Print IsNone(hoge) & ":" & VarType(hoge)
Set hoge = Nothing: Debug.Print IsNone(hoge) & ":" & VarType(hoge)
Set hoge = CreateObject("InternetExplorer.Application"): Debug.Print IsNone(hoge) & ":" & VarType(hoge)
hoge.Quit
Set hoge = Nothing: Debug.Print IsNone(hoge) & ":" & VarType(hoge)
hoge = Array(): Debug.Print IsNone(hoge) & ":" & VarType(hoge)

2017/07/19(水) 21:08:04.97

エクセルでLISTAGGに相当するものは何ですか？

ソートしてForで上下比較して足してけとか言わないでください。

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＋＋で出来るから他の言語は不要ということになるな