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/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

列の転記開始。

2017/10/23(月) 19:29:34.06

自分で勝手に名前を定義すんのやめれ。
それはシートじゃなくブックだろ

file = Dir(path & "○○(○*.xls")
で○○(○が先頭にあるファイル（この場合はブック）が取り出せるだろ？
ワイルドカードの意味判ってる？

2017/10/23(月) 19:32:17.16

確かにブックのことをシートと呼ぶ人は結構いるイメージ

2017/10/23(月) 19:36:45.84

>>741
シート名が判っているなら
for each で探さなくても
set ws = Thisworkbook.worksheets(シート名)
でいい

2017/10/23(月) 22:12:49.61

>>712
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200602/06020015.txt

他にもReadDirectoryChangesWを使った外人のサンプルは動いた。
けど、スレッド作ってるから危険なコードだね。
分かってる人が使う分には良いのかも知れないけどスレッド作らない方法を模索した方が良いんじゃないかなあ。

**デフォルトの名無しさん** (ｽﾌｯ Sd9a-w7AN) · 2017/10/23(月) 22:32:40.42

>>712
dirの結果をリダイレクトしてファイルに書き出し
またdirして前回の結果とfcする
繰り返し

2017/10/24(火) 03:37:52.60

そのフォルダを、watch・見張る事は、できないのか？

そのフォルダに変化が起きたら、知らせる機能

2017/10/24(火) 03:59:56.10

>>747
個人のPCならフリーソフトでも探した方が早いと思う

2017/10/24(火) 07:51:07.93

>>741
なんか要件とソースが違くない？

Findとかkwdは何してるの？

2017/10/24(火) 07:56:53.59

>>748
早いか遅いかじゃなくて、VBAでやる方法が知りたいんだろ

2017/10/24(火) 07:57:40.89

>>747
タスクスケジューラで定期的に調べるコードを動かす

2017/10/24(火) 08:03:29.43

>>747
恐らく無理じゃね
あったら知りたい

2017/10/24(火) 08:05:07.52

>>712は条件が不明すぎる上、質問者はいなくなってしまった
これ以上続けてもしょうがない

2017/10/24(火) 08:51:30.78

アンケート入力してもらった内容を別シートのA1セルから下に書き込んでいく仕様です。そして、それが共有ファイルだとします。
共有の場合、同時にA1セルに書き込む可能性があります。
既に書き込みされていた場合、一つ下のセルに書き込むようにしてエラーを回避したいです。
どうしたら良いでしょうか

2017/10/24(火) 10:17:55.24

>>754
共有をやめる
vbaでやれるなら共有にする意味を全く感じない

2017/10/24(火) 12:00:22.20

VBAのオートフィルタの構文について
構文例以下のコードになっているのですが、課題としては文字列の抽出で
オートフィルターを使用して、「商品名」が「パソコン（ノート）」のデータを抽出するコードを記述しなさい。
となっているのですが記述方法がわかりません。
教えてください。
C3からが商品名のオートフィルタになっています。
Dim TargetCompany As String
Dim StartDay AS Date
Dim EndDay AS Date

TargetCompany = "○○株式会社"
Starday = #10/1/2014#
Endday = #10/31/2014#

With ThisWorkbook.Worksheets("受注データ")
　　　.Range("B9").AutoFilter Field:=1,Criterial:">=" & Clng(StartDay)_
,Operator:=xlAnd,Criteria2:="<=" & Lng(EndDay)
.Range("B9".)AutoFilter Field:=2, Criteria1:=TargetCompany
End With

2017/10/24(火) 12:21:39.09

>>754
webアプリにする

2017/10/24(火) 12:26:01.19

>>754
データを格納するファイルと
そのデータを管理するファイルに分ける

データを管理するファイルでVBAを動かし
データを更新するときは更新中か否か判別する値を持つ

DBとDBMSのような関係

2017/10/24(火) 12:29:03.80

>>756
マクロの記録でオートフィルタの記録をとって見比べる

2017/10/24(火) 12:44:07.31

>>752
>>718
VBA でやるにはハードル高いかも

2017/10/24(火) 13:12:35.37

>>760
C♯とかだとイベント検知できたような気がするけど

2017/10/24(火) 14:18:38.15

c#とか使わなくてもvbsでフォルダ監視するファイル作って実行させとけばいけるんじゃない？
c#かvb.net使っていいならFileSystemWatcher使えば希望通りのことが出来ると思います。

2017/10/24(火) 15:13:31.99

>>762
できるかできないか、じゃなくて、
やり方を具体的に頼む

2017/10/24(火) 15:15:31.49

>>741
いや、だから既にVBAでも出来てるし。
ハードル高いかどうかは組む人のスキル次第でしょ。

2017/10/24(火) 15:50:11.86

>>763
今までのやり取りである程度推測できないならスキルが足りてないだけでしょ

2017/10/24(火) 16:08:30.01

フォルダをウォッチする機能を
Excelに持たせようとすること自体がセンス悪い

2017/10/24(火) 16:13:02.09

Book1　Sheetあ Sheetい Sheetう Sheetえ
Book1 の Sheetうの中にボタンを作って、そのボタンを押すとエクセルの任意のブックを参照して
参照したブックのSheet1の内容をすべてコピーして、Book1の SheetあのA1を起点に張り付けたいです。
ご教授お願いします

2017/10/24(火) 16:15:19.30

永久ループに適当にスリープ咬ませて、シートに列挙したファイル名と付き合わせるくらいかな？
高速かどうかはわからないけど

2017/10/24(火) 16:22:17.63

>>767
任意のブックとは常に決まったブックなのか、
それともその都度変わるのか？
変わる場合は、どうやって指定するのか。

2017/10/24(火) 16:28:26.33

>>769
その都度変わります。
ですのでファイルを参照するウィンドウを開いて指定する方法ができると嬉しいです

2017/10/24(火) 17:46:03.13

それ自体は難しくないと思います。
あとは、コピー元のブックがあるフォルダが決まってるかとかで多少変わってくるかと。
例えば常にカレントフォルダにあるとか、コピー先のブックと同じとか。

2017/10/24(火) 20:30:24.34

>>761
そりゃC#使えるならSystem.IO.FileSystemWatcherクラスを使えばいい
でもここはVBAスレだし
https://msdn.microsoft.com/ja-jp/library/system.io.filesystemwatcher(v=vs.110).aspx

2017/10/24(火) 21:16:13.10

>>763
vbs

myFLD1 = "C:\監視フォルダ"
myFLD2 = "C:\コピー先"
myLimit = 3 '3分間監視する

Msgbox "監視スタート"
myTime = DateAdd("n", myLimit, Now)
myMEM = ""
With CreateObject("Scripting.FileSystemObject")
For Each myF In .GetFolder(myFLD1).Files
If InStr(1, myMEM, myF.Name & vbTab) = 0 Then
myMEM = myMEM & myF.Name & vbTab
End If
Next
Do
For Each myF In .GetFolder(myFLD1).Files
If InStr(1, myMEM, myF.Name & vbTab) = 0 Then
myMEM = myMEM & myF.Name & vbTab
.CopyFile myF.Path, myFLD2 & "\"
End If
Next
WScript.Sleep 500
If myTime < Now Then Exit Do
Loop
End With
Msgbox "END"

2017/10/24(火) 21:20:32.78

>>763
vbsのサンプルなんでコピー処理を自分のやりたい処理に変えてみて下さい。
c#かvbなら上の人がリンク貼ってある先みるといいですよ

2017/10/24(火) 23:00:43.39

タスクランナーのGulp, Grunt, Jenkins とかを使えば？

毎秒フォルダ・ファイルを、watch して、タスクを実行する。
タスクでエラーが起きると、watchを解除する

タスクランナー → アプリ

自分でプログラミングすると、逆になる。
アプリ → タスク

エラー処理も、難しい

2017/10/24(火) 23:04:46.31

タスクスケジューラでいいように思うけど

2017/10/25(水) 02:23:47.05

さっさと諦めればいいのに

2017/10/25(水) 02:31:56.07

盛り上がってるんだから、話題に入れないお前が諦めりゃいいんだよ