Excel VBA 質問スレ Part69

2020/12/13(日) 00:22:23.67

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

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

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

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

2021/01/23(土) 00:14:35.39

>>313
それEdge じゃねえだろ。
今のEdgeはInternet Explorer_Server無いぞ。

2021/01/23(土) 04:24:33.18

できる奴はネットも本も見ない、わからない事はF1押して調べるだけ

これ定説

2021/01/23(土) 04:56:15.16

みんながそんな熟練者じゃないんだし
俺みたいなど初心者をここで助けてくれた人もいる
平和にいこう

2021/01/23(土) 09:29:09.37

そうですよねやっぱ
どこかの知恵袋と違って、ここはみんな優しく解説までしてくれる。器大きいぜ

2021/01/23(土) 11:21:37.02

どの方法だってバージョンアップで使えなくなる可能性はある
CSSやJavaScriptが必要なければXHRオブジェクトが無難

完全にデファクトスタンダードと言えるブラウザが今は存在しないから、VBAでスクレイピングは鬼門になりつつある
今はまだWindowsマシンには必ずIEが入ってるから、しばらくはIEでやってくのがいいんじゃないかなあ

2021/01/23(土) 12:55:12.09

俺が昨日、勉強したことを共有するぞ
VBAの記述の仕方は、オブジェクト.プロパティの順番だ
覚えておけよ

2021/01/23(土) 12:56:50.53

MsgBox でTESTと表示できたときの感動ったらなかったね！
これから、少しずつ勉強するぞ

2021/01/23(土) 18:45:02.47

>>305
それIEでも使うな。
よくわからんけど、F12で中が見られない子ウインドウが出るサイトとかある。

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-xA1r) · 2021/01/23(土) 21:45:57.51

>>321
それ単なる画像じゃね？

2021/01/23(土) 23:31:46.72

>>322
ObjectFromLresultとgetElementByで値取れるから画像じゃないと思う。
どういう仕組みのウインドウなのか知らんけど。

2021/01/24(日) 05:01:50.09

田中君
広瀬君
桜井君
松岡君

2021/01/24(日) 11:41:17.66

>>323
それで取れるならF12でも取れるんじゃね?
それかF12押してる対象が違うか。

2021/01/25(月) 00:06:00.16

>>325
クリックして、アクティブ&最前面にしてF12押しても何も出てこないんだよね。

2021/01/25(月) 01:12:50.11

>>326
エロサイトでも怒らないから、ちょっとそのサイト晒して

2021/01/27(水) 02:51:52.41

>>326
Fが12個表示されてないか？

2021/01/27(水) 08:04:15.56

F*ck F**k FFFFF**k

**デフォルトの名無しさん** (JP 0H6b-xA1r) · 2021/01/27(水) 16:24:41.99

下記の４行で問題なくIEでURL開けたのですが、

Dim objIE As InternetExplorer
Set objIE = New InternetExplorer

objIE.Visible = True
objIE.Navigate "http://aaa.com/bbb.html";

保存する部分のプログラムがネット上で見つかりません。
hogehoge.htmlでc:\でもエクセルファイルパスでも。

開ききるまでの Do Loop とか、参照の追加とか、
他の必要な事項はわかったのですが、「保存」だけがわかりません。

お願いします。

**デフォルトの名無しさん** (JP 0H6b-xA1r) · 2021/01/27(水) 16:48:32.96

>>330
URLDownloadToFile
https://tonari-it.com/excel-vba-windowsapi-urldownloadtofile/

2021/01/27(水) 19:08:59.20

コレクション便利すぎワロタ

**299** (ﾜｯﾁｮｲ 5f7f-oOJr) · 2021/01/27(水) 23:35:24.32

とりあえず個人のPCでSelenium BasicとChrome Driverをダウンロードして、VBAでChromeを操作してみました。
構文の違いを理解するのにちょっと時間がかかりましたが、VBAでIE操作と同じようなことができました。
しかし、IEに比べてかなり遅いですね。。
とくにFor-nextとかFor eachとかで複数個あるClassを一個ずつ取得してくのがかなり遅い・・。

2021/01/28(木) 05:46:17.68

>>330
最近のWindows には、curl コマンドも入った

コマンドプロンプトで、where curl
と入力すると、
C:\Windows\System32\curl.exe

