Excel VBA 質問スレ Part63

2019/09/16(月) 19:34:59.04

!extend:checked:vvvvv:1000:512

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

※前スレ
Excel VBA 質問スレ Part62
https://mevius.5ch.net/test/read.cgi/tech/1561303297/

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

2019/11/30(土) 16:18:47.86

イミワカラン。
=1+1=2ならまだわかるが。

2019/11/30(土) 16:26:59.80

セルA2には1+1=3って入力してあるんです

2019/11/30(土) 16:42:55.04

if Application.Evaluate(cells(1,1).value) then
end if
は？

2019/11/30(土) 17:14:03.21

>>886
すまん例がわるかった
セルになんでもいいから条件式が入力されてて
それをVBAのif文で読み取りたい

>>888
ありがとうございます。やってみます。

2019/11/30(土) 18:09:08.07

>>889
数式の結果が欲しいだけなら
Cells(R, C).Value

2019/11/30(土) 18:17:54.58

>>885
そのコードで読み取れるが、=1+1=2と入れてるなら常にTrueにしかならないと思うぞ

2019/11/30(土) 18:52:44.66

コードで条件指定するんじゃなくて
セルに条件書いてそれで判定したいって事だよね

2019/11/30(土) 18:58:56.97

>>892
そういうこと
条件の例が悪すぎだった

2019/11/30(土) 19:00:48.42

文字列（1+2）*3を計算して数値にしてくれる方法ないかね

2019/11/30(土) 19:15:08.08

>>894
試してないけどevaluateで出来るんじゃないか？

2019/11/30(土) 19:34:42.91

セルに数式として入れる

2019/11/30(土) 21:28:15.08

Cells(1,1).Textでは数式読み取れなかったっけ

2019/11/30(土) 21:30:46.92

>>894
そのくらい暗算すればいいじゃん

2019/11/30(土) 21:37:32.50

>>897
表示されてるものを表示形式通りに取得するやつ

2019/11/30(土) 21:54:44.62

Range("A1").Formula = "=(1+2)*3"

2019/12/01(日) 01:14:32.95

転記マクロを作っていて、AのブックからBのブックに転記をしようと考えているのですが
Aの転記する部分を一旦構造体に全部取り込んでしまってからBブックを開いて転記する方法と
AとBのブックをその都度比較して転記するかで悩んでいます
どっちの方がいいんでしょうか？

2019/12/01(日) 01:25:45.07

前者でいいよ。

2019/12/01(日) 01:32:52.78

オブジェ.pastespecial(xlpaste〇〇)
オブジェ.pastespecial paste := xlpaste〇〇

これ何が違うの？
前者は戻り値はカッコをつけるっていうルールに従ってなくね？

2019/12/01(日) 06:15:52.01

>>903
前者はメソッドが返す戻り値を取得するために関数としてメソッドを使用している
文法上、引数指定の箇所で括弧が必要

後者はメソッドをコールしてそのまま次の処理に制御を渡している
引数指定の箇所には文法上括弧が不要

2019/12/01(日) 06:39:57.40

>>904
関数とメゾットの違いって何？
pastespecialってメゾットじゃないの？

2019/12/01(日) 06:49:15.69

pastespecial xlpaste〇〇

これでも行けた…
pastespecialメゾットの戻り値ってなんだ？
x = オブジェ.pastespecial(xlpaste〇〇)

こんなの使うときあるの？
pastespecialの戻り値を使う意味が全くわからない

If MsgBox("実行しますか？", vbYesNo) = vbNo Then
これは戻り値がTRUEかfalseだから意味がわかるけど

2019/12/01(日) 07:55:36.72

>>903
オブジェ→オブジェクト

Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial(xlPasteValues)
そういう文法。
前者のメリットは指定できる引数が大量にある時、一つだけ記述することができる上に見やすい
ただ、「:=」のコロンを見落としやすいのがネック
引数が一つだけの時は前者で書く理由はないと思う

