Excel VBA 質問スレ Part50 [無断転載禁止]©2ch.net

2017/08/27(日) 12:40:17.57

!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

※前スレ
Excel VBA 質問スレ Part49©2ch.net
http://mevius.2ch.net/test/read.cgi/tech/1498410914/

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

2017/10/13(金) 08:26:56.51

exeを起動できないPCって何ができるの？

2017/10/13(金) 08:51:28.87

>>642
コピペ

2017/10/13(金) 09:01:14.80

最大限好意的に解釈すれば、exeを直接起動するのは禁止って意味ではあるまいか
Excelを起動したい時はxlsファイルをダブルクリックするしかない、みたいな

2017/10/13(金) 10:43:30.84

>>643
つまりネット上のサンプルプログラムのコピペはOK、と

**デフォルトの名無しさん** (ｽﾌｯ Sd33-AvbY) · 2017/10/13(金) 11:27:19.75

ガチガチの環境だとネットも許可されたURLしかアクセスできないんだよな

2017/10/13(金) 11:44:54.65

開発環境の話かな？
通常のオフィス環境で特定サイトのみOKてことないよね
NGなサイトがあるのはわかるけど。

2017/10/13(金) 12:13:04.97

本来は未認可のプログラム関連全面禁止のところVBAが抜け道的に使われているだけって場合が多いだろうから、
他のプログラムを使ってはならないのは何故かっていう疑問に合理的な回答は無いだろうなぁ。

2017/10/13(金) 12:26:29.21

>>648
オフィスが許可されてるならvbaも許可されてるんじゃないの？

未許可プログラム禁止の理由はライセンスとかセキュリティとかが主な理由だと思うけど
ほかに何かある？

2017/10/13(金) 12:48:20.61

俺の知ってる会社でネット完全遮断のとこあるよ
とあるジャンルで世界トップのメーカーだからセキュリティがめっちゃ厳しい
建物に入る前に所持品チェックがあるしスマホやケータイは持ち込み禁止

ネット上のデータや情報が欲しい時は専門の部署に内容やURLを連絡して結果を知らせてもらうシステム
すごく効率が悪いと思うけど、それぐらいしないと機密が守れないそうだ

2017/10/13(金) 12:49:48.49

>>649
VBAはオフィス製品を拡張するのが本来の役割だから、その範囲なら認可されていると言える。

表計算ソフトで（標準的に備わっていない）データベース処理させたり、データベースソフトで波形分析させたりといった、
そういう用途は厳密にはアウトなはずなんだけどVBA使う人間のほとんどがそういう本来用途から逸脱した使い方をするので、
この辺りの線引きが他のプログラムと曖昧になるから混乱するのではないだろうか。

2017/10/13(金) 12:57:07.42

>>651
VBAを使う人の殆どがって
何か調査結果とかあるの？

2017/10/13(金) 13:05:46.99

>>652
本来用途的な使い方をする場合はVBA利用する必要が無いくらいには機能が揃ってるっていうのと、
このスレで他のプログラムが使えない事に対する明確な回答が出ない辺りからの推測だけど。

だいたいこのスレでも「お前が詳しいのはVBAであってエクセルではない」という戒めの言葉がたまに出るくらいだし。

2017/10/13(金) 14:31:58.61

このスレでもIE操作とか何故にVBA？ってのがあるしね

2017/10/13(金) 15:27:59.93

本来用途?
随分おかしなこというんだな。
何をやろうがそれが本来用途だろ。

アウトかどうかなんて結局は責任の問題だ。
セル操作でさえ会社に損害を与えることができるし、嫌だったらVBAを使うの辞めろ。

フリーソフトが問題なのは責任を問えないからだ。
VBAで問題が起きた時に、作った奴や部署が責任を取ることになるのはどんなVBAでも同じこと。
だから良く知りもせずに結果だけをコピペする奴は迷惑なんだ。
仕組みを理解すれば何をやっててもセルの操作と同じだ。
部署として作った奴を信用するかしないかの問題。
或いは部署として危険なコードか安全なコードかと判断できるかどうか。

