!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
探検
Excel VBA 質問スレ Part78
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん (ワッチョイ 5f2e-juJ7)
2022/10/30(日) 13:43:16.31ID:6yf2E1Gz074デフォルトの名無しさん (スプッッ Sda1-2U4B)
2022/11/16(水) 18:23:35.40ID:4eEwN6UDd >>73
Rubyだけは絶対に手を出すな
Rubyだけは絶対に手を出すな
75デフォルトの名無しさん (JP 0Heb-BvCT)
2022/11/16(水) 19:20:01.04ID:+GbRkwRhH76デフォルトの名無しさん (ワッチョイ 1b30-7TzV)
2022/11/16(水) 22:22:53.60ID:9ltX2oUg0 >>74
これ怖い 参考に理由聞いてもいい?
これ怖い 参考に理由聞いてもいい?
77デフォルトの名無しさん (アウアウエー Sa13-oZep)
2022/11/16(水) 22:34:06.61ID:DYObOoK1a クラスモジュールを使ってなにか面白いこと便利なことできないかなあ
今のとこコンストラクタで画面更新や自動計算を切る呪文を唱えるクラスくらいしか作っていないんだが
今のとこコンストラクタで画面更新や自動計算を切る呪文を唱えるクラスくらいしか作っていないんだが
78デフォルトの名無しさん (ワッチョイ cd59-LvGQ)
2022/11/16(水) 22:49:19.27ID:UM257iUM0 実務ではクラスモジュールなんて殆ど使わないよ
標準モジュールで機能別に関数をまとめるとかだな
それよりエラートラップや値渡しと参照渡しの違いとか覚えたほうがいい
C#やJavaだとクラスの設計ができるレベルじゃないときついが
標準モジュールで機能別に関数をまとめるとかだな
それよりエラートラップや値渡しと参照渡しの違いとか覚えたほうがいい
C#やJavaだとクラスの設計ができるレベルじゃないときついが
79デフォルトの名無しさん (ワッチョイ 7501-X0N7)
2022/11/16(水) 23:09:35.64ID:1T85N88O0 一般事務ならそれこそvbaのみで十分だろ
職場のパソコンで環境構築とか不可能だし
Excelなら必ず入ってるからな
職場のパソコンで環境構築とか不可能だし
Excelなら必ず入ってるからな
80デフォルトの名無しさん (ワッチョイ 234f-nE6g)
2022/11/17(木) 01:03:56.22ID:ugho+MXj0 >>77
そうだなぁ
きちんとクラスの特性とか多態性とか
基本的なことを押さえていれば
何となくこんなシチュエーションのときに使うって
分かると思うからその辺調べてみれば?
もっとも、VBAでクラスのこと説明してるとこ
あまりないから、JavaとかC#でクラスって
どんなもんかググれば大概出てくるんじゃないかなぁ
VBAのクラスはかなり制限あるし
その辺のこと興味持つようになったらボチボチ
他言語にも手を伸ばす時期だと思うよ
あと、「こんな使い方するんだ」ってのが
知りたければ「デザインパターン」でググってみればいい
これもなんかのヒントにはなるよ
そうだなぁ
きちんとクラスの特性とか多態性とか
基本的なことを押さえていれば
何となくこんなシチュエーションのときに使うって
分かると思うからその辺調べてみれば?
もっとも、VBAでクラスのこと説明してるとこ
あまりないから、JavaとかC#でクラスって
どんなもんかググれば大概出てくるんじゃないかなぁ
VBAのクラスはかなり制限あるし
その辺のこと興味持つようになったらボチボチ
他言語にも手を伸ばす時期だと思うよ
あと、「こんな使い方するんだ」ってのが
知りたければ「デザインパターン」でググってみればいい
これもなんかのヒントにはなるよ
8169 (ワッチョイ 154f-FFna)
2022/11/17(木) 06:50:32.28ID:bNmyZmxA0 Qiita, Zenn, Note, Wantedly、食べチョクなどは、Ruby on Rails。
時価総額100億円ぐらいを目指す、ベンチャー企業がRailsを採用する。
米国では、1兆円超えのShopify, Airbnb, Gitlab などもある
他には、ガーシーが使う、Mastodon はRails 6。
作者のドイツのオイゲン・ロホコは、PHPからRailsに変えた。
Rubyの方が可読性が高いから
米国年収では今の円安で、Rails, AWS Solution Architect などは、2千万円ぐらい。
バックエンド技術者は高い。
AWS, Linux, Docker, Kubernetes、データベースなど学ぶことが多いから
KENTA の天敵・モローは、2年ほど前に、YouTubeで言ってた。
Rubyは滅ぶ。これからはJava・PHPの時代だと
それが今になって急に、Railsのキャリア相談までやり出したw
Java・PHPの仕事は、どうなったの?w
YouTubeのモローの動画。
【2022年版】Ruby on Railsの将来性
KENTAが、PHP, Scala をオワコン認定したから、
PHPのFacebook とか、Laravel を使っているZOZO、
Scalaを使っているTwitter などは、良い開発者を集めるのが大変
時価総額100億円ぐらいを目指す、ベンチャー企業がRailsを採用する。
米国では、1兆円超えのShopify, Airbnb, Gitlab などもある
他には、ガーシーが使う、Mastodon はRails 6。
作者のドイツのオイゲン・ロホコは、PHPからRailsに変えた。
Rubyの方が可読性が高いから
米国年収では今の円安で、Rails, AWS Solution Architect などは、2千万円ぐらい。
バックエンド技術者は高い。
AWS, Linux, Docker, Kubernetes、データベースなど学ぶことが多いから
KENTA の天敵・モローは、2年ほど前に、YouTubeで言ってた。
Rubyは滅ぶ。これからはJava・PHPの時代だと
それが今になって急に、Railsのキャリア相談までやり出したw
Java・PHPの仕事は、どうなったの?w
YouTubeのモローの動画。
【2022年版】Ruby on Railsの将来性
KENTAが、PHP, Scala をオワコン認定したから、
PHPのFacebook とか、Laravel を使っているZOZO、
Scalaを使っているTwitter などは、良い開発者を集めるのが大変
82デフォルトの名無しさん (JP 0Heb-BvCT)
2022/11/17(木) 07:25:29.19ID:pvjBVkzjH >>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
利用者が増える兆候が全くない。
もう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
83デフォルトの名無しさん (ラクッペペ MM4b-Sy7H)
2022/11/17(木) 07:25:45.68ID:UeQQfqrGM 技術の方向性が迷子
84デフォルトの名無しさん (JP 0Heb-BvCT)
2022/11/17(木) 07:50:17.45ID:pvjBVkzjH >>81
他の全ての大手は普通にPHP・pythonを使っているのに、
「ごく一部の大手」だけがrubyを使っているのが現状
また、ruby信者は頭がおかしくこのような歪な布教活動を行う特徴がある
くれぐれも騙されないように
他の全ての大手は普通にPHP・pythonを使っているのに、
「ごく一部の大手」だけがrubyを使っているのが現状
また、ruby信者は頭がおかしくこのような歪な布教活動を行う特徴がある
くれぐれも騙されないように
85デフォルトの名無しさん (スッップ Sd43-H0Ic)
2022/11/17(木) 08:28:52.99ID:sFGipXVYd また雑談が始まった
スレタイよく読めよお前ら
スレタイよく読めよお前ら
86デフォルトの名無しさん (ワッチョイ b5da-DkKd)
2022/11/17(木) 09:34:06.31ID:6A2Gqyph0 総合スレっての無かったかい?
87デフォルトの名無しさん (スプッッ Sda1-2U4B)
2022/11/17(木) 11:29:16.58ID:7HR1FVlLd >>76
わかっただろ?統一教会みたいな連中に巻き込まれる
わかっただろ?統一教会みたいな連中に巻き込まれる
88デフォルトの名無しさん (ワッチョイ 237c-tLWi)
2022/11/17(木) 11:59:56.14ID:oqPw0CoV089デフォルトの名無しさん (スププ Sd43-7TzV)
2022/11/17(木) 12:04:27.49ID:i1/jmP1Yd90デフォルトの名無しさん (スッップ Sd43-H0Ic)
2022/11/17(木) 13:58:32.43ID:sFGipXVYd91デフォルトの名無しさん (ワッチョイ 1b8c-/xWR)
2022/11/17(木) 14:22:27.97ID:4mNSRYt80 言語として最高かどうかは別として
とりあえずjavascript系をやっていればこの先20年は安泰
とりあえずjavascript系をやっていればこの先20年は安泰
92デフォルトの名無しさん (ワッチョイ b5da-DkKd)
2022/11/17(木) 15:49:55.21ID:6A2Gqyph0 VBA自体年寄り御用達の言語になっちまった感だからね
93デフォルトの名無しさん (ワッチョイ 1dce-gPc0)
2022/11/17(木) 17:00:32.50ID:m6w3NGDg0 ラズパイの入門キットが尼で3000円で売ってるからRubyでサンプル動かしてLEDチカチカ楽しいよ
仕事につなげたいなら今はJavaでスマホアプリが一番需要がある
自分のスマホで遊んでもいいし、Windows用のエミュレータも無料で公開されてる
仕事につなげたいなら今はJavaでスマホアプリが一番需要がある
自分のスマホで遊んでもいいし、Windows用のエミュレータも無料で公開されてる
94デフォルトの名無しさん (スプッッ Sda1-2U4B)
2022/11/17(木) 17:49:39.21ID:7HR1FVlLd ほら、こうやってRuby、Rubyって
ゴキブリそのもの
そもそもRaspberry PiのサンプルはPythonが圧倒的に多い
Rubyとか言ってる連中に近づいてはいけません
ゴキブリそのもの
そもそもRaspberry PiのサンプルはPythonが圧倒的に多い
Rubyとか言ってる連中に近づいてはいけません
95デフォルトの名無しさん (ワッチョイ ddda-BvCT)
2022/11/17(木) 19:10:46.08ID:uw0RNQ/90 こうなった原因を作った初心者がすべて悪い
96デフォルトの名無しさん (ワッチョイ e38b-H0Ic)
2022/11/17(木) 21:44:05.97ID:KK3w9Zce0 VBA + Selenium + Chrome で自動ログインをツールを作っています。
Dim Driver As New Selenium.WebDriver
ログインした後にパスワードを保存しますか?
というダイアログが出て邪魔でしょうがないです。
それを削除する為に
credentials_enable_service false
profile.password_manager_enabled false
を使うのは分かったのですが、pythonやjavaのコードばかりブログに乗っていて
VBAの文法でどう書けば良いか分かりません。
詳しい方がいたら教えてください。
Dim Driver As New Selenium.WebDriver
ログインした後にパスワードを保存しますか?
というダイアログが出て邪魔でしょうがないです。
それを削除する為に
credentials_enable_service false
profile.password_manager_enabled false
を使うのは分かったのですが、pythonやjavaのコードばかりブログに乗っていて
VBAの文法でどう書けば良いか分かりません。
詳しい方がいたら教えてください。
97デフォルトの名無しさん (ワッチョイ 237c-tLWi)
2022/11/17(木) 23:24:19.00ID:oqPw0CoV0 >>90
放っておけばっていうのはお前がコントロールしようとしている掲示板の脱線に対してだよ
放っておいても質問があれば勝手に戻るからさ、これ書くの2度目ね
そのことと俺がお前を放っておくのとは意味あいがぜーんぜん違うんだがわかる?まぁ解んなくてもいいけど
あと指図はするけど言われたくないんだよな?
ならその通りにしましょうかね
放っておけばっていうのはお前がコントロールしようとしている掲示板の脱線に対してだよ
放っておいても質問があれば勝手に戻るからさ、これ書くの2度目ね
そのことと俺がお前を放っておくのとは意味あいがぜーんぜん違うんだがわかる?まぁ解んなくてもいいけど
あと指図はするけど言われたくないんだよな?
ならその通りにしましょうかね
98デフォルトの名無しさん (ワッチョイ 1dce-gPc0)
2022/11/18(金) 00:09:57.91ID:PzEY95EU099デフォルトの名無しさん (ワッチョイ e38b-H0Ic)
2022/11/18(金) 04:37:56.15ID:NsskB2ct0100デフォルトの名無しさん (ワッチョイ 1dce-gPc0)
2022/11/18(金) 15:03:38.43ID:PzEY95EU0 >>99
AddArgument
AddArgument
101デフォルトの名無しさん (JP 0Heb-BvCT)
2022/11/18(金) 15:59:01.29ID:rkfxbe2GH 間違ってrubyを学習してしまい、無駄な時間を過ごしてしまうことが忍びないのはわかる
しかし、「人生には無駄な学習がある」ということに気づくことも大事な事かもしれない
※rubyの学習が無意味ということは、rubyを学習すればすぐに気づく
しかし、「人生には無駄な学習がある」ということに気づくことも大事な事かもしれない
※rubyの学習が無意味ということは、rubyを学習すればすぐに気づく
102デフォルトの名無しさん (ワッチョイ 2342-lg2x)
2022/11/18(金) 19:53:51.40ID:zxScCJY70 別にruby推しでもかまわないけど関係ないスレでは自重しろとは思う
103デフォルトの名無しさん (スップ Sd03-2U4B)
2022/11/18(金) 20:42:45.12ID:2X/Wvhddd rubyスレは過疎っているもの
104デフォルトの名無しさん (ワッチョイ ffda-Xf0Y)
2022/11/19(土) 02:07:39.29ID:emmVvlBX0 なんでこんな偉そうな奴らばかりなのここ?
105デフォルトの名無しさん (ワッチョイ a310-m0Pc)
2022/11/19(土) 02:29:57.55ID:UCCiArGZ0 ruby信者が荒らすから
106デフォルトの名無しさん (JP 0Hfe-stRS)
2022/11/19(土) 08:44:51.51ID:jgd4H5DdH rubyキチガイが荒らしに来るからヘイトが凄い事になってる
なお他のスレでも同様
なお他のスレでも同様
107デフォルトの名無しさん (アウアウエー Sa3a-iKek)
2022/11/19(土) 18:19:31.17ID:IQRl98lga GetOpenFilenameで開いたファイルのパスを返すFunctionを作ったのですが、戻り値を変数として利用する度にGetOpenFilenameメソッドが実行されてダイアログが開きます
初回のみダイアログを開くFunctionは作れないもんですかねえ
代替案としてSubプロシ=[ジャとして呼bム出して取得しbスファイルパスbPublic変数に試めているのでbキがPublic変数b使うのはなんbゥ気持ち悪くて=c…
初回のみダイアログを開くFunctionは作れないもんですかねえ
代替案としてSubプロシ=[ジャとして呼bム出して取得しbスファイルパスbPublic変数に試めているのでbキがPublic変数b使うのはなんbゥ気持ち悪くて=c…
108デフォャ泣gの名無しさb (ワッチョイ e201-IwB9)
2022/11/19(土) 18:32:15.63ID:c1VeRjNF0 とりあえずコードで示そうか
109デフォルトの名無しさん (ワッチョイ a3da-stRS)
2022/11/19(土) 19:04:59.90ID:7ZzLn7VE0110デフォルトの名無しさん (ワッチョイ fb59-MmhG)
2022/11/19(土) 19:12:46.39ID:kzcZtDQa0 JavaとかC#でenum使うメリットがわからん
111デフォルトの名無しさん (ワッチョイ 4b5f-X61t)
2022/11/19(土) 19:17:53.70ID:bItn6bkl0 >>107
戻り値を変数に入れてないだけでは?
戻り値を変数に入れてないだけでは?
112デフォルトの名無しさん (スッップ Sd02-TaOI)
2022/11/19(土) 22:10:17.78ID:oLScpTixd >>107
コードも見てないから何とも言えないけど
初回のみって判定なら基本的に変数で管理するしかないと思うけどね
それとGetOpenFilenameがダイアログでファイル名(ファイルパス)を取得するための関数なら関数自体は何もせずに
GetOpenFilenameを2回目以降に呼ばないような変数管理が普通の方法じゃないかと思うよ
publicが気持ち悪いってのは関数や変数のスコープ管理がおかしいからだと思うから
それはそれで見直せばいいのでは
コードも見てないから何とも言えないけど
初回のみって判定なら基本的に変数で管理するしかないと思うけどね
それとGetOpenFilenameがダイアログでファイル名(ファイルパス)を取得するための関数なら関数自体は何もせずに
GetOpenFilenameを2回目以降に呼ばないような変数管理が普通の方法じゃないかと思うよ
publicが気持ち悪いってのは関数や変数のスコープ管理がおかしいからだと思うから
それはそれで見直せばいいのでは
113デフォルトの名無しさん (ワッチョイ 5f01-rxZH)
2022/11/19(土) 22:13:03.43ID:6K02rf2Z0 >>107
それってsubの中で
cells(1,1)=Function変数
cells(2,1)=Function変数
ってやってるからでしょ?
subの中でtempでも宣言して
temp=Function変数
cells(1,1)=temp
cells(2,1)=temp
ってやればいいんじゃない?
それってsubの中で
cells(1,1)=Function変数
cells(2,1)=Function変数
ってやってるからでしょ?
subの中でtempでも宣言して
temp=Function変数
cells(1,1)=temp
cells(2,1)=temp
ってやればいいんじゃない?
114デフォルトの名無しさん (ワッチョイ ffda-Xf0Y)
2022/11/19(土) 23:25:37.91ID:emmVvlBX0 ざっくりな質問じゃなくて詳細書いてくれ頼むから
115デフォルトの名無しさん (スップ Sd22-P3Qh)
2022/11/19(土) 23:29:30.05ID:WhIdqCT2d >>107
こういう馬鹿が来るから荒れる
こういう馬鹿が来るから荒れる
116デフォルトの名無しさん (ワッチョイ a3da-stRS)
2022/11/20(日) 00:35:29.58ID:5+GQTxgS0 自分で納得できるコードが書けないのは経験が足りないだけかも
117デフォルトの名無しさん (スププ Sd02-QpwG)
2022/11/20(日) 07:09:50.84ID:LWJSK1yhd 自分でそこんところをいろいろ考えてやるのが楽しいのに
どうにでもなるようなことを聞いてる人ってプログラミング=苦痛と感じてるひとなんだろうなぁって思うわ
まぁそれならそれで仕方ないけど
どうにでもなるようなことを聞いてる人ってプログラミング=苦痛と感じてるひとなんだろうなぁって思うわ
まぁそれならそれで仕方ないけど
118デフォルトの名無しさん (オッペケ Srdf-rxZH)
2022/11/20(日) 08:11:58.08ID:aAZoxoj/r119デフォルトの名無しさん (ブーイモ MMdb-EUya)
2022/11/20(日) 08:12:58.99ID:U8ZuobNzM と、荒しが申しております。
120デフォルトの名無しさん (ミカカウィ FFeb-LEwT)
2022/11/20(日) 09:58:37.83ID:BaPmF74HF >>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」をメインのプロシージャの方でローカル変数に格納するしかないですかね。
こんな感じです。
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」をメインのプロシージャの方でローカル変数に格納するしかないですかね。
121デフォルトの名無しさん (オッペケ Srdf-rxZH)
2022/11/20(日) 10:09:40.70ID:JSdYtKUKr >>120
変数に入れるのが一般的だけど、どうしてもっていうならFunction全体を「OpenedFilePathが空白だったら」ってIfで囲ったらなんとかならん?
変数に入れるのが一般的だけど、どうしてもっていうならFunction全体を「OpenedFilePathが空白だったら」ってIfで囲ったらなんとかならん?
122デフォルトの名無しさん (ワッチョイ 4b5f-stRS)
2022/11/20(日) 10:21:57.15ID:ZntJwwMB0 特に理由がない限り1つのプロシージャの機能はなるべく1つに限定したほうがいい
短期的に問題無くても後々機能を使いまわしたくなった時に利便性が悪い
短期的に問題無くても後々機能を使いまわしたくなった時に利便性が悪い
123デフォルトの名無しさん (ワッチョイ e201-IwB9)
2022/11/20(日) 10:25:11.24ID:AxU0uBeT0 >>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
まず「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
124デフォルトの名無しさん (JP 0Hfe-stRS)
2022/11/20(日) 10:37:30.36ID:j5HG04Q5H え
125デフォルトの名無しさん (JP 0Hfe-stRS)
2022/11/20(日) 10:51:14.71ID:j5HG04Q5H GetOpenFilenameでファイル選択しなかったときの返り値は
”false”
ね
FALSE
じゃないよ
糞だよ
”false”
ね
FALSE
じゃないよ
糞だよ
126デフォルトの名無しさん (JP 0Hfe-stRS)
2022/11/20(日) 10:58:27.47ID:j5HG04Q5H なんでstaticが出てこないんだよwww
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
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
127デフォルトの名無しさん (ワッチョイ e201-IwB9)
2022/11/20(日) 11:33:22.40ID:AxU0uBeT0 >>125
なんでそんなすぐわかる嘘つくの?
Returns False if the user cancels the dialog box.
https://learn.microsoft.com/en-us/office/vba/api/excel.application.getopenfilename
そもそもその仕様だと false というファイル名を返せないだろ、馬鹿すぎ
なんでそんなすぐわかる嘘つくの?
Returns False if the user cancels the dialog box.
https://learn.microsoft.com/en-us/office/vba/api/excel.application.getopenfilename
そもそもその仕様だと false というファイル名を返せないだろ、馬鹿すぎ
128デフォルトの名無しさん (ワッチョイ e201-IwB9)
2022/11/20(日) 11:34:19.38ID:AxU0uBeT0129デフォルトの名無しさん (JP 0Hfe-stRS)
2022/11/20(日) 11:44:28.04ID:j5HG04Q5H130デフォルトの名無しさん (スッップ Sd02-TaOI)
2022/11/20(日) 12:28:19.61ID:28UXg9Drd 「Workbooks.Open」のようなコードだけだとActiveBookが変わって
本来操作したいブック以外を参照してしまう事故を防ぐためにも
自分も>>123のようなコードがいいと思うな
あとはVariantはなんにでも使えてしまうから戻り値もWorkbookがいいと思うけど
private変数で宣言するならファンクションである必要もなくなりそうではあるんだが
それは前後の流れ次第かね
本来操作したいブック以外を参照してしまう事故を防ぐためにも
自分も>>123のようなコードがいいと思うな
あとはVariantはなんにでも使えてしまうから戻り値もWorkbookがいいと思うけど
private変数で宣言するならファンクションである必要もなくなりそうではあるんだが
それは前後の流れ次第かね
131デフォルトの名無しさん (ワッチョイ e219-6GUG)
2022/11/20(日) 15:20:20.30ID:BdLJ6aAN0 >>117
楽しい・・・?
そうだね、VBAは弄ってて楽しい言語だね。
何でもお手軽に作れるしグラフィカルな部分が多いから
分かりやすいし。
お手軽と言えばJavaScript もそうかな。
逆にCOBOLとか何が楽しいのか俺には理解出来ない。
楽しい・・・?
そうだね、VBAは弄ってて楽しい言語だね。
何でもお手軽に作れるしグラフィカルな部分が多いから
分かりやすいし。
お手軽と言えばJavaScript もそうかな。
逆にCOBOLとか何が楽しいのか俺には理解出来ない。
132デフォルトの名無しさん (ワッチョイ 5701-kfYZ)
2022/11/20(日) 15:36:16.68ID:CFvDfimk0 おっちゃんが理解できるようにしてやろうか?
133デフォルトの名無しさん (ワッチョイ c28b-TaOI)
2022/11/20(日) 21:15:15.16ID:79zBHkdo0 >>100
ありがとうございます。
Dim Driver As New Selenium.WebDriver
Driver.AddArgument "credentials_enable_service=False"
Driver.AddArgument "profile.password_manager_enabled=False"
「パスワードを保存しますか?」というダイアログが表示されてしまいます。
このダイアログが邪魔でしょうがないです。
何とか消したいのですが、コード間違っていますか?
ありがとうございます。
Dim Driver As New Selenium.WebDriver
Driver.AddArgument "credentials_enable_service=False"
Driver.AddArgument "profile.password_manager_enabled=False"
「パスワードを保存しますか?」というダイアログが表示されてしまいます。
このダイアログが邪魔でしょうがないです。
何とか消したいのですが、コード間違っていますか?
134デフォルトの名無しさん (ワッチョイ 4ead-+H9L)
2022/11/20(日) 21:44:52.90ID:XCN8LgbG0 Driver.SetPreference "credentials_enable_service", False
こうじゃない?
こうじゃない?
135デフォルトの名無しさん (ワッチョイ c28b-TaOI)
2022/11/20(日) 22:06:06.02ID:79zBHkdo0 >>134
これも試しましたが、ダイアログが起動します、、、
うーん、困りました。
With Driver
.SetPreference "credentials_enable_service", False
.SetPreference "password_manager_enabled", False
.SetPreference "--password-store", basic
これも試しましたが、ダイアログが起動します、、、
うーん、困りました。
With Driver
.SetPreference "credentials_enable_service", False
.SetPreference "password_manager_enabled", False
.SetPreference "--password-store", basic
136デフォルトの名無しさん (ワッチョイ a3da-Xf0Y)
2022/11/20(日) 22:08:29.04ID:xkQL1DmC0 弱りましたねえ
諦めるしか
諦めるしか
137デフォルトの名無しさん (ワッチョイ c28b-TaOI)
2022/11/20(日) 22:21:11.90ID:79zBHkdo0 最悪、しょうがないので力業でWindows APIで座標指定で「×」をクリックします。
138デフォルトの名無しさん (ワッチョイ 4ead-+H9L)
2022/11/20(日) 22:25:06.89ID:XCN8LgbG0 >>135
ソースコード全部見せて
ソースコード全部見せて
139デフォルトの名無しさん (ワッチョイ c335-Y+uH)
2022/11/20(日) 22:41:36.64ID:kiSLDjFu0 ブラウザの操作なんかPADでやればいいじゃん
140デフォルトの名無しさん (ワッチョイ 4ead-+H9L)
2022/11/20(日) 22:44:18.63ID:XCN8LgbG0 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", ...
にしないといけないのかも
prefs.put("credentials_enable_service", false);
prefs.put("profile.password_manager_enabled", false);
options.setExperimentalOption("prefs", prefs);
Javaだとこうだから
Driver.SetPreference "prefs", ...
にしないといけないのかも
141デフォルトの名無しさん (ワッチョイ c28b-TaOI)
2022/11/20(日) 22:46:06.24ID:79zBHkdo0 >>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
色々と試しましたが、全部ダイアログが出ます、、、
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
142デフォルトの名無しさん (ワッチョイ 4ead-+H9L)
2022/11/20(日) 23:19:33.15ID:XCN8LgbG0 Dim prefs
Set prefs = CreateObject("Selenium.Dictionary")
prefs("credentials_enable_service") = False
prefs("profile.password_manager_enabled") = False
driver.SetPreference "prefs", prefs
これでどう?
Set prefs = CreateObject("Selenium.Dictionary")
prefs("credentials_enable_service") = False
prefs("profile.password_manager_enabled") = False
driver.SetPreference "prefs", prefs
これでどう?
143デフォルトの名無しさん (ワッチョイ c28b-TaOI)
2022/11/20(日) 23:54:01.57ID:79zBHkdo0 >>142
ありがとうござます。試しましたがやはダイアログが表示されます、、、
ありがとうござます。試しましたがやはダイアログが表示されます、、、
144デフォルトの名無しさん (ワッチョイ 4ead-+H9L)
2022/11/21(月) 00:00:32.12ID:pQOpt44b0 driver.SetPreference "credentials_enable_service", False
Dim profile
Set profile = CreateObject("Selenium.Dictionary")
profile("password_manager_enabled") = False
driver.SetPreference "profile", profile
これでどう?
Dim profile
Set profile = CreateObject("Selenium.Dictionary")
profile("password_manager_enabled") = False
driver.SetPreference "profile", profile
これでどう?
145デフォルトの名無しさん (ワッチョイ 4ead-+H9L)
2022/11/21(月) 00:11:55.56ID:pQOpt44b0 Driver.SetPreference "credentials_enable_service", False
Driver.SetPreference "profile.password_manager_enabled", False
これでできそうな気がする
Driver.SetPreference "profile.password_manager_enabled", False
これでできそうな気がする
146デフォルトの名無しさん (ワッチョイ c28b-TaOI)
2022/11/21(月) 00:17:14.31ID:jvJhQ1Yn0147デフォルトの名無しさん (ワッチョイ 4ead-+H9L)
2022/11/21(月) 00:42:53.42ID:pQOpt44b0 Driver.AddArgument "--password-store=basic"
Driver.SetPreference "credentials_enable_service", False
Driver.SetPreference "profile.password_manager_enabled", False
これでどう?
Driver.SetPreference "credentials_enable_service", False
Driver.SetPreference "profile.password_manager_enabled", False
これでどう?
148デフォルトの名無しさん (ワッチョイ c28b-TaOI)
2022/11/21(月) 00:48:06.12ID:jvJhQ1Yn0149デフォルトの名無しさん (ワッチョイ c3ce-zHbW)
2022/11/21(月) 08:04:05.28ID:GlEj3eeB0 >>148
結果的に消えるならいいじゃん
そこでボタンをクリックしないと動作が止まる、とかだったら困るけど、動けばいいんだよ
てか、オプション設定のタイミングが悪いんじゃないの?Chromeを起動する前に設定してる?
結果的に消えるならいいじゃん
そこでボタンをクリックしないと動作が止まる、とかだったら困るけど、動けばいいんだよ
てか、オプション設定のタイミングが悪いんじゃないの?Chromeを起動する前に設定してる?
150デフォルトの名無しさん (ワッチョイ c28b-TaOI)
2022/11/21(月) 08:09:22.01ID:jvJhQ1Yn0151デフォルトの名無しさん (スップ Sd22-P3Qh)
2022/11/21(月) 17:38:44.89ID:oUN57f6ld >>133
マルチポスト、更に言語の違いすらわからない馬鹿は消えろ
マルチポスト、更に言語の違いすらわからない馬鹿は消えろ
152デフォルトの名無しさん (ワッチョイ e201-IwB9)
2022/11/21(月) 18:02:11.22ID:KDDXOYAA0 マルチポストはどうかと思うが少なくともこっちのスレだと言語は合ってるだろ
153デフォルトの名無しさん (ワッチョイ 0e8c-7Q5q)
2022/11/21(月) 23:00:46.16ID:qzpyBUkr0 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以上の言語を掲載
VBA頑張ってるじゃん
Rubyの倍やん
https://cdn-xtech.nikkei.com/atcl/nxt/column/18/02246/110200002/ph1.jpg
利用しているプログラミング言語
「あなたが現在使っているプログラミング言語は何ですか」という設問に対する回答の内訳。
最大3つ選択してもらった。回答数が10以上の言語を掲載
VBA頑張ってるじゃん
Rubyの倍やん
154デフォルトの名無しさん (JP 0Hfe-stRS)
2022/11/21(月) 23:03:32.24ID:O4O9qqWgH そりゃ母数が全然違うからな
事務員どころか営業でも使う人がいる
事務員どころか営業でも使う人がいる
155デフォルトの名無しさん (ワッチョイ e219-6GUG)
2022/11/21(月) 23:12:28.50ID:+rhbDZE90 >>153
これは結構意外な結果。
HTMLとCSSが思ったより低いね。
もっと意外だったのがSQLがランクインしていないこと。
「SQLはプログラミング言語じゃねーだろ」という意見も聞こえそうだけど、
それ言ったらHTMLだってプログラミング言語かと言えば怪しいよね。
iPhoneを開発するOvjective-C辺りはCに含まれるのかな?
でもそう考えるとSwift もランクインされていない。
最近はPython が主流なのかー。
まぁRubyはさして知るべし。
これは結構意外な結果。
HTMLとCSSが思ったより低いね。
もっと意外だったのがSQLがランクインしていないこと。
「SQLはプログラミング言語じゃねーだろ」という意見も聞こえそうだけど、
それ言ったらHTMLだってプログラミング言語かと言えば怪しいよね。
iPhoneを開発するOvjective-C辺りはCに含まれるのかな?
でもそう考えるとSwift もランクインされていない。
最近はPython が主流なのかー。
まぁRubyはさして知るべし。
156デフォルトの名無しさん (JP 0Hfe-stRS)
2022/11/21(月) 23:18:34.01ID:O4O9qqWgH メインの言語がhtmlです!って人はちょっと・・・
157デフォルトの名無しさん (ワッチョイ e219-6GUG)
2022/11/21(月) 23:28:16.93ID:+rhbDZE90 よく見るとTypeScriptが追い上げてるなぁ
Web版EXCEL開発しなきゃいけなくなったとき用に少し勉強しておくかな
Web版EXCEL開発しなきゃいけなくなったとき用に少し勉強しておくかな
158デフォルトの名無しさん (スップ Sd22-P3Qh)
2022/11/22(火) 00:17:55.04ID:z+hPxvMVd >>153
rubyは毎年順位を落としている
rubyは毎年順位を落としている
159デフォルトの名無しさん (ワッチョイ c28b-TaOI)
2022/11/22(火) 01:16:20.45ID:rA6aTIVz0 Pythoの何がいいの?C#の方がよっぽどコードが綺麗。
160デフォルトの名無しさん (ワッチョイ a3da-Xf0Y)
2022/11/22(火) 07:07:33.19ID:PnGd/teh0 VBAはバリバリ活躍してるけど、VBはもはや枯れた言語か。。
161デフォルトの名無しさん (ワッチョイ e201-IwB9)
2022/11/22(火) 07:14:38.51ID:5norvibI0 むしろVB(VB.NET以外)がランクインしてるのに驚いたわ
さすがに保守案件なんだろうけど
さすがに保守案件なんだろうけど
162デフォルトの名無しさん (JP 0Hfe-stRS)
2022/11/22(火) 08:25:23.22ID:jrlVPdOBH163デフォルトの名無しさん (JP 0Hfe-stRS)
2022/11/22(火) 08:29:03.16ID:jrlVPdOBH164デフォルトの名無しさん (ワッチョイ 8bad-nHGa)
2022/11/22(火) 10:15:24.80ID:YR0FNqFN0 VBAでフォームからセルに入力できるフォームを作るときにテキストボックスとセルをcontrolsauceで連結するのが一般的ですか?
今まで、読みとりボタンで、テキストボックス1=セルの値、更新ボタンで、セルの値=テキストボックス1としてたのですが、controlsauceを使った方がよいのか悩んでます
今まで、読みとりボタンで、テキストボックス1=セルの値、更新ボタンで、セルの値=テキストボックス1としてたのですが、controlsauceを使った方がよいのか悩んでます
165デフォルトの名無しさん (ワッチョイ c28b-TaOI)
2022/11/22(火) 10:27:21.22ID:rA6aTIVz0 >>162
pythonマジでコードが気持ち悪いんだけど。
pythonマジでコードが気持ち悪いんだけど。
166デフォルトの名無しさん (ワッチョイ a3da-stRS)
2022/11/22(火) 10:38:52.48ID:4t4l6PXg0 使わなきゃいいだけなのにあえて他言語の悪口を言うのはRuby厨か
167デフォルトの名無しさん (オッペケ Srdf-rxZH)
2022/11/22(火) 12:03:51.19ID:DuxWDXCmr >>163
プログラマー以外がプログラミングしちゃいけないわけじゃないし、別に歪じゃないだろ
プログラマー以外がプログラミングしちゃいけないわけじゃないし、別に歪じゃないだろ
168デフォルトの名無しさん (オッペケ Srdf-qU2U)
2022/11/22(火) 12:11:04.68ID:KOo0nK71r 歪というか、アンケートの対象はプログラマーのみではなさそうだな
プログラマーなんて社会人の一部だし
この手のはなんかの指標として使えるものではないと自分は思ってる
プログラマーなんて社会人の一部だし
この手のはなんかの指標として使えるものではないと自分は思ってる
169デフォルトの名無しさん (ワッチョイ c28b-TaOI)
2022/11/22(火) 12:51:18.95ID:rA6aTIVz0 pythonのメリットは何?
170デフォルトの名無しさん (JP 0Hfe-stRS)
2022/11/22(火) 13:05:26.48ID:jrlVPdOBH >>169
pythonスレへどうぞ
pythonスレへどうぞ
171デフォルトの名無しさん (ワッチョイ e219-6GUG)
2022/11/22(火) 13:50:49.13ID:gWTAVy/70 VB.Netは確かにもうMicrosoft からも.NetCoreでは更新しませんよって宣言されてた気もするし、
終わった言語と言えばそうなのかもね。
ま、でも文法こそ違うものの、中身はC#と大して変わらないから、
やるならC#でいいよ。
C#とVBA覚えておけば必然的にVB.Netも書けると思う。
終わった言語と言えばそうなのかもね。
ま、でも文法こそ違うものの、中身はC#と大して変わらないから、
やるならC#でいいよ。
C#とVBA覚えておけば必然的にVB.Netも書けると思う。
172デフォルトの名無しさん (アウアウウー Sa3b-5Xd8)
2022/11/22(火) 14:11:59.31ID:CBZvulmSa vb.netとc#って
objective-cとswiftみたいなもんじゃね
objective-cとswiftみたいなもんじゃね
173デフォルトの名無しさん (ワッチョイ 4ead-+H9L)
2022/11/22(火) 14:54:19.77ID:0MFmILJN0 そうだな、ぜんぜん違うけどな
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 「もうキモくてキモくて…」29歳女性が語る“おぢアタック”の実態。「俺ならイケるかも」年下女性を狙う勘違い中年男性に共通点が★4 [Hitzeschleier★]
- ミス・ユニバース フィンランド代表の「つり目」写真が波紋… 本人釈明も批判やまず 協会謝罪「徹底的に検証」へ [冬月記者★]
- 【おこめ券】鈴木憲和農相 小泉前農相の備蓄米放出を“反省”「備蓄の円滑な運営を図ってまいります」 [Hitzeschleier★]
- 自民・麻生太郎副総裁 石破政権の1年は「どよーん」 高市政権発足で「何となく明るくなった」「世の中のことが決まり動いている」★2 [Hitzeschleier★]
- 1人3千円の食品高騰対策、何に使える? あいまいなまま衆院通過 [蚤の市★]
- ゆたぼん 二重手術を報告「めちゃくちゃ気に入っています」 [muffin★]
- ボーナスで何買うか迷っている
- 刃牙でチンコでかそうなキャラといえば
- コウメ太夫のネタ考えたから評価してくれ
- トランプ、G7に代わるcore 5を発表 [805596214]
- こんな時間に起きてvip見てるやつって何者?
- 【悲報】新米、全く売れなくて倉庫が満杯になってしまうwwwwwwwwwwwwwwwwwwww [802034645]
