トップページ⇒tech
1002コメント374KB

Excel VBA 質問スレ Part45 [無断転載禁止]©5ch.io

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2017/01/03(火) 02:51:16.56ID:9Y8iTik6
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part44
http://echo.2ch.net/test/read.cgi/tech/1479421482/


※関連スレ
VBAなんでも質問スレ Part2
http://echo.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://echo.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 125
http://echo.2ch.net/test/read.cgi/bsoft/1481369538/
0214デフォルトの名無しさん2017/01/18(水) 22:08:43.87ID:uheDDMMj
>>212
もしかして↓このまま? 実際のXMLファイル名に修正してよね

XMLDoc.Load "D:\XML.txt" 'XMLファイルを読み込む
0215デフォルトの名無しさん2017/01/18(水) 22:12:35.06ID:P2ujaP/J
>>213
実際のXMLファイル名とそのパスにしています。
XML.txtの中身は以下の通りです。
<?xml version="1.0" encoding="UTF-8">
<examType first="zenki/shiken" second="koki/shiken" third="">
<Subject japanese="kokugo">
<Gendaibun min="50/100" max="85/100" />
<Kobun min="60/100" max="100/100" />
</Subject>
<Subject math="sugaku">
<IA min="30/100" max="80/100">
</IA>
</Subject>
</examType>
0216デフォルトの名無しさん2017/01/18(水) 22:29:42.43ID:uheDDMMj
>>215
XML読み込み失敗してるね

※XMLファイル修正(最後に?がない)
× <?xml version="1.0" encoding="UTF-8">
○ <?xml version="1.0" encoding="UTF-8"?>

※コード修正(読み込みエラーでたらMSGBOX)
XMLDoc.Load "D:\XML.txt" 'XMLファイルを読み込む
If XMLDoc.parseError.ErrorCode <> 0 Then
MsgBox XMLDoc.parseError.reason
Exit Sub
End If
0217デフォルトの名無しさん2017/01/18(水) 22:30:45.22ID:vXs3og/7
アドインのデータはどこに保存するのが標準的なの？
シートだと階層構造のデータを保存しにくいからxmlファイルにして保存したい
0218デフォルトの名無しさん2017/01/18(水) 22:41:40.88ID:P2ujaP/J
>>216
ありがとうございます。エラーはなくなりました。
ただ1つ問題が・・・
math,sugakuを読み込んでいない。8行目と9行目の間に入れたいのですが。

実行画面結果は以下のようになりました
http://www.dotup.org/uploda/www.dotup.org1128435.jpg
0219デフォルトの名無しさん2017/01/18(水) 22:50:58.80ID:uheDDMMj
>>218
'同じ名前の子ノードを 最初の一つに集約
で集約してるからそうなるが(その下は移動してる)

前からの　レスで集約するって言ってたんじゃない?

'同じ名前の子ノードを 最初の一つに集約
の(FOR〜NEXT)部分ざっくり削除してみ
0220デフォルトの名無しさん2017/01/18(水) 23:09:44.67ID:P2ujaP/J
>>219
あー、申し訳ない。
7行目のSubjectの下に、japaneseとmathをまとめて出力するという意味で使ってしまっていました。
0221デフォルトの名無しさん2017/01/18(水) 23:20:05.28ID:P2ujaP/J
まとめて＝8行目にjapanese,9行目にmath
という意味です
0222デフォルトの名無しさん2017/01/19(木) 00:09:17.23ID:wXKnExNu
>>221
こゆう事かな?(同じパラメータは　最後のに置き換えられるよ)
下をそっくり入れ替えて

　'同じ名前の子ノードを 最初の一つに集約
　For Each Node1 In Node.ChildNodes
　　Do
　　　　　Set NodeList = Node1.ParentNode.SelectNodes(Node1.nodeName)
　　　　　If NodeList.Length = 1 Then Exit Do
　　　　　For Each Node2 In NodeList(1).ChildNodes
　　　　　　　NodeList(0).appendChild Node2
　　　　　Next
　　　　　'パラメータコピー
　　　　　For Each NodeAttr In NodeList(1).Attributes
　　　　　　NodeList(0).Attributes.setNamedItem NodeAttr.CloneNode(True)
　　　　　Next
　　　　　Node1.ParentNode.RemoveChild NodeList(1)
　　Loop
　Next
0223デフォルトの名無しさん2017/01/19(木) 00:38:26.41ID:qjpOvOJu
ここまで来ると、もうわけがわからんな。
プログラムでプログラム文を自動生成します、みたいな話だろ?
0224デフォルトの名無しさん2017/01/19(木) 05:02:36.80ID:WDgxZeys
何かの言語には、自動的に、traverse する関数があるはず。
または既に、外人が作って、Gitにあるはず。
日本のサイトで探しても、見つからない

それに、深さ優先探索か幅優先探索を指定する

Pythonのwalkは、あるディレクトリ以下の階層を渡り歩く。
つまり、それのXML版だろ

ディレクトリもXMLも、Tree だから、基本的には同じ
0225デフォルトの名無しさん2017/01/19(木) 06:58:46.51ID:JadLiFtg
>>217
> シートだと階層構造のデータを保存しにくいからxmlファイルにして保存したい
XML 文字列ををセルとかブックのプロパティとかに入れときゃいいだけじゃないの？
0226デフォルトの名無しさん2017/01/19(木) 07:34:02.29ID:R0f6tJX+
>>>222
できたああああああああああああ
ありがとうございます！
罫線やノード名の一部を太字にするなど微修正は自分でできました。

皆様ありがとうございました。
0227デフォルトの名無しさん2017/01/19(木) 12:16:13.59ID:SpG+j8gZ
　　　A　　B
1　山田　10:50
2　山田　11:50
3　山田　4:50

山田の時間（B列）を1行目から順番に変数（a）に代入して合計を計算して、
Application.Floor(a + TimeValue("0:30"), TimeValue("1:00"))で
30分繰り上げ（例えば1:30の場合2:00に繰り上げ）しているのですが、
総計が24時間を超えると"1900/1/1  28:00"と日付が入り、表示形式がおかしくなってしまいます。
繰り上げのコードが間違っているのでしょうか？
0228デフォルトの名無しさん2017/01/19(木) 12:21:46.57ID:4RX8xFF/
>>227
[h]:mm
0229デフォルトの名無しさん2017/01/19(木) 12:47:27.51ID:ZXvOrtNX
>>228
解決しました
ありがとうございます
0230デフォルトの名無しさん2017/01/19(木) 15:08:53.45ID:SN1gevnS
初質問です！
エクセルにはブック共有状態で変更履歴記録機能があり、新しいシートに変更履歴一覧を作成できると思います。
そこで、VBAで変更期間「すべて」で「新しいシートに変更履歴一覧を作成」の操作をしたいのですが可能でしょうか？
大量のドキュメントの変更履歴を取りたいので、マクロ化したいのが目的です。
可能であればやり方を教えていただきたいです。よろしくお願い致します。
0231デフォルトの名無しさん2017/01/19(木) 15:37:44.80ID:irXhj7sG
>>230
とりあえずマクロの記録を試してみたら？
0232デフォルトの名無しさん2017/01/19(木) 15:50:51.90ID:9G0IwAcw
>>217
これは俺も知りたいc++だとxmlに書いてるのよく見るけどvbaはどうなんだ
0233デフォルトの名無しさん2017/01/19(木) 18:24:05.68ID:xZWyIIjd
Cell Property の .Valueと.Textでは取得のパフォーマンスに
大きな差があるようですがこんなものですか。
７万レコードのセル値取得に使ったのですが、前者は0.3秒ほど
後者は130秒かかりました。
上のほうのレスで .Textを見つけて喜んで使ってみたのですが、、
0234デフォルトの名無しさん2017/01/19(木) 20:17:42.34ID:irXhj7sG
>>233
Textの方は書式を評価しないといけないからそんなものじゃね？
0235デフォルトの名無しさん2017/01/19(木) 20:23:44.41ID:R0f6tJX+
･
0236デフォルトの名無しさん2017/01/19(木) 21:13:36.84ID:9zfnUwsN
>>234
なるほど
.Valueで取得してから書式あてた方が無難ですね
0237デフォルトの名無しさん2017/01/19(木) 23:40:16.64ID:qjpOvOJu
マジか!!
Valueで取得しようとすると、
#N/Aでコケるから、ずっとText使ってたわ!

ん?
でも0.3秒と130秒って違い過ぎじゃないか?
0.3秒なんて、For Nextじゃ取れないと思うが。
a=Range("A1:A70000").Valueとかじゃないと。
0238デフォルトの名無しさん2017/01/20(金) 04:41:52.83ID:9/J9Uge2
>>237
そう言われると、、あらためて追試。
試したコードはこんな感じ。

Cells(1, 1).Resize(70000, 1).Select

　　'------------------------------
st = Timer
For Each r In Selection
var = r.Value
Next
ed = Timer
Debug.Print "by .Value", ed - st; "[Sec]"

　　'------------------------------
st = Timer
For Each r In Selection
var = r.Text
Next
ed = Timer
Debug.Print "by .Text", ed - st; "[Sec]"

セルには[1-70000]のシーケンシャルな数値を格納
これの書式なしと書式あり"[h]:mm"を試しました。
（続く）
0239デフォルトの名無しさん2017/01/20(金) 04:43:33.99ID:9/J9Uge2
>>237

（続き）

結果、、
---------------------------------------------
by .Value 0.1855469 [Sec]
by .Text 1.241211 [Sec]
by .Value (Formatted) 0.1806641 [Sec]
by .Text (Formatted) 1.569336 [Sec]
---------------------------------------------

結果、差はあるものの、日中にテストしたものほど
は差がでませんでした。
日中のデータで再度試した結果です。
---------------------------------------------
by .Value (Formatted) 0.2011719 [Sec]
by .Text (Formatted) 99.20215 [Sec]
---------------------------------------------

他の要因もあるかもしれません。
実際のデータはOracleからSQLで引っ張ってきた
テーブルを.Unlistしたもので、70000行x130列ほど
の大きさ。これのV列あたりにある "hh:mm"書式が
当たっているというものです。
自動再計算はOffです。
0240デフォルトの名無しさん2017/01/20(金) 11:00:31.99ID:32Bwzd9P
VBA初歩的です。
シート1のA列で文字列の色を変えてその後A列に同じ文字列が書き込まれたら同じ色に変えたいんです。
そして出来たらシート2のA列の同じ文字列も同じ色にしたいんです。
誰かコード分かる方いますでしょうか？
0241デフォルトの名無しさん2017/01/20(金) 13:04:58.83ID:nnKMBoVD
>>240
スマホから書き込もうと思ったら案外大変で諦めた

A列の重複を排除したリストを作成(配列、コレクション等)
リストとA列を比較して色を指定
で行けるんだけど、何がわからんのか
文字列の種類は不定なのか固定なのか、色に指定はあるのかなど情報も少ない
0242デフォルトの名無しさん2017/01/20(金) 13:05:01.85ID:JXdqXSkU
初歩的？
自分でマクロの記録で調べろよ
0243デフォルトの名無しさん2017/01/20(金) 14:58:10.41ID:Nvso2zBq
質問じゃなくてタダで作ってくれって言ってるんやで
0244デフォルトの名無しさん2017/01/20(金) 16:54:43.86ID:bVBZQrA4
失礼します
学校でgoogle financeのapiを利用したのを作成しているのですが
A列の証券コードの羅列を読み取りURLに追加しJSONのティックデータを取得するところまでは
行けたのですが、どうやって個々にパースすればいいかわかりません、生データを取得するまでのコードは以下
Dim W As Worksheet: Set W = ActiveSheet
Dim i As Integer
Dim Last As Integer
Last = W.Range(
0245デフォルトの名無しさん2017/01/20(金) 16:59:50.09ID:bVBZQrA4
うまく書き込めなかったようです
取得したでーたは下のurlの通りです
https://finance.google.com/finance/info?client=ig&;q=TYO:1332,1515,1925,7203,8058,8766,8801,9501,1954,1973,2928,2172,7980,6656,9085,5998,4556,1381,1400,1382,1739,2173,2351,7464,1734,7958,1736,2425,6960,2121


とずっと続いています
これを個々にパースしてセルごとに振り分けたいのですが
個々にパースするにはどのようにすればいいかわかりません
誰か助けてください
0246デフォルトの名無しさん2017/01/20(金) 17:12:18.70ID:gQ8iElJX
>>244
"vba json パース"でググる
0247デフォルトの名無しさん2017/01/20(金) 18:21:41.59ID:FuK3VNeE
>>240
在日か？日本語不自由そうだな
0248デフォルトの名無しさん2017/01/20(金) 18:33:30.59ID:Zm/Pjw4E
すいません楽天rss使ってるのですが
vbaからセルに10銘柄程コードを入れても頻繁にすべてN/Aと出てしまうのです
接続が切れてるわけではなく、例えばexcelの上書き保存をクリックするとN/Aが
消えてすべて表示されるのです

vbaでは画面の更新は切ってないのですが原因は考えられますか?
0249デフォルトの名無しさん2017/01/20(金) 19:25:28.08ID:gGEm4cbB
VBAでWebAPI叩きたくなる気持ちが理解できない
PowerShellやC#やVB.NETじゃダメだったのか
0250デフォルトの名無しさん2017/01/20(金) 20:22:24.18ID:ymDflbNb
>>249
結果を Excel で処理したいんだろ
なら VBA が一番自然だわな
ただ言語としての機能がいまいちだから俺なら PowerShell で取得して Excel に書き込むかな
0251デフォルトの名無しさん2017/01/20(金) 20:58:17.11ID:mJKyjGCe
>>249
いや、いいんじゃないか？
ただスレチになるから
そういう話は.Netのスレでやればいいだけで
0252デフォルトの名無しさん2017/01/20(金) 21:08:26.20ID:MJq7L3EO
https://www.google.com/finance/getprices?p=1d&;f=d,h,o,l,c,v&i=300&x=INDEXNIKKEI&q=NI225
これ？
DATA_SESSIONS　はｊｓｏｎの配列表記っぽいけど、ﾃﾞｰﾀ部は単なるｶﾝﾏ区切りのような（他も改行区切りだしｊｓｏｎじゃないような）

．ＮＥＴもｊｓｏｎのﾊﾟｰｽにはＮｕＧｅｔが必要じゃなかったっけ（なんかＤＬＬが増えるのが嫌で自力ﾊﾟｰｽしたことある）
ＰｏｗｅｒＳｈｅｌｌはｊｓｏｎのﾊﾟｰｽもできるのか
0253デフォルトの名無しさん2017/01/20(金) 21:31:05.58ID:z3TtdYe7
>>249
えくせるしかないなら仕方ない
0254デフォルトの名無しさん2017/01/20(金) 22:33:30.45ID:vub4eIsV
>>249
それは本職プログラマーの発想だろうな。
事務職プログラマーは、VBAが一番いいの。
普段からエクセル使ってるから。
0255デフォルトの名無しさん2017/01/20(金) 22:47:39.08ID:RRdjAoJX
VBA使うなとは言わないけど
もうちょっとPSや.NETとの連携が楽になれば助かるね
0256デフォルトの名無しさん2017/01/20(金) 23:00:24.99ID:v0MXJAlx
VBA自体更新か新たな言語にしてほしいな
0257デフォルトの名無しさん2017/01/20(金) 23:58:46.82ID:0ryOpRhF
理想を言えば C# for Application にしてくれればとは思う
まあ VB.Net for Application でもいいけど
0258デフォルトの名無しさん2017/01/21(土) 00:17:22.31ID:O6MYDtgM
vbaが.netと楽しくできないのはmacのせいじゃね？
0259デフォルトの名無しさん2017/01/21(土) 00:37:57.62ID:7WDSmlh4
ExcelのVBAからOutlookのメール作成のツールを作っているのですが
送信先やCCやタイトルや本文は書くことができました。
しかし本文のある部分を好きな色にしたり好きなフォントにしたり好きなサイズにしたりハイパーリンクをつけたいんです。
そのためにはどうすればいいでしょうか？
0260デフォルトの名無しさん2017/01/21(土) 08:04:31.56ID:6NvQGvfC
>>244-245
2chのバグだろう

書き込み確認画面が出る際、" を使うと、そこで文字列の終了とみなされる。
" の代わりに、\" とエスケープすれば、どうだろう？

それか、書き込み確認画面が出たら、1度キャンセルすれば、確認画面は出ないようになった
0261デフォルトの名無しさん2017/01/21(土) 09:24:23.74ID:W/Qp5igc
>>244
↓のサイトを参考にして作ってみたら?
http://outofmem.tumblr.com/post/63355773212/vbavbaでjsonをパースする

ざっくり 作って見たけど　なんとかなりそうよ
学校の課題らしいからこの辺で
では
0262デフォルトの名無しさん2017/01/21(土) 10:17:45.16ID:W/zpHkC+
Jsonは構造がシンプルだからパーサー書くのも難しくない
学生なら勉強として書いてみる価値はある
0263デフォルトの名無しさん2017/01/21(土) 11:18:37.44ID:1cIKmUbZ
>>259
HTML でやるならここのサンプル
https://msdn.microsoft.com/ja-jp/library/office/ff869979.aspx

リッチテキストでやるならフォーマットを RTF に設定して RTFBody に設定すればいい
https://msdn.microsoft.com/ja-jp/library/office/ff867828.aspx
0264デフォルトの名無しさん2017/01/21(土) 11:23:47.66ID:7WDSmlh4
>>263
ありがとうザマス。
やってみるでガンス。
0265デフォルトの名無しさん2017/01/21(土) 11:27:24.97ID:7WDSmlh4
あとこれも頻繁に使う予定ですが
Outlookのカレンダー(おそらく型はolAppointmentItemでしょう)の本文でも
本文のある部分を好きな色にしたり好きなフォントにしたり好きなサイズにしたりハイパーリンクをつけるにはどうすればいいでしょう？
ちょっと調べるとBodyFormatプロパティやHTMLBodyプロパティはなさそうですが。
0266デフォルトの名無しさん2017/01/21(土) 11:44:27.71ID:1cIKmUbZ
>>265
HTMLBody はないけど RTFBody はあるよ
https://msdn.microsoft.com/ja-jp/library/office/ff861303.aspx
0267デフォルトの名無しさん2017/01/21(土) 12:01:08.22ID:7WDSmlh4
>>266
わたしのOffice2007のバージョンのOutlookにはRTFBodyプロパティは無いようなのですが。
http://www.dotup.org/uploda/www.dotup.org1130546.png

でもOffice2007でもカレンダーの本文のある部分に手動で装飾ができるのでマクロでもできるはずだと思います。
どうすればいいのでしょうか？
0268デフォルトの名無しさん2017/01/21(土) 13:22:18.60ID:JwMYXArD
どっちかというと．ＮＥＴがおかしいんだけどね
全部用意してやるからＡｃｔｉｖｅＸやＷｉｎ３２ＡＰＩを使うなと言わんばかりの不便さ
言語の内部にない機能を外から持ってくるからｵｰﾌﾟﾝ系と言うんだと思ってたけど
0269デフォルトの名無しさん2017/01/21(土) 13:57:11.70ID:1cIKmUbZ
>>267
う〜ん、ないなら無理っぽいかと
> でもOffice2007でもカレンダーの本文のある部分に手動で装飾ができるのでマクロでもできるはずだと思います。
アプリの機能の全てをマクロでサポートしてるとは限らんし...
0270デフォルトの名無しさん2017/01/22(日) 18:24:33.89ID:dK0oU8+I
初心者の質問ですみません。
仕事で各部署から大量に写真が来て、部署毎の名前のフォルダに連番ファイルで保存しているのですが、
フォルダの最後のファイルだけピックアップする必要ができてしまいどうにも困っています。
Excelのマクロを使えばどうにかなりそうだとは思うのですが、どなたかお知恵を貸していただけないでしょうか？

例)
c:\営業一課\営業一課00001.jpg 〜営業一課00060.jpg
c:\資材課\資材課00001.jpg 〜 資材課00020.jpg
c:\物流課\物流課00001.jpg 〜 物流課00120.jpg

等、ファイル名は[フォルダ名 + 5桁の数字]。5桁の数字は00001から始まって、終わりの数字(ファイル数)はフォルダ毎にバラバラの状態です。

この状態で、↑の例で言うなら営業一課00060.jpgと資材課00020.jpgと物流課00120.jpgを、
c:\最後\ のフォルダに切り取り貼り付けしたいのですが…

マクロ限定では無く、何かのソフトの組み合わせで実現できるというならそれでも構いません。
フォルダ数が10や100なら力任せにファイラーで移動するのですが、現在50000くらいフォルダ数があって、一日200-300くらいの勢いで増えてます…
0271デフォルトの名無しさん2017/01/22(日) 18:45:46.18ID:mco4N0ih
ファイル操作や並び替えはPowershellの方が簡単だよ
0272デフォルトの名無しさん2017/01/22(日) 18:56:47.41ID:PXtZmaP4
>>270
切り取り貼り付けで馬鹿だとよくわかる
ロジック的にも間違いを引き起こすようなロジックしか考えられないし

馬鹿確定
0273デフォルトの名無しさん2017/01/22(日) 19:13:35.66ID:K9IWtO+t
初心者と一々断らなくて良いよ、と言おうと思ったら、
>>272みたいな上級者気取りが現れるから仕方ないか・・

これを参考にして
http://officetanaka.net/excel/vba/file/file07.htm
0274デフォルトの名無しさん2017/01/22(日) 19:49:33.32ID:YJLP3OgH
>>272
$work =
0275デフォルトの名無しさん2017/01/22(日) 20:32:29.70ID:b7Xc1TTL
>>270
vbaでもいいけど
普通にvbscriptみたいなものでも簡単にできるよ
vbs フォルダ 検索
でぐぐったらどうでしょう
0276デフォルトの名無しさん2017/01/22(日) 20:54:41.71ID:XKc56KzG
>>272
うるせえぞ馬鹿
真面目に質問してる人になんだそりゃ。
0277デフォルトの名無しさん2017/01/22(日) 21:01:31.37ID:xqqm72Ga
>>270
各フォルダには画像以外のファイルも入ってるかどうか
拡張子は小文字のjpgだけか、JPGやjpegも混ざってるかどうか

それだけ教えて
0278デフォルトの名無しさん2017/01/22(日) 21:10:37.07ID:PXtZmaP4
馬鹿はファイルのコピーや移動の仕方でわかるんだよな。
馬鹿のくせに間違いを絶対にしない前提の方法で話しを進めるのが馬鹿たる所以。
0279デフォルトの名無しさん2017/01/22(日) 21:26:21.62ID:o6OZ0Umu
（ ´_ゝ｀）ﾌｰﾝ
0280デフォルトの名無しさん2017/01/22(日) 21:41:22.76ID:uPXBwAbd
>>277
拡張子がなんにしても全パターン網羅してリプレイスして番号で最大値とって取得やんな？
0281デフォルトの名無しさん2017/01/22(日) 21:43:59.78ID:fxkBMvoQ
>>278
あ、ごめん
即座に罵倒するようなヤツとは関わらないって決めてるので誰にも迷惑のかからないところで勝手に盛り上がっててください
0282デフォルトの名無しさん2017/01/22(日) 22:05:16.58ID:5pcXYXa+
病気なんだよ
02832702017/01/22(日) 22:11:46.10ID:dK0oU8+I
>>277
フォルダの中身は小文字の.jpgのみです。

>>273
参照のページで、ファイル名一覧が取得できるまでは解るのですが、
それを取得してどうすれば良いのかが解りませぬ。
0284デフォルトの名無しさん2017/01/22(日) 22:21:58.08ID:K9IWtO+t
>>278
知らないから馬鹿じゃないだろ
>>270を「馬鹿のくせに間違いを絶対にしない前提の方法で話しを進める」と決めつけるのが馬鹿

>>283
一覧をソートすれば取得できる

というオレもVBA初心者ゆえ、正確に答える自信がないので、概念だけでスマンｗ
0285デフォルトの名無しさん2017/01/22(日) 22:30:17.75ID:l2Nz+a62
>>270
>c:\最後\ のフォルダに切り取り貼り付けしたいのですが

移動(元フォルダからは消える)するより
コピーするか　ショートカット作成した方が良いんじゃないかと思うのだが
どうよ
後 実際の各フォルダは c:\　の直下なの?
0286デフォルトの名無しさん2017/01/22(日) 23:05:08.45ID:4Incfzmy
>>270
スレ違いだけどPowerShellで

$folder_from = "C:\"
$folder_to = "C:\最後\"

foreach($child_folder in ls -Path $folder_from | ?{ $_.Name -match '.+課$' })
{
$regex = '^' + $child_folder.Name + '\d+\.jpg$'
$last_item = ls -Path $child_folder | ?{ $_.Name -match $regex }| select -Last 1
mv $last_item.FullName $folder_to
}
0287デフォルトの名無しさん2017/01/22(日) 23:12:38.88ID:qK5fG7bF
できた
ちゃんと動くかどうかテストしてないんでバックアップとってな

Sub CopyLastFile()
　　TargetFolder = "C:\"　　' 処理するフォルダ
　　If Right(TargetFolder, 1) <> "\" Then TargetFolder = TargetFolder & "\"
　　Set Dirs = CreateObject("Scripting.FileSystemObject").GetFolder(TargetFolder).SubFolders
　　For Each CurrentFolder In Dirs
　　　　If CurrentFolder.Name <> "最後" And CurrentFolder.Name <> "System Volume Information" Then
　　　　　　MaxName = ""
　　　　　　FName = Dir(TargetFolder & CurrentFolder.Name & "\*.jpg")
　　　　　　Do While FName <> ""
　　　　　　　　If FName > MaxName Then MaxName = FName
　　　　　　　　FName = Dir()
　　　　　　Loop
　　　　　　If MaxName <> "" Then　　' ファイルを移動
　　　　　　　　Name TargetFolder & CurrentFolder.Name & "\" & MaxName As TargetFolder & "最後" & "\" & MaxName
　　　　　　End If
　　　　End If
　　Next
End Sub
0288デフォルトの名無しさん2017/01/22(日) 23:43:51.53ID:Wwv6/pAu
汚ねぇ言語だな
何がなんだかさっぱり
02892702017/01/23(月) 00:41:20.21ID:U6yzB2m0
>>268 様
>>287 様
お手数掛けてしまい申し訳ありませんが、どちらも動きませんでした…
「ファイルが見つかりません」とエラーメッセージが出てしまいます。
0290デフォルトの名無しさん2017/01/23(月) 00:55:01.54ID:ST2LRMx2
しょせん馬鹿には無理なんだよ
0291デフォルトの名無しさん2017/01/23(月) 01:08:05.39ID:ayLfxszv
フォルダの場所はあくまで例という事なので
適切に弄った上で見つからないのかな
0292デフォルトの名無しさん2017/01/23(月) 01:55:52.05ID:sOYRMmGw
vbaのソースをハイライトしてくれて公開できるサイトってありますか?
0293デフォルトの名無しさん2017/01/23(月) 04:46:02.80ID:WP/2JyPJ
>>287を試したけど、ちゃんと動いたぜ
http://i.imgur.com/wCOzgx4.png

もちろん最初のフォルダ定義は書き換えたよな？
そこ以外はフォルダ名もファイル名もディスクから読み取ってるんだから、見つからないわけがないんだが
0294デフォルトの名無しさん2017/01/23(月) 04:51:29.77ID:WP/2JyPJ
>>292
VBAに対応したサイトは見たことないけど、
RangeとかCellsがハイライトされないと困る用途でなければVBを選択してみたら？
0295デフォルトの名無しさん2017/01/23(月) 04:53:06.02ID:WP/2JyPJ
あ、あと「最後」フォルダも手動で作っとかないとだめだよ
02962702017/01/23(月) 06:51:27.51ID:U6yzB2m0
>>287 様
>>293 様
別のサンプルで試したところ、きちんと動作いたしました。
最初に用意したサンプルの部署の名前にシステム外？の漢字が使われていた為に失敗していたようです。
(ひらがなの「が」が、「か＋゛」になっていたという。Mac←→Winの文字コードの違いの問題？)

そちらはなんとかなるので、これで問題解決です。
皆様方、ありがとうございました。
0297デフォルトの名無しさん2017/01/23(月) 08:12:32.04ID:sOYRMmGw
>>294
なるほど! ありがとうございましたm(__)m
0298デフォルトの名無しさん2017/01/23(月) 12:58:13.38ID:Z+1qxvba
>>296
utf-8 は、濁点半濁点を分離しない

一方、utf-8-mac は、濁点半濁点を分離して、別の文字とする
0299デフォルトの名無しさん2017/01/23(月) 15:48:10.56ID:r+jEG7u3
質問です

HTMLで要素を特定するのが難しい複雑なWEB GUIを自動操作したく、キーボード入力のみ(TAB、ENTER、文字入力の組み合わせ)で原始的に操作すればいいんじゃないかと考えました
このような方法は効果的ですか？
またIE画面の取得やSendKey、busy状態の判定などはurlさえあれば可能なのでしょうか？
0300デフォルトの名無しさん2017/01/23(月) 16:25:14.53ID:dyeHk94Y
>>299
> HTMLで要素を特定するのが難しい複雑なWEB GUIを自動操作したく、キーボード入力のみ(TAB、ENTER、文字入力の組み合わせ)で原始的に操作すればいいんじゃないかと考えました
> このような方法は効果的ですか？
「効果的」の意味が良くわからないが、確実性に欠けるので実装方法としては下策。
0301デフォルトの名無しさん2017/01/23(月) 18:23:23.13ID:iz5/M2l3
>>299
何故HTMLで要素を特定するのが難しいのか？
あとそれが難しいのにキーボード操作なら目的の操作を出来るのは何故か？
効果的かどうかどうやって判断するのか？
0302デフォルトの名無しさん2017/01/24(火) 09:50:42.62ID:Q9g90nxH
>>300
>>301
回答ありがとうございます
効果的か、というのは他に楽ないい選択があるか、という意味です
初心者なので要素の取得に時間がかかり、単純なWEBページならなんとか操作できるのでが
ジャバの記述でソースコードがぐちゃぐちゃになっており要素の取得がしんどいです
実際のie操作を記録してコード組んでくれるソフトとか無いんですかね
0303デフォルトの名無しさん2017/01/24(火) 11:44:50.88ID:tZ08PDgQ
>>302
UWSC
0304デフォルトの名無しさん2017/01/24(火) 12:51:19.59ID:2vJhPAHl
>>302
ブラウザでF12キーとか押してみたら
0305デフォルトの名無しさん2017/01/25(水) 01:50:28.88ID:mqe1OJqx
何かカッコイイ名前つけようぜ。
コスモ関数とか。
Subを廃止にして、Zamとかどうよ。
Ifも古くなってきたから、Izuとか。
0306デフォルトの名無しさん2017/01/25(水) 04:02:53.45ID:IbVYSEZD
マクロじゃなくて馬鹿専用とかな
0307デフォルトの名無しさん2017/01/25(水) 15:39:29.51ID:Lt8lAI1l
かなりの初心者です。
エクセルに画像挿入する際の質問です。
エクセルに大量の画像を挿入したいのですが、ファイルが重たくなりすぎるためリン
ク挿入を考えています。
ファイルをCDにやいて先方に渡したいので、絶対パスではなく相対パスでの画像挿入
がしたいです。
エクセルファイルと大量の画像データは同じフォルダ内にあります。
Insertで挿入してもaddpictureで挿入してもメディアにフォルダごと移動したとたん
リンク切れになるので困っています。
よろしくお願いします。
0308デフォルトの名無しさん2017/01/25(水) 17:01:41.71ID:IbVYSEZD
>>307
なぜhtmlにしないの？
0309デフォルトの名無しさん2017/01/25(水) 17:35:49.92ID:ekWp7cd2
数値の変化する1つのセルの最大値を他のせルに記録したいのです。
例えば B5 セルの値が、15　10　23　5
と変化したら、隣のC5のセルに、　23　と表示させたいのです。

エクセルの関数になるのかもしれませんが、ググってもどう調べても分かりません。

皆さま何卒宜しくお願い致します。
0310デフォルトの名無しさん2017/01/25(水) 17:53:01.54ID:vlkVtG3b
>>309
その要件は >>307 のどこにあたるの？
0311デフォルトの名無しさん2017/01/25(水) 18:08:36.73ID:ncsczmSY
>>307
htmlとして保存とかできなかったっけ
0312デフォルトの名無しさん2017/01/25(水) 19:35:21.34ID:mqe1OJqx
>>307
リンク切れになる理由はわからんけど、
ファイルを開いた時に、リンク解除→再リンクすればいいんじゃないの?
0313デフォルトの名無しさん2017/01/25(水) 21:13:17.06ID:CnexM6ZX
>>310
えっ？
■ このスレッドは過去ログ倉庫に格納されています