2017/10/13(金) 15:39:50.72

>>654
おれもVBAでIE操作してクロールとかやってるけど、
趣味程度にプログラムをやってるだけなのでプログラム環境がVBAだけなんだよね
あと、取ってきたデータをそのままExcelに入れ、フィルタやソートを使ってデータ編集できる点も便利だよ

2017/10/13(金) 16:39:03.02

>>655
そうだよそうだよその通りだよ
フリーソフトやオプソは利用者責任として割り切る（／割り切らせる）しかない

2017/10/13(金) 16:53:46.60

ExelVBAで、テキストファイルの書き出しをスレッドで行いたいですが、どうにかすれば
可能なものでしょうか？
Yes/Noだけでもいいので教えてください。

2017/10/13(金) 17:41:44.34

Yes

2017/10/13(金) 17:44:35.45

>>659
Vielen Dank!!

2017/10/13(金) 17:47:28.70

VBAにスレッドを扱う機能そのものはないけどな

**デフォルトの名無しさん** (JP 0Hd3-cm6R) · 2017/10/13(金) 18:25:28.31

mainThreadだと思えば腹もたたぬわ！

2017/10/13(金) 18:58:06.78

>>654
ブラウザ操作だとどの言語が適してるんかね

2017/10/13(金) 19:23:32.28

ブラウザからデータを取ってきた後の処理がエクセルだと簡単だからVBA使うんじゃね

またはその逆

2017/10/13(金) 19:27:32.12

なんてわざわざブラウザ操作を挟むのかねえ

2017/10/13(金) 20:04:09.22

>>665
動的コンテンツとかもあるからとかかな

2017/10/13(金) 20:05:44.35

ブラウザからデータ抜き出すには何が一番適してるん？

2017/10/13(金) 20:11:42.14

>>667
適してるってどんな基準で比較するのかによるんじゃね

どれもDOM操作するとかだろうから大して変わらない
自分の得意な言語でやればいいと思う

2017/10/13(金) 20:24:56.96

>>665
ネット上に落ちてるデータの集計とか？
テーブルで組んであるようなのならエクセルに落とすのも楽だし

2017/10/13(金) 20:50:35.51

>>665
htnmという概念を知らないのかもしれない

2017/10/14(土) 01:01:33.45

>>667
インターネットエクスプローラーってやつ

2017/10/14(土) 15:22:42.26

>>661
スレッドを扱うことはできる。
不安定ですぐ落ちるだけ。
セルを触った途端に落ちると記憶している。
気をつければそこそこ安定してできることもあると思ってる。
Msgboxのボタンを押すようなことなら落ちないと思うけどプロセスでも同じことはできるからメリットを感じない。

>>667
InternetExplorer.Applicationは遅いと思う。
MSXML2.XMLhttpとかhtmlfileの方が速い。
ただし情報取得以外にクリックするとか操作するならInternetExplorer.Applicationを使うことになるかな。
Seleniumとか外部のオブジェクトは使わないんだよね。

2017/10/14(土) 16:29:13.95

>>672
selenium使うならvbaは選択しないと思う

データ処理し易いからエクセル→VBA
クリックしたり操作しながら動的データを取るからブラウザ操作

python sqliteとか使う手もあるけど
実現したい事はどの手段でも実現できる

2017/10/14(土) 21:22:12.43

ちょっと教えてください。ワークブックに含まれているマクロを起動時に実行する時
ThisWorkbookのWorkbook_Open()
あるいは標準モジュールでもauto_open
のどちらでも出来るような気がするんですけど、全く同じと考えていい？それとも何か違いがあるの？

2017/10/14(土) 21:23:25.61

>>674
知らなかった
http://excel-ubara.com/excelvba4/EXCEL239.html

2017/10/14(土) 21:30:06.90

auto_open知らんかったわ

2017/10/14(土) 21:30:35.09

>>675
なるほど～。Workbook_Openに統一しておきます。
リンク先教えてくれてthxです

2017/10/15(日) 21:08:10.21

ユーザーフォームに線を書く場合ってラベルを弄くる他にないですか？折れ線を書きたいのですが。

