Excel VBA 質問スレ Part74

2021/12/20(月) 01:40:59.22

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

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

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

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

2022/01/19(水) 20:58:42.62

リンク切れで機能しないゴミとなったブックをお目にかかったことがないなら幸せなことだな

2022/01/19(水) 22:01:47.23

エクセルは詳しくないけど、「存在しない可能性すらある
グローバル変数」ってこと？

ちょっと学んで、「どこからでもセルの書き換え効くの？
グローバル変数地獄じゃない？」と思ったけど、もっと
大規模に起こり得るってこと？

2022/01/19(水) 22:31:45.36

>>460
フォルダ名（参照・被参照のExcelブックが別々のフォルダにある場合）、ファイル名、シート名、（使用しているなら）テーブル名、あとセルの配置
どれか一つでも変えるとリンク切れになるので、できればあまり使いたくない
ただ、先にも書いたけど状況次第ではやむを得ないこともあるし、もしそのあたりのリスクを払拭できるなら選択肢としてはあるかなと思って書いたけど、
もし、そういうことをそれほど把握する必要がない程度に重要性が高くなく、かつパフォーマンス（速度）重視の話なのであれば、あまり気にしなくていい

でも、これが仕事で何度も使用するような類のものの話だとすれば、パフォーマンスを考える前に運用をよく考えた方がいい
例えば、ファイル数（100個）や参照セル数（ブック1つにつき60セル）が固定で、シートやブックなんかはパス付で保護かけて構造を弄れないようにして、できたらファイル名なんかもアクセス権を設定して変更できないようにするか、ファイルを扱う人に絶対変えないようにしっかり申し送りするとか
もしくは構造を弄られたとしてもすぐ元どおりにできるぐらいのシンプルな作り、あるいは壊されてもすぐ復元できるようにしておくとか
どんな状況なのかは分からないけど、何を優先すべきなのかをよく整理した方がいい、という話になると思う

2022/01/19(水) 22:43:22.55

>>460
親からひ孫世代まで参照が繋がってるファイル群なんてものが存在した

2022/01/19(水) 22:52:36.39

>>464
参照繫ぐくらいなら、ファイルパスもセルに記入して上書きさせるように実装するわ。それくらいリンクは嫌だわ。

94 (ﾜｯﾁｮｲ 82ad-WmTr) · 2022/01/19(水) 23:01:56.42

なるほど。理解出来ました。
ありがとうございます。

運用的には
VBAでファイル名算出する
シート名が違っていたり、フォーマットズレしていたら検出したいチェックツールにしたいので問題なさそうです。
参照エラーがでたら壊した人のところに殴り込みに行くシステムですね。

2022/01/20(木) 00:15:58.14

まあ、まともに作ったファイルサーバなら
shadow copy くらいは残ってるだろうがね。

2022/01/20(木) 06:56:43.44

無理して変な機能追加するから
後で見返した時にワケわからなくなる

2022/01/20(木) 08:28:58.94

>>468
それはみんなそう
なので少しでもわかりやすいように書いておくことが必要
慣れてないうちはコメント付けまくるのもありだと思う
これは何の変数かとか、大きく何をしているか、この行は何をしているか書いとけばリファクタリングするのにも楽になる

2022/01/20(木) 08:52:11.33

>>466
毎日カチコミになるのが目に見えているゾ

2022/01/20(木) 09:39:15.12

どうしても100個のファイルに分けなければならないのか
一つのブックに100シート突っ込むことはできないのか
とか考えたりはするかも

2022/01/20(木) 12:41:49.38

ファイルコピーか、シートのコピーで
バックアップ取っておくとかは考えるかも。

2022/01/20(木) 12:47:52.34

取引先一件につき、ファイル一つ
それをマクロで集計

最初30個ぐらいだったファイルが、
会社が成長して、100ファイルになったことはあったな
フォーマットやファイルは全て自分で管理してたから問題なかったけど、
今も大丈夫かなぁ
あれ手で計算するのは大変すぎ

2022/01/20(木) 13:46:34.45