これとは別に、PowerShell にも、curl コマンドがあるけど、
これは別のコマンドのエイリアスだけど

**デフォルトの名無しさん** (JP 0H6b-xA1r) · 2021/01/28(木) 10:11:50.01

>>331
ありがとうございます。無事目的は果たせました。
ただし、２点、罠が潜んでました。解消しましたので謎解きは不要です。

１　コピペで張り付けたとき、URLを指定してる行が赤くなって、VBAに否定されました。
　　URL"のあとのセミコロンがお気に召さなかったようです。削ったら赤い表示は消えました。
　　コピペしたときに改行コードがかわった？

２　取りに行く相手が社内サーバのドメイン持ちだったのでドメイン指定したら、なんかダメで、
　　MACも以前そんな反応したことを思い出して、IPアドレス（192.168.*.*）で指定したら動きました。

>>334
curl について調べましたが、数か所で見た説明自体がわかりませんでした。（泣）
お手数かけました。

2021/01/28(木) 10:21:40.83

>>315
熟練者はそれだけ分かるのかー
そもそもvbaのマニュアルというものがないしやりたいことのプロパティやメソッドは皆どうやって調べてるのか気になる
まあ今はネットあるけどネット普及してなかった90年代はF1で調べてた？

**デフォルトの名無しさん** (JP 0H6b-xA1r) · 2021/01/28(木) 10:58:39.20

>>336
90年代はみんなマニュアル本を買ってた
中身は英語のオンラインヘルプを翻訳して印刷しただけの物なんだけど、誤植と誤訳だらけ
VBAに限らず、1冊3000円～8000円ぐらいのぶ厚い本が大きい本屋のパソコンコーナーに並んでた

**デフォルトの名無しさん** (JP 0H6b-xA1r) · 2021/01/28(木) 11:18:10.18

こういう辞書みたいなやつ、みんな持ってた
https://i.imgur.com/D0Vbidw.png

2021/01/28(木) 11:56:54.04

あ、そうなのか
こうゆう辞書みたいな本はマイクロソフトから情報もらって作ってたのかなね
英語ヘルプで試行錯誤で作ってたのかね

2021/01/28(木) 11:58:15.69

これじゃないけど分厚いの1冊持ってるわ

2021/01/28(木) 15:38:23.08

今のExcel VBAって日本語ヘルプ付いてないの？

2021/01/28(木) 15:51:32.46

>>339
発売前に英語版のヘルプが入ったCDをMSから送って貰って、それを手分けして翻訳した
Officeじゃないけど翻訳のバイトしてた

>>341
あるけど、今はオンラインヘルプに飛ばされるからネット環境がないと見れない
昔のバージョンはローカル化できたけど今は無理だと思う

2021/01/28(木) 15:53:40.51

F1ヘルプはあんま役に立たない

2021/01/28(木) 15:55:46.33

>>342
バイトすごいですね
今は何の職業？

2021/01/28(木) 19:35:23.37

Ｅｘｃｅｌのハイパーリンクをクリックするたびに

ＭＳのサイトにアクセス先の情報を送って
そこからリダイレクトしていたという
衝撃の事実を今日知った。

１０年以上つかってて気が付かなかったよ
死ねこいつら

2021/01/28(木) 20:13:31.96

>>345
え、これマ？

2021/01/28(木) 20:18:19.29

ソースを

2021/01/28(木) 20:26:06.12

これ買っとけばいいみたいなど定番の本はある？
ネットでやりたいことをちょこちょこパクって繋げてるけど限界だわ
汎用性の高い一つの大掛かりなVBAを組もうとしたら圧倒的に知恵がない

2021/01/28(木) 20:34:03.81

ネットで調べても書き方が人それぞれだったりちゃんと整理されれなかったり
肝心の自分の目的を書いてなかったりそんなんばっかだからな。
それらの無駄とストレスを減らすために、辞書は1冊あった方がいいな。
書き方と順序が統一されてるだけでも有用。

2021/01/28(木) 20:35:31.88

できる大辞典は定番ではある
他の本はいらん
これにないなら諦めて他で調べればいい

2021/01/28(木) 20:54:55.16

vbaでIEとかChromeとか操作できるのは最近分かったけど(やったことはない)、他に操作できるアプリってどのくらいあるの？？

2021/01/28(木) 20:55:48.34

エッジもできる

2021/01/28(木) 21:05:03.93

あ、ブラウザー以外でおねがいしゃす

2021/01/28(木) 21:09:54.36

>>345
それExselとか書いてないかい？w

2021/01/28(木) 21:27:46.20

https://superuser.com/questions/444984/excel-hyperlink-not-redirecting-properly-bug

This is a known Microsoft bug where hyperlinks are redirected to another page if:

You are using Microsoft Internet Explorer:
with a proxy server
while using a firewall that does not allow HTTP requests on your local network
Internet Explorer is not your default browser.
The ForceShellExecute registry key is not present or is not set to 1

You can apply the fix from here:

http://support.microsoft.com/kb/218153

バグなんてもんじゃねえ

2021/01/28(木) 21:31:23.39

>>351
参照設定の中に入ってるのは普通に動かせるし、
WindowsAPIとUIAutomationとSendKeysがあるから、
マウスとキーボードで動かせるようなものなら大抵。
極端な例を言うと、VBAで仮想のファミコン(エミュ)を作ってマリオ動かす人もいる。

2021/01/28(木) 21:34:15.56

>>348
｢一度死んでみた｣

2021/01/28(木) 21:37:00.50

って書いてて思ったんだけど、
IRモジュール使ってVBAでテレビとかエアコン動かせる人いる?

2021/01/28(木) 21:50:11.88

俺さ、VBAのソース書いてて
インテリセンスが糞だと思ってたけど
上には上があるんだなぁ

今ClassicAspとかいう昔の組んでるんだけど
HTMLとJavaScriptとVBScriptで出来てて
テキスト編集ツール使って
テキストファイルで作ってる
もちろんインテリセンスなんて全く効かない

そうなると一番怖いのが文法エラー
VBAなんかだと一発で分かるけど
最初っからコンパイル自体されないので
どこでエラーになっているか
全く分からない

2021/01/28(木) 21:57:01.68

ブラウザの開発ツールの使い方を知らないだけでは

2021/01/28(木) 21:58:09.32

>>356
vbaでエミュってエミュをvbaで起動してるってことではなく？
何をどうやったら作れるのか不思議
vbaでIoTの組み込みや操作も可能なのだろうかー

2021/01/28(木) 22:02:50.14

元々仕事でなんとなしに触らざるを得なくなってコピペやらその場限りのググりで生きながらえてきたんだけどちゃんと筋道立てて1から勉強したいというときに適した本やサイトはありますか？

2021/01/28(木) 22:04:15.85

本はある
サイトはない

2021/01/28(木) 22:04:36.53

本も当然、1冊では終わらん
入門編から順に買うことになる

2021/01/28(木) 22:05:55.11

>>359
馬鹿は黙っていればいいのに

2021/01/28(木) 22:49:59.34

>>362
慣れてきて半人前くらいになってきたな、と思うならこの本

入門レベルでは決して足りない実務に必須のスキルとは ExcelVBA 実戦のための技術

2021/01/28(木) 23:07:43.56

>>361
VBAでエミュ。
今は消えてるけど、以前ここにワードで動かしてる動画があった。
https://www.nicogame.info/ja/watch/sm28022855

UPされた当時は実機並みのスピードは出てなかったけど、
今のハイスペックPCで動かしたらどうだったか・・。

2021/01/28(木) 23:11:02.95

>>367
謎技術

2021/01/29(金) 00:41:18.26

VBAって当たり前だろうけどエクセルの基本的な知識がないと使えないよね？
エクセル全然知らないから大変だな…

2021/01/29(金) 00:42:02.94

それじゃ役に立てる場所がないじゃん
実践で使わないと上達しないぞ

2021/01/29(金) 00:49:19.50

未来の開拓のため！つっても普通
「よし、エクセルを覚えるぞ」からだろそれは…
PCにエクセルをインストールしてエクセル入門の本を買うところからだな
書式とか関数とかピボットとかスイスイできるほどに覚えてからだなVBAは
でないとプログラムの意味も理解できない

2021/01/29(金) 01:35:07.55

>>371
助かります！

2021/01/29(金) 02:08:08.30

エクセル初歩から覚えるなら絶対買っとけ！って書籍やサイトはありますか？

2021/01/29(金) 02:35:09.20

「絶対」は無い。
まあ「絶対ではないがまったり普通に」、
FOM出版のよくわかるシリーズでいいのでは。
当然最初は基礎編ね。
スレ違いだからこれ以上は然るべきところで聞くのがいいと思う。

**デフォルトの名無しさん** (JP 0Hc9-6WVI) · 2021/01/29(金) 03:41:44.14

>>373
入門サイト
https://excel-ubara.com/excelvba1/

2021/01/29(金) 03:58:52.37

>>374
>>375
ありがとう！！
とりあえず神髄を参考にしていきます

2021/01/29(金) 08:15:50.80

>>369
いや、Excelの知識無くてもVBだけでExcelを動かしてる人いますぜ
その人当然ワークシート関数をろくに知らない

2021/01/29(金) 09:35:52.52

昭和の頃は、Excel講座に通うサラリーマンはバカにされてたけど、同時にvi使える人が達人として尊敬されてた。

どう考えてもテキストエディタより表計算のほうが技能必要だけど。

2021/01/29(金) 09:38:10.99

日本の成長に脅威したCIAが、たいていの問題に対して使える優秀な製品を貶し、使いどころの限られる古いテキストエディタユーザーを神扱いしたのではないか？

2021/01/29(金) 09:40:46.74

そもそもVBAは最後の手段であって、それを活用することは決して褒められたものじゃない
ワークシートの機能で簡単にできることを知らずにシコシコ馬鹿みたいにVBA書いてるアホは多い

2021/01/29(金) 09:44:43.17

結果、CIAの思惑通り、標準的な日本人はviを使いこなせるが、Excelを使いこなす日本人は少ない。
Excelを使いこなせた方が絶対便利なのに。

2021/01/29(金) 09:55:51.98

テキストエディタはC++やJava などでプログラム開発するためのただの道具だけどな
むしろ本格的なプログラム組むならVBAは汎用性に欠ける

2021/01/29(金) 10:15:15.81

>>378
昭和にExcelあったっけ？

2021/01/29(金) 10:17:07.73

最近はSheetというかExcelの外でのExcelVBAの活用方法を知りたい

2021/01/29(金) 10:28:32.08

Excelと他のアプリを連携するにしてもある程度の規模になるとVBAではなくてOffice add-ins(JavaScriptまたはTypeScript)やVSTO(C#)の利用をMicrosoftは推進してる
あくまでVBAはMS Officeのシステムの枠内で処理の自動化を実施するための道具

2021/01/29(金) 11:18:05.10

>>383
Excel 自体は存在したけど日本語版じゃないしMac用だからリーマンが講座に通うとかはありえんだろうな
アメリカのリーマンかも知れんがw

**デフォルトの名無しさん** (JP 0Hc9-6WVI) · 2021/01/29(金) 11:33:25.67

一番最初にMac版が発売されたのは昭和60年9月、ただしこの時点ではマクロは使えなかった
Windows版は昭和62年10月発売で、ここからマクロ機能が搭載された

この時代だと、viが使える人は別に尊敬されてない
そもそもほとんど知られてなかったんだから、使える人がすごいとか判断すらできなかった

2021/01/29(金) 13:42:22.04

知人がYouTubeで表計算なりVBを勉強したいと言っているが、同志達からみてどのチャンネルがおつつめ？
金子？ユースフル？たてばやし？？
自分、YouTubeであまりExcelの参考にはしないから誰が優秀か全然わからん

2021/01/29(金) 13:44:47.29

つべを見ないのが１番参考になる説

2021/01/29(金) 13:46:17.88

知人いわく、金子ていうあんちゃんがやたら人気あると聞いてさ
でもプロではないと思うから自分なら観ない

2021/01/29(金) 15:03:44.68

お前ら化石みたい頭してそうだもんな、youtuberとか頑なに受け入れられないんだろうな
俺は金子見て勉強してるよ

2021/01/29(金) 15:07:49.71

Exportasfixedformatメソッドでpdfを出力するとき、そのファイル名にセルの値を参照してるのですが
セルの値が改行されているとエラーが出ます。
エラーを出さず改行を無視してファイル名をつけたいのですが、どうすればよいでしょうか？

2021/01/29(金) 16:22:00.18

コード見せてよ

2021/01/29(金) 16:32:12.51

改行の記号忘れたけど
あれをReplaceで消せばいいだけじゃね

2021/01/29(金) 16:36:09.23

vbCrとvbLfとvbNewLineを空文字化すればいけるかな？

2021/01/29(金) 16:52:50.17

s = Replace(Replace(Replace(Replace(s, vbCr, ""), vbLf, ""), vbCrLf, ""), vbNewLine, "")

2021/01/29(金) 17:07:40.77

vbNewLine は vbCr と vbLf の組み合わせか、いずれか一方だから、vbCr と vbLf だけでもいいかも

**397** (ｱｳｱｳｳｰ Sa21-WFwX) · 2021/01/29(金) 17:08:58.02

そんな定義はないか…

2021/01/29(金) 17:32:34.00

396を関数に
Private Function Getファイル名(byval s as string) As String
Getファイル名 = Replace(Replace(Replace(Replace(s, vbCr, ""), vbLf, ""), vbCrLf, ""), vbNewLine, "")
End Function

2021/01/29(金) 19:31:25.44

田中派と金子派がハッキリ別れてるわ自分の界隈は

2021/01/29(金) 20:44:38.50

他のダメ文字は来ないことをお祈りか

**デフォルトの名無しさん** (JP 0Hc9-6WVI) · 2021/01/29(金) 21:10:33.96

youtubeができる前に基本は覚えたから今さら見る気になれないなあ
だからどっちがどうとかも興味ない

2021/01/29(金) 21:43:57.23

>>399
全部空文字にするなら、置換する元のリストをArrayでくくって、lbound(配列)～ubound(配列)でその配列の中身ループさせればいいだけじゃん
それ可読性悪すぎ

**デフォルトの名無しさん** (JP 0Hc9-6WVI) · 2021/01/29(金) 21:55:58.53

要素がもっと多いと配列にした方がメンテ性は良くなりそうだけど、4つだと微妙だなあ
個人の好みで片付けたくなる

For Each x In Array(vbCr, vbLf, vbCrLf, vbNewLine)
　　s = Replace(s, x, "")
Next

**デフォルトの名無しさん** (JP 0Hc9-6WVI) · 2021/01/29(金) 21:59:33.79

あとForで回すと微妙に遅くなるんで、関数化(ブラックボックス化)して大量のデータを処理するなら1本の式にまとめた方がいいかもしれない

2021/01/29(金) 22:14:22.45

つまり403は考え足らずだったと

2021/01/29(金) 23:07:49.79

CreateObject("VBScript.RegExp")で探すのも大差ない?

2021/01/30(土) 00:02:38.07

w、Wsは不用です。
あるシートの
w.Cells(1, "B")には000001234や000001234-1などの文字列が入っています。
ハイフンなしの場合は下7桁を。
ハイフンありの場合は-より左の下7桁と-以降を抜き出して
別のシート.同じ行のA列に入れたいです。
下記の処理でelse節を通る場合、
Rightしたときに前ゼロが消えちゃう(1234だけになる)んだけど
消えないようにするにはどう書けばいいですか。
（If節を通る場合は消えません）

If InStr(1, w.Cells(1, "B"), "-", vbTextCompare) >= 1 Then
Dim sNo() As String
sNo = Split(w.Cells(1, "B"), "-", , vbTextCompare)
sNo(0) = Right(sNo(0), 7)
Ws.Cells(gyo, "A") = Join(sNo, "-")
Else
Ws.Cells(gyo, "A") = Right(w.Cells(1, "B"), 7)
End If

2021/01/30(土) 00:03:27.01

間違えました
w、Wsは不用です。
↓
w、Wsはシートです。

2021/01/30(土) 01:01:10.51

>>403
>>404
なるほど勉強になるわ
いろんな書き方があるからプログラムは面白いな
スマホで打つの面倒くさいからコピペしたけど自分ならReplaceを4行に分けて一個ずつ処理してたわ

**デフォルトの名無しさん** (JP 0Hc9-6WVI) · 2021/01/30(土) 01:07:22.27

>>408
Else
　　Ws.Cells(gyo, "A").NumberFormatLocal = "@"
　　Ws.Cells(gyo, "A") = Right(w.Cells(1, "B"), 7)
End If

2021/01/30(土) 02:17:52.72

>>336
言っとくが、本気にするなよw
熟練者はネットも本も見るぞ。
ま、本に関してはVBAの本は見ないかも。

2021/01/30(土) 02:23:06.62

>>385
???
そうか?
VSTO廃れてるように見えるが。
情報少ないし。