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/15(土) 21:06:42.25

>>277
vbaしか扱わない仕事なんて無いよ
必ず何かのついで
vbaあると事務作業の確実性は上がるけどね

2017/07/16(日) 05:14:50.82

>>279
プログラマー志望でvbaの仕事しかやったことないんだが。

2017/07/16(日) 05:59:58.39

>>280
クルマで言えば「1車種しか運転できない」のと同じ
プログラマになろうなど論外

2017/07/16(日) 06:33:45.85

>>281
別の言語の方が得意なんですけどね。。
他言語のキャリアないから呼ばれない。

2017/07/16(日) 07:32:23.57

>>277
半年ぐらいならあるよ
社内システムの一部を担当しててVBAだけずっとやってた
もちろんそれに付随する仕様書とかマニュアル作りとかも含むけど

2017/07/16(日) 16:35:01.30

自分は業界デビューがAccessVBAで、そのうちC/C++もやるようになった。
で、今PHPとかJavaとか知らなくて仕事減ってきてる。

2017/07/16(日) 16:40:12.30

ならVB.NETを経由してjavaへ向かえばよい

2017/07/16(日) 16:42:28.30

PHPは言語は楽ちんだけどネットワーク周りがキツイ
専サバならどうでもいいけどレンタルサーバーだと制限多くて何もできん

2017/07/16(日) 17:31:35.42

>>280
vbaでシステム開発してんの？

2017/07/16(日) 19:11:10.92

VBA4とかの時代はなぜかユーザー定義型のリファレンスをクラスモジュールに渡せなくて悩んだ覚えがあるけど最近は大丈夫なのねと

2017/07/16(日) 19:14:48.07

>>287
うん。
50万ぐらいのレコードを扱う、MySqlをバックエンドとしたC/S型のシステム作ったよ。

vbaは例外ハンドラが弱すぎて、自作スタックトレースみたいな仕組みを作ったりとか、バージョン管理大変だし、vbaでシステム開発は怖すぎてやりたくないっす。

初速はいいけど、規模が大きくなってくると生産性が著しく落ちるねー。

2017/07/16(日) 21:17:30.80

>>289
クレイジーだな
VBAでやるの間違ってね

2017/07/16(日) 21:52:55.66

>>290
バックエンドがMySQLなら50万レコード程度は楽勝だろうしフロントエンドにExcel VBAはたいして珍しくないぞ

2017/07/17(月) 17:06:22.75

そもそも、VBA使いってエンジニアじゃないよね。

なので、エンジニア目線での会話はしないほうがいいよ。

2017/07/17(月) 18:01:49.57

はぁ？

2017/07/17(月) 18:28:51.63

方言で喋るヤツは日本人じゃないよねみたいな言い回しは嫌い

2017/07/17(月) 19:25:12.99

エンジニア畑の出身ではないということ。

エンジニア畑を歩いてきた人はVBAなんかには染まらないよ。

2017/07/17(月) 19:31:25.65

スネオみたいなやつだな。

2017/07/17(月) 19:34:15.32

じゃあ東京出身以外は日本人じゃないんだね

哀れな見識の狭さだな

2017/07/17(月) 19:41:09.32

東京出身で大阪に住んでる人は関西人じゃないし、大阪出身で東京に住んでる人は江戸っ子ではない。

2017/07/17(月) 20:03:54.32

他の言語をバリバリ使うエンジニアがVBA使うなんていくらでもあるだろ

2017/07/17(月) 20:05:31.04

ID:7pjXcMGRr
スゲー承認します

2017/07/17(月) 20:12:26.22

馬鹿の一つ覚えみたいに、なんでもかんでも変数に入れちゃうし、しかもいまだにハンガリアン記法だったりする。
エラー対策もバッチリですと言わんばかりにエラー処理が延々と続くコードを晒す。
ただでさえ冗長な言語なのに輪をかけて冗長なコードを書く。
誰もお前のコードなんかコピペしねーからコアな部分だけを簡潔にかけ、と言いたくなる。
VBAが書けるぐらいでエンジニアづらするな。

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使うのがいいかも