Excel VBA 質問スレ Part50 [無断転載禁止]©2ch.net

2017/08/27(日) 12:40:17.57

!extend:checked:vvvvv:1000:512

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

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

※関連スレ
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/

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

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

2017/09/23(土) 09:50:48.00

>>309
すんません、表現が良くなかったです。
mapとかfoldとかfilterとか、それらに付随してラムダ式とかです。
調べたけどなさそうですね。MSさん、用意して欲しいな、、

2017/09/23(土) 11:22:54.85

VBAにラムダ式を望むなよ

2017/09/23(土) 12:43:51.76

>>311
VBAみたいに片手間でやるような言語のスレで
初心者って言われてもなぁ

2017/09/23(土) 12:55:31.84

>>312
filterってなに？

2017/09/23(土) 12:58:26.11

2ch初心者か？
肩の力抜けよ

2017/09/23(土) 13:44:03.04

>>312

これ見て理解した
http://www.cse.unsw.edu.au/~en1000/haskell/hof.html

2017/09/23(土) 13:49:15.21

>>313
HaskellでNLPやってて、小回り利くなと感じた。エクセルの事務作業と相性いい。

>315
エクセルのフィルターとまさに同じ、
例えば[10,2,34,401]から偶数を抜きたければ、
filter (\x -> mod x 2 == 0) [10,2,34,401]などとやる。
桁が三桁のを抜くなら、
filter (\x -> length x == 3) [10,2,34,401]とか。

2017/09/23(土) 13:50:46.59

>>317
まさにそれですね。

2017/09/23(土) 14:02:25.24

Haskellは三日坊主で終わったとはいえヤバい

2017/09/23(土) 14:09:02.53

EXCELはシートにSQLが使えるから場合によってはそっちの方が使えるのでは。
LINQやラムダ式でガッツリやりたいのであれば
もうEXCELの範疇を超えているので
.netでentityFreamworkとか使ってやった方がいいと思うよ。

2017/09/23(土) 15:07:07.52

>>321
ありがとう、調べてみます。

2017/09/23(土) 17:39:07.55

do while not eofと do until eofは同じですか？

2017/09/23(土) 18:26:20.13

>>323
同じじゃないと思える根拠を書いてくれないか？doの後じゃなく
Loopの後に条件を書いたらそりゃ違うだろうけど。

2017/09/23(土) 18:38:13.30

>>324
ありがとうございます
同じことでも言い換えられるんですね

2017/09/23(土) 19:18:36.34

>>324-325
特定の状況では結果が異なるから完全に同一ではないけどな

Sub test()
Dim eof As Variant
eof = Null
Do Until eof
MsgBox "Untilを実行した"
Exit Do
Loop
Do While Not eof
MsgBox "While実行した"
Exit Do
Loop
End Sub

eofがTrue/Falseしかないなら同じ動作だけど、そのどっちでもない場合は同じ動作するとは限らん
Null扱うなら覚えておかないとはまるぞ

2017/09/23(土) 19:31:29.38

Notはビット反転だから真偽値以外だと挙動が変わるわな。
Nullは色んな判定を挟む前にFalseを返す仕組みのはずだから、また問題が違うような気もするけど。

2017/09/23(土) 19:56:35.16

>>327
VBAには暗黙の変換ってのがあってな
>Notはビット反転
数値型に対してはな
真偽値にたいしてビット演算は規定されていないはず

>Nullは色んな判定を挟む前にFalseを返す
Nullが常にFalseを返すなら、>>326みたいな事にはならん
Nullには伝播性ってのがあってな、基本的にNullを含む式はNullを返す
返してるのはあくまでNullであって、TrueでもFalseでもない

Do Loopのヘルプにわざわざ
>引数 condition の値が Null 値の場合、引数 condition は偽 (False) であるとみなされます。
ってかいてあるだろ

2017/09/23(土) 20:57:28.95

>引数 condition は偽 (False) であるとみなされます。
自分で答えを書いているように思うが。

2017/09/23(土) 21:10:26.95

俺が「Falseを返す」と表現したのが悪かったな。
「Nullが含まれる式は必ずFalseとして判定される」と書かなきゃいけなかった。

2017/09/23(土) 21:13:02.41

関係ないけど Not 1 が False 扱いにならないのは地味に不便だ

2017/09/23(土) 22:09:48.51

>>330
それが分かってれば問題はないんだけど、分かってても勘違いしたりするからなぁ
Nullの扱いが直感的じゃないってのが最大の敵

>>331
VBAのTrueは-1だからな
Not -1とかNot CBool(1)とかならＦａｌｓｅ扱いだし

2017/09/23(土) 22:56:39.62

