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/27(水) 18:34:34.70

コードよりメモの方が長い

2019/11/27(水) 19:32:47.73

１週間後の自分は既に他人

2019/11/27(水) 19:44:22.70

プログラミングの実習で教授が言ってたわ
明日の自分は他人だから、いつでも他人が見てもわかるように書けって

2019/11/27(水) 19:53:39.35

昨日のことも覚えてない

◆QZaw55cn4c (ﾜｯﾁｮｲ d347-Vctl) · 2019/11/27(水) 20:15:43.70

>>868
昨日の昼飯がなにか？なんて思い出せなくなりました…

2019/11/27(水) 20:35:10.07

>>869
ボケがはじまっているのでわ？
アルツハイマーだとやっかいですよ

◆QZaw55cn4c (ﾜｯﾁｮｲ d347-Vctl) · 2019/11/27(水) 20:39:12.17

>>870
ビタミン剤をしこたま飲んでるんですけど、やっぱりだめですかね…

2019/11/27(水) 20:47:12.82

>>867
集中してるとそこまで対処してるか！みたいなのが書ける時があって
後から見てなんでこんなのあるんだ？って思うことがある
同じことやろうと思っても出来なかったり
だから自分に対してのコメント必須だわ

2019/11/27(水) 21:24:50.75

昨日の自分は今日の敵
今日の自分は明日の（自分にとっての）敵

2019/11/27(水) 21:25:04.01

>>819
>>832
もうちょっと調べてみたが、
種類に関係なく、最初に配置したオブジェクトだけが透過することがわかった。
しかも、コマンドボタンは常時透過するが、
テキストボックスとラベルは、アクティブになっている時だけ透過するっていう。
だから、どでかいコマンドボタンに特大フォントで■(四角)を書くとか、
本当に無理矢理やろうと思えば出来るんだろうけど、それはちょっとねぇ・・・。

2019/11/28(木) 00:11:11.99

VBAでChromeのタブブラウザを思い通りに操作することってできます？
IEのタブブラウザも思い通りに操作する方法も知りたいけど。

2019/11/28(木) 01:30:16.44

Seleniumでもタブ操作は無理だから無理なんじゃねーの

2019/11/28(木) 01:58:43.77

Ruby で、Selenium Webdriver を使っているけど、タブ移動は出来る！

url_0 = "URL 0"
url_1 = "URL 1"

driver.navigate.to url_0 # url_0 を開く

driver.execute_script( "window.open()" ) # 新しいタブを開く
driver.switch_to.window( driver.window_handles.last ) # 新しいタブへ移動する
driver.navigate.to url_1 # url_1 を開く

all_handles = driver.window_handles # すべてのタブ
driver.switch_to.window( all_handles[ 0 ] ) # url_0 へ移動する

**877** (ﾜｯﾁｮｲ 922c-Ql8R) · 2019/11/28(木) 02:00:57.37

driver.execute_script( "window.open()" ) # 新しいタブを開く

driver.execute_script で、JavaScript のソースコードを書ける

2019/11/29(金) 13:28:48.35

>>874
以前の挙動ってセル罫線は見えるけどセル自体は透過して、下への入力が出来るというものだった記憶があるんだけど、そういう動作を望んでるってことだよね。
単純にセル範囲全体、もしくは部分を完全透過するって意味じゃ無いよね。
セル範囲、もしくは部分を完全透過して下へ入力出来るっていうのなら簡単に実現出来ると思う。
試して無いけど。

2019/11/29(金) 19:37:43.44

>>879
そう。
SetLayeredWindowAttributesではなく、違う発想でやるってこと?

2019/11/29(金) 21:00:27.22

>>880
SetLayeredWindowAttributesは多分無理だと思う。
使ったことないけどUpdateLayeredWindowも同じかな?

この種のAPIは諦めて、リージョン使ってウィンドウの形状をくり抜いた形に変形する方法を使って出来たけど、色指定とかも出来ないし、くり抜いた部分は問答無用で透過する。
当然、罫線も透過する。
それからブックのウィンドウを移動すると元に戻る。
こっちはサブクラスでどうにか出来なかったかな。

くり抜く部分は右端列、下端行の見切れる所を正確に取得するのが面倒くさい。
指定セル範囲なら簡単なんだけど。

2019/11/29(金) 21:05:43.61

元々、無理矢理やろうとしてたのは半透明にしてその描画をメモリに取得してから完全透明にして、デスクトップに取得した描画を書き込むことを考えたけど、再描画で無茶苦茶チラつきそうで断念した。

2019/11/29(金) 21:42:27.36

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

2019/11/29(金) 23:10:37.96

ググレばサンプルや答えが見つかるとか言ってた奴がいたけど、ググってどうにかなるようなレベルの低いものは、問題にすらならないわけでね。
わざわざ覚えるようなことをしてないだけでググレば答えが見つかるのが分かってるんだよ。

一方、問題になるようなレベルの高いものはググっても答えが見つかることは殆ど無いわけだ。

2019/11/30(土) 16:10:24.85

最近独学ではじめたんだがググっても出ないから質問させてくれ
if の条件式をセルから読み取ることできない？
例えば
セルA1に1+1=2って入力してあって
VBAで
if cells(1,1).value then
end if
的なことを実行したいんだが・・・

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なんだろうけど