Excel VBA 質問スレ Part78

2022/10/30(日) 13:43:16.31

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

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

次スレは>>980が立てること
無理なら細かく安価指定

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

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

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

**デフォルトの名無しさん** (JP 0Heb-BvCT) · 2022/11/17(木) 07:25:29.19

>>76
利用者が増える兆候が全くない。
もう10年前だけど、Twitterもrubyを損切りした

ざっくりいうと大体perlと同じぐらいの人気
https://trends.google.co.jp/trends/explore?date=today%203-m&q=%2Fm%2F05zrn,%2Fm%2F060kv,%2Fm%2F05z1_,%2Fm%2F02p97,%2Fm%2F06ff5#TIMESERIES

2022/11/17(木) 07:25:45.68

技術の方向性が迷子

**デフォルトの名無しさん** (JP 0Heb-BvCT) · 2022/11/17(木) 07:50:17.45

>>81
他の全ての大手は普通にPHP・pythonを使っているのに、
「ごく一部の大手」だけがrubyを使っているのが現状

また、ruby信者は頭がおかしくこのような歪な布教活動を行う特徴がある
くれぐれも騙されないように

2022/11/17(木) 08:28:52.99

また雑談が始まった
スレタイよく読めよお前ら

2022/11/17(木) 09:34:06.31

総合スレっての無かったかい？

2022/11/17(木) 11:29:16.58

>>76
わかっただろ？統一教会みたいな連中に巻き込まれる

2022/11/17(木) 11:59:56.14

>>85
だからそういうこと書くと荒れるって言ってんだろ？
質問来たらちゃんと答えてるんだからほっとけよ

2022/11/17(木) 12:04:27.49

>>82
>>87
ありがとう、そういうが風潮あるとは知らず.......

2022/11/17(木) 13:58:32.43

>>88
言わねーとずっと続くのがいつもの流れだろ
ほっとくのが主義なら俺にも言うな

2022/11/17(木) 14:22:27.97

言語として最高かどうかは別として
とりあえずjavascript系をやっていればこの先20年は安泰

2022/11/17(木) 15:49:55.21

VBA自体年寄り御用達の言語になっちまった感だからね

2022/11/17(木) 17:00:32.50

ラズパイの入門キットが尼で3000円で売ってるからRubyでサンプル動かしてLEDチカチカ楽しいよ
仕事につなげたいなら今はJavaでスマホアプリが一番需要がある
自分のスマホで遊んでもいいし、Windows用のエミュレータも無料で公開されてる

2022/11/17(木) 17:49:39.21

ほら、こうやってRuby、Rubyって
ゴキブリそのもの

そもそもRaspberry PiのサンプルはPythonが圧倒的に多い

Rubyとか言ってる連中に近づいてはいけません

2022/11/17(木) 19:10:46.08

こうなった原因を作った初心者がすべて悪い

2022/11/17(木) 21:44:05.97

VBA + Selenium + Chrome で自動ログインをツールを作っています。

Dim Driver As New Selenium.WebDriver

ログインした後にパスワードを保存しますか？
というダイアログが出て邪魔でしょうがないです。
それを削除する為に

credentials_enable_service　　false
profile.password_manager_enabled false

を使うのは分かったのですが、pythonやjavaのコードばかりブログに乗っていて
VBAの文法でどう書けば良いか分かりません。

詳しい方がいたら教えてください。

2022/11/17(木) 23:24:19.00

>>90
放っておけばっていうのはお前がコントロールしようとしている掲示板の脱線に対してだよ
放っておいても質問があれば勝手に戻るからさ、これ書くの2度目ね

そのことと俺がお前を放っておくのとは意味あいがぜーんぜん違うんだがわかる？まぁ解んなくてもいいけど
あと指図はするけど言われたくないんだよな？
ならその通りにしましょうかね

2022/11/18(金) 00:09:57.91

>>96
chromeの起動オプションに書き加える
使うのが自分だけなら手動で事前にchromeの設定を変えておくのが一番簡単

2022/11/18(金) 04:37:56.15

>>98
VBA＋Seleniumで起動オプションの書き方はどうやればいいのでしょうか？
C#やPythonやJavaばかりでVBAの表記法が見つかりません。

2022/11/18(金) 15:03:38.43

>>99
AddArgument

**デフォルトの名無しさん** (JP 0Heb-BvCT) · 2022/11/18(金) 15:59:01.29

間違ってrubyを学習してしまい、無駄な時間を過ごしてしまうことが忍びないのはわかる
しかし、「人生には無駄な学習がある」ということに気づくことも大事な事かもしれない
※rubyの学習が無意味ということは、rubyを学習すればすぐに気づく

2022/11/18(金) 19:53:51.40

別にruby推しでもかまわないけど関係ないスレでは自重しろとは思う

2022/11/18(金) 20:42:45.12

rubyスレは過疎っているもの

2022/11/19(土) 02:07:39.29

なんでこんな偉そうな奴らばかりなのここ？

2022/11/19(土) 02:29:57.55

ruby信者が荒らすから

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/19(土) 08:44:51.51

rubyキチガイが荒らしに来るからヘイトが凄い事になってる
なお他のスレでも同様

2022/11/19(土) 18:19:31.17

GetOpenFilenameで開いたファイルのパスを返すFunctionを作ったのですが、戻り値を変数として利用する度にGetOpenFilenameメソッドが実行されてダイアログが開きます
初回のみダイアログを開くFunctionは作れないもんですかねえ
代替案としてSubプロシ＝[ジャとして呼ｂﾑ出して取得しｂｽファイルパスｂublic変数に試福ﾟているのでｂｷがPublic変数ｂgうのはなんｂｩ気持ち悪くて＝c…

2022/11/19(土) 18:32:15.63

とりあえずコードで示そうか

2022/11/19(土) 19:04:59.90

>>107
Functionの外で保持しておく値なら
Public でなく Dim で宣言すればモジュール内でつかえる

2022/11/19(土) 19:12:46.39

JavaとかC#でenum使うメリットがわからん

2022/11/19(土) 19:17:53.70

>>107
戻り値を変数に入れてないだけでは？

2022/11/19(土) 22:10:17.78

>>107
コードも見てないから何とも言えないけど
初回のみって判定なら基本的に変数で管理するしかないと思うけどね
それとGetOpenFilenameがダイアログでファイル名（ファイルパス）を取得するための関数なら関数自体は何もせずに
GetOpenFilenameを2回目以降に呼ばないような変数管理が普通の方法じゃないかと思うよ

publicが気持ち悪いってのは関数や変数のスコープ管理がおかしいからだと思うから
それはそれで見直せばいいのでは

2022/11/19(土) 22:13:03.43

>>107
それってsubの中で
cells(1,1)=Function変数
cells(2,1)=Function変数
ってやってるからでしょ？
subの中でtempでも宣言して
temp＝Function変数
cells(1,1)=temp
cells(2,1)=temp
ってやればいいんじゃない？

2022/11/19(土) 23:25:37.91

ざっくりな質問じゃなくて詳細書いてくれ頼むから

2022/11/19(土) 23:29:30.05

>>107
こういう馬鹿が来るから荒れる

2022/11/20(日) 00:35:29.58

自分で納得できるコードが書けないのは経験が足りないだけかも

2022/11/20(日) 07:09:50.84

自分でそこんところをいろいろ考えてやるのが楽しいのに
どうにでもなるようなことを聞いてる人ってプログラミング＝苦痛と感じてるひとなんだろうなぁって思うわ
まぁそれならそれで仕方ないけど

2022/11/20(日) 08:11:58.08

>>115
お前が荒らしてるだけじゃん
全然荒れてないわ

2022/11/20(日) 08:12:58.99

と、荒しが申しております。

2022/11/20(日) 09:58:37.83

>>108
こんな感じです。

Public Function OpenedFilePath() As Variant
OpenedFilePath = Application.GetOpenFilename(FileFilter:="ExcelファイルおよびCSVファイル,*.xls*;*.csv")
If OpenedFilePath = False Then
MsgBox "ファイルが選択されませんでした。"
Exit Function
End If
Dim OpenedFileName As String
OpenedFileName = Dir(OpenedFilePath)
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = OpenedFileName Then
MsgBox "選択したファイルは既に開かれています。ファイルを閉じてやり直してください。"
OpenedFilePath = False
Exit Function
End If
Next Wb
Workbooks.Open OpenedFileName, UpdateLinks:=0
End Function

Function変数「OpenedFilePath」をメインのプロシージャで何度か呼び出すのですが、
そのたびにダイヤログが開くんですよね（まあ当たり前なんですけど）。
やっぱり「OpenedFilePath」をメインのプロシージャの方でローカル変数に格納するしかないですかね。

2022/11/20(日) 10:09:40.70

>>120
変数に入れるのが一般的だけど、どうしてもっていうならFunction全体を「OpenedFilePathが空白だったら」ってIfで囲ったらなんとかならん？

2022/11/20(日) 10:21:57.15

特に理由がない限り1つのプロシージャの機能はなるべく1つに限定したほうがいい
短期的に問題無くても後々機能を使いまわしたくなった時に利便性が悪い

2022/11/20(日) 10:25:11.24

>>120
まず「Function変数」なんオレオレ用語は止めなよ、余計混乱する

> Function変数「OpenedFilePath」をメインのプロシージャで何度か呼び出すのですが、
それ何のために呼び出してるんだ？
そもそも関数内でブックをオープンするならオープンしたブックを返してメイン側ではそのブックを使えばいいだけな気がするが...

Public Sub Main()
Dim Book As WorkBook
Set Book = OpenedFilePath()
...
End Sub
Public Function OpenedFilePath() As WorkBook
Dim Path As Variant
Path = Application.GetOpenFilename(FileFilter:="ExcelファイルおよびCSVファイル,*.xls*;*.csv")
If Path = False Then
MsgBox "ファイルが選択されませんでした。"
Set OpenedFilePath = Nothing
Exit Function
End If
Dim OpenedFileName As String
OpenedFileName = Dir(Path)
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = OpenedFileName Then
MsgBox "選択したファイルは既に開かれています。ファイルを閉じてやり直してください。"
Set OpenedFilePath = Nothing
Exit Function
End If
Next Wb
Set OpenedFilePath = Workbooks.Open(OpenedFileName, UpdateLinks:=0)
End Function

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/20(日) 10:37:30.36

え

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/20(日) 10:51:14.71

GetOpenFilenameでファイル選択しなかったときの返り値は
”false”
ね
FALSE
じゃないよ
糞だよ

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/20(日) 10:58:27.47

なんでstaticが出てこないんだよｗｗｗ

Public Function OpenedFilePath() As String

'引数がtrueなら必ずダイアログを開くっての実装しようとおもったけどやめた

'OpenedFilePathは空白かどうかだけで判定。staticで変数を宣言
Static path

'空白じゃなければ終了
If (path <> "") Then
Exit Function
End If

'本体
path = Application.GetOpenFilename(FileFilter:="ExcelファイルおよびCSVファイル,*.xls*;*.csv")

'開かなかったら終了
If OpenedFilePath = "False" Then
OpenedFilePath = ""
MsgBox "ファイルが選択されませんでした。"
Exit Function
End If

End Function

2022/11/20(日) 11:33:22.40

>>125
なんでそんなすぐわかる嘘つくの？

Returns False if the user cancels the dialog box.
https://learn.microsoft.com/en-us/office/vba/api/excel.application.getopenfilename

そもそもその仕様だと false というファイル名を返せないだろ、馬鹿すぎ

2022/11/20(日) 11:34:19.38

>>126
> なんでstaticが出てこないんだよｗｗｗ
そんな汚い設計を勧めたくないから

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/20(日) 11:44:28.04

>>127
うわ、ずっと間違えてた。これは申し訳ない

言い訳すると、pathをstringで宣言してる時、booleanのfalseが"false"に変換される
これがあってからずっと文字列が返ってきてると思いこんでいた
これは本当に申し訳ない、間違った情報でドヤッてしまった

Sub foo()
Dim path As String
path = Application.GetOpenFilename()
Debug.Print TypeName(path)
End Sub

>>128
わかる

2022/11/20(日) 12:28:19.61

「Workbooks.Open」のようなコードだけだとActiveBookが変わって
本来操作したいブック以外を参照してしまう事故を防ぐためにも
自分も>>123のようなコードがいいと思うな
あとはVariantはなんにでも使えてしまうから戻り値もWorkbookがいいと思うけど
private変数で宣言するならファンクションである必要もなくなりそうではあるんだが
それは前後の流れ次第かね

2022/11/20(日) 15:20:20.30

>>117
楽しい・・・？
そうだね、VBAは弄ってて楽しい言語だね。
何でもお手軽に作れるしグラフィカルな部分が多いから
分かりやすいし。

お手軽と言えばJavaScript もそうかな。
逆にCOBOLとか何が楽しいのか俺には理解出来ない。

2022/11/20(日) 15:36:16.68

おっちゃんが理解できるようにしてやろうか？

2022/11/20(日) 21:15:15.16

>>100
ありがとうございます。

Dim Driver As New Selenium.WebDriver

Driver.AddArgument "credentials_enable_service=False"
Driver.AddArgument "profile.password_manager_enabled=False"

「パスワードを保存しますか？」というダイアログが表示されてしまいます。

このダイアログが邪魔でしょうがないです。
何とか消したいのですが、コード間違っていますか？

2022/11/20(日) 21:44:52.90

Driver.SetPreference "credentials_enable_service", False
こうじゃない？

2022/11/20(日) 22:06:06.02

>>134
これも試しましたが、ダイアログが起動します、、、
うーん、困りました。
With Driver
.SetPreference "credentials_enable_service", False
.SetPreference "password_manager_enabled", False
.SetPreference "--password-store", basic

2022/11/20(日) 22:08:29.04

弱りましたねえ
諦めるしか

2022/11/20(日) 22:21:11.90

最悪、しょうがないので力業でWindows APIで座標指定で「×」をクリックします。

2022/11/20(日) 22:25:06.89

>>135
ソースコード全部見せて

2022/11/20(日) 22:41:36.64

ブラウザの操作なんかPADでやればいいじゃん

2022/11/20(日) 22:44:18.63

Map<String, Object> prefs = new HashMap<String, Object>();
prefs.put("credentials_enable_service", false);
prefs.put("profile.password_manager_enabled", false);
options.setExperimentalOption("prefs", prefs);

Javaだとこうだから

Driver.SetPreference "prefs", ...

にしないといけないのかも

2022/11/20(日) 22:46:06.24

>>138
色々と試しましたが、全部ダイアログが出ます、、、

Dim Driver As New Selenium.WebDriver

'パスワードを保存しますか？ダイアログを消す。（消えない）
'Driver.SetCapability "credentials_enable_service", "False"
'Driver.SetCapability "profile.password_manager_enabled", "False"

'Driver.AddArgument "credentials_enable_service=False"
'Driver.AddArgument "profile.password_manager_enabled=False"

With Driver
'.SetPreference "credentials_enable_service", False
'.SetPreference "password_manager_enabled", False
'.SetPreference "--password-store", basic
.Start "chrome"
.Get "https://hogehoge.com/";
End With

'ID
Driver.FindElementById("UserID").SendKeys "IDhoge"

'ID
Driver.FindElementById("UserPASS").SendKeys "PASShoge"

'ログインボタンをクリック
Driver.FindElementById("id_login_button").Click

2022/11/20(日) 23:19:33.15

Dim prefs
Set prefs = CreateObject("Selenium.Dictionary")
prefs("credentials_enable_service") = False
prefs("profile.password_manager_enabled") = False

driver.SetPreference "prefs", prefs

これでどう？

2022/11/20(日) 23:54:01.57

>>142
ありがとうござます。試しましたがやはダイアログが表示されます、、、

2022/11/21(月) 00:00:32.12

driver.SetPreference "credentials_enable_service", False

Dim profile
Set profile = CreateObject("Selenium.Dictionary")
profile("password_manager_enabled") = False

driver.SetPreference "profile", profile

これでどう？

2022/11/21(月) 00:11:55.56

Driver.SetPreference "credentials_enable_service", False
Driver.SetPreference "profile.password_manager_enabled", False

これでできそうな気がする

2022/11/21(月) 00:17:14.31

>>144 >>145
ダメでした。

VBA＋Seleniumだと色々と制限がありそうですね。
Windows APIで強制クリックしかなさそうですね。

2022/11/21(月) 00:42:53.42

Driver.AddArgument "--password-store=basic"
Driver.SetPreference "credentials_enable_service", False
Driver.SetPreference "profile.password_manager_enabled", False
これでどう？

2022/11/21(月) 00:48:06.12

>>147
ダメでした。

ただ、ページ遷移すると自動でダイアログが消えますので
初回ログイン時に出るのは結構目障りですけど、最悪諦めます。

2022/11/21(月) 08:04:05.28

>>148
結果的に消えるならいいじゃん
そこでボタンをクリックしないと動作が止まる、とかだったら困るけど、動けばいいんだよ

てか、オプション設定のタイミングが悪いんじゃないの？Chromeを起動する前に設定してる？

2022/11/21(月) 08:09:22.01

>>149
はい、してます。

試しにVBAで同じことを試していただければ１００％再現できます。

2022/11/21(月) 17:38:44.89

>>133
マルチポスト、更に言語の違いすらわからない馬鹿は消えろ

2022/11/21(月) 18:02:11.22

マルチポストはどうかと思うが少なくともこっちのスレだと言語は合ってるだろ

2022/11/21(月) 23:00:46.16

https://xtech.nikkei.com/atcl/nxt/column/18/02246/110200002/
https://cdn-xtech.nikkei.com/atcl/nxt/column/18/02246/110200002/ph1.jpg
利用しているプログラミング言語
「あなたが現在使っているプログラミング言語は何ですか」という設問に対する回答の内訳。
最大3つ選択してもらった。回答数が10以上の言語を掲載

ＶＢＡ頑張ってるじゃん
Ｒｕｂｙの倍やん

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/21(月) 23:03:32.24

そりゃ母数が全然違うからな
事務員どころか営業でも使う人がいる

2022/11/21(月) 23:12:28.50

>>153
これは結構意外な結果。
HTMLとCSSが思ったより低いね。
もっと意外だったのがSQLがランクインしていないこと。
「SQLはプログラミング言語じゃねーだろ」という意見も聞こえそうだけど、
それ言ったらHTMLだってプログラミング言語かと言えば怪しいよね。

iPhoneを開発するOvjective-C辺りはCに含まれるのかな？
でもそう考えるとSwift もランクインされていない。
最近はPython が主流なのかー。
まぁRubyはさして知るべし。

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/21(月) 23:18:34.01

メインの言語がhtmlです！って人はちょっと・・・

2022/11/21(月) 23:28:16.93

よく見るとTypeScriptが追い上げてるなぁ
Web版EXCEL開発しなきゃいけなくなったとき用に少し勉強しておくかな

2022/11/22(火) 00:17:55.04

>>153
rubyは毎年順位を落としている

2022/11/22(火) 01:16:20.45

Pythoの何がいいの？C＃の方がよっぽどコードが綺麗。

2022/11/22(火) 07:07:33.19

VBAはバリバリ活躍してるけど、VBはもはや枯れた言語か。。

2022/11/22(火) 07:14:38.51

むしろVB(VB.NET以外)がランクインしてるのに驚いたわ
さすがに保守案件なんだろうけど

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/22(火) 08:25:23.22

>>159
アホが書いたぐちゃぐちゃインデント見た事ないっしょ

インデントがそのまま機能に繋がるってのは、
もうこれだけでいいんじゃないかってぐらい見やすいんだよ

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/22(火) 08:29:03.16

>>153
これ相当歪な集計だぞ
期間は2週間、プログラマーがたったの16%であとは経営者3%なんて混じってる

2022/11/22(火) 10:15:24.80

VBAでフォームからセルに入力できるフォームを作るときにテキストボックスとセルをcontrolsauceで連結するのが一般的ですか？
今まで、読みとりボタンで、テキストボックス１＝セルの値、更新ボタンで、セルの値＝テキストボックス１としてたのですが、controlsauceを使った方がよいのか悩んでます

2022/11/22(火) 10:27:21.22

>>162
pythonマジでコードが気持ち悪いんだけど。

2022/11/22(火) 10:38:52.48

使わなきゃいいだけなのにあえて他言語の悪口を言うのはRuby厨か

2022/11/22(火) 12:03:51.19

>>163
プログラマー以外がプログラミングしちゃいけないわけじゃないし、別に歪じゃないだろ

2022/11/22(火) 12:11:04.68

歪というか、アンケートの対象はプログラマーのみではなさそうだな
プログラマーなんて社会人の一部だし

この手のはなんかの指標として使えるものではないと自分は思ってる

2022/11/22(火) 12:51:18.95

pythonのメリットは何？

**デフォルトの名無しさん** (JP 0Hfe-stRS) · 2022/11/22(火) 13:05:26.48

>>169
pythonスレへどうぞ

2022/11/22(火) 13:50:49.13

VB.Netは確かにもうMicrosoft からも.NetCoreでは更新しませんよって宣言されてた気もするし、
終わった言語と言えばそうなのかもね。

ま、でも文法こそ違うものの、中身はC#と大して変わらないから、
やるならC#でいいよ。

C#とVBA覚えておけば必然的にVB.Netも書けると思う。

2022/11/22(火) 14:11:59.31

vb.netとc#って
objective-cとswiftみたいなもんじゃね

2022/11/22(火) 14:54:19.77

そうだな、ぜんぜん違うけどな

2022/11/22(火) 15:48:12.92

VBA は社員が使っている。一般人・アマチュア。
Linux, Docker, Heroku, AWS などを知っているはずがない。
Windows しか出来ない香具師

一方、Ruby on Rails は、ウェブ開発のプロ用。
ポートフォリオにも使う転職用だから、一般人よりも少なくなる

VBAが出来ても、プロとしては転職できない。
VBAが出来るから、モダンなウェブ開発企業が採用するとは思わない

2022/11/22(火) 15:57:35.32

>>169
Pythonにあっという間に追い越され凋落が加速しているRubyざまあ

2022/11/22(火) 16:01:15.96

>>174
ドヤ顔で香具師とか言われても……

2022/11/22(火) 16:04:23.96

>>174
プロ用wwwwww
つまり金貰えなきゃRubyなんて使わんわ！ということ

2022/11/22(火) 18:41:56.86

でもどうだろ？
60歳前後の人はVB通ってきてからVBAを始めた人多いと思うからもっと人口多いと思う。

2022/11/22(火) 18:45:18.15

あー、まぁ旧VB6ならそうかもね
VB.Netは完全にObject指向言語だから
そこからVBAやるってのはキツいんじゃないかな？
まぁその逆はもっとキツいと思うけど

2022/11/22(火) 18:51:44.40

そういえばVBなんて言語あったなー(遠い目)
ウチにVBのリファレンス本が埃かぶってある。

2022/11/22(火) 19:36:41.19

旧VBは結構な値段しただろ
使ったことがあるのはプロのプログラマーだけだよ
VBAやVB.NETは素人向け