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/21(木) 08:28:32.33

>>287
スゲー承認しました

2017/09/21(木) 17:33:45.86

>>287
どこが悪いのか指摘出来ないというのが苦しいね。
批判出来るということは悪い所がわかるということの筈なんだけどな。
悪い所が分かる程の能力は無いけど、取りあえず煽ってみましたってところかな。

ところで君は自分の書いたコード晒したこと有るのかね?
君が俺より出来るなら>>204に答えてあげなよ。
>>204の質問って、ここでは高度な内容になる筈だからさ。

ま、無理だろうけど。

2017/09/21(木) 17:40:03.03

>>276です
皆さんありがとうございます
質問なんですが
http://infith.com/system/excel/vba_form_find/
によると
RowSourceに"科目マスタ!A2:A" & wLastGyouを入れないといけなのでしょうか？
プロパティのRowSourceに値を入れようとしてもエラーが出ます

2017/09/21(木) 18:42:41.24

>>293
そもそも、どうしてRowSourceにこだわってんの?
君のやりたいことでは必要無いと思ってたんだが。

RowSourceってのは融通が効かないから自分は基本使わないんだが、エラーになってるとしたらRowSourceとAddItemが共存出来ると思ってるとかかな。
RowSourceはシートの指定範囲のデータをリストにするもので、そこに追加やそこから削除は出来ない。
指定範囲のデータだけでリストは完結することになる。
そこでそのリンク先でも絞り込みの前に.RowSource=""を入れてる。

2017/09/21(木) 18:48:44.67

>>293
RowSourceプロパティに事前に値入れてもエラーにはならんよ。
シート名!A1:A10
とか入れてみなよ。
変数は使えないのは分かるよね。
動く前なんだし。

2017/09/21(木) 22:35:38.87

>>292
批判wwwwww

批評の土台にすら登ってないと何度言えばw
自分の無知無能に蓋をして見たいものしか見てないんだよお前らは
勇気を出して一度自分の無能と真剣に向きあってみ？

頭が悪くても少しは世界が変わるから…何も変わらんかもしれんけどなw

2017/09/21(木) 22:38:43.69

依然として具体的な指摘なし

2017/09/21(木) 23:08:08.58

>>296
何だ、何も言えるだけの技術的要素を持ってない人か。
具体的な指摘も一切出来ないし、わざわざ>>204の話を振ってやっても何をどうすれば良いかも思い付かないんだろう。

ちなみに俺は3～4パターンは思い付いてる。
例えば、ビットマップ描画じゃなくても透明ウィンドウに円形リージョン使った輪っかウィンドウ表示するとか。
リージョン使わなくても透明ウィンドウだけで同じようなの作るとか。

ま、何言ってるか分からないだろうけど。

2017/09/21(木) 23:45:26.82

>>298
技術的要素wwwwwww

とことん笑わせてくれるなお前w
相手にされてないのに必死にアピールして虚しくならないのかバカという人種はw
これがお前らの大好きな承認欲求ってやつだろw

他人に認められたかったらまず自分の無知無能を自覚しろよ
話はそこからだ、そうすれば少しは周りも認めてくれるんじゃね？

…あ、バカが居る…てなw

2017/09/21(木) 23:55:14.64

>>299
小学生でもお前のレベルは低いと言うことは出来る。
本当に自分の方がレベルが上かを示さなくて良いならな。

それがお前だ。
技術的要素無しであの葡萄は酸っぱいと言ってるキツネのようだ。

2017/09/21(木) 23:57:08.45

本当に、何言ってるか理解出来ないから、振った話には一切言及出来ない。
こういう所でレベルが透けるんだよなあ。

2017/09/22(金) 00:05:31.90

もうなりふり構ってられなくなったなｗ
いいよその調子ｗ

2017/09/22(金) 01:17:48.87

>>299
なんで相手してるんだ？

2017/09/22(金) 02:57:45.48

久しぶりにこのスレ戻ってきたけどまた随分荒れてるね。

まぁどんな手法で作った方が良いかなんてそのときのシュチュエーションで決まるものだから
議論してもあまり意味がないと思うよ。

そんなことより変更に対して厳しく、追加に対しては寛容になるような作りにするような
もっと基本的なことを念頭におくようにした方がより効率的に改修出来たりするよ。

2017/09/22(金) 07:49:01.52

また教えたがりが一匹ふえたw

2017/09/22(金) 08:36:54.40

質問スレに質問と回答以外の事を書き込むなよな

**デフォルトの名無しさん** (ｽﾌｯ Sdaa-NQgr) · 2017/09/22(金) 10:26:04.56

まず>>306が質問でも回答でもない時点で何を言っているんだーおまえわー
自分だけは特別だと思ってる自意識過剰かー
単なるバカなのかー

2017/09/22(金) 10:44:51.56

VBAに高階関数ってないんすかね？

2017/09/22(金) 11:45:21.15

>>308
条件に応じて関数を選択してそれのAddressOf値を返すことはできるから
強いて言えばあると言えばあるね

2017/09/23(土) 05:57:25.45

>>306
ぁあ？
だったら昔みたいにガッチガチにルールで縛りつけたスレ立ててそこで1人でやれやボケ

2017/09/23(土) 09:39:55.56

ルールで縛らないで良いなら質問と回答以外書き込むなと書くこともアリだろ。
アホなこと書いても良いが、その分そいつが批判されるのも仕方ないということ。

アホな初心者がかつて批判されたことを根にもって相手の力量も分からずに噛みついてるんだから批判されても仕方ない。

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
お前小学生にもバカにされてんのかｗｗｗｗ
最近の小学生もすてたもんでもないなｗ