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/12(木) 08:08:08.79

マクロダメな企業って何ゆえなんだろ

2017/10/12(木) 08:09:22.27

下手に素人が自動化してデータを触るとデータが消えるかもしれない！
きちんと目視で確認すること！

2017/10/12(木) 08:36:02.53

電卓で計算した結果を入力するのが正しい、と思い込んでる老害が幅を効かせてるんでしょ

2017/10/12(木) 11:01:32.26

いやいや、誰もマクロ禁止とは言ってないから

フリーソフトNGでもマクロ禁止と明言されてなければOKでは？と言っているだけかと
そして答えは>>617

2017/10/12(木) 12:22:01.01

マクロを使うのはずるいんだもん！

2017/10/12(木) 12:44:11.82

作るのはずるくない

2017/10/12(木) 12:56:55.18

フリーソフトを禁止している理由として
著作権とかライセンス関係の理由なのか
ウイルスとかセキュリティ関係の理由なのか
それ以外か
複合的な理由かによるんじゃね

会社で作ったのなら著作権は問題ないだろう
ウイルスは問題無いけどセキュリティホール的な問題がある場合もありうるかなぁ

2017/10/12(木) 15:03:41.75

ソースコードそのものは外部のものを導入しても構わない、という会社が大多数だろうから、オープンソースを探せばよい

2017/10/12(木) 15:46:25.11

うちのお客の社員用PCでは拡張子exeのファイルは起動できない
そしてインストール権限を認めてないのでインストーラーを起動できない
この辺が必要な場合は上司を介して情報システム部に許可をとる必要がある

まぁOfficeと社内用ツール以外は使うなよって感じ
ちなみにVBAには特に制限とかかかってない様子

2017/10/12(木) 17:41:48.83

CSVの行頭と,の後に'を挿入してから開いたらいいのでは？
文字列化して良ければの話だけど

2017/10/12(木) 18:04:04.30

>>628
オープンソースでもライセンスはいろいろ

オープンソースなら商用利用も可能とは言い切れない

2017/10/12(木) 18:23:12.96

C++で自作したフリーソフトなら入れていいのか？
エクセルマクロで実行ファイルを書き換えるのはありなのか？

2017/10/12(木) 18:38:31.99

はいはい、おやつは３００円までね
バナナはお弁当箱に入っていたらお昼ご飯だけど
別に持ってたらおやつとみなすわよ

2017/10/12(木) 19:09:55.75

>>632
会社で作ったのなら言語に依らずフリーソフトにはならないんじゃね？

自宅とかで作ったのなら従業員かどうか関係なく一般のソフトと同じ扱いだと思う

実行ファイルを書き換えた結果
会社に損害を与えたら懲戒処分とか損害賠償とかの可能性もあるんじゃね？
悪意の程度とかいろいろ関係しそう

2017/10/12(木) 19:29:54.79

>>634
マクロでデータ書き換えるのがありで実行ファイル書き換えるのが駄目？
ｃｓｖだって帳簿の金額なら損害与えることもできるよ

2017/10/12(木) 19:52:02.88

そういう時に必要な要件は、責任の所在を明確に出来るかどうか
マクロでトラブルが起きると、作ったやつが悪いか使ったやつが悪いか、みたいな面倒な話になって、ヘタすると業務が止まって
マクロで得られた時間の短縮という恩恵以上の損失が出る可能性があるというか、禁止してる所は過去に苦い経験が
あることがほとんど

例外を認めるのもこれまた面倒だから一律禁止にしてる所も多い
会社がある程度の規模になると、本当に小回りがきかなくなるんだよ
Windowsの壁紙の変更すら認められない、みたいな職場も見てきたから

2017/10/12(木) 20:37:36.71

>>635
実行ファイルを書き換えてはダメとは書いてないんだが
結果とか必要性とかいろいろ関係しそうと言う意味

別の手段で実現できることをわざわざその手段を使う必要があるかとか、結果の程度とか

会社に損害を与えたら懲戒処分になる可能性があるのはどんな業務でも同じ

2017/10/12(木) 21:03:23.99

ウィルスも簡単に作れるけどね。
昔、客に納めた文書が誤検出されたことがあって、問題になりかけた。

今ならあんなマクロは納めないな。

2017/10/12(木) 21:09:46.58

そもそも、VBA込みの仕事が殆どじゃないの?
フリーソフトは許可が必要だろうけどVBAについては最初から込みの話であって、駄目なら最初からそういう指示がある筈だ。

フリーソフトは駄目だからVBAで同じ機能を実現すれば良い。
どうしても必要だけどVBAで作るのが難しいなら上司を説得するか有料のソフト買って貰うしかない。

2017/10/12(木) 21:24:11.45

HTMLやjavascriptをメモ帳で組むのは辛いからテキストエディターぐらい入れさせてほしいわねえ
ブラクラならHTAで簡単に作れるんじゃね

2017/10/13(金) 01:03:16.23

VBAでテトリスとかロックマンが作れるなんで知らなかったわ
というか感動した。

それを実装するのに特別な環境が必要だと思ってたけど、VBAだけで実現できるところがすごい

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

白雪姫？