2017/10/15(日) 21:40:02.13

図の挿入は？
グラフなら以下の方法もあるみたい
http://www.max.hi-ho.ne.jp/happy/YNxv9d92.html

APIとかで頑張れば折れ線ぐらいなら掛けるけど、めんどくさそう

2017/10/15(日) 21:42:05.94

測量系のサイトで測量した数値をExcelで図化するような
ものがあるはず　そんなキーワードでググってみ
ものすんごいことしてるから　CADかよ　みたいな

2017/10/15(日) 22:13:27.13

>>678
デバイスコンテキスト弄る経験有るならめんどくさいけど色々できる。
LineToとか。
Win32APIに慣れてない人にはお勧めはしない。

2017/10/15(日) 22:24:31.38

書く線はこの程度のようなもので、表示して数値変更出来て、数値の合計算出するだけなんだけど
https://i.imgur.com/NxhLNnG.jpg

2017/10/15(日) 22:33:23.70

>>682
折れ線は固定じゃないんだよね？

2017/10/15(日) 22:41:19.36

EXCEL方眼紙に罫線で良い気がする

2017/10/15(日) 22:44:27.97

>>684
同意、フォームは使わない方が良いと思う
「この程度」と言ってるけどかなりめんどくさい作業

2017/10/15(日) 23:01:22.46

>>683
折れ線は固定です。

2017/10/15(日) 23:29:49.75

>>686
固定なら画像はって上にラベルでええやん

2017/10/17(火) 18:54:28.25

APIでフォームに線を書くまで行けました。
フォームに形状入力してFINDで検索して該当した行を右に空になるまで線を書き続けるコードにしました。
最初の一桁の数字は方向。4が左、6
が右という風に指示してます。

開始原点指定して、
線をLINETOで書いてて書いたらその近くにテキストボックスをADDで追加したいんですが、LINETOで指定した原点位置とテキストボックスのトップ、レフトで指定した位置がちょっとズレるのはなんかあるんですか？

https://i.imgur.com/FVhURv8.jpg

2017/10/17(火) 20:25:29.97

秒単位で記録されてる１日分で数万件の動作ログから、時系列かつ動作種類別の棒グラフ的な物を作りたいんだけど、、、
仮に横棒にするとして一時間単位に別ても3600セルも必要になるわけだけど、こういうのってどうするのが良いの？

2017/10/17(火) 21:06:12.48

>>689
ピボット

2017/10/17(火) 21:13:49.91

>>689
どう？
作ればいいでしょ

2017/10/18(水) 09:24:47.13

>>689
あきらめる

2017/10/18(水) 11:50:45.99

>>689
結論:無理。

次の人どうぞ～

2017/10/18(水) 12:13:09.98

横棒グラフ的じゃなくて横棒グラフそのものを作りゃいい
何故セルをグラフとして使うのかの理由が判らんと何ともいえないが
毎秒すべてのデータが必ず必要とも思えんが、間隔変えれば概略にできるし
特異点を知りたいとかなら数値を基準に求めるものだろうし、その部分の
前後をピックアップして表示するようにして　なるべく判りやすいものに
するのがグラフ化の目的なんでは

2017/10/18(水) 13:44:45.35

データ吐き出して普通にグラフ作ればいいんじゃないの
何に悩んでるのかよくわからん

2017/10/18(水) 14:36:19.68

>>688
試して無いから何とも言えんが、クライアント領域関連か、座標系の違いかな。
GetClientRectとかTwipsPerPixelでググってみる。違ったらごめん。

>>689
説明が分かりにくい。
3600のセルにデータが取れてるならそれを指定すれば良いということになる。
多分、3600セルという多量のデータだから適当な所で折り返してて1時間の00:00秒から59:59秒の流れを持ったまとまりとして認識させることが出来ないとかかな。
良く分からんが各秒の値でプロットする訳じゃ無いわけだし、平均とか取るもんじゃないの?

2017/10/19(木) 21:49:18.11

ビットコインの公開APIから値段を取る方法ってありませんかね
パワークエリ使ってたんですがプロトコル障害で使えなくなってしまい....

2017/10/20(金) 07:03:05.09

フォルダ内にあるファイルのすべてを対象に、
ファイル名の最後を「_ou.mp4」に変更するマクロを作ってください。お願いします。

例）〇〇.mp4　→　〇〇_ou.mp4

2017/10/20(金) 07:06:51.11

【追加】
ただし、すでに「_ou.mp4」に変更されたファイルは、何もしないこと。

悪い例）〇〇_ou.mp4　→　〇〇_ou_ou.mp4　　こうならないように。

2017/10/20(金) 07:36:34.81

>>697
公開APIのプロトコル障害なら公開APIでは取れないって事じゃないの？

2017/10/20(金) 07:37:08.93

>>698
ココナラで買え

2017/10/20(金) 07:43:57.15

>>698
作ってみたら五分くらいで出来たわ。

2017/10/20(金) 08:52:14.89

その程度は自分で調べようよ

2017/10/20(金) 09:16:48.80

ls | Where-Object { $_ -like "*.mp4" -and $_ -notlike "*_ou.mp4" } | Rename-Item -WhatIf -NewName { $_ -replace '\.mp4$','_ou.mp4' }

PowerShell で書いたので、そのフォルダへ移動してから実行して。
-WhatIf が付いているので、本当には実行せずに、結果だけを見れる。
本当に実行する際は、-WhatIf を削除して実行して

-like は一致するもので、-notlike は一致しないもの。
正規表現の \.mp4$ で、. に \ を付けているのは、
. の特殊な意味をなくして、普通の文字として扱うため(エスケープ)

x.mp4 → x_ou.mp4

ただし、x.mp4, x_ou.mp4 が、同じフォルダ内にある場合は、
変換できずにエラーになるかも

2017/10/20(金) 12:21:32.47

パワーシェル面倒くさｗ

2017/10/20(金) 12:35:46.95

>>704
正規表現使えるんだからWhere-Objectいらんでしょ

2017/10/20(金) 12:50:10.77

>>705
他の言語でもっと短く書けるぜ
ってか？

2017/10/20(金) 13:06:50.73

>>699
filesystemobjectのインスタンス取得
フォルダ取得
フォルダ内のファイルを精査
mp4のみ抽出
拡張子取得
拡張子を除いて指定の文字列を追加した文字列を取得
ファイル名変更

これでわかれ

2017/10/20(金) 22:34:12.97

dir関数とNameステートメントでループが一番簡単じゃね?
サブフォルダ考えなくて良いんだしさ。

2017/10/21(土) 00:29:32.54

explorerのアドレス欄にcmd入れて
ren *.mp4 *_ou.mp4
とかじゃなかったっけ

2017/10/21(土) 01:08:37.57

制約があったか　じゃ3行で
ren *_ou.mp4 *._oump4
ren *.mp4 *_ou.mp4
ren *._oump4 *_ou.mp4

2017/10/21(土) 14:00:51.60

質問失礼します
あるフォルダ内に数千件のファイルが格納されていて、そのフォルダに新規ファイルが入ってきたときにそのファイルを抽出(ファイル名を取得)したいのですが一番高速に処理を行うにはどうしたらいいでしょうか

2017/10/21(土) 14:26:45.14

ある範囲からある範囲を引くメソッドとかあります？

2017/10/21(土) 14:28:29.39

何を引くのか

2017/10/21(土) 14:42:36.65

>>712
「新規ファイルが入ってきた時」という条件がハッキリしないけど、
いずれにせよ最終的に全て取得して比較する方法しかないと思う。

2017/10/21(土) 15:42:56.99

>>713
ある

2017/10/21(土) 16:05:57.28

>>712
高速がどうとかよりまず新規にファイルが入ってきたことをどう検知するつもりなんだ

2017/10/21(土) 16:31:14.14

>>712
使ったことないけどこの辺を見ればいいんじゃね？
https://msdn.microsoft.com/ja-jp/library/windows/desktop/aa365261(v=vs.85).aspx

2017/10/21(土) 16:34:56.72

>>716
えっ、あるの？
IntersectやUnion使って自作してたわ

2017/10/21(土) 16:44:02.49

範囲指定同士をハイホンで繋ぐだけでしょ？違うの？

2017/10/21(土) 16:56:56.02

白雪姫？

2017/10/21(土) 17:09:30.41

ハイホーハイホー

2017/10/21(土) 19:08:51.19

>>712
基準となる時点のファイル名一覧をシートに記録しておく
比較時点のファイル名一覧を別のシートに記録する
vlookupとかで同じファイル名があるか調べる

2017/10/21(土) 19:18:24.44

>>716
是非教えてほしいです

2017/10/21(土) 20:25:27.79

>>712
業務で行き詰ったらまず上司に相談したら？

2017/10/21(土) 21:48:50.23

>>712
フォルダをモニタリングするツールが色々とあるからそれ使うといいよ
たいていファイルシステムイベントで処理してるから
自分で比較するのに比べれば数桁高速だと思う

2017/10/21(土) 22:03:01.22

>>720
それよく分からないから教えて。

例えば
Set minuend = Union(Range("C3", "D5"), Range("D4", "E6"))
Set subtrahend = Range("A2", "A4").EntireRow
Set expected = Union(Range("C5", "D5"), Range("D5", "E6"))
の場合に
minuend - subtrahend = expected になるようにしたいんだけど

2017/10/21(土) 22:42:22.44

>>726
またまたソフトのインストールが制限されて～なんて言い出す悪寒

2017/10/21(土) 23:00:04.56

勝手にインストールできないなら許可貰えば済む話なのにな
業務上必要なら許可降りるだろ

2017/10/22(日) 00:01:17.12

「前の担当者は手作業でこなしていました。あなたにもできるでしょ？電卓は許可します」

2017/10/22(日) 00:24:23.73

それ作って給料もらっているんだったら自力でやれば？

2017/10/22(日) 01:10:16.60

それ作って給料もらってる人がこの板にいるわけない。
せいぜいマ板がいいところ。

2017/10/22(日) 01:15:09.08

>>712
ロバストコピーでフォルダのコピー
その際に何を新たにコピーしたのかをログに書き出すオプションを設定しておく
そのログを読みこんで後はお好きに処理
勝手に上書きされたり、勝手に消されてもバックアップ取れてて一石二鳥

2017/10/22(日) 02:50:21.11

>>733
要件次第だけどrobocopyでも十分かもね
フォルダ監視オプション使えば細かいタイミングもコントロールできるし

2017/10/22(日) 09:58:34.69

vbaでやるよりはタスク組んでバッチ的に処理する案件の予感

2017/10/22(日) 10:06:24.11

日記

今まで動いてたマクロがエラーで止まった
テキストファイルの内容を調べてリネームするだけの簡単な物なのに、調べたらファイル名にユニコードが入ってた
10年ぐらい前に作った物なので、今さら対応するのめんどくさいなあ。これも時代か

どうせ台風でヒマだからちょっとやってみるか

2017/10/22(日) 18:49:27.12

台風なくてもヒマなくせに

2017/10/22(日) 19:16:04.56

>>737
自己紹介ですか加齢臭ジジイさん

2017/10/22(日) 20:08:28.86

>>738
加齢臭対策に消臭剤置いてるから平気

2017/10/22(日) 22:49:10.62

突然のヒマシジイvs加齢臭ジジイ対決ｗ

2017/10/23(月) 18:08:04.19

フォルダに複数のシートが入っていて、それぞれ○○.xls(○は名字)のファイルがあって、それの○○(○は名字)のシートのみを繰り返し検索、抽出を繰り返すにはどうしたらいいですか？

指定シートのみ繰り返し検索の仕方をご教授お願いします。

file = Dir(path & "*.xls")

Do While file <> ""

Set book = Workbooks.Open(path & file)

For Each sheet In book.Worksheets

Set f = sheet.Cells.Find(kwd,LookIn:=xlValues, lookat:=xlWhole)

If Not f Is Nothing Then

firstAddress = f.Address

rowtar=f.row

列の転記開始。