Excel VBA 質問スレ Part68

2020/08/30(日) 11:55:27.33

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

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

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

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

2020/09/27(日) 07:29:13.82

htttp通信がわからんがセキュリティー的に問題起きるんじゃね

2020/09/27(日) 15:17:02.78

htttpは、ハイパー・トンマ・トンチンカン・タコ・( ´,_ゝ｀)ﾌﾟｯの略かな

2020/09/27(日) 15:27:50.06

>>397
アセンブラやりたいってこと?
というのと同じ話。
InternetExplorer.Applicationじゃ無くてもみんなgetElementBy使う。

こういう便利なものを放棄するならhtmlのソースを自前テキスト処理で頑張るしかないと思うが。

普通はmsxml2.xmlhttpとかでソース取得して、それをDocumentに入れてgetElemetsByだな。

2020/09/27(日) 17:34:22.53

>>397
その辺は自作ライブラリでビブラートに包めばOK

2020/09/27(日) 18:37:04.65

>>401

> >>397
> その辺は自作ライブラリでビブラートに包めばOK

震わせてどうすんのさ。オブラートだろって釣られた

2020/09/27(日) 18:40:59.82

>>400
マジか!
xmlがどうとか、APIがないとダメなんだと思ってたわ。

2020/09/27(日) 18:44:20.59

ん?
それだと、逆に何のためにGUI操作(IE制御)の方法があるの?
初心者用?

2020/09/28(月) 07:43:08.08

>>403
勘違いしてる。
別のAPI使ってるということだ。
で、別のAPIにもgetElemetByが出てくると言ってる。

2020/09/28(月) 13:09:33.23

RPA的制御がなにかよくわからんが
getElementしたくなかったら、API利用してxml取得しろみたいな話を言われたんじゃないか
それでAPI使えないけどgetElementしない方法ないの？と

取得できるものがhtmlなら、すなおにgetElementしとけ　以上
ちなみにxmlだろうとhtmlだろうとcsvだろうと、それは多くの場合httpで取得してるだろうがな

2020/09/28(月) 15:51:42.57

>>402
オブラートに包んでもおかしくないか
普通ラップするとかカプセル化するとか言うんじゃ・・・

>>404
どれもhttp通信でデータを取得できる共通点があるだけで、目的はそれぞれ違う

IEクラスはブラウザを操作する為のコンポーネントの一部
mshttpクラスはIEがスクリプトでhttp通信をするためのコンポーネントの一部
WinHttpRequestクラスはWindowsがhttp通信をするためのコンポーネントの一部
(コンポーネントっていうのはプログラムの部品として使うのが想定されている小さいプログラムのこと)

それぞれ色んなシステムで使えるようにCOMインターフェースっていう取説のようなものが実装されていて、VBAはそのおかげで間借り出来てるだけ
どれもVBAの為だけに作ったプログラムではない

ちなみにIEクラスの利点として、ブラウザ上でjsが実行されているページにアクセスすることができる点がある

2020/09/28(月) 16:26:17.24

それをVBAでやる意味は何？
もっと他に簡単に出来る言語でやれは？

2020/09/28(月) 16:37:22.01

結果をexcelで扱うならVBAが最適では？

2020/09/28(月) 18:37:13.13

CSVで吐いてExcelで開くだけだろう

2020/09/28(月) 19:21:37.82

あーい
あーい
ああああーい

2020/09/28(月) 21:25:16.14

質問させていただきます

ユーザーフォームのテキストボックスにフォーカスがあたってる(入力状態)でwindowsのデスクトップがアクティブもしくは他アプリケーションがアクティブを検知することはできますでしょうか？
タッチパネルなどでユーザーフォーム外をタッチしてしまった時を検出したいです。
できるのであればご教授願いたい…

2020/09/29(火) 00:06:40.59

Windowオブジェクトにどんなプロパティがあるんだっけ

2020/09/29(火) 00:29:27.68

フォームのdeactivateイベント拾ってテキストボックスのフォーカス状態見て処理するとかどうかな

2020/09/29(火) 00:32:40.28

deactivateは用途が違う

2020/09/29(火) 00:49:54.82

HTML, XML, CSV などのスクレイピングなら、
Ruby で、Nokogiri, Selenium Webdriver などが簡単

curl, wget でも、ファイルをダウンロードできるし

Rubyで、nokogiri, curl を使った例

require 'nokogiri'

html = `curl http://www.example.com/`

doc = Nokogiri::HTML( html )

elements = doc.css( "h1" )
puts elements.first.content #=> Example Domain

2020/09/29(火) 06:58:50.11

外部プロセスの起動、待機、出力の取り込みまで実装してくださいよ

2020/09/29(火) 09:56:21.75

Rubyの自動運転は使いやすかったけど
早々にサポート切られたから印象悪い

2020/09/29(火) 11:55:53.23

>>413
調べて見ましたがそれっぽいものは発見できませんでした…

>>414
>>415さんのおっしゃる通りブックやユーザーフォームのDeactivateイベントでは機能しませんでした。

2020/09/29(火) 23:34:39.45

VBAでやる意味?
VBA以外だとアホな操作が必要だぞ。

1.Excelを閉じる。
2.他言語で実行。
3.csvをExcelで開く。

全くアホらしい。
運用についての考え方がまるで違う。

他言語でやる場合ってのはバッチ処理なのか?
それしか無いのか?
そういうブツ切りでデータ加工していくというなら寧ろExcelなんぞ使わん。

2020/09/30(水) 00:00:14.29

>>407
jsしたかったらIEするしかないのね。
今時のHPほぼ全滅じゃん。

2020/09/30(水) 00:36:25.50

>>419
WINAPIでポーリング
https://i.imgur.com/NQMR2Km.png

2020/09/30(水) 06:50:20.08

イルカのカイル

2020/09/30(水) 16:18:36.41

>>419
そのマルチタスク、マルチウィンドウを否定したい理由は何なの？

2020/09/30(水) 16:57:41.88

>>424
フォームのテキストボックスに機器の計測値が入るようになっており
テキストボックスにフォーカスがあたってない状態で計測値が送られてくると値が取れないのでおじーちゃんたちにも気づくようにフォーカスが離れた時に警告ユーザーフォームを出したいのです。他アプリケーションなどを立ち上げる事も想定されます。

>>422
情報ありがとうございます
画像の通りやってみましたがイルカさんは働いてくれませんでした…

2020/09/30(水) 20:43:21.94

>>425
アホとしか言えんわ
そもそも設計が間違えてる

2020/09/30(水) 21:46:10.98

>>425
値を入れる部分を直せよ

2020/09/30(水) 22:51:09.04

RPAとか使ったらこんなおぞましいものができたりするのかな？
でも普通はExcelぐらいサポートしてるよな。。。

2020/09/30(水) 23:05:33.83

むしろRPA向きの案件だと思う

2020/10/01(木) 01:07:42.33

>>425
> フォームのテキストボックスに機器の計測値が入るようになっており
wの前にデータ取得しとるわなw

>テキストボックスにフォーカスがあたってない状態で計測値が送られてくると値が取れない
wそんな業務データを取りこぼすとか意味不明w

>のでおじーちゃんたちにも気づくように
wなんだ？老害か？w

2020/10/01(木) 01:18:01.34

意味がわからないなら黙ってればいいじゃない

2020/10/01(木) 07:38:17.90

業務用ツール作るのってホント大変よな……
使いたい人向けに配信するんじゃなくて、使わされる人に使ってもらうツールだからどんなに優しいUIにしても平気で想像を上回るイレギュラーな操作して動かなくなった！ポンコツめ！みたいなクレーム出してくる人もいるし
単純に新しい物を使いたくないからってワザとメチャクチャな操作したりもしてるんだろうけど
ツールを要求してくる上の人達は現状の環境で対応出来るようにしたいからExcelのマクロでどうにかしてよ！とか言ってくるし、VBAはなんでも出来る魔法のツールだと思ってるし

長々と愚痴ってスマンな
スレチだよな

2020/10/01(木) 07:49:06.10

Windowsの標準のユーザーインターフェイスを意識しないと、使いやすいと思ったものが結局つかいにくくなる。

フォーカスがあたってなくても計測値が取れるように作るという発想が無いのが厳しい。
そんなこと出来ないなら根本から違うユーザーインターフェイスを採用すべき。

こういう処理でユーザーに何かさせる必要は無い筈。

2020/10/01(木) 10:04:49.32

初心者がツール作るように言われたら大変なんだろうな、俺は大変だと思ったことないが

2020/10/01(木) 10:34:23.83

タブレットでバーコードリーダーのキーボード入力モードでも使ってるんだろうなと想像

COMで操作できるライブラぐらい付いているだろうからそれ使えば解決

2020/10/01(木) 16:54:34.45

>>435
まさにおっしゃる通りで作業進捗をバーコードで管理するものを作りました。
次は工程内のチェックシートと計測値などのトレーサビリティです禿げそう
とりあえず計測器具も試用で借りてる段階なのでメーカーにライブラリの事聞いてみます…

2020/10/01(木) 17:12:49.41

>>431
知ってた

2020/10/01(木) 18:58:16.32

>>434
かっけぇ

2020/10/01(木) 21:36:53.69

罫線で囲われてたり、色塗りされたりするセルをマウスでドラッグ移動した時移動した場所は何もなくるなるのを罫線のみを残す方法ってありませんか？
簡単に言うと罫線で作った表の形式を保持したい。

2020/10/01(木) 21:50:29.37

>>439
テンプレートを隠しシートに保存しておいて、
ボタン押下で書式をコピペしてくるってどう？

2020/10/01(木) 22:00:05.10

>>439
切り貼りじゃなくてコピーアンドペーストした後に元のところの数式と値をクリア(右クリック+N)すればよいのでは

2020/10/01(木) 23:26:28.37

changeイベントで常に罫線引くことしか思いつかん

2020/10/01(木) 23:48:07.63

移動できないようにする

2020/10/02(金) 01:42:30.77

セルをマウスでドラッグって何だよ?
エクセルで将棋でもやるの?

2020/10/02(金) 01:43:49.39

>>425
それExcel VBAでやるものではない。
自分のやりたいようにやりたければ、Windows SDKでの開発をしてください。

2020/10/02(金) 01:49:29.59

>>439
そもそも手順というものを考えた方がいい。
移動する前の情報を移動先には持ってくるが、移動元にはその情報を適用しないのはなぜ？

2020/10/02(金) 10:09:18.16

指定したフォルダ内の全てのＣＶＳファイルを配列に追記していき対のですが、コードを教えてください
配列の０列目（１次元目）にはそれぞれのＣＳＶファイルのファイル名をいれたいです。

Sub Sptyou()

Dim FolderPath As String, buf As String, TargetDate As String

'■フォルダを指定する
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = 0 Then
MsgBox "キャンセルされました。"
Exit Sub
End If
FolderPath = .SelectedItems(1)
End With
'■指定されたフォルダ内の全てのCSVファイルを開いて、そのファイルＡ列からＧＨ列を配列に入れていく
ReDim BiforeArraybar(1, 190) As Variant

**447** (ﾜｯﾁｮｲ d3cc-gW4a) · 2020/10/02(金) 10:09:56.74

つづき

buf = Dir(FolderPath & "*.csv")

Do While buf <> ""
Open buf For Input As #1 'インプットモードでファイルを開く
Line Input #1, TargetDate
Do Until EOF(1) 'ファイルの終点まで
Line Input #1, Tardt '開いたファイルを上から順に読み込んでいき、変数TargetDateに代入していく
If Split(TargetDate, ",")(1) = "" Then Exit Do
'配列に追記する
ReDim Preserve BiforeArray(Ubound(BiforeArray) + 1 To ??, 1 To 190) = Sprit(TargetDate,",")
Loop
Close #1
buf = Dir()
Loop

End Sub

2020/10/02(金) 10:42:45.10

ReDim Preserveで操作可能なのは最右端の次元だけだから2次元配列で1次元目に使いたいなら一旦反転させた状態で操作して出力時にWorksheetfunction.transpose使って吐き出す必要があるぞ
いまいち最終目的が分からなかったから取り合えず読んでて気になった所だけ

2020/10/02(金) 10:56:02.65

Linux のcat なら、複数のファイルを連結できるけど

2020/10/02(金) 12:25:22.61

win dosならcopyで連結できるけど

2020/10/02(金) 12:29:54.55

>>448
内側のLoop内で Tardt ってのが気になった

**447** (ﾜｯﾁｮｲ d3cc-jreG) · 2020/10/02(金) 13:32:21.66

>>449

右端にファイル名を入れるにはどうしたらいいですか？

それと、配列のＵｐｐｅｒをどう設定したらいいですか？

2020/10/02(金) 15:56:01.43

また馬鹿な質問者か。それともいつもの厚かましい馬鹿か？

2020/10/02(金) 16:13:26.37

右端の次元と右端の列では話の次元が違うけどわざとやってんのかなー？

excelなんだからとりあえずシートに格納すればいいと思うんだけどなー
配列に1行づつ追加するよりはやいんじゃね？
VBは動的配列無いんだからパフォーマンス出すには頭を使わにゃいかんよ
行数をキーにしたDictionaryもいいかもね

2020/10/02(金) 16:51:14.94

>>453
配列のUpperが何を意味してるのかいまいち分からんがこんな感じで良いんか？

Line Input #1, TargetDate
BeforeArray(0, Ubound(BeforeArray, 2)) = ファイル名
For文[1～190](BeforeArrayにSplit(TargetDate, ″,″)を放り込む)
ReDim Preserve BeforeArray(0 to 190, Ubound(BeforeArray, 2)+1)
Do Until EOF(1)
Line Input #1, TargetDate
For文[1～190](BeforeArrayにSplit(TargetDate, ″,″)を放り込む)
ReDim Preserve BeforeArray(0 to 190, Ubound(BeforeArray, 2)+1)
Loop

2020/10/02(金) 18:32:48.78

>>453
こういうことじゃないのか

targetdata = buf & "," & targetdata

2020/10/02(金) 22:17:00.26

>>455
サイドブレーキを使う坂道発進をダサイと感じるようなもので、
どう考えてもシート格納が合理的なのに、無理して配列を使うわけですよ。

2020/10/02(金) 23:43:54.67

CSV の規格では、各要素をクォート文字で囲めば、
各要素中に、列区切り文字も入れられる

"a,b", x

Ruby などのCSVライブラリを使わず、
自力で、列区切り文字で分割すると、バグるだけ

CSVの規格を知らない香具師が、よくやってる

2020/10/03(土) 00:18:46.98

csvに規格ってあったんだ

2020/10/03(土) 07:11:14.79

ExcelでCSVをダブルクリックで開いて編集、上書きして事故る人が多いね

2020/10/03(土) 07:17:22.78

>>460
一応あるけど結局Excelで読めないとダメって言うケースが大多数だったりする
http://www.kasai.fm/wiki/rfc4180jp

2020/10/03(土) 08:43:50.77

そのRFCって、たくさんあるローカルルールの1つを紹介してるだけだよな
強制力もなさそうだし、現時点ではあんまり意味がなさそう

2020/10/03(土) 11:51:59.59

>>459
マイクロソフトの製品はそれに沿っているものがあるが、クォーテーションがついたり、つかなかったりするのは、人間にとってもタチが悪く、完全に失敗した仕様と結論が出ている。

**459** (ﾜｯﾁｮｲ d32c-IT45) · 2020/10/03(土) 13:01:37.98

列区切り文字は、必要なければ省略できる

つまり、x も、"x" も同じ。
全ての要素に、付けてもよい

ただし、"a,b" みたいに要素内に、
行区切り文字・列区切り文字・クォート文字を含む場合は、省略できない

**459** (ﾜｯﾁｮｲ d32c-IT45) · 2020/10/03(土) 13:03:38.87

>>465
修正

>列区切り文字は、必要なければ省略できる
クォート文字は、必要なければ省略できる

2020/10/03(土) 13:04:25.84

できないって言われましても強制力無いですし

2020/10/03(土) 13:34:48.02

まあそもそも多数の実装が出てからそれ集めて決めた仕様だからな

2020/10/03(土) 19:43:36.45

そういやあれ何だろうな。
QueryTableだとセル内改行でずれるのに、
ADOだとずれないとか。

2020/10/04(日) 19:09:07.88

配列を戻す自作関数を呼び出し先Subから複数回実行して、配列を結合したい
んだけど、どうすればできますか？ redim preserveとUBoundを使うのかも
しれないけど、いい感じにまとまったコードが書けない。
例えば、下の関数を、別のSubから2回実行させて、
「Ary(3) ※中身：path1,path2,path1,path2」
の結果を得たいです。

Function TestFunc()
Dim testPath(1)
testPath(0) = "path1"
testPath(1) = "path2"
'return
TestFunc = testPath
End Function

2020/10/04(日) 19:09:08.25

配列を戻す自作関数を呼び出し先Subから複数回実行して、配列を結合したい
んだけど、どうすればできますか？ redim preserveとUBoundを使うのかも
しれないけど、いい感じにまとまったコードが書けない。
例えば、下の関数を、別のSubから2回実行させて、
「Ary(3) ※中身：path1,path2,path1,path2」
の結果を得たいです。

Function TestFunc()
Dim testPath(1)
testPath(0) = "path1"
testPath(1) = "path2"
'return
TestFunc = testPath
End Function

2020/10/04(日) 19:09:56.24

連投すいません

2020/10/04(日) 19:15:03.93

注意

ID:mqiPq7lq0

いつもの馬鹿です

2020/10/04(日) 21:13:23.82

>>471
検索したらいいんじゃね

2020/10/04(日) 21:42:10.14

>>471
例えとかいい感じとかじゃなくて正確にコードを提示してどの部分をどうしたいのか明確に説明した方がいいよ

2020/10/04(日) 21:43:28.32

後出し続けて全部作ってもらおうという魂胆の奴だぞ

2020/10/05(月) 01:21:09.51

VBAからIEを操作して、タグを指定して.valueやselctedで自動化しているのですが、ヤフオクの商品説明だけどうしても値の挿入ができません。
Tabや近い要素をフォーカスしたりクリックし、SendkeyなどでShift +Tabからエンダーなど試していますが、一向に解決できません。
直接でか無くてもカーソルが点滅させれれば、クリップボード経由で貼り付けるような仕様にしようと考えています。

2020/10/05(月) 07:08:41.25

漏れは、Ruby, Selenium Webdriver で、ブラウザを自動操作して、
send_key で、ユーザー名・パスワードを自動入力して、ヤフーにログインしてる

require "selenium-webdriver"

options = Selenium::WebDriver::Chrome::Options.new
options.add_option( :detach, true ) # ブラウザを切り離す
options.add_argument( '--start-maximized' ) # 画面最大

driver = Selenium::WebDriver.for :chrome, options: options
driver.manage.timeouts.implicit_wait = 10 # default timeout

driver.navigate.to "https://login.yahoo.co.jp/config/login_verify2?.src=ym";

element = driver.find_element(:id => "username")
element.send_key "ユーザー名"

driver.find_element(:id => "btnNext").click

element = driver.find_element(:id => "passwd")
element.send_key "パスワード"

driver.find_element(:id => "btnSubmit").click

**478** (ﾜｯﾁｮｲ d32c-IT45) · 2020/10/05(月) 07:11:02.53

そもそも、IE なんか動くのか？

漏れは、Chrome

2020/10/05(月) 12:57:11.88

>>475
すみません。

Sub test
Dim i,ary()
For i = 1 to 2
ary = TestFunc ※ary配列の要素の最後に呼び出した配列を追加していきたい
Next
End

2020/10/05(月) 13:22:13.75

配列に配列を追加するのを初心者がつくるなら
追加する2つの配列と結果を格納する配列の計３つを用意して順番に格納すればできないかな？

2020/10/05(月) 14:35:29.71

>>480
いい加減にしろや糞が

2020/10/05(月) 14:54:20.99

>>471
redim preserveとUBoundを使うのかも

まあしかし、その処理ほんとに配列でやるのが良いのか検討したほうが良いんだが
VBAコレクション系弱いからなぁ

2020/10/05(月) 15:05:07.42

検索すればすむのにね

2020/10/05(月) 17:50:38.43

>>481
>>483
ありがとうございました。

2020/10/05(月) 17:58:27.13

喧嘩腰だなあ
何しにきてんのさ

2020/10/05(月) 18:26:34.61

くれくれ君だからしょうがないだろ

2020/10/05(月) 19:48:49.79

>>484
F1キー押す方が早くね？

2020/10/05(月) 19:51:04.71

>>488
押すだけならワンキーだけど、オンラインヘルプはそこからが長い

2020/10/06(火) 10:31:57.17

大人の対応でうまく誘導してやろうぜ

2020/10/07(水) 19:45:01.41

下記のように特定の文字を削除して、改行をやめて1行文にしたいのですがコードのご教示いただけないでしょうか

やんやんつけ棒§
めちゃ美味い

ポテトチップス§
めちゃ美味い

↓

やんやんつけ棒めちゃ美味い

ポテトチップスめちゃ美味い

2020/10/07(水) 20:04:32.74

まともなテキストエディタ(VSCodeとかサクラエディタとか)で開いて正規表現置換で§¥r¥を空に置換すればよい

2020/10/07(水) 20:05:03.03

訂正
§¥r¥n

2020/10/07(水) 20:27:15.03

>>492
なるほど…めちゃ助かります。ありがとうございます。

2020/10/07(水) 21:05:04.00

もっと面白い質問しろよ

2020/10/07(水) 21:08:11.63

やんやんつけ棒って何？

2020/10/07(水) 21:08:37.26

申し訳ありません、もう一点

A1：私は実は理学部出身
A2：の元々は地質学者です
A3：
A4：こうした南鳥島で
A5：
A6：レアアースの濃集が
A7：起こる
A8：
A9：というのは
A10：
A11：特徴的な層準に
↓
A1：私は実は理学部出身
　　の元々は地質学者です
A2：こうした南鳥島で
A3：レアアースの濃集が
　　起こる
A4：というのは
A5：特徴的な層準に

下の行に文字列 → ２行の文章として、改行を入れてExcelの１マスにまとめる
下の行が空白 → 1行の文書なのでそのまま

これをなんとかVBAで自動化したいのですが記述を教示願えますでしょうか

面白くない質問ですみません…

2020/10/07(水) 21:11:26.09

>>497
その条件2つそのままコードに直していけるよ