1ファイル45個のクエリーを含む同様のファイルが
13地点×6ヶ年分＝78個あって、
これをシーケンシャルに1つずつ、For Nextで更新するよう組んだ。

最初の2ヶ月目くらいまでは7時間くらいで更新出来てたが、
3ヶ月目以降は毎回どこかの、
　Set tblQ = ThisWorkbook.Worksheets(ws).ListObjects(q)
と、ワークシート名とクエリー名を変数に代入するところでコケる・・・

その都度、コードを削除していったん保存、
再度貼り付けてデバッグし続行させる
沼にはまった。

2022/01/20(木) 13:49:08.24

>>474
そういう時は、ファイル保存を挟むと良い
エクセルは立ち上げっぱなしだと、どんどんテンポラリファイルが巨大化する
保存すると、それが一旦整理される

2022/01/20(木) 13:57:12.27

>>475
アドバイス、ありがとう。

一応、開く78個のファイルは1個ずつ保存して閉じているけど、
大元のVBAを持つbookをその都度保存せよ
ということかしら？

そういや、プロジェクトエクスプローラーに
既に処理が終わって閉じたbookのファイル名が残って
どんどん増えて行ったような・・・

こっちは1ファイル処理後ごとに上書き保存とかの処理は入れてなかった。

2022/01/20(木) 13:57:52.65

なんで全部Excelでやろうとするかね　ボリューム見て将来鑑みて、どっかの時点で「これはパンクする」
ってぇ判断をしなかったツケだろ　経費抑制？　むしろ無駄な経費が膨大に掛かってるのには目を瞑るんだ　へー

2022/01/20(木) 14:17:24.56

>>474
変数は毎処理ごとに開放してる？

2022/01/20(木) 14:28:11.68

>>477
本人はやれる中で頑張ってるんだと思う、きっと
でも確かにそれはAccessのほうがってことはあるよね
VBAできる人なら覚えるのも簡単だと思うし

2022/01/20(木) 14:32:45.01

kintoneとかでいいでしょ

2022/01/20(木) 14:40:11.29

>>476
＞一応、開く78個のファイルは1個ずつ保存して閉じているけど、
もし、
set foo = workbook.open~~~)
みたいにしてたら、最後に
set foo = nothing
を挟まないと、ずっとメモリ残り続けることになると思う。>478さんの指摘がこれ

＞大元のVBAを持つbookをその都度保存せよ
これはかなりオススメ。
コードの内容がわかって無くても、エクセルファイルを保存すると大体うまくいく
※保存時に色々とうまくやってくれてるっぽい

>>477
それ言い出すと全企業が大企業並の設備を整える必要がある
ある程度拡張性を備えた上で、「5年後は別システムに移行しているだろう」のような判断ができればいいね
基本、要素（営業や取引先）がドカドカ増えないなあ、システムは特に移行しなくていいと思う。
多少使いにくくても、ノウハウが切り捨てられる方が惜しい

2022/01/20(木) 14:41:43.21

>>480
使ってから言えよ
あれ柔軟性が全くない

柔軟性の必要がない、タピオカ屋さん、ワッフル屋さんなんかにはドンピシャだろうね

2022/01/20(木) 14:41:48.98

>>478
してなくて、ぼんやり「まずはこのあたりをやらなきゃアカンのかなぁ・・・」とは思ってた。
次に更新する月初めまでにやりまする。

大元のbookで、
"For i To k" より後の、
"Next i" までに使った変数全てについて
　Set 変数名 = Nothing
を "Next i" の直前に入れる感じで？

2022/01/20(木) 14:48:42.80

>>482
本当にその柔軟性必要？勝手にそう思い込んでるだけじゃない？
方眼紙に自由自在にレイアウトできなくても情報は伝わるんだぞ

2022/01/20(木) 14:49:07.12

一つのプロシージャで全処理するより

Class とか、Function 使う方が良いかもね。

2022/01/20(木) 15:07:43.50

>>484
必要
もちろん100社で100通りじゃない。100社で10通りぐらい。今後も増えるだろう
この柔軟性は、エクセルだとかなり受け入れやすい

