[過去ﾛｸﾞ]
Excel VBA 質問スレ Part68 (1002ﾚｽ)
Excel VBA 質問スレ Part68 http://mevius.5ch.net/test/read.cgi/tech/1598756127/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
554: デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MM3a-pCej) [sage] 2020/10/10(土) 17:43:29 ID:aEE68DdLM いつものあいつ確定 http://mevius.5ch.net/test/read.cgi/tech/1598756127/554
555: 542 (ﾜｯﾁｮｲ 672c-JAxH) [sage] 2020/10/10(土) 22:30:05 ID:BjcbKuib0 データベース変換などは、Ruby のEnumerable のメソッドを見て、 シェル芸とか、プログラミングのお題スレの問題を解いた方がよい VBA は可読性が悪すぎて、作っても再利用できない。 OSS で全会社共通で、RubyのEnumerable 相当のメソッドを作って公開するべき！ 他言語ではたいてい、Rubyと等価のメソッドを作る http://mevius.5ch.net/test/read.cgi/tech/1598756127/555
556: 542 (ﾜｯﾁｮｲ 672c-JAxH) [sage] 2020/10/10(土) 22:31:31 ID:BjcbKuib0 >>555 修正 >データベース変換などは データ変換などは http://mevius.5ch.net/test/read.cgi/tech/1598756127/556
557: デフォルトの名無しさん (ﾜｯﾁｮｲ ca4f-+ixC) [sage] 2020/10/11(日) 00:52:32 ID:l/QRoUUr0 >>555 布教活動ご苦労さん 必要になったら勝手にRubyスレに行くから 帰っていいよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/557
558: デフォルトの名無しさん (ﾜｯﾁｮｲ b301-NY7j) [sage] 2020/10/11(日) 08:15:59 ID:qzIChT2z0 >>555 データ変換てのは基本的な作法さえ知ってればEnumerableメソッド使わなくても特に困ることもないだろう ただのループ構造をこねくり回してるだけでそのためにメソッドを割り当てるなんてお仕着せもいいところ http://mevius.5ch.net/test/read.cgi/tech/1598756127/558
559: デフォルトの名無しさん (ﾜｯﾁｮｲ ca01-d5Pu) [sage] 2020/10/11(日) 10:01:12 ID:QZ/HZvxF0 >>557-558 なぜ相手するんだ… http://mevius.5ch.net/test/read.cgi/tech/1598756127/559
560: デフォルトの名無しさん (ﾜｯﾁｮｲ 6b63-JAxH) [] 2020/10/11(日) 12:29:43 ID:lH9sVzvl0 Acrobatを使用したプログラムを複数回実行すると初回だけ成功し 2回目以降は 実行時エラー2147467259(80004005) エラーを特定できません となります(idに代入する行でエラー) 終了処理に不備があってacrobatのプロセスが残っているのではと思いましたが 色々なサイトを見ても解決がわからない状態です。 どうすれば治りますか。 プログラムは次のレスを参照ください。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/560
561: デフォルトの名無しさん (ﾜｯﾁｮｲ 6b63-JAxH) [] 2020/10/11(日) 12:30:03 ID:lH9sVzvl0 Dim objAcroApp As New Acrobat.AcroApp Dim objAcroAVDoc As New Acrobat.AcroAVDoc Dim objAcroPDDoc As New Acrobat.AcroPDDoc Dim id As Long Dim js As Object Dim SaveName As String id = objAcroApp.Show id = objAcroAVDoc.Open(FilePath, "") Set objAcroPDDoc = objAcroAVDoc.GetPDDoc() Set js = objAcroPDDoc.GetJSObject SaveName = FolderPath & "\" & Replace(FileName, ".pdf", "") '変換のうえテキストファイルとして保存 js.SaveAs SaveName & ".txt", "com.adobe.acrobat.plain-text" 'PDFファイルを変更無しで閉じる id = objAcroAVDoc.Close(1) 'Acrobatアプリケーションを終了する。 id = objAcroApp.Hide id = objAcroApp.Exit Set js = Nothing Set objAcroAVDoc = Nothing Set objAcroApp = Nothing http://mevius.5ch.net/test/read.cgi/tech/1598756127/561
562: デフォルトの名無しさん (ﾜｯﾁｮｲ cbda-xYNh) [sage] 2020/10/11(日) 18:37:51 ID:7Qx+aWsY0 どこだか忘れたけど、閉じる・解放はこの順番じゃないとダメって書いてあるサイトがあったぞ。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/562
563: デフォルトの名無しさん (ﾜｯﾁｮｲ 07ce-KV+F) [sage] 2020/10/11(日) 20:12:54 ID:WEczn1o20 オブジェクト型にNothingを代入しても、参照ポインタが書き換わるだけでメモリが解放されるわけじゃないんで、順序はそれほど重要じゃない http://mevius.5ch.net/test/read.cgi/tech/1598756127/563
564: デフォルトの名無しさん (ﾜｯﾁｮｲ 67da-xYNh) [sage] 2020/10/11(日) 21:39:34 ID:CPiGYYUg0 >>560 必ず再現するなら同じ現象が発生する最小のコードを作ってみ http://mevius.5ch.net/test/read.cgi/tech/1598756127/564
565: デフォルトの名無しさん (ﾜｯﾁｮｲ 4a2f-JAxH) [sage] 2020/10/11(日) 23:29:10 ID:gmCwGThW0 >>561 とりあえずDimでNewするのやめて様子見てみ http://mevius.5ch.net/test/read.cgi/tech/1598756127/565
566: デフォルトの名無しさん (ﾜｯﾁｮｲ 6f5f-e5Pm) [] 2020/10/12(月) 01:35:39 ID:EUVfONAL0 どうやって再度、実行できているのか？ 仕事ができない人がよく言う説明。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/566
567: デフォルトの名無しさん (ﾜｯﾁｮｲ 672c-JAxH) [sage] 2020/10/12(月) 08:27:00 ID:CsRHImZw0 >>560 タスクマネージャーを起動して、プロセスを終了させてから、実行すれば？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/567
568: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM86-SfJD) [] 2020/10/12(月) 10:12:47 ID:5eYbb8SbM アクロバットがすぐに終了しないのは体感でも分かるレベル http://mevius.5ch.net/test/read.cgi/tech/1598756127/568
569: デフォルトの名無しさん (ﾜｯﾁｮｲ 6f5f-e5Pm) [] 2020/10/12(月) 18:47:34 ID:EUVfONAL0 2回目以降から1回目に戻る手順くらい書けよ！ http://mevius.5ch.net/test/read.cgi/tech/1598756127/569
570: デフォルトの名無しさん (ﾜｯﾁｮｲ 07ad-yGJI) [] 2020/10/12(月) 21:34:54 ID:mxOFfEsA0 おもいついた >>530 最後にsubstituteでまとめて消せばよくね？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/570
571: デフォルトの名無しさん (ﾜｯﾁｮｲ 67da-tQNK) [sage] 2020/10/12(月) 23:43:56 ID:k3Vmfe+e0 時間を戻そう http://mevius.5ch.net/test/read.cgi/tech/1598756127/571
572: デフォルトの名無しさん (ﾜｯﾁｮｲ ca4f-+ixC) [sage] 2020/10/13(火) 08:13:53 ID:548t3foS0 >>561 objAcroAppにCloseメソッドがあってそれを実行していないとかいうオチだったりして http://mevius.5ch.net/test/read.cgi/tech/1598756127/572
573: デフォルトの名無しさん (ﾜｯﾁｮｲ ca01-d5Pu) [sage] 2020/10/13(火) 09:32:19 ID:2dX+mfF30 >>572 普通の頭持ってたら id = objAcroApp.Exit がそれだと思うだろうに… http://mevius.5ch.net/test/read.cgi/tech/1598756127/573
574: デフォルトの名無しさん (ﾜｯﾁｮｲ 6749-xYNh) [sage] 2020/10/13(火) 10:34:47 ID:lK6RB09G0 「.CloseAllDocs」 ってメソッドもAcrobat.AcroAppにはあるらしいな そしてExitだけじゃプロセスが残ることもあるらしい まあAcrobatの環境ないから検証も何もできんけど、 安全取るならExitしたあとにプロセス監視してkillするしかないんじゃね 途中でエラー落ちしてもプロセスのこっちゃうらしいし ちなみにどうでもいいが個人的にはExitとCloseは、意味的に異なると思う だからExitとCloseが両方あってもおかしくないとは思う でもExitがCloseを包括していても、それはそれでありだとも思う Acrobat.AcroAppの公式ドキュメント見れてないからワイには答えが出せんわ http://mevius.5ch.net/test/read.cgi/tech/1598756127/574
575: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f63-F9zC) [sage] 2020/10/15(木) 08:48:14 ID:wrF56cyr0 >>560です 皆さん本当にありがとうございます。 みなさんのご意見をプログラムに反映した後、 ソースを最小（adobeをオープン・クローズするのみ） にしてもエラーです・・・(次レス参照) タスクマネージャには adobe CEF helper、adobe update serviceがありますが 前者は消しても湧いてきているように見えます。 パソコン再起動してもダメ、日付が変わってもダメです。 しかし、エラーになったあとちょうど24時間経過すると 無事実行できるようになることがわかりました・・・ 24時間後の数分前はエラーでしたが 数分後は無事実行できました。 ちょうど24時間で消えるプロセスが存在するんだと思いますが 何かご存知のかた居ましたらご教示ください・・・ http://mevius.5ch.net/test/read.cgi/tech/1598756127/575
576: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f63-F9zC) [] 2020/10/15(木) 08:49:26 ID:wrF56cyr0 ソースを最小にするためところどころコメントアウトしてます Dim objAcroApp As Acrobat.AcroApp Dim objAcroAVDoc As Acrobat.AcroAVDoc ' Dim objAcroPDDoc As Acrobat.AcroPDDoc Dim id As Long ' Dim js As Object ' Dim SaveName As String Set objAcroApp = CreateObject( "AcroExch.App" ) Set objAcroAVDoc = CreateObject( "AcroExch.AVDoc" ) id = objAcroApp.Show id = objAcroAVDoc.Open(FilePath, "") ' Set objAcroPDDoc = objAcroAVDoc.GetPDDoc() ' Set js = objAcroPDDoc.GetJSObject ' SaveName = FolderPath & "\" & Replace(FileName, ".pdf", "") '変換のうえテキストファイルとして保存 ' js.SaveAs SaveName & ".txt", "com.adobe.acrobat.plain-text" 'PDFファイルを変更無しで閉じる id = objAcroAVDoc.Close(1) 'Acrobatアプリケーションを終了する。 id = objAcroApp.CloseAllDocs←どっかのサイトでobjAcroApp.Hideの前に入れてました id = objAcroApp.Hide id = objAcroApp.Exit ' Set js = Nothing Set objAcroAVDoc = Nothing Set objAcroApp = Nothing http://mevius.5ch.net/test/read.cgi/tech/1598756127/576
577: デフォルトの名無しさん (ﾜｯﾁｮｲ 5b2c-F9zC) [sage] 2020/10/15(木) 09:20:24 ID:7eWumHpU0 起動設定で、プロセスを殺すと、また再起動するアプリがある。 ウィルスチェックなどの、何かをチェックするアプリ 必ず、最低1つは起動しておくタイプのアプリ そういうアプリは使わない方がよい。 何をチェックして、本社に送っているか、怪しい 会社に問い合わせて、再起動を止めるような設定を聞けば？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/577
578: デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdbf-K5sQ) [sage] 2020/10/15(木) 10:57:30 ID:LAL4jdY0d 区分1〜10のデータが記録されたcsvを区分ごとにExcelシート毎(シート名は1〜10)に分割して読み込むvbaがどうしても出来ません… ご教示いただけないでしょうか… http://mevius.5ch.net/test/read.cgi/tech/1598756127/578
579: デフォルトの名無しさん (ﾜｯﾁｮｲ 5b49-fMdf) [sage] 2020/10/15(木) 11:36:34 ID:+kinuzul0 そんな説明でわかるわけがないので、 そこまで頑張って作ったコードとエラーメッセージを提示するのが最低限 そして、自分で何を試行したのかも説明すること http://mevius.5ch.net/test/read.cgi/tech/1598756127/579
580: デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MMbf-QVAX) [sage] 2020/10/15(木) 12:20:58 ID:k/WlCRMPM いつもの人 http://mevius.5ch.net/test/read.cgi/tech/1598756127/580
581: デフォルトの名無しさん (ﾜｯﾁｮｲ 5b2c-F9zC) [sage] 2020/10/15(木) 13:02:07 ID:7eWumHpU0 Ruby なら、これで最初の列だけを、出力できる require 'csv' # CSV ファイルを、1行ずつ処理する CSV.foreach( "a.csv" ) do |row| puts row[ 0 ] end http://mevius.5ch.net/test/read.cgi/tech/1598756127/581
582: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f6d-sSL1) [] 2020/10/15(木) 14:36:16 ID:sVQ5bVjI0 >>581 C#スレで恥を晒したRuby荒らしは帰れよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/582
583: デフォルトの名無しさん (ﾜｯﾁｮｲ 8bda-fMdf) [sage] 2020/10/15(木) 19:36:00 ID:GQ796pt70 簡単かどうかなんてどうでもいい。 200万件のデータをADO+SQLより速く処理できるならRuby使ってやらなくもないが。 どうなんだい? 無理ならイラネ。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/583
584: デフォルトの名無しさん (ﾜｯﾁｮｲ 9fb5-K72c) [sage] 2020/10/15(木) 19:54:07 ID:hF5+vxPB0 もう時代遅れなのはわかってるけど 会社が2019に更新してまだまだ使う気満々なので そして配布が出来ないと困る http://mevius.5ch.net/test/read.cgi/tech/1598756127/584
585: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM7f-RGwm) [sage] 2020/10/15(木) 21:24:39 ID:Dg+UC/FqM >>583 ルビ糞基地外の味方をするつもりはないけど、DBがボトルネックならRubyだろうが何だろうが速さは変わらんよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/585
586: デフォルトの名無しさん (ﾜｯﾁｮｲ 9fe6-lr1q) [sage] 2020/10/15(木) 21:53:38 ID:3DKNzMNt0 俺の解釈だとこんな感じ Sub Macro1(Filename, Fieldname) Set ws = Workbooks.Open(Filename).Sheets(1) Set pvt = ws.PivotTableWizard(1, ws.UsedRange) pvt.PivotFields(Fieldname).Orientation = 1 pvt.PivotFields(Fieldname).Orientation = 4 pvt.ColumnGrand = False For Each r In pvt.DataBodyRange: r.ShowDetail = True: Next End Sub http://mevius.5ch.net/test/read.cgi/tech/1598756127/586
587: デフォルトの名無しさん (ﾜｯﾁｮｲ fb19-F9zC) [] 2020/10/15(木) 23:19:16 ID:fOL5OZab0 >>562 はこのサイトかな http://pdf-file.nnn2.com/?p=6 http://mevius.5ch.net/test/read.cgi/tech/1598756127/587
588: デフォルトの名無しさん (ﾜｯﾁｮｲ 8bda-fMdf) [sage] 2020/10/16(金) 19:09:16 ID:Hr39/iau0 >>587 多分それ。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/588
589: デフォルトの名無しさん (ﾜｯﾁｮｲ bb5f-snog) [] 2020/10/16(金) 19:55:23 ID:rggqlWcj0 PDFファイルの件は、マクロの記録でやるとどうなるのか、確認すればいいんじゃないの？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/589
590: デフォルトの名無しさん (ﾜｯﾁｮｲ 8bda-fMdf) [sage] 2020/10/16(金) 21:55:06 ID:Hr39/iau0 なあそれ、マクロの記録をするとどうなるか確認してから言ってるのか? http://mevius.5ch.net/test/read.cgi/tech/1598756127/590
591: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f42-B8Ym) [sage] 2020/10/16(金) 22:07:10 ID:9Da+1I/Z0 モチのロンだぜ http://mevius.5ch.net/test/read.cgi/tech/1598756127/591
592: デフォルトの名無しさん (ﾜｯﾁｮｲ 5bda-fMdf) [sage] 2020/10/16(金) 22:24:45 ID:tI22s9TB0 モロのチンだぜ http://mevius.5ch.net/test/read.cgi/tech/1598756127/592
593: デフォルトの名無しさん (ｽｯﾌﾟ Sdbf-huX3) [sage] 2020/10/18(日) 16:09:00 ID:SMfw56kvd >>533 そういうことじゃねえ。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/593
594: デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-tMQb) [sage] 2020/10/21(水) 23:21:44 ID:w3Ug/D8p0 https://i.pinimg.com/474x/ac/b7/a5/acb7a5babfc425b462dd6ed0983c15dd.jpg http://mevius.5ch.net/test/read.cgi/tech/1598756127/594
595: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MMe6-B6QP) [sage] 2020/10/22(木) 03:14:09 ID:RxEiNjgnM こまけぇこたぁ いいんだよ!! /) /／) ＿＿ `/ 二つ／⌒⌒＼ ｜ ﾆ⊃ (●)(●)＼ /＼ﾉ｜⌒(_人_)⌒｜ / ＞ ヽﾆﾉ ＜ http://mevius.5ch.net/test/read.cgi/tech/1598756127/595
596: デフォルトの名無しさん (ｽﾌﾟｯｯ Sd02-4ynI) [] 2020/10/22(木) 08:49:00 ID:8kbg1eIjd まだVBAなんて使ってる人がいてビックリ 懐かしい言語だよね http://mevius.5ch.net/test/read.cgi/tech/1598756127/596
597: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MMe6-B6QP) [] 2020/10/22(木) 09:02:14 ID:OZW0tgCBM Excel2000から20年なんて家電製品なら普通ですよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/597
598: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-E8a6) [] 2020/10/22(木) 12:37:02 ID:QXcT5+jPM Excel5.0からだよ 16ビットだよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/598
599: デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM15-o6QC) [sage] 2020/10/22(木) 12:37:11 ID:N0tQIHiYM >>596 今現在Excel入ってりゃ必ず使えるのはVBAだけだから まあ最近の言語に比べりゃ色々面倒な部分はあるけどちょっとしたツール程度ならなんとかなるぐらいの機能はあるし http://mevius.5ch.net/test/read.cgi/tech/1598756127/599
600: デフォルトの名無しさん (ﾜｯﾁｮｲ 05cc-LA9s) [sage] 2020/10/22(木) 17:17:13 ID:8WoYrv7v0 Ａ１に"2020/10/22"のように日付が入っています。 その日付が土曜日の場合、その月の何回目の土曜日かを調べるコードを教えてください。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/600
601: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MMe6-FUnU) [sage] 2020/10/22(木) 17:41:32 ID:V9nm7cr3M 嫌です http://mevius.5ch.net/test/read.cgi/tech/1598756127/601
602: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-E8a6) [] 2020/10/22(木) 18:23:26 ID:jxPHtPQlM 22÷7 http://mevius.5ch.net/test/read.cgi/tech/1598756127/602
603: デフォルトの名無しさん (ﾜｯﾁｮｲ 86c3-m/xB) [sage] 2020/10/22(木) 18:50:04 ID:lPQIKdWd0 >>600 その日付は木曜日です http://mevius.5ch.net/test/read.cgi/tech/1598756127/603
604: デフォルトの名無しさん (ﾜｯﾁｮｲ e1d2-o8Qw) [] 2020/10/22(木) 18:56:20 ID:CJ3HroyY0 int((日-1)/7+1) http://mevius.5ch.net/test/read.cgi/tech/1598756127/604
605: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa45-S+8T) [sage] 2020/10/22(木) 19:08:32 ID:XgRR6MjRa days http://mevius.5ch.net/test/read.cgi/tech/1598756127/605
606: デフォルトの名無しさん (ﾜｯﾁｮｲ 21da-tMQb) [sage] 2020/10/22(木) 20:00:05 ID:Nlv/Qw7G0 >>596 ここでRuby教を広めようとしても無駄ですよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/606
607: ◆QZaw55cn4c (JP 0H52-MyFb) [sage] 2020/10/22(木) 20:38:01 ID:RiQFyYLuH >>599 そうそう、それに win32api のほとんどを呼び出すことができるんですよね http://mevius.5ch.net/test/read.cgi/tech/1598756127/607
608: 600 (ｵｲｺﾗﾐﾈｵ MM69-joA3) [sage] 2020/10/22(木) 20:54:38 ID:EVMbdUMSM 〉〉604 ありがとうございます http://mevius.5ch.net/test/read.cgi/tech/1598756127/608
609: デフォルトの名無しさん (ﾜｯﾁｮｲ ee8e-rRPK) [sage] 2020/10/22(木) 21:21:26 ID:hm8FUbN60 いつものあいつか http://mevius.5ch.net/test/read.cgi/tech/1598756127/609
610: デフォルトの名無しさん (ﾜｯﾁｮｲ d163-MACq) [] 2020/10/22(木) 22:49:46 ID:kity+iCG0 FileSystemObjectの参照設定 VBAの中でできないのかな？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/610
611: デフォルトの名無しさん (ﾜｯﾁｮｲ c2e6-dcnK) [sage] 2020/10/23(金) 00:04:14 ID:1WodYwaj0 エディタの支援が不要ならCreateObjectでええやん http://mevius.5ch.net/test/read.cgi/tech/1598756127/611
612: デフォルトの名無しさん (ｽﾌﾟｯｯ Sd02-oXyV) [sage] 2020/10/23(金) 00:50:10 ID:g9AT+l9rd >>610 出来る。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/612
613: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MMe6-B6QP) [] 2020/10/23(金) 01:26:42 ID:ykqFrr6rM >>610 出来ない http://mevius.5ch.net/test/read.cgi/tech/1598756127/613
614: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa45-TzND) [sage] 2020/10/23(金) 02:25:13 ID:YKSIT3mga >>610 出来まい http://mevius.5ch.net/test/read.cgi/tech/1598756127/614
615: デフォルトの名無しさん (ｽｯｯﾌﾟ Sda2-AC5c) [sage] 2020/10/23(金) 02:48:18 ID:bmMgVHIId 競馬のオッズの取り込み教えて欲しい。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/615
616: デフォルトの名無しさん (ﾜｯﾁｮｲ 02ad-dZ3m) [sage] 2020/10/23(金) 08:33:21 ID:TKI7l+v40 複数のセルに纏めて背景色を付けたい場合についてです 指定のセルは離れているためRangeで範囲選択では済ませられないです Unionを使用するのも手ではありますが動作速度に影響を及ぼすので最終手段としたいです そこで背景色をつけるセルのAddressを取得して一次元配列に格納し .Range(Join(Array, ",")).Interior.CoIor = CLng("&H00FAFAFA″) で着色しようとしたのですが、どうもこの連結方法の場合、連結数が一定数を超えるとエラー停止してしまう様です なので何か別のアプローチはないものかと模索している最中なのですがもしよろしければお知恵をお借りしたいです http://mevius.5ch.net/test/read.cgi/tech/1598756127/616
617: デフォルトの名無しさん (ｱｳｱｳｶｰ Sa89-VmZc) [sage] 2020/10/23(金) 08:37:04 ID:WT7JJPgTa 自分で思いつかないようなテクニカルなやり方してもあとで読む人が大変だし普通に配列ループでいいじゃん http://mevius.5ch.net/test/read.cgi/tech/1598756127/617
618: デフォルトの名無しさん (ﾌﾞｰｲﾓ MM76-H07y) [sage] 2020/10/23(金) 09:16:49 ID:0vnMylCPM VBAで済む事をわざわざ他言語でやる池沼よりマシ http://mevius.5ch.net/test/read.cgi/tech/1598756127/618
619: デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-tMQb) [sage] 2020/10/23(金) 10:42:10 ID:9+IFx01J0 >>616 一定数を超えるとエラーになるってわかっているんだから一定数を超えないようにすればいいんじゃね http://mevius.5ch.net/test/read.cgi/tech/1598756127/619
620: デフォルトの名無しさん (ﾜｯﾁｮｲ 02ad-dZ3m) [sage] 2020/10/23(金) 11:02:14 ID:TKI7l+v40 >>619 不特定多数が使用する業務のスケジュール管理をするツールで、描写したスケジュール表を平日、土曜日、日曜祝日の3パターンで着色する必要があるんですけど、業務期間が長いとどうしても超えてしまう場合が発生するんですよね 業務期間に制限を設けるわけにもいかないですし 配列に格納してんだからループで一定数おきに着色ってのも考えたんですけどUnionより遅くなるっぽいんで最適化を諦めてUnionで繋げちゃうかーって思ってはいるんですが、その前にここで聞いてみて何かヒント貰えたらなーと http://mevius.5ch.net/test/read.cgi/tech/1598756127/620
621: デフォルトの名無しさん (ﾜｯﾁｮｲ 8249-5+f8) [sage] 2020/10/23(金) 12:29:02 ID:u/a/wHRt0 あまり編集をしないのであれば、条件付き書式で勝手に色がつくようにするとか http://mevius.5ch.net/test/read.cgi/tech/1598756127/621
622: デフォルトの名無しさん (ﾜｯﾁｮｲ 3901-3XbD) [sage] 2020/10/23(金) 13:40:00 ID:DQVFwAwV0 >>616 Join(Array, ",") ← こいつがエラー起こすって感じなの？ String 型は最大20億文字数らしいね あるいは.Rangeが受け付けないのか 一応ググってみるとRangeの引数は255文字までというのが出て来る これに引っかかってるんじゃねえの http://mevius.5ch.net/test/read.cgi/tech/1598756127/622
623: デフォルトの名無しさん (ﾜｯﾁｮｲ 3901-3XbD) [sage] 2020/10/23(金) 13:51:36 ID:DQVFwAwV0 ＞一次元配列に格納し これでループ回したところで体感できるような速度差は出ないと思うがな むしろRange内の文字列引数処理のほうが時間食われるんじゃないかと Union・・・どんなもんだろねぇ http://mevius.5ch.net/test/read.cgi/tech/1598756127/623
624: デフォルトの名無しさん (ﾜｯﾁｮｲ 02ad-dZ3m) [sage] 2020/10/23(金) 13:51:42 ID:TKI7l+v40 >>622 なるほど 引数上限の255文字が原因っぽいですね んー……そうするとやっぱり複数範囲をカンマ区切りでーは上限が発生しちゃいますよねぇ http://mevius.5ch.net/test/read.cgi/tech/1598756127/624
625: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MMe6-FUnU) [sage] 2020/10/23(金) 14:36:51 ID:ITa0Mrx5M 255件程度ならどんな方法でもさして時間変わらないのでは screenupdating切れば一瞬で終わりそう http://mevius.5ch.net/test/read.cgi/tech/1598756127/625
626: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-E8a6) [] 2020/10/23(金) 15:36:44 ID:wfU4S4ZzM 数秒が待てないというのはイベント駆動でもさせる気なの？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/626
627: デフォルトの名無しさん (ﾜｯﾁｮｲ 8201-ZFHv) [sage] 2020/10/23(金) 15:48:23 ID:BdUYZCjc0 エクセルでマリオカートを作ります http://mevius.5ch.net/test/read.cgi/tech/1598756127/627
628: デフォルトの名無しさん (ﾜｯﾁｮｲ 21da-tMQb) [sage] 2020/10/23(金) 18:52:38 ID:uwgUvjOA0 エクセルでねぇ・・。 実質DirectX頼りだろう。 セル書き換えじゃ60fps出ないし。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/628
629: デフォルトの名無しさん (ﾜｯﾁｮｲ cd7c-z4aL) [sage] 2020/10/23(金) 19:17:52 ID:knErP7D20 255個ぐらいで数秒もかかるのはおかしい http://mevius.5ch.net/test/read.cgi/tech/1598756127/629
630: デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-tMQb) [sage] 2020/10/23(金) 19:24:37 ID:9+IFx01J0 ヒントならもらったろうに、あとはどう実装するかは自力で試行錯誤やればいいんじゃね http://mevius.5ch.net/test/read.cgi/tech/1598756127/630
631: デフォルトの名無しさん (ﾜｯﾁｮｲ 02ad-dZ3m) [sage] 2020/10/23(金) 19:38:40 ID:TKI7l+v40 処理範囲的には .Range(”M11:Q1011,T11:X1011,【中略】,CF11:CJ1011“).Interior.CoIor ぐらいです 全体で1万弱程のステップがあって他ファイルの読込やグラフの生成、データファイルの出力等があり、全体の処理時間が10秒前後なので この処理を軽くした所で焼け石に水なのは分かってはいるんですが、 オブジェクトの操作を極力減らして動作時間を軽減したいなぁと思っています 次の操作箇所を強調する為にRange(″M20,M20″).Selectみたいな操作を使ったので、これの応用で広域処理も行けるかなぁと思ったんですがダメみたいですね お騒がせ致しました お忙しい中ご意見等頂きありがとうございました http://mevius.5ch.net/test/read.cgi/tech/1598756127/631
632: デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-tMQb) [sage] 2020/10/23(金) 21:25:05 ID:9+IFx01J0 問題に取り組む姿勢がおかしい http://mevius.5ch.net/test/read.cgi/tech/1598756127/632
633: デフォルトの名無しさん (ﾜｯﾁｮｲ 3901-3XbD) [sage] 2020/10/23(金) 21:51:10 ID:DQVFwAwV0 >>631 ＞他ファイルの読込 俺はこいつが異様に遅くて困ってる 100万個ほどのデータをCSVから読ませてるんだけど6世代i5で3分、セレロンだと10分とかかかる Lineで1行ずつ読んでるせいなんだろうけどQueryだと早いんだろうなあと思いながら面倒で手を付けてなかった これを機にやってみるかなぁ 実際相当早くなるもんかね？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/633
634: デフォルトの名無しさん (ﾜｯﾁｮｲ 0242-Kbrf) [sage] 2020/10/23(金) 22:37:29 ID:jmwa0xlU0 何をやってるかにもよるがそもそも一度に全部読み込まなきゃいいんじゃね http://mevius.5ch.net/test/read.cgi/tech/1598756127/634
635: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-zec2) [sage] 2020/10/23(金) 23:22:27 ID:/Kxbsbpt0 曜日の色付けなんてWEEKDAY関数と条件付き書式で良くないか？ 曜日ごとに文字列記入するところはマクロにしてるけど http://mevius.5ch.net/test/read.cgi/tech/1598756127/635
636: デフォルトの名無しさん (ﾜｯﾁｮｲ 3901-3XbD) [sage] 2020/10/24(土) 06:26:18 ID:Uy2SF5SV0 >>634 ＞一度に全部読み込まなきゃ そうやねぇ・・・ 週ごとにデータを集計してんだけどいまんところ一括で読み込ませてる 常時PC立ち上がってる環境だから逐次データ吸い上げていけば一番いいんだけどそうなると小手先の変更じゃなくて大枠に手を加えなきゃなんなくなるのが頭痛いところ てかこんなのエクセルでやらせんなよって話でもあるんだけどそうはいかない http://mevius.5ch.net/test/read.cgi/tech/1598756127/636
637: デフォルトの名無しさん (ﾜｯﾁｮｲ 02ad-dZ3m) [sage] 2020/10/24(土) 08:29:55 ID:Q0nf4D4p0 >>635 それでも良いんですけど、行ごとに工程の開始日と終了日を設定して工程の期間のセルは計画達成率ごとに緑、黄、橙、赤って着色する必要があり、その着色は開始日が平日なら土日祝日は着色しない、開始日が土日祝日なら期間中全てのセルを着色 とかやるんで条件書式でやるのかなり面倒なんですよね ユーザーには進捗率をスケジュール表に記入させるんですけど今日以降の進捗率は入力があっても認識から外さなければならないって仕様もあったりするんで http://mevius.5ch.net/test/read.cgi/tech/1598756127/637
638: デフォルトの名無しさん (ﾜｯﾁｮｲ cd7c-z4aL) [sage] 2020/10/24(土) 10:23:24 ID:EYzilKe/0 そのぐらいなら自分なら条件付き書式でやる http://mevius.5ch.net/test/read.cgi/tech/1598756127/638
639: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa45-TzND) [sage] 2020/10/24(土) 10:53:59 ID:Fj5xdFDia 毎回全部のデータつくりなおすのか 差分だけやるとか分割するとかしないのね http://mevius.5ch.net/test/read.cgi/tech/1598756127/639
640: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-1Dkg) [] 2020/10/24(土) 12:24:40 ID:9i+KquaLM あるフォルダに複数のエクセルがあります。 シートは必ず一枚。 一番ファイル名が短いエクセルに 他のエクセルのシートをコピーしてまとめたい。 どう書けば楽ですか。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/640
641: デフォルトの名無しさん (ｻｻｸｯﾃﾛ Sp11-xxau) [sage] 2020/10/24(土) 12:36:09 ID:Gp+9LQQ1p >>640 一番短いファイル名で同じ長さのものが有った時点で破綻 次の方どうぞ〜 http://mevius.5ch.net/test/read.cgi/tech/1598756127/641
642: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 12:41:50 ID:hS/lv/UK0 その問題を作った先生を問い詰めろ！ http://mevius.5ch.net/test/read.cgi/tech/1598756127/642
643: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 12:43:08 ID:hS/lv/UK0 >>640 前提条件にリアリティがなさすぎるw http://mevius.5ch.net/test/read.cgi/tech/1598756127/643
644: デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-tMQb) [sage] 2020/10/24(土) 13:11:38 ID:uN2dIIGs0 >>640 「わかりません」って書いとけばいいよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/644
645: デフォルトの名無しさん (ﾜｯﾁｮｲ 224b-FUnU) [sage] 2020/10/24(土) 13:18:00 ID:Lxq4fMOo0 >>640 その通り書けば楽です http://mevius.5ch.net/test/read.cgi/tech/1598756127/645
646: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 13:35:27 ID:hS/lv/UK0 エクセルがあるとは何ですか？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/646
647: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 13:37:23 ID:hS/lv/UK0 Excelファイルのことを単にExcelと呼ぶのも違和感がある。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/647
648: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-1Dkg) [] 2020/10/24(土) 13:45:51 ID:9i+KquaLM >>641 同じ長さになることはありません 説明不足ですみません http://mevius.5ch.net/test/read.cgi/tech/1598756127/648
649: デフォルトの名無しさん (ﾜｯﾁｮｲ cd7c-z4aL) [sage] 2020/10/24(土) 13:46:27 ID:EYzilKe/0 何を条件にした楽なのか？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/649
650: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 15:19:09 ID:hS/lv/UK0 ファイル名のことなんてあとで考えればよい。 まず手順を考えてください。 ファイル名は重要ではありません。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/650
651: デフォルトの名無しさん (ﾜｯﾁｮｲ ee8e-rRPK) [sage] 2020/10/24(土) 15:29:59 ID:VJA5Q+pD0 いつものあいつっぽい http://mevius.5ch.net/test/read.cgi/tech/1598756127/651
652: デフォルトの名無しさん (ﾜｯﾁｮｲ 05cc-BPyH) [sage] 2020/10/24(土) 15:59:31 ID:h35l0z5Z0 シート"土曜日の小計"のＡ２から、祝日と会社の休業日以外の土曜日を書いていくマクロを考えています。 （シートカレンダーのＡ列に日付、Ｂ列にＡ列の日付が祝日であれば"1"が入力してあり、Ｃ列に会社の休業日なら"１"が入力してあります） このマクロだと、「424 オブジェクトが必要です」になります。どう書けば良いですか？ Dim a As Long,r As Long a = 2 For r = 1 To 365 If Weekday(DateAdd("d", r, Date)) = 7 And _ Worksheet.Function.VLookup(DateAdd("d", r, Date), Sheets("カレンダー"), 2, False) <> 1 And _ Worksheet.Function.VLookup(DateAdd("d", r, Date), Sheets("カレンダー"), 3, False) <> 1 Then Sheets("土曜日の小計").Cells(a, 1) = DateAdd("d",r,Date) a = a + 1 End If Next bc http://mevius.5ch.net/test/read.cgi/tech/1598756127/652
653: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 17:14:11 ID:hS/lv/UK0 >>652 http://officetanaka.net/excel/vba/error/execution_error/error_424.htm http://mevius.5ch.net/test/read.cgi/tech/1598756127/653
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 349 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.027s