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