>>485
正直、なるだけ1プロシージャは維持したほうが良いと思う
エクセルVBAは他の言語と違って、あまりにファイルへの依存性が強すぎる

2022/01/20(木) 15:16:04.35

ふーん。

オレなら処理毎にFunction プロシージャに引数で渡してあげて
ループ処理終わったら、変数開放するけどな。

変に長ったらしいのより、そっちの方が解読性がよくなる。

2022/01/20(木) 15:19:27.67

>>481
お前みたいな奴がメンテできないシステムを作り出すのだぞ

2022/01/20(木) 15:20:13.56

まあ、オレはAccess VBA専門なので
Excel VBA は遠い記憶ですが…

シンプル・イズ・ベスト。

2022/01/20(木) 15:20:30.61

バカがやると引数地獄かグローバル地獄になんだよ

2022/01/20(木) 15:21:57.99

>>488
言いたい事は分かるんだけど、エクセルはOSの依存が妙に強くて
OSの機能借りないとキツイ部分が多々ある
未だにMSGBOXがどうしようもなかった

2022/01/20(木) 15:22:53.50

>>490
なるほどｗ

2022/01/20(木) 15:24:46.85

>>490

初心者はね。

最近は設計工程ばかりで、コーディングもしてないから
下流ビギナーの思考はわからんけど。

2022/01/20(木) 15:38:37.39

確かにグローバル変数は使わない方が良い。

ホーム・プロシージャからFunction へ飛ばして
処理させてあげて
戻り値を次のFunctionへ…

って感じで作ると、テスト工程の時に楽になる。

デッカいシステムを組むとそっちの方が絶対楽だし
改修の時も、解読に困らないからね。

2022/01/20(木) 15:56:22.20

>>491
いや、お前の能力が足りないだけだぞ

2022/01/20(木) 16:21:54.83

エクセルの場合は、エクセルという超グローバルオブジェクトがある
それをメインに据えれば良いと思うけどな

2022/01/20(木) 17:01:00.66

ホント、マクロは組む人によってその人のカラーや癖が出るとは言ったもんだね。

2022/01/20(木) 17:03:05.54

変数を日本語というか漢字とか使うのって邪道？
行とか列とかそのまま漢字文字で使ってるんだけど

2022/01/20(木) 17:03:18.69

>>497
んなもんプログラムならどれも一緒
エクセルは一段回上のファイルがあって、目に付きやすいだけ

2022/01/20(木) 17:06:10.63

>>498
2buyte文字ね
全然良い、というかむしろそっちの方が読みやすい
気をつけるのは、海外の漢字や絵文字
上でも出てたけど、半角ポンドなどエラーが起こりやすい文字がある

2022/01/20(木) 17:34:30.16

>>498
漢字をマクロ内で使って、
この5～6年くらいの間で知ってるだけで少なくとも2回、
MSのupdateで動かなくなってた記憶があるので
それに対処出来ればOKかと。

Rangeで引っ張る定義名とかsheet名は
特殊な記号は避けて漢字使っちゃってる。

2022/01/20(木) 17:50:55.00

日本語(漢字)でもいいんだ　へー　　　っていうレベルのが真似して安易に使い出したらカオス
他人事だから後は野となれ山となれ　　っていう発想としか思えない
日本語OSが出来てからやれよ　とは思う　　米語OS使わざるを得ないなら粛々と従ってろや　と
　ま、だからってローマ字に換えて30文字ぐらいのモジュールが40ヶぐらい並んでるのを見た時には一時間ぐらい気絶したけど
getsumatsukoushinn() nenjikoushintokuisakibetuhinmokubetsu()　　　あのさ、、、　これにOK出したの誰よ？

2022/01/20(木) 17:51:21.68

そういや何年か前、accessVBAだっけ？2byte文字あると全部エラーになるみたいなのあったな

2022/01/20(木) 18:02:49.63

>>502
ワロス

2022/01/20(木) 18:26:03.22

>>502
こういうの見るとoption explicit必須何やなって思わされる

2022/01/20(木) 18:30:19.80

開発現場のローカルルールは
2バイト文字禁止が普通だけどね。

色んな環境で使うことを想定したら
日本語とかありえん。

コーディングの時は日本語だけど、
最終的に全置換で英語表記に変える。

2022/01/20(木) 20:06:44.42

> 色んな環境で使うことを想定したら
Excel VBA でそんなことを気にしないといけない状況って相当珍しいだろw

2022/01/20(木) 20:09:21.62

俺が前に行ってた派遣先ではC#で漢字の変数名や関数名とか自由に使ってたわ
業界ではそれなりに知られた老舗のソフトメーカーなんだけど
まあ、そういう職場もあるってことで

2022/01/20(木) 20:34:21.90

日本語以外での展開を考えてるならまあ２バイト文字禁止で良いんじゃね
日本語環境で開発してる段階で漢字禁止とかあんまり見ないけどな

ただ、メソッド名に日本語は過去にえらいことになった例があるからなぁ...

2022/01/20(木) 23:42:09.41

ID:aoz8cIff0

いつもの馬鹿でしたとさ

2022/01/21(金) 02:47:14.61

派遣てなになに？
VBA技術者の派遣とかあるんだ？

2022/01/21(金) 03:05:10.67

派遣業（ピンハネ屋）を禁止にすれば
日本人の給料は上がります。

2022/01/21(金) 05:15:31.24

派遣て確か専門職だからめちゃめちゃ稼げると聞いたけど、どうなの？？
那須は出ないとは聞いたけど時給はめっちゃ高いと聞いたものでして。

2022/01/21(金) 07:53:02.69

>>513
1500-2000円ぐらいだったかな。ただもう募集自体がほとんどない。
ほぼ全てローカル環境での作業のため、リモートも出来ない

>>512
下がる

2022/01/21(金) 08:07:59.20

へえ、1500から2000円ねそうなんだ。
自分田舎住みだからその時給はかなり水準高いわ。
こっちなんてどんだけExcelの技術あっても良くて時給1200円前後。
マクロ書ける人材は貴重だからもっと給料上げるべきだと思う。

2022/01/21(金) 08:29:03.61

企業常駐型だから、基本かなり居づらいし
VBAでゴリゴリの開発や保守なんて絶対にやらんほうがいいわ

2022/01/21(金) 08:45:23.59

あ、常駐型SEを思い出した。
給料はもっと貰うべき。

2022/01/21(金) 08:51:43.72

適正が有るだけで大した労力使わないのに給料は高いんだよ
楽だよな

2022/01/21(金) 09:29:31.93

ExcelでEnumChildWindowsを使って他アプリの子ウィンドを取得するプログラムをテストしています。
と言っても知識がないのでネットからソースをコピーしてテストしているレベルです。
EnumChildWindowsの引数でコールバック関数をしているのですが、コールバック関数を実行した時に順調に
実行される時とEnumChildWindowsを実行した途端Excelが終了する時があります。
何かよくあるミスとかあれば教えてください。
APIの宣言、コールバック関数は標準モジュール、その他はシートモジュールに書いています。
プログラムを張り付けて良いか分からないので張り付けていませんが良いならご指示ください。
よろしくお願いします。

2022/01/21(金) 09:44:43.07

>>519
コードは貼ってくれ

**519** (ﾜｯﾁｮｲ a936-9BXF) · 2022/01/21(金) 11:25:52.95

519です。
長すぎると怒られるのでいくつかに分けます。
よろしくお願いします。

Sheet1モジュール

'///GetWindowの定数///
Const GW_HWNDFIRST = 0 '基準となるWindowと同じ種類のうち最前面のWindow
Const GW_HWNDLAST = 1 '基準となるWindowと同じ種類のうち最背面のWindow
Const GW_HWNDNEXT = 2 '基準となるWindowの次のWindow
Const GW_HWNDPREV = 3 '基準となるWindowの前のWindow
Const GW_OWNER = 4 　'基準となるWindowのオーナーWindow
Const GW_CHILD = 5 　　 '基準となるWindowの子WindowのうちトップレベルのWindow
Dim myHwnd As LongPtr　　'検索ボタンのハンドルを記憶

Sub Test1()
'アプリhogeの検索ボタンを探す
Dim Ret As LongPtr
Dim hwnd As LongPtr

hwnd = FindWindow(vbNullString, "hoge") 'トップウィンド
hwnd = FindWindowEx(hwnd, 0, vbNullString, "hoge_1")'検索ボタンが所属している子ウィンド

Ret = EnumChildWindows(hwnd, AddressOf EnumChildProc, 0)
myHwnd = GetWindow(myHwnd, GW_HWNDPREV)
End Sub

**519** (ﾜｯﾁｮｲ a936-9BXF) · 2022/01/21(金) 11:29:13.91

標準モジュール

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As LongPtr, ByVal hwndChildAfter As LongPtr, ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function EnumChildWindows Lib "user32" (ByVal hwnd As LongPtr, ByVal callBackProc As LongPtr, ByRef lParam As LongPtr) As LongPtr
Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As LongPtr) As LongPtr
Declare PtrSafe Function GetWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal wCmd As LongPtr) As LongPtr

**519** (ﾜｯﾁｮｲ a936-9BXF) · 2022/01/21(金) 11:35:16.64

標準モジュールの続きです。

Public Function EnumChildProc(ByVal hwnd As Long) As Long
Dim Ret As LongPtr
Dim Leng As LongPtr
Dim Name As String * 255

**519** (ﾜｯﾁｮｲ a936-9BXF) · 2022/01/21(金) 11:39:21.83

書込みができないようで中途半端なところで切れてしまいすみません。
残り数行なのですがもう少し後で投稿します。
よろしくお願いします。

2022/01/21(金) 12:02:38.78

>>524
長くなる時はコードをシェアできるサービス使って
https://collabedit.com/3dgh5

2022/01/21(金) 12:24:55.64

標準モジュールからユーザーフォームを呼び出して、そこで入力された値を持ってきて処理したいです

試しにシンプルにこんな感じでやっても駄目なんですが、どうすればいいでしょうか？

標準モジュール
Option Explicit
Public ret As Boolean
Sub test()
Dim ret As Boolean: ret = False
UserForm1.Show
MsgBox ret
End Sub

ユーザーフォーム
Private Sub CommandButton1.Click()
Dim ret As Boolean
ret = True
Unload Me
End Sub

これでtestを実行すると、メッセージボックスにFalseが表示されます
ユーザーフォームが出てきてボタンをクリックしたら、Trueをメッセージボックスに表示するようにしたいです

**519** (ﾜｯﾁｮｲ a936-9BXF) · 2022/01/21(金) 12:37:47.66

>>525
指示してもらったことろへ貼り付けました。
よろしくお願いします。

2022/01/21(金) 12:39:51.71

>>526
標準モジュール
Option Explicit
Public ret As Boolean
Sub test()
　　ret = False
　　UserForm1.Show
　　MsgBox ret
End Sub

ユーザーフォーム
Private Sub CommandButton1.Click()
　　ret = True
End Sub

2022/01/21(金) 12:47:38.25

>>528
Dimを抜くと、変数が定義されていませんと出てしまうんです
Option Explicitを入れなければ通りますが、やはりTrueは返ってこないでFalseになります

2022/01/21(金) 14:13:07.69

>>519
多分引数が間違っている。ノートパッドを起動して以下を試して、
返り値の違いを確かめてみて。
修正前は0が返ってるけど、修正後はポインタか参照が返ってるはず

hwnd = FindWindow(vbNullString, "hoge") 'トップウィンド
↓
hwnd = FindWindow("notepad", vbNullString) 'トップウィンド

後は、検索ボックスがどうこう書いてるけど、そういうプログラムを持ってないから検証できないわ

2022/01/21(金) 14:50:07.67

>>526>>529
ユーザーフォーム側で「Dim ret As Boolean」を宣言するとスコープの近い変数に格納されてしまうから不要
自分も同じようなコードをかいたがなくても正しくretにTrueが入る
（「CommandButton1.Click」は構文エラーになると思うが「CommandButton1_Click」だよね）
変数がどうとかいわれるならそもそも変数がpublicでないか参照している変数名がまちがってるとかないか？

2022/01/21(金) 14:57:28.11

>>529
528は、ちゃんと動作確認してから貼ったんだけど
コード書く場所間違ってない？
https://i.imgur.com/76hGtGx.png

2022/01/21(金) 15:01:17.70

>>532
細かくてすまんが
CommandButton1_Clickの代入先って最初大文字にしても勝手に小文字にならない？

2022/01/21(金) 15:11:34.91

>>531
何回も確認してるんですが、間違ってないんですよね・・・
CommandButton1.Clickも、>>526で間違えただけです
>>528で書いていただいたものをそっくりそのまま書いてるんですが、retにTrueが入ってくれないです
環境はエクセル2010のwin7です

2022/01/21(金) 15:17:23.81

>>532
新しい標準モジュールにtestだけ書いたらできました
何かが干渉してるってことなんでしょうか

2022/01/21(金) 15:22:29.45

自分はWin10(20H2)＋Excel2013とWin10(21H1)＋Office365(サブスクリプション版)の2つで試したけど
どちらもTrueになるね

ちなみに「ret = True」のretをマウスクリックして右クリックのメニューに出てくる「定義」を選択するとどこにジャンプする？
自分はpublic変数にとぶんだが

2022/01/21(金) 15:24:18.40

>>534
まさかイベントプロシージャの宣言部を自分で入力かコピペしてない？
フォームデザイナーでコマンドボタンをダブルクリックすると空のプロシージャが自動生成されるんだよ

あと、試したのはWin10 Excel2021 64bitだけど、この部分の仕様はずっと変わってないはず

>>533
悪いけど指摘の意味がよくわからん
スクショの通り、これでちゃんと動いてるんで
さらに細かいことを言うとCommandButton1_ClickじゃなくてCommandButton1.Clickね

2022/01/21(金) 15:30:59.33

>>529
Dimを外すとエラーが出るってことは、どこかで今回の件とは関係ない別の何かをタイプミスしてる
Option Explicitをコメントアウトした状態でステップ実行するとローカルウィンドウに使用中の変数の一覧が出るから、よーく見直せ

2022/01/21(金) 15:46:49.49

>>537
フォームデザイナー使ってます

>>536
Publicに飛びます

2022/01/21(金) 16:13:39.82

>>537
コントロールとイベントの接続文字はアンダーバーじゃない？
ピリオドで構文エラーになるけどならない場合もあるの？

>>539の作ってるサンプルは>>528通りなの？
自分のサンプルはこんな感じで作ったけど
１．新規ブック作成
２．開発メニューからエディター起動
３．プロジェクトツリーで新規フォーム作成
３．１．コマンドボタン追加
３．２．コマンドボタンダブルクリック
３．３．CommandButton1_Clickに「ret = True」を記述
結果ユーザーフォーム内のコードは下記の状態になる
Option Explicit
Private Sub CommandButton1_Click()
ret = True
End Sub
４．標準モジュール作成
４．１．下記のコードを貼り付け
Option Explicit
Public ret As Boolean
Sub test()
ret = False
UserForm1.Show
MsgBox ret
End Sub
５．test内をクリックしてF5押下で実行

2022/01/21(金) 16:23:57.05

ユーザーフォーム閉じるまでメッセージボックスまで行かないわけか
いつもモードレスだから気づかんかった

2022/01/21(金) 16:24:33.06

>>540
新規ブックで一からやったらできました
組み込みたい既存のブックでやろうとしたところ、Public retに入らない感じでしたが、新しい標準モジュールを作ってやったらできました
なので、最初に書いた先の標準モジュールが原因っぽいんですが、それが何か分からない状態です
上手く動いたコードをそのまま一番上に持ってきているんですが、エラーは出ずに実行されるもPublic retにTrueが入らずにFalseになります

2022/01/21(金) 16:40:12.64

理屈もわからずあちこちからコピペコピペとやってる奴によくある
そろそろ消えろや

2022/01/21(金) 16:45:47.13

ファイルもみてないからなんともいえないけどボタンに紐づけたイベントは正しく実行されるの？
ret = Trueの行でF9おすとブレークポイント設定されるからそこで止まるかたしかめたら？
それで止まったなら1行ステップ進めてretに何が入ってるか確認したほうがいいよ
モノづくりするときは1つずつつぶしていくのが大事よ

2022/01/21(金) 19:18:17.67

標準モジュールじゃなくてThisWorkbookに書いてる予感

2022/01/21(金) 19:27:54.79

インターネットのブラウザ　IEとかedgeとかで任意のページを開いてそこから日付とか番号とか特定の決まった箇所にある文字や数字をWordの特定の場所にコピー、挿入する方法はありますか？
できればボタンひとつでできるようになりたいです

2022/01/21(金) 19:45:58.42

あります。
「vba スクレイピング」「vba word 操作」でぐぐればいくらでもサンプル出てくると思うから好きなのえらぼう

2022/01/21(金) 22:29:10.29

>>546
Ruby馬鹿だろ

2022/01/21(金) 22:34:52.59

整然としてねえコーディングだな。

頭の中身が現れてるわ。

2022/01/21(金) 22:37:38.53

>>546

VBSか、JavaScript の方が
早いかもしれん。

2022/01/22(土) 00:26:58.95

コピペプログラマー

2022/01/22(土) 00:35:52.61

>>547
vbaでのスクレイピングは懲りた
標準だとIEしか使えないんだもん

2022/01/22(土) 01:04:10.75

>>552
どの言語でも外部ライブラリは必要

2022/01/22(土) 08:00:34.93

他社製のweb受注システムから社内の生産管理システムに流し込むときにやったな
CSVダウンロードくらい用意しろってんだ

2022/01/22(土) 08:21:46.11

>>550
同意
どうせ深くWeb系を扱うのであればJavascriptは必須になってくるから勉強するに越したことはないと思うよ。
VBSもVBAの知識があれば何とかなる・・・多分。
IISの知識があればそれでクラシックASPの出来上がりですよ。
本格的にやるならASP.NetだけどObject指向の概念が分かっていないとVBAからだとVB.Netでも少し敷居が高いかも。

どうせWeb版のEXCELとか弄るときはJavascriptだし、今の内に慣れておいた方がいいと思う。

2022/01/22(土) 08:34:08.56

>>554
同じく
csvDL自体がないってのはさすがに見たことないけど、
DLに項目が不足してる時はスクレイピングで抜いてるな

2022/01/22(土) 08:36:01.91

chromeの拡張機能でスクレイピングするのが最も安心安全
サーバーからすれば一番ユーザーに近い
IEは対応してないどころかもうすぐなくなる。

そういやvbaのブラウザはどうなるんだろ？

2022/01/22(土) 10:08:57.53

for i= 1 to 100 step 1
#If conEnv = 1 Then
　ans = d1 * d2
#Else
　ans = d1 / d2
#End If
Next i

こんな感じに条件付きコンパイルをしてる場合、
ループ毎にIF判定してるんですか？

2022/01/22(土) 10:56:45.31

>>558
しない
条件つきコンパイルってのは、実行前にコードを書き換えるようなものと思って良い。実行後は消えて無くなると思って良い。
>>558は、以下と同等に解釈される

Sub foo()
For i = 1 To 100 Step 1
conEnv = 1
ans = d1 + d2
Next i
End Sub

ちなみにこれも上記と同じ。　ans = d1 * d2 は実行されない
for i= 1 to 100 step 1
conEnv = 1
#If conEnv = 1 Then
　ans = d1 * d2
#Else
　ans = d1 / d2
#End If
Next i

分岐させたいならこう
for i= 1 to 100 step 1
#conEnv = 1
#If conEnv = 1 Then
　ans = d1 * d2
#Else
　ans = d1 / d2
#End If
Next i

2022/01/22(土) 11:00:33.05

あと、下手に条件つきコンパイルは本当にやめたほうがいい。絶対にややこしくなる
唯一使える最適な場面は、コンパイル時にエラーが起こる可能性がある箇所。
パッと思いつくのは、バージョン違いへの対応程度

テスト環境の切り替え～という人もいるけど、関数でどうこうするのと変わらん