vbaとExcelで数値とbooleanの変換が変わるのは怖い

2017/09/24(日) 00:06:38.99

きっと～、あなたは　もどってくるだろぅをー

2017/09/24(日) 02:19:39.33

ハイ戻ってきましたぁ！
また調子こいた教えたがりがしゃしゃってんのか？
バカはどいつだ？

2017/09/24(日) 03:07:22.68

∧＿∧
( ´･ω･)
( つ旦O
と＿)＿)

2017/09/24(日) 08:32:58.01

>>331
Not 1と書くシーンがわからんが、素直に(？)Not TrueとかFalse とか書けば？

2017/09/24(日) 08:50:08.02

ドイツの技術は世界一ィィィ

2017/09/24(日) 08:51:55.94

Not Trueは新しいな

2017/09/24(日) 08:53:02.43

ツール→参照設定で全てを参照する方法はありますか？

2017/09/24(日) 09:43:55.42

>>314
ここで言われてる初心者ってのは殆どの場合、他の言語も初心者ってことだぞ。
技術的に初心者だから初心者と呼ばれてる訳じゃない。
自分の画面を見ることが出来ない相手にも伝わるように書くとか、条件を小出しにするとか、相手をロボットか何かと勘違いしてるような初心者以前の問題が有るから否定的な意味で初心者と言われてる。

それにVBAを片手間とか簡単に言うのもどうなんかね?
あまり使ったこと無い奴ほどそういうこと言ってるような気がするね。

内容が何ーつ無くて罵倒しか出来ない初心者君の真価が問われてる。

2017/09/24(日) 09:51:58.93

>>341
> 内容が何ーつ無くて罵倒しか出来ない初心者君の真価が問われてる。
ブーメラン w

2017/09/24(日) 10:06:08.42

>>339
ワシにとって Not 1はNot true程度には奇抜や

2017/09/24(日) 10:11:23.30

Not 1 は普通に使うけど？
LSB だけ変更したい時とか

2017/09/24(日) 10:26:12.50

「Not 1」と直接書くわけじゃなくて0/1を返す関数の返り値に対してのことだろ

2017/09/24(日) 10:29:39.61

>>344
うむ、ただ>>331は「Not 1 が False 扱いにならない」事を嘆いて(？)いるから、君とも意見が合わないかも知れない。

2017/09/24(日) 11:00:50.23

>>346
>>343に対するレスだから

2017/09/24(日) 11:49:34.08

>>342
内容あるじゃねーか。
日本語も理解出来ないほど無能か?

2017/09/24(日) 12:09:02.98

>>348
スッカスカの内容あるとか言われてもなぁ w

2017/09/24(日) 12:51:48.98

>>349
君のレスには内容ないけど、Sa6b-XzByは内容のあるレスをし続けているぞ

2017/09/24(日) 13:05:01.11

>>350
し続けてる？
>>348に内容あるとかバカなの？

2017/09/24(日) 13:52:50.28

>>349
>>351

バーカ。

>自分の画面を見ることが出来ない相手にも伝わるように書くとか、条件を小出しにするとか

これが内容だ。
クズコードだとかお前の設計の方がよろしくないだとかはどこがどう駄目なのか言ってないから何も言ってないのと同じだ。

この違いも分からないから無能と呼ばれるんだよ。

2017/09/24(日) 15:19:23.40

>>352
いったいお前は誰と戦ってるんだよ w

2017/09/24(日) 15:25:16.48

このバカよっぽど悔しかったんだなｗ
支離滅裂だけど悔しさだけは痛い程伝わるよ ID:SDtHFGLjaくん

だが俺にバカを嘲笑うのをやめろと言うのは土台無理な話だ
だってバカは面白いんだものｗ
これくらいはその小さな脳ミソでも理解出来るよね？おバカさんｗ

2017/09/24(日) 16:43:54.18

この罵倒しかしないヤツはVBAコードの一つも読めないのに何年も前から張り付いている本当の意味での異常者で、
どうも現実の生活で誰にも構ってもらえないからネットで罵倒を繰り返してレスポンスをもらって喜んでいるみたいなので、
各員は餌を与えないでください。いつまでも無意味なレスがついて荒れるだけです。

対策として「晒したコードに対し具体的なコードをつけて指摘しているもの以外は相手にしない」っていうテンプレでも追加してほしい。

2017/09/24(日) 16:48:20.79

>>354
ほら、やっぱり内容がまるで無い。
小学生と変わらん。

2017/09/24(日) 16:53:01.46

>>353
スレ見てれば分かるだろ。

>>274
>>281
>>287
>>296
>>299
>>354

どれ見ても内容が皆無。
殆ど無いじゃない。
ゼロ。

相手のどこが悪いのか全く言及出来ない奴は何も言ってないのと同じこと。

2017/09/24(日) 16:54:20.86

>>343
すまん、どっちも始めて見た
1をbooleanにするのはテストでifを書く時だけだな
if 1 then

ってこれ間違ってた事に今気づいたわ。本来なら
if -1 then
だったわ

2017/09/24(日) 16:59:29.20

そんなことより、
0以外の数値をTrue扱いしたいのに、
If Not x が IfNot (x)じゃなくて If (Not x) なのが非常によろしくない

2017/09/24(日) 17:04:51.18

>>358
いや、
If 0 Then
も
If 1 Then
も想像してる通りに動きますよ。

少し直観と食い違うのは Not が絡むとき

2017/09/24(日) 17:05:32.05

>>358
コメントの代わりに
#If 0 Then
は昔よく使ってたなあ。
最近は全く使わなくなった。
Not 1もNot TrueもIf -1 Thenも使ったこと無いな。

こういうのはその人の趣味というか癖みたいな問題だわな。
どれが良いとか悪いとかの問題じゃない。

2017/09/24(日) 17:08:48.88

しかし言うほど

If Not [Integer] Then

という書き方をするだろうか？

If Not Book Is Nothing Then

みたいな書き方はするけど、数値でNot使う事自体あんまりない気がする。

2017/09/24(日) 17:09:54.28

MS系のBASICはずっと昔から「0」と「0以外」で真偽を判定するから、論理式では1もNot 1もありえない
もちろん-1なんかも使わない
俺の知る限り、約40年前に発売されたN-BASICの時代からこの仕様は変わってない

2017/09/24(日) 17:11:40.94

>>357
だからいちいち相手するなよ
おまえの内容とやらもたいしたこと言ってないんだし

2017/09/24(日) 17:14:57.98

>>359
> If Not x が IfNot (x)じゃなくて If (Not x) なのが非常によろしくない
それ一緒だろ w
C言語みたいに論理否定(!)があればいいだけの話

2017/09/24(日) 17:20:20.54

>>362
数値型にnotは使ったこと無い。特に言語によってfalseが変わるから怖くて使えない
後者は普通に使う

2017/09/24(日) 17:29:04.13

>>330
> 「Nullが含まれる式は必ずFalseとして判定される」と書かなきゃいけなかった。
ところがどっこい
If 2 Or Null Then ～ Else ～ End If
は True （と言うか整数の2）と評価されたりするんだな
0 Or Null は Null になるとか挙動が読めないけど
@Excel 2013

2017/09/24(日) 17:29:31.46

>>364
俺の書いた回答に対してアホが罵倒したのが最初だよ。
お前の書いた>>344なんて初心者でもやらんわとでも言われたら頭来るだろ。

2017/09/24(日) 17:30:59.09

>>366
True ならわかるけどFalseが0以外の言語ってあったっけ？

2017/09/24(日) 17:34:26.89

>>368
単にビット演算の必要がなかっただけなんだろうなとしか思わん
まあ内心でレベルひくって思うけど w

2017/09/24(日) 17:38:18.30

>>370
俺はそれなりの奴から根拠ある批判をされた場合は何とも思わん。
びっくりするぐらいレベルの低い奴から根拠の無い批判をされた時は赦さんね。

2017/09/24(日) 18:38:38.48

>>358
だろうな。ワシも書いたの初めてや。そのレベルの奇抜さって事。

2017/09/24(日) 18:50:18.13

isSomeStatusが整数を返す関数のとき
If isSomeStatus(x) Then ～
を使ってて、つい
If Not isSomeStatus(x) Then ～
と書いてしまうことはない？

2017/09/24(日) 18:54:12.91

>>368
人並みに頭に来てんだおバカさんw
結構結構、もう少し熱くなって一度爆発でもしていまえば少しはクールになるかもねw
お前のちっぽけな脳ミソもw

あ、後もう一つ、お前はもうしゃべるな

2017/09/24(日) 20:10:34.74

>>373
> isSomeStatusが整数を返す関数のとき
なら
> If isSomeStatus(x) Then ～
なんて書かないで
If isSomeStatus(x) <> 0 Then ～
って書く

2017/09/24(日) 20:15:55.53

>>373
無い。つか、そう書かない事を理想としている。
変数も定数もプロシージャも型を意識するようにこころがけている。

2017/09/24(日) 20:21:50.61

使ってるうちに関数の返値型は暗記するし、そもそも一度は確認するだろうから、
真偽値以外でNotをうっかり使うというケースはあんまりなさそう。

というかうっかりNot 整数をやっちゃったぜって事ならイミディエイトウィンドウで確認する癖を付けた方がいいと思う。

2017/09/24(日) 20:22:09.47

>>375-376
なるほど

2017/09/24(日) 20:25:18.45

組み込みの Is～が As Boolean になっているけど
自分の Is～は As Long にしたくてそうしてるんだけど、返り値を受けた時の書き方を
統一的に扱えないのが悩みの種なんですよね...

2017/09/24(日) 20:48:20.98

>>379
それは(失礼を承知で言えば、)ネーミングにセンスが無い。isほにゃららFunctionはBooleanに統一すべし。

2017/09/24(日) 21:04:44.94

>>380
そうなんだけど...
返り値を合計したものが「～にあてはまるもの」の数に一致させたいんですよ

2017/09/24(日) 21:06:12.98

同じ関数名で宣言するとユーザー定義関数の方が優先されるはずだから、
いっそ組み込み系のIs～を全て再定義してしまえばいいのではないだろうか。

2017/09/24(日) 21:12:51.54

もちろん「Isなんちゃら～」の返り値を合計した後で -1 をかければいいんだけど、
Trueが-1であることに依存するのもなんかこう、しっくりこないんですよね。

2017/09/24(日) 21:15:05.28

>>381
うむ、気持ちはわからないでは無いがそれは駄目だ。関数名cntなんとかとかnumなんとかとか「～の数を返す」ヤツらルールを決めて統一すべし。

2017/09/24(日) 21:18:21.48

>>383
-1をかける、とかそんな言語仕様に強く依存する(グロテスクな)コーディングはしないほうが良いと思わない？

2017/09/24(日) 21:18:39.00

>>380,384

うーん、しょうがない。

これから大改造するか。

2017/09/24(日) 21:24:09.04

>>386
あ
大改造になっちゃうの？それはすまない。
けど、
Function isほにゃらら() As Long
は、やはり美しくないよ。

2017/09/24(日) 21:26:50.23

いや、
大改造はわくわくする

2017/09/24(日) 22:16:54.54

>>374
小学生に罵倒されれば誰でも頭に来る。
内容が無ければ尚更だ。
それに、小学生はきちんと躾ける主義でね。

バカにはちゃんとバカと言うべきなんだ。

質問に関係無いことしか書かないバカが人に対してここに来るななどと言う資格があるわけ無いだろう。
そんなことも分からないから小学生と呼ばれるんだ。

2017/09/24(日) 22:20:23.66

>>381
Isで始まる名前を変えれば良いと思うのは俺だけ?
或いは戻り値はBooleanだけど引数をもう1つ用意して、そこに合計を返すとか。

2017/09/24(日) 22:24:54.53

>>389
お前小学生にもバカにされてんのかｗｗｗｗ
最近の小学生もすてたもんでもないなｗ

2017/09/24(日) 22:29:18.40

元の引数の値に合計を入れて返しちゃうのはさすがに変な気がするけど。

2017/09/24(日) 22:30:18.80

>>391
ここまで言われて内容がまるで無いから呆れる。
百害あって一利なしだ。

2017/09/24(日) 22:39:03.86

>>393
お？少しは謙遜の気持ちも芽生えてきたか？ｗ
でもお前は百害どころか毒にも薬にもならんよｗ
だってバカなんだからｗ笑えるけどｗｗｗ

2017/09/24(日) 22:52:38.60

誰か助けてください。

今日一日かけて作ったマクロが、先程エクセルがクラッシュしてしまい自動修復が働き、マクロだけ消失してしまいました。

クラッシュ直後のxlsmファイルをZIPにして「vbaProject.bin」を取り出したりは出来たのですが、
新しいxlsmに取り込んでもやっぱり開くと修復で消えてしまうようで・・・

何とかしてソースコードを取り出すことはできないでしょうか・・。

2017/09/24(日) 23:42:55.80

一日で作れるマクロなら大した分量じゃないだろうしもう一回同じコードを組めば良いんじゃね

2017/09/24(日) 23:52:01.97

>>395
こまめに保存しないとそういう目に合うという経験を得られてよかったね
次から気を付けないとね

2017/09/24(日) 23:53:04.05

>>397
保存はしてあったんだが、ファイルそのものが破損してた。
定期的にExcel落とさないとダメみたいだね。

2017/09/25(月) 00:00:34.87

>>398
自分はモジュールごと定期的に保存フォルダにドラッグ＆ドロップしてる
いちいち「ファイルのエクスポート(E)...」とかしなくてもできることを知って楽になった。

2017/09/25(月) 00:01:40.54

>>398
確かにエクセルは保存をかけても終了するまで保存しないんだよな。たぶんXML形式にして保存する関係からだとは思うけど。
自動バックアップからなら修復の可能性はあるけど、マクロだけ消えたならそのファイル自体は元々マクロ書く前の状態なんじゃないかな。

2017/09/25(月) 00:02:16.67

あはは、俺なんかそんなのしょっちゅうだぜＷ
ノリノリで良さげなコードが書けてる時に限って突然落ちやがるＷＷ
もうね、マメに保存する癖を付けないとどうにもならないよね

2017/09/25(月) 00:05:47.41

>>367
Orのヘルプに書いてある通り
True Or Null はTrue
False Or Null はNull
で、
CBool(2)はTrue
CBool(0)はFalse
なので、仕様通りの動作ではある

Orはどちらかが真なら真なので、片方が不定でも真だという理屈だな
ショートサーキットしないくせにな
どちらかが偽なら、もう片方に従うから、もう片方が不定なら不定
まあ、理屈として考えれば納得はできる

2017/09/25(月) 00:07:49.88

>>396
朝から書き続けてたから1000行以上ある。かなりつらい。

何度同じような書いてもクラッシュするので原因を調査していたのですが、判明したので報告します。
Windows10 / Excel 2016

1.一番最初のコーディング中にクラッシュした原因
※そもそも取得のために引数にした配列を直接書き換えようとするのが間違いか。

↓下記変数を関数で生成
Dim fl() as string
call GetFileList(fl)
-----
function GetFileList(ByRef fl() as string)
Redim fl(1 to 123,1 to 1)
end function
-----

↓この構文を入力してEnter押すと必ずエクセルがクラッシュする。
ReDim Preserve fl(, 1 To 2)

↓正しいコード。これならクラッシュしない。
ReDim Preserve fl(LBound(fl) To UBound(fl), 1 To 2)

次レスへ続く

2017/09/25(月) 00:12:44.30

>>403
2.クラッシュした後にマクロが消失した理由
とあるモジュール（*.bas）を取り込むと、上書き保存は問題なくできるのだが次回ブックを開いた時必ず「vbaProject.bin」が消失することが判明した。

クラッシュしなくなるまでの手順
①新規エクセルブックに移行
②インポートしたbasのコードだけをコピーして新規モジュールに貼り付け
③下記のような定数があったので、FileSystemObjectのクラスと競合しないよう別の名前に変更
Enum flGetMode
File = 1
Folder = 2
All = 3
End Enum
↓
Enum flGetMode
flFile = 1
flFolder = 2
flAll = 3
End Enum

>>399
そうだな・・・今度からエクセル落とす前にモジュールだけ取り出すことにするわ。

>>400
エクセル、マジ、怖い　EMK

>>401
今回のはマメに保存するというより、ブックを別ファイルにバックアップしないと対処できないかな。
今度から毎時間スナップショット撮るようにするわ

2017/09/25(月) 03:13:19.89

>>394
よっぽどアホな質問して怒られたのが悔しかったのか?
碌にコードも書けないのに居残ってるってことはw

2017/09/25(月) 03:21:24.47

>>400
そうなの?
保存したのにされてないってのは経験無いなあ。

>>399
バックアップするマクロとか書いてたけどウィルス判定されることもあるし、最近はやってないわ。

2017/09/25(月) 03:26:59.82

>>404
列挙の場合、自分はメンバーの先頭にすべてenmを付けてるな。
昔、誰かがこれやってるの見てからは。

2017/09/25(月) 06:57:33.96

ExcelがクラッシュするならWord VBAで書けばいいのに
（半分マジ）

2017/09/25(月) 07:18:55.09

>>399
ファイルのエクスポートってのは知ってるけど「モジュールごと」ってのは具体的にどうするんです？

2017/09/25(月) 07:24:22.76

スプレッドシートで開いてみるとか
ファイル壊れてたらダメ化

2017/09/25(月) 07:25:07.82

>>341
はっきり言おう
VBA自体が間口が広いために初心者が扱い易い言語ではあるが
大きなシステムやWeb系には向いていないために
全体から見れば「VBAの上級者」というのは
所詮井の中の蛙に過ぎない。

自称VBA上級者よりVBAの上級者じゃなくても
JAVAや.Netの知識を多少なりとも持っていて
そっちも出来るという方が基本的に給料が高いというのはそのせい。

つまりここで初心者がどうのと煽っている奴も
所詮は初心者の域を超えていない。
初心者が初心者を煽ってるだけ。
もっとも俺も自分を初心者じゃないなんてとても
おこがましくて言えないけどね。