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/24(日) 17:31:24.17

>>811
そんなレベルの低い話はしてないんだがw

2019/11/24(日) 17:34:20.62

困ったらググれ

2019/11/24(日) 18:56:22.86

>>789
というか、それってExcelそのものに対して透明化したいって話?
それは某掲示板で話題になってWindows10から出来ないみたいな話を聞いたような。

2019/11/24(日) 18:58:17.94

>>809
正常動作しなくなったのは7の時点だけど、その時はAeroを切ってどうにか切り抜けた。
しかし10はどうしたものかなと。
LWA_ALPHAの方は全く問題ないんだけど。
複数のPCで確認したから、おま環ではないと思う。

2019/11/24(日) 19:01:21.70

>>814
透明化したいのはExcelそのもの。
結構便利なんだよ。
ウインドウを2枚重ねても、奥側のウインドウを操作できるから。

2019/11/24(日) 20:13:58.03

使えなくなったのか
大昔ハマって透明アプリばっかり作ってた記憶

2019/11/24(日) 21:06:06.38

>>817
使えないっていうか、変な動作をするんだよ。
ThisWorkbook.Application.Hwndでハンドル取ってるのに、
なぜか最初に配置したコマンドボタンのキャプションだけが透過するとか。

2019/11/24(日) 21:33:06.21

>>816
透過はするけど透明にならないんだろ。
無理矢理やる方法は思い付いたけど試して無い。

2019/11/24(日) 21:55:17.62

ストリートインハゲラクター

2019/11/25(月) 01:13:03.20

透過するアプリがあったなあ昔、なんだっけ。

2019/11/25(月) 03:00:00.82

透明じゃ見えないよ

2019/11/25(月) 08:39:02.81

ググったらサンプルコードが見つかるんじゃなかったのか?

2019/11/25(月) 11:42:30.29

初歩的な質問ですみません
標準モジュールとユーザーフォームでプログラムを書いています
1つのモジュール内にプロシージャが沢山あり、読みにくくなってしまいました
本を読むとクラスモジュールでプログラムが読みやすくなると書いてありました
どのような時にクラスモジュールを使ったらプログラムは読みやすく出来ますか？
サブルーチンやForNext,if等の繰り返し使うものはクラスモジュールを使った方がいいでしょうか？

2019/11/25(月) 11:52:41.48

>>824
そんなことをここで聞くような人には無理

2019/11/25(月) 14:15:33.91

>>825
わかりました
もっと勉強してきます
失礼しました

**デフォルトの名無しさん** (ｽﾌｯ Sd33-mWXg) · 2019/11/25(月) 14:41:38.68

ぶしつけで恐縮ですが、シート内の改行を一気に削除する方法を教えていただけないでしょうか。

cellsで指定してreplaceメソッドってやってもできないので、誰かよろしくお願い申し上げます。

2019/11/25(月) 15:12:03.96

新しいシート作って改行をｌ削除したデータをコピーすればいいんじゃないかな

2019/11/25(月) 15:16:08.90

Dim R As Range
For Each R In ActiveSheet.UsedRange
R = Replace(R, vbCr, "")
R = Replace(R, vbLf, "")
Next

あるいは

Cells.Replace What:=vbCr, Replacement:=""
Cells.Replace What:=vbLf, Replacement:=""

2019/11/25(月) 15:30:30.80

>>827
VBAスレなんで余談だけど
VBAでやるんなら>>829
手動なら検索窓に「ctrl+J」を入れて全て置換って方法もある

2019/11/25(月) 15:42:49.49

いちおう説明
excel内の改行コードはLFが基本らしいんだけど
マクロ使ったりでCRLFも入力出来るらしい
なのでCRとLFで分けて処理させてみた

2019/11/25(月) 16:52:28.97

結局>>789はどうにもならんのか?

2019/11/25(月) 17:03:29.94

>>824
クラスモジュールというのはユーザーが独自にメソッドやプロパティ、イベントを定義して使えるオブジェクトのことで、本質的にはユーザーフォームと変わらない設計とコーディングに結構手間がかかる
オブジェクト化によるカプセル化がどうしても必要なら試してもいいが、肥大化したモジュールのコードの可読性改善くらいの目的であればやらない方がいいかもしれない
クラス内に定義された関数を呼び出すにも、そのクラスの型をもつ変数を宣言してインスタンスを生成してメソッドを呼び出なければならなくなるのでね

モジュールがごちゃごちゃして嫌なら、モジュールに記載している関数を機能カテゴリに分類して、各機能カテゴリごとモジュールを分ければいいんじゃないのかな
文字列操作系、メール送信機能系、メッセージダイアログ系、みたいな感じの切り分けで

2019/11/25(月) 18:09:55.21

>>833
ありがとうございます
おっしゃる通りで今問題なく動くプログラムをわざわざ変える必要は無いですね
まずはモジュールを分けるところから始めてみます
今後プログラムを作る際の参考にさせていただきます

2019/11/25(月) 19:07:37.29

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

2019/11/25(月) 19:23:35.97

シートやセルと変数の定義が重複するようなときに一カ所まとめられて便利

2019/11/26(火) 07:21:06.34

>>788
ヒープエリアに展開されるのはその通りだけど
VBAにガベージコレクションの概念は無いよ

2019/11/26(火) 08:19:11.49

>>837
なにをガベージコレクションと言ってるのかわからんけど、VBAはCOM扱ってるから参照カウンタは使ってるよ
まあCOMをVBAの機能と言うかについてはいろんな意見があるだろうけど

2019/11/26(火) 18:13:05.92

お前らの部屋もガーベージだらけ

2019/11/26(火) 19:01:16.26

ちゃんとコレクションしてるわ

2019/11/26(火) 19:11:03.72

ほこり被ってるけどな

2019/11/26(火) 20:19:14.53

>>837
参照追跡方式の本当のガベコレは利用できないけどCOM標準の参照カウンタ方式のリソース管理システムはバックグラウンドで使ってるだろ
循環参照が発生してるとリソース解放できないやつね

2019/11/26(火) 20:33:43.32

A列の値が「ア行」、B列の値が「あいうえお」のうちどれかであればC列を赤く塗り、
同じく「カ行」で「かきくけこ」のうちどれかであれば青く塗る、というような処理をしたくて
以下のようにしたところ一応うまくいったのですが、
「ア行 and あ」or「ア行 and い」or ……
というような複数条件の書き方はこれであっているのでしょうか？

If InStr(Range("A2").Value, "ア行") > 0 And InStr(Range("B2").Value, "あ") > 0
Or InStr(Range("B2").Value, "い") > 0 Or InStr(Range("B2").Value, "う") > 0
Or InStr(Range("B2").Value, "え") > 0 Or InStr(Range("B2").Value, "お") > 0 Then
Range("C2").Interior.Color = RGB(255, 0, 0)

ElseIf InStr(Range("A2").Value, "カ行") > 0 And InStr(Range("B2").Value, "か") > 0
Or InStr(Range("B2").Value, "き") > 0 Or InStr(Range("B2").Value, "く") > 0
Or InStr(Range("B2").Value, "け") > 0 Or InStr(Range("B2").Value, "こ") > 0 Then
Range("C2").Interior.Color = RGB(0, 0, 255)

2019/11/26(火) 20:46:08.04

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

2019/11/26(火) 21:20:11.71

>>843
間違ってる
AndとORは左側からの計算になるんで
false and false or true …がtrueになる
Or の連続部分を括弧で囲まないといけない

2019/11/26(火) 21:29:30.19

>>843
> 「ア行 and あ」or「ア行 and い」or ……
> というような複数条件の書き方はこれであっているのでしょうか？
ダメ
AndよりOrの方が優先順位が低いので
InStr(Range("A2").Value, "ア行") > 0
And InStr(Range("B2").Value, "あ") > 0
Or InStr(Range("B2").Value, "い") > 0
Or InStr(Range("B2").Value, "う") > 0
Or InStr(Range("B2").Value, "え") > 0
Or InStr(Range("B2").Value, "お") > 0
は
(InStr(Range("A2").Value, "ア行") > 0 And InStr(Range("B2").Value, "あ") > 0)
Or InStr(Range("B2").Value, "い") > 0
Or InStr(Range("B2").Value, "う") > 0
Or InStr(Range("B2").Value, "え") > 0
Or InStr(Range("B2").Value, "お") > 0
のように解釈される
なのでA2が "ア行" でなくてもB2が "い" だと成立しちゃう
詳しくは
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/operator-precedence
を見て

2019/11/26(火) 21:38:29.33

>>843
そもそも
> A列の値が「ア行」
と言うなら
Range("A2").Value = "ア行"
と書けばいい
InStr(Range("A2").Value, "ア行") > 0
だとA2が "マレーシア行きのバスはここから出ます" でも成立しちゃうけどそれはいいのか？

2019/11/26(火) 21:41:08.57

あらそうだったんですね。ということは

InStr(Range("A2").Value, "ア行") > 0
And (InStr(Range("B2").Value, "あ") > 0 Or InStr(Range("B2").Value, "お") > 0) Then

という感じにすればいいんでしょうか？

2019/11/26(火) 21:43:24.14

>>845の左順って間違いだったは
変更はそれでOK

2019/11/26(火) 21:46:05.70

ああなるほど。文言は固定でかぶってる言葉がなかったので大丈夫だったんだと思います
すでにあった文言の組み合わせの違うVBAをいじったもんですからそれを大枠はそれをそのまま
使ったんですけどそう言われればそうですね

2019/11/26(火) 21:50:37.69

If Range("A2").Value = "ア行"
And (InStr(Range("B2").Value, "あ") > 0 Or InStr(Range("B2").Value, "お") > 0) Then
Elseif Range("A2").Value = "カ行"
And (InStr(Range("B2").Value, "か") > 0 Or InStr(Range("B2").Value, "こ") > 0) Then

こうでしょうか？

2019/11/26(火) 21:55:48.15

もいちょい頑張って正規表現使ったらいいんじゃないでしょうか

2019/11/26(火) 22:05:12.70

正規表現だと
If Range("A2").Value = "ア行"
And (Range("B2").Value Like "[あ, い, う, え, お]" Then
これであってますか？

2019/11/26(火) 22:24:52.56

>>853
厳密には"[あ-お]"または"[あいうえお]"
それだと,でも反応する

2019/11/26(火) 22:25:20.59

正規表現はRegExp使う奴だよ

2019/11/26(火) 22:34:52.14

簡略化するためにあいうえおを使いましたが、実際は2～10文字程度の文字列なので、
And (Range("B2").Value Like "東京|大阪|名古屋" Then
こうすればいいのかな？

2019/11/26(火) 22:41:27.30

>>856
| はRegExp使わないとムリだね

2019/11/26(火) 22:46:43.63

確かにただ　|　を使っただけでは反応しませんね
とりあえずOrいっぱい使って直します、ありがとうございました

2019/11/26(火) 22:50:11.95

TestメソッドがTrueを返してきたら処理するって形にすればいい

2019/11/26(火) 22:55:07.89

>>856
いちいち聞く前に試した方が早いよ

2019/11/27(水) 06:59:40.83

質問スレなんだから構わないだろ
気に入らないなら無視しとけアホ

2019/11/27(水) 15:37:51.09

他人が作ったマクロなんて読みづらいに決まってんじゃん…
今更グダグダ言ってもあとの祭りさ。

2019/11/27(水) 15:57:59.39

自分が作ったマクロもだぞ
数年前どころか一ヶ月もするとわからなくて四苦八苦することがある

2019/11/27(水) 16:57:52.22

過去のソースは別人が書いたと思って

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

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