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/20(日) 23:22:55.87

>>365
Excel 4.0 マクロ

2020/09/20(日) 23:26:29.37

>>367
さんきゅー

2020/09/20(日) 23:28:59.95

>>358
crでセル内改行はしない

2020/09/20(日) 23:29:16.08

フレームワークどうするよ

2020/09/20(日) 23:30:38.40

そもそもVBAが古いMS-BASICの言語仕様をほとんどそのまま踏襲してるもんだからオブジェクト指向との親和性はあんまり高くない
まだVB.netの方が色々やりやすい

2020/09/20(日) 23:38:32.30

>>369
セルをアクティブにするとCRでも改行するらしいよ
自分はそういうよくわからない挙動に振り回されたく無いから変換するよ

2020/09/20(日) 23:40:59.31

>>372
らしいよ

2020/09/20(日) 23:44:11.30

LFとCRLFが混在するのは確かめたよ
なので片方に寄せてる
CRも混ざる可能性はあるのでついでに処理してるよ

**デフォルトの名無しさん** (JP 0Hdf-iZ3/) · 2020/09/20(日) 23:47:19.77

>>366
なるほどそうなんですね
別言語で勉強してみます

2020/09/20(日) 23:51:14.87

セル内で改行するとlfが入る
テキストファイルとかでcrlfで改行されたものをセルにコピペすればcrlfがそのまま貼り付けられるが、lf部分が改行されるだけでcrは無視される

2020/09/21(月) 23:04:27.19

もともとマック用のソフトウェアだから、改行コードが揃っていないんだ。

2020/09/22(火) 09:46:47.28

で、そのままの仕様で残すんだろ

2020/09/22(火) 09:47:44.43

変に直すと他で問題が起きるかもしれんし

2020/09/23(水) 18:03:19.32

今開いてるエクセル3つを左右で3分割させるマクロとかありますか？

2020/09/23(水) 18:23:33.24

表示→整列じゃだめなのか？

2020/09/23(水) 19:23:23.78

あるけど、マクロっていうかWindowsAPIで画面サイズ調整だろうな。
3画面用意する方が楽かも。

2020/09/23(水) 20:26:43.04

Windows.Arrange ArrangeStyle:=xlVertical

2020/09/23(水) 20:34:38.55

>>381
ありがとう
>>383
本当にありがとう

馬鹿すぎる質問して親切に教えてくれて本当に感謝
教えてくれたコードの方を頂きます
3画面揃ったときについでに分割させたら良い動きしてくれました

めちゃくちゃ後付けですみませんが
これを一番右でこいつは真ん中とか
任意の配置は流石に無理ですか？
出来そうなら自分でも何とか調べてみます

2020/09/23(水) 21:30:49.65

>>384
できる

2020/09/23(水) 22:06:19.89

こういう馬鹿の特徴は、少し教えるとつけあがって自分で考えることもせずあれもこれもとねだること
少しは頭を使えよ

2020/09/23(水) 22:26:51.67

特徴っていうかこれいつもの人

2020/09/25(金) 20:09:48.08

accdb　　 →　問題なく型指定出来る。
csv　　　　→　schema.iniで型指定出来る。
自シート　→　どうすんの? IMEX=1も利いたり効かなかったりで当てにならん。

2020/09/25(金) 21:07:06.86

そういう報告はいらないです

2020/09/25(金) 21:36:41.69

罫線の所属するセルについて質問です

セルの値を条件にして罫線の種類を変えようと考えているのですが、
隣合うセルの境界線はどちらのセルの罫線が優先されて表示されるのでしょうか？
よろしくお願いします

2020/09/25(金) 22:18:01.90

>>390
実験して報告よろしく

2020/09/25(金) 22:34:46.55

後から指定した方だな。
思いっきり拡大すれば、線が2本引いてあるのが見えるのかと思ったが、そんなことはなかった。
ちなみに、ストIIで2人同時に投げ技をかけた場合、どちらが優先されるのかはランダムで50%/50%らしい。

2020/09/25(金) 23:34:29.90

>>390
これ、たしか罫線の種類で、基本ごっつい順に優先順位があったはず
ついでに、セルの書式設定で罫線設定すると、隣のセルの罫線設定も消えたり変わったりする

2020/09/26(土) 11:57:49.22

太いほうだった（Excelばーじょん2016）
https://i.imgur.com/kfSAyHL.png

印刷境界とかは分けて認識されてるから、なんだかんだ自分のコードを検証したほうがいいな

2020/09/26(土) 13:23:27.50

あ、宣言とかしときながらシート指定するん忘れてやがる

2020/09/26(土) 19:01:46.19

ﾜﾗﾀ

2020/09/26(土) 20:07:30.98

getElementBy飽きたんだけど、RPA的制御じゃなくて、htttp通信を駆使してどうにかする、みたいのない?
APIとか使えない古いシステムに対して。

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
修正

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