>>905
メゾット→メソッド
メソッド＝クラス内関数
ただ、vbaなんて全部applicationクラス（と思う）から、関数は全てメソッドに当たりそう
pastespecialはメソッドで間違いない

>>906
＞こんなの使うときあるの？
＞pastespecialの戻り値を使う意味が全くわからない
そもそも使わないから返り値なんてなんでも良い
俺も使った事無いけど、あえて返すとすればペーストの失敗か成功なのは間違いないだろう

2019/12/01(日) 08:06:02.34

>>905
メゾットではなくメソッド(Method）ね
PasteSpecialはメソッドだよ

関数の定義は曖昧だが、ここでは制御と戻り値を返す命令文の意味で使っている
一方メソッドはオブジェクト外からアクセス可能になるようメンバとして実装された機能プログラムのことを指す
戻り値を返すものと返さないものの両方がある

2019/12/01(日) 08:12:27.61

>>907
あんまわからないけど
endプロパティは
end(xlup)これ以外に書く方法ってある？
end shift :=xlupとかそんなのでもいけそうな感じするけど

2019/12/01(日) 08:14:33.55

>>907
細かい話だが、VB6共通の標準関数やステートメント類、列挙定数はApplicationクラス配下のメンバではないはず
あと調べていけばApplicationクラスから独立しているクラスもあるかもしれない
プログラム本体をコードする言語ではなくマクロ言語なのでApplicationというカレントなインスタンスに依存しないクラスがあってもおかしくない

2019/12/01(日) 08:17:59.92

初心者にメンバとかクラス外とか言われてもわからん

2019/12/01(日) 08:25:10.96

>>903,906
引数の指定方法が、位置指定か名前付き引数指定かの違い
戻り値使わないときでも引数の指定に括弧を付けても問題ない

>>905
関数とメソッドの違いはあいまい
ヘルプ類見る限り、VBA組み込みのメソッドを関数と呼んでるっぽい
一般的にはそれ以外のオブジェクトのメソッドも関数と呼ばれたりする

PasteSpecialの戻り値は俺も使ったことないからよくわからんな
まあ戻り値があるからといって、必ず使わなければいけないというもんでもない

2019/12/01(日) 08:25:19.80

>>911
上級者になりたいなら分からない言葉を自分で調べてキャッチアップする姿勢も必要
メンバとかは初心者向けの解説書やネット記事にも載ってる

2019/12/01(日) 08:33:22.24

PasteSpecialの戻り値が何なのか知らないけど、
範囲だったら使い道があるんじゃないの。
貼り付けた後に、そのまま書式を変更するとかさ。

2019/12/01(日) 08:37:40.53

>>913
メンバとオブジェクトの違いって何？

2019/12/01(日) 08:37:49.15

>>909
名前付き引数で指定するなら
.End(Direction:=xlUp)
って書ける

2019/12/01(日) 08:39:31.79

>>916
なんでカッコがいるんだ…
end direction :=xlupじゃダメなのか…
こういうのって気にする人いる？
エラー出たらかっこつけるとかメソット、プロパティの引数指定にはとりあえずかっこつけるとかしてる？

2019/12/01(日) 08:48:55.22

>>909>>917
今回はプロパティ。さっきのはメソッド
vbaは見た目が一緒だから死ぬほどややこしいけど、まぁいつも通りに書いてればいいよ
俺もendはメソッドと思ってたけど問題なかったし

>>910
そうそう、その辺り考え出すとまぁ例外もあるよな～って思ってたけどアホらしくなって考えるのを止めた

>>911
このレベルの事を聞きたいなら最低限クラスは覚えないとついていけないぞ
ただそれを理解すれば一気にレベルアップする

2019/12/01(日) 08:53:45.63

実際、クラスを自作すると、プロパティとメソッドを同じように使うことも出来るから、
どっちでやりゃあいいんだ? ってなるときはある。

2019/12/01(日) 08:57:20.31

>>917
自分で調べるといいよ

2019/12/01(日) 09:02:35.06

VBAのプロパティのアクセサやセッターも実体はただのプロジージャだからね
クラス外から見たらただの関数でしかない

2019/12/01(日) 09:04:09.45

>>921
そこら変がちょっとキモイよなー
完全に挙動が一致してればいいんだけど、見た目が同じで処理が分かれるとなんだこれってなる

2019/12/01(日) 09:04:20.04

>>915
RangeオブジェクトとPasteSpecialメソッドの違いを考えたらわかる

2019/12/01(日) 09:04:29.40

なんかイマイチな答えしかこないな

俺は、プロパティ、メソッドで()がつく場合とつかない場合の違いは何？
全部()つけるでいいの？どう意識してるの？ってきいてる

これに対してクラスガーとか言われてもわからん

2019/12/01(日) 09:04:33.88

>>917
プロパティの引数の括弧は省略できなかったと思う
メソッド（関数）呼び出しで、戻り値を使わない場合は括弧がなくてもいい

この辺は、大昔の文法との見た目を合わせるための仕様
慣れれば自然と使い分けれるようになるから頑張れ

2019/12/01(日) 09:05:35.25

>>923
RANGEもコレクションだろ
RANGE(a1)でメンバーだろ

2019/12/01(日) 09:05:40.19

北海道のハゲはここにこないのー？

2019/12/01(日) 09:07:25.33

>>924
ああ、もちろん引数指定は全部括弧つけるって自分ルールでも問題ない

正直自分でもこのへんの使い分けは感覚で、明確な基準が説明できん

2019/12/01(日) 09:09:06.82

>>928
君はどうしてるの？

2019/12/01(日) 09:20:24.90

>>929
俺は
名前付き引数は使わない
括弧を省略できるときは省略する

基本はこんな感じ
でもそう書かないときもある
あと複数人でソース見るときは事前にルール決めることもある

2019/12/01(日) 09:27:30.25

>>930
なるほど！
名前付き引数を使わないときや戻り値を使うときには()がいる
名前付き引数を使うときは:=で()不要
この認識でいい？

2019/12/01(日) 09:30:09.60

>>926
全然違う
RangeクラスとRangeプロパティを混同してはいけない

Range("A1")の式はWorksheetクラスのメンバのRangeプロパティを引数つきで呼び出している
このプロパティ式で参照を取得しているのが、Excelのオブジェクトモデルで定義されたRangeクラスの実体(インスタンス）、つまりA1セルになる
要するに、Range("A1").Valueと書いた場合、.Value以下がRangeオブジェクトのメンバになる

Rangeクラスがセル範囲のコレクションとして自己再帰的に実装されているのは確かだけどね

2019/12/01(日) 09:34:33.47

>>929
俺は
名前付き引数は使わない
括弧はなるだけ省略しない

かな。括弧なしで空白スペースは見辛い

2019/12/01(日) 09:46:42.50

>>931
名前付き引数と括弧の省略は別
戻り値使うなら名前付き引数でも括弧は必要

2019/12/01(日) 09:47:10.20

>>932
中級者ならわかるけど
初心者にはまったくわからんな
そこらへんの文法を初心者向けに解説してるサイトある？

2019/12/01(日) 09:52:34.84

カッコ有無でエラー出るときあるの勘弁してほしいわ

2019/12/01(日) 09:52:45.12

>>931
戻り値を使う場合には()が必須、
名前付き引数を使おうが使うまいが()の要否には影響しない、
が正解
括弧つけてても名前付き引数の指定はできるので

2019/12/01(日) 10:01:28.01

更にcallの絡みもある

2019/12/01(日) 10:05:48.08

>>935
緑川吉行っていうOffice/VBA界の有名人が初心者向けに書いた記事
https://allabout.co.jp/gm/gc/297719/

これはコンパクトで分かりやすい。ただし初心者向けにわざとSheetsをオブジェクト名とかコレクション名とか言っているのは問題がある

正確な知識を得るならこっち

インストラクターのネタ帳 -
「オブジェクト名.プロパティ」という解説はウソですよ
https://www.relief.jp/docs/excel-vba-that-is-not-object-name.html

2019/12/01(日) 10:12:50.14

>>938
Callの引数として引数付き関数を呼び出す場合、呼び出される側の引数を特定して先に評価してCallに渡さなきゃいけないから括弧必須なんだよな
しかも戻り値が取れないという

2019/12/01(日) 10:18:48.73

>>939
＞「オブジェクト名.プロパティ」という解説はウソですよ
あーそういやそうだな。vbaは色々省略できるから勘違いしていた
new rangeは出来ないわな

2019/12/01(日) 10:21:01.02

>>939
どう間違ってるのですか？

2019/12/01(日) 10:21:51.97

>>942
記事を読めば分かる

2019/12/01(日) 10:25:54.76

>>941
組み込みオブジェクトはそもそも仕様としてNewできなさそうだけどな
要は As ActiveCell とか As Cells とかいう型指定が出来ないってことだわ、そういうクラスが存在しないわけだから

2019/12/01(日) 11:08:22.23

NEWと言えば何でintegerとかstringは宣言した段階で使えるのに
オブジェクト型はインスタンス化しないと使えんないの？

2019/12/01(日) 11:19:32.90

面倒だから
integerは値型だからとかもっともらしい説明を付けることもできるが、それは結果論に過ぎない

2019/12/01(日) 11:27:41.76

インスタンスという概念が無いとそれが新規のオブジェクトなのか既存のオブジェクトかの見分けが付かないよ
他の言語だとstaticとかインスタンス化せずに使えるクラスもあるけどね

2019/12/01(日) 11:52:45.15

インスタンス化は実体化するため＝メモリ領域確保するためって解釈だけど
integerだろうがstringだろうがメモリ確保してるわけだし

>>947
dim x as classtest
dim y as classtest
みたいなので見分けってつかないの？

2019/12/01(日) 12:08:59.14

正確に言うと値の代入もLetステートメントで行うのがBasic系言語の本来の姿
それを規約上で略記できるようにしているにすぎない
逆にSetステートメントは言語設計上、変数用に確保されたスタックメモリに格納される値がヒープへの参照ポインタであることを示す役割を持っているものと思われる
Variant型変数にオブジェクトを代入するときもこのSetがあるおかげで、スタックの値を参照アドレスとして解釈できるようになっているはず

2019/12/01(日) 12:55:42.14

>>948
サチコ、それインスタンス化や

2019/12/01(日) 12:56:49.87

>>949
そう、setは文法上無いと何かとバッティングしたはず。だからどうしても必要なんだけど、
何だっけな、何でもいいや

2019/12/01(日) 14:45:17.26

>>951
Letとのバッティングだろう
推測だが、VB6/VBAのコンパイラは、代入演算子と等価演算子がともに'='であることを前提とした仕様になっているんだと思う
プリミティブ型の値の代入はスタックの値のコピーに他ならないので、代入演算子を等価演算子と混同しても論理矛盾が起きない

オブジェクトの場合はそうはいかないので、オブジェクト変数として型宣言した変数へのインスタンス代入の際にはSetの識別子付与を強制するようにしてるんじゃなかろうか

VB.NETではSetが要らなくなってるからコンパイラの仕様だよなこれは

2019/12/01(日) 15:01:32.65

参照カウント型GCの都合だよ
Setで左辺のオブジェクトの参照カウントが+1されて変数に束縛される
左辺がNothingだったら束縛していたオブジェクト参照カウントを-1する
変数がemptyやNothingだったら何もしない
見た目以上に重い代入処理
関数や手続きの戻りまで行ったら全てのローカル変数に対してSet 変数 = Nothing相当の処理をする
だから関数の最後でNothingの代入は不要
ただし

2019/12/01(日) 15:36:05.55

>>953
知らなかった、ありがとう
代入値の評価をして変数スコープ内で参照カウンタを管理するためのステートメントなのか
確かにそれだとLetと違って省略不可だな

2019/12/01(日) 15:43:44.55

>>951
Setが省略できないのはデフォルトプロパティとの絡み
SetもLetもないと、デフォルトプロパティへの代入なのかインスタンスそのものの代入なのか区別がつかないから
文法解釈の問題で、GCや参照カウンタの問題ではないよ

>>952
VB.Netではデフォルトプロパティという概念を変えて
一部条件以外でのデフォルトプロパティの省略を禁止した
コンパイラは文法を解釈してるわけで、言語仕様の問題

ちなみに=が等価演算子か比較演算子かの解釈に、値型か参照型の区別は関係ない
VB.Netがそうだろ

2019/12/01(日) 15:47:47.95

>>955
なるほどそういうことか
ありがとう納得した
ここは勉強になるな

2019/12/01(日) 15:49:14.68

>>955
あーそれだ、ありがとう
setが無いと、
foo = cells(1,1)
が

set foo = cells(1,1)
なのか
foo = cells(1,1).value
なのか、
見分けが付かないって事だね

2019/12/01(日) 16:05:54.42

>>942
ちょっとリンク先見てみたけど、微妙な説明してるなぁ
混乱する一番の原因は、
オブジェクトを返すプロパティには、そのオブジェクトの型と同じ名前を使う
っていう指針があるから

Dim r As Range
のRangeは型名（＝オブジェクト名）

Set r = ActiveSheet.Range("A1")
のRangeは文法的にはWorksheetオブジェクトのRangeプロパティ
RangeプロパティはRange型のインスタンスを返す

ActiveSheetなんてオブジェクトはないが、これは
Set r = Application.ActiveSheet.Range("A1")
の省略形とみなされるので、ApplicationオブジェクトのActiveSheetプロパティだと解釈される
ActiveSheetプロパティが返しているものがWorksheetオブジェクト（のインスタンス）

Worksheet型じゃなくてSheet型だろとかいう突っ込みとか
Rangeのデフォルトプロパティだろとかいう突っ込みは勘弁な

2019/12/01(日) 18:07:13.10

>>958
> 混乱する一番の原因は、
> オブジェクトを返すプロパティには、そのオブジェクトの型と同じ名前を使う
> っていう指針があるから
違うよ
オブジェクトなんて曖昧な用語を使うから混乱するの
型（クラス）と実体（インスタンス）をきちんと区別すればいいだけ

2019/12/01(日) 19:22:42.00

Select CaseステートメントでLong型変数の判定がおかしいのですがなぜですか？
①では5000未満と判定されているのに、②ではきちんと12500と判定されます

https://i.imgur.com/TmJ2jHa.png
https://pastebin.com/LvSb9cmT

2019/12/01(日) 19:27:45.01

自決しました
String型で値渡ししてました…

2019/12/01(日) 19:43:10.04

値型はNewしないで参照型はNewするというルールに従うと
別言語でStringは参照型なのに何でNewしなくていいのかと悩んだな
結局参照型でもNewしなくていい場合があるってスルーするのが一番だけど

2019/12/01(日) 19:55:09.73

stringは今となっては値として何も考えずに使えるよね
昔は配列だの何だの意外とめんどくさかった。更に文字コードやなんやでそれはもう
https://docs.microsoft.com/ja-jp/dotnet/api/system.string?redirectedfrom=MSDN&;view=netframework-4.8#constructors

2019/12/01(日) 20:17:07.69

え、プロパティの引数って絶対に()つけないといけないの？
そこら辺の文法が謎だわ
本でも説明されてないし
ネットで検索しまくってもプロパティの引数には()をつけろなんて書いてないし
どこでそんな知識仕入れてきたの？

2019/12/01(日) 20:27:51.07

そもそもプロパティに引数ってのがよーわからん
getterなんだろうけど

2019/12/01(日) 20:35:21.31

>>965
endとかだよ

2019/12/01(日) 20:44:53.15

ActiveSheet.Range("A1") = "TEST"
とか
str = ActiveSheet.Range("A1")
とかの()内のことを言っているんだろうか？

2019/12/01(日) 21:06:45.20

>>964
RangeクラスのValueプロパティのアクセサは引数いらないよね
アクセス時に引数を要求されるプロパティとそうじゃないプロパティがあるだけ

2019/12/01(日) 21:14:55.98

>>968
プロパティの引数に()いるの？に対してその答えはおかしい

2019/12/01(日) 21:23:50.92

>>969
ひょっとしてまだメソッド/プロパティの引数指定の丸括弧記法の話をしていたのか？メゾット君
プロパティのアクセサの引数指定は丸括弧必須
戻り値を取得するための命令だから当たり前

2019/12/01(日) 21:51:43.86

>>966
いや、うん。そこじゃないんだ
普通に考えると「プロパティに引数がいるの？」なんだ
プロパティに引数は普通は不要。プロパティは「セルの内容」「列幅」など、取り出すだけのもの
プロパティてのは大体「設定]的な意味

vbaはかなり古く誕生した言語な割に大変長寿で、かなりおかしなことになっているってのはあるけども

>>958に集約されている

2019/12/01(日) 22:00:59.47

>>971
クラス側で保持するプロパティという概念自体には引数という観念が成立しないのはその通り
でもこの人が言ってるのは多分プロパティの受け渡しに使うアクセサの引数のことだと思う

2019/12/01(日) 22:13:02.79

>>971
設定に引数がなんで必要ないの？？

2019/12/01(日) 22:16:58.66

アクセサ　VBA

はい、なんもヒットしません
初心者に解説する場合、専門用語を使うってどうなの？

2019/12/01(日) 22:25:27.99

プロパティに引数持てる言語はVB系の言語しかないのでそういうもんだと思うしかないような気がする

2019/12/01(日) 22:28:21.62

プロパティに引数もてるとか持てないとかはっきりしろよ…

2019/12/01(日) 22:29:04.82

>>972
おう、これは本気で行くしか無いぞ
>>973
そうじゃなくて、逆なんだ。vbaにはわざわざ引数が用意されている

プロパティの場合、引数じゃなく代入で済ませる方が自然なんだ

cells(1,1),value = "これを設定する"
A1に"これを設定する"という文字列が入る
この場合、プロパティに引数は使われていない。プロパティに直接代入している

本来ならこう書くべきだ
cells(1,1),value.setter("これを設定する")

この辺りはずっとsetter/getterを用意しようぜって流れが主流になった

2019/12/01(日) 22:32:32.45

Range COMオブジェクトデフォルトプロパティ
でぐぐると良いかも

2019/12/01(日) 22:52:46.61

>>974
VBA アクセサで普通にヒットするぞ

2019/12/01(日) 23:25:29.33

>>979
「汗臭」で検索してないか？

2019/12/01(日) 23:43:26.99

>>980
君は生きている価値もないかな、と感じた
自分の存在価値を下げるような発言は謹んだ方が良いと思うよ

2019/12/01(日) 23:46:59.48

>>981
なんだとこのツルッパゲ！

2019/12/01(日) 23:49:23.02

グラサンのハゲはここにこないのー？

2019/12/02(月) 06:20:27.87

このあたりの話は自分でクラスを作ったことがなければ分からないと思う
ともあれ、質問者の意図は引数付きのプロパティ式で丸括弧を省略できるかどうかという話なんだろうから、出来ないという結論で締めて終わり
要するにRange("A1")をRange "A1" とは書けない
これだとRangeという名前のSubプロジージャに引数"A1"を与えるという全くデタラメな構文になる

2019/12/02(月) 10:25:16.60

hage("A1")