[過去ﾛｸﾞ]
Excel VBA 質問スレ Part68 (1002ﾚｽ)
Excel VBA 質問スレ Part68 http://mevius.5ch.io/test/read.cgi/tech/1598756127/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
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.io/test/read.cgi/tech/1598756127/581
582: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f6d-sSL1) [] 2020/10/15(木) 14:36:16 ID:sVQ5bVjI0 >>581 C#スレで恥を晒したRuby荒らしは帰れよ http://mevius.5ch.io/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.io/test/read.cgi/tech/1598756127/583
584: デフォルトの名無しさん (ﾜｯﾁｮｲ 9fb5-K72c) [sage] 2020/10/15(木) 19:54:07 ID:hF5+vxPB0 もう時代遅れなのはわかってるけど 会社が2019に更新してまだまだ使う気満々なので そして配布が出来ないと困る http://mevius.5ch.io/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.io/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.io/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.io/test/read.cgi/tech/1598756127/587
588: デフォルトの名無しさん (ﾜｯﾁｮｲ 8bda-fMdf) [sage] 2020/10/16(金) 19:09:16 ID:Hr39/iau0 >>587 多分それ。 http://mevius.5ch.io/test/read.cgi/tech/1598756127/588
589: デフォルトの名無しさん (ﾜｯﾁｮｲ bb5f-snog) [] 2020/10/16(金) 19:55:23 ID:rggqlWcj0 PDFファイルの件は、マクロの記録でやるとどうなるのか、確認すればいいんじゃないの？ http://mevius.5ch.io/test/read.cgi/tech/1598756127/589
590: デフォルトの名無しさん (ﾜｯﾁｮｲ 8bda-fMdf) [sage] 2020/10/16(金) 21:55:06 ID:Hr39/iau0 なあそれ、マクロの記録をするとどうなるか確認してから言ってるのか? http://mevius.5ch.io/test/read.cgi/tech/1598756127/590
591: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f42-B8Ym) [sage] 2020/10/16(金) 22:07:10 ID:9Da+1I/Z0 モチのロンだぜ http://mevius.5ch.io/test/read.cgi/tech/1598756127/591
592: デフォルトの名無しさん (ﾜｯﾁｮｲ 5bda-fMdf) [sage] 2020/10/16(金) 22:24:45 ID:tI22s9TB0 モロのチンだぜ http://mevius.5ch.io/test/read.cgi/tech/1598756127/592
593: デフォルトの名無しさん (ｽｯﾌﾟ Sdbf-huX3) [sage] 2020/10/18(日) 16:09:00 ID:SMfw56kvd >>533 そういうことじゃねえ。 http://mevius.5ch.io/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.io/test/read.cgi/tech/1598756127/594
595: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MMe6-B6QP) [sage] 2020/10/22(木) 03:14:09 ID:RxEiNjgnM こまけぇこたぁ いいんだよ!! /) /／) ＿＿ `/ 二つ／⌒⌒＼ ｜ ﾆ⊃ (●)(●)＼ /＼ﾉ｜⌒(_人_)⌒｜ / ＞ ヽﾆﾉ ＜ http://mevius.5ch.io/test/read.cgi/tech/1598756127/595
596: デフォルトの名無しさん (ｽﾌﾟｯｯ Sd02-4ynI) [] 2020/10/22(木) 08:49:00 ID:8kbg1eIjd まだVBAなんて使ってる人がいてビックリ 懐かしい言語だよね http://mevius.5ch.io/test/read.cgi/tech/1598756127/596
597: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MMe6-B6QP) [] 2020/10/22(木) 09:02:14 ID:OZW0tgCBM Excel2000から20年なんて家電製品なら普通ですよ http://mevius.5ch.io/test/read.cgi/tech/1598756127/597
598: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-E8a6) [] 2020/10/22(木) 12:37:02 ID:QXcT5+jPM Excel5.0からだよ 16ビットだよ http://mevius.5ch.io/test/read.cgi/tech/1598756127/598
599: デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM15-o6QC) [sage] 2020/10/22(木) 12:37:11 ID:N0tQIHiYM >>596 今現在Excel入ってりゃ必ず使えるのはVBAだけだから まあ最近の言語に比べりゃ色々面倒な部分はあるけどちょっとしたツール程度ならなんとかなるぐらいの機能はあるし http://mevius.5ch.io/test/read.cgi/tech/1598756127/599
600: デフォルトの名無しさん (ﾜｯﾁｮｲ 05cc-LA9s) [sage] 2020/10/22(木) 17:17:13 ID:8WoYrv7v0 Ａ１に"2020/10/22"のように日付が入っています。 その日付が土曜日の場合、その月の何回目の土曜日かを調べるコードを教えてください。 http://mevius.5ch.io/test/read.cgi/tech/1598756127/600
601: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MMe6-FUnU) [sage] 2020/10/22(木) 17:41:32 ID:V9nm7cr3M 嫌です http://mevius.5ch.io/test/read.cgi/tech/1598756127/601
602: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-E8a6) [] 2020/10/22(木) 18:23:26 ID:jxPHtPQlM 22÷7 http://mevius.5ch.io/test/read.cgi/tech/1598756127/602
603: デフォルトの名無しさん (ﾜｯﾁｮｲ 86c3-m/xB) [sage] 2020/10/22(木) 18:50:04 ID:lPQIKdWd0 >>600 その日付は木曜日です http://mevius.5ch.io/test/read.cgi/tech/1598756127/603
604: デフォルトの名無しさん (ﾜｯﾁｮｲ e1d2-o8Qw) [] 2020/10/22(木) 18:56:20 ID:CJ3HroyY0 int((日-1)/7+1) http://mevius.5ch.io/test/read.cgi/tech/1598756127/604
605: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa45-S+8T) [sage] 2020/10/22(木) 19:08:32 ID:XgRR6MjRa days http://mevius.5ch.io/test/read.cgi/tech/1598756127/605
606: デフォルトの名無しさん (ﾜｯﾁｮｲ 21da-tMQb) [sage] 2020/10/22(木) 20:00:05 ID:Nlv/Qw7G0 >>596 ここでRuby教を広めようとしても無駄ですよ http://mevius.5ch.io/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.io/test/read.cgi/tech/1598756127/607
608: 600 (ｵｲｺﾗﾐﾈｵ MM69-joA3) [sage] 2020/10/22(木) 20:54:38 ID:EVMbdUMSM 〉〉604 ありがとうございます http://mevius.5ch.io/test/read.cgi/tech/1598756127/608
609: デフォルトの名無しさん (ﾜｯﾁｮｲ ee8e-rRPK) [sage] 2020/10/22(木) 21:21:26 ID:hm8FUbN60 いつものあいつか http://mevius.5ch.io/test/read.cgi/tech/1598756127/609
610: デフォルトの名無しさん (ﾜｯﾁｮｲ d163-MACq) [] 2020/10/22(木) 22:49:46 ID:kity+iCG0 FileSystemObjectの参照設定 VBAの中でできないのかな？ http://mevius.5ch.io/test/read.cgi/tech/1598756127/610
611: デフォルトの名無しさん (ﾜｯﾁｮｲ c2e6-dcnK) [sage] 2020/10/23(金) 00:04:14 ID:1WodYwaj0 エディタの支援が不要ならCreateObjectでええやん http://mevius.5ch.io/test/read.cgi/tech/1598756127/611
612: デフォルトの名無しさん (ｽﾌﾟｯｯ Sd02-oXyV) [sage] 2020/10/23(金) 00:50:10 ID:g9AT+l9rd >>610 出来る。 http://mevius.5ch.io/test/read.cgi/tech/1598756127/612
613: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MMe6-B6QP) [] 2020/10/23(金) 01:26:42 ID:ykqFrr6rM >>610 出来ない http://mevius.5ch.io/test/read.cgi/tech/1598756127/613
614: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa45-TzND) [sage] 2020/10/23(金) 02:25:13 ID:YKSIT3mga >>610 出来まい http://mevius.5ch.io/test/read.cgi/tech/1598756127/614
615: デフォルトの名無しさん (ｽｯｯﾌﾟ Sda2-AC5c) [sage] 2020/10/23(金) 02:48:18 ID:bmMgVHIId 競馬のオッズの取り込み教えて欲しい。 http://mevius.5ch.io/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.io/test/read.cgi/tech/1598756127/616
617: デフォルトの名無しさん (ｱｳｱｳｶｰ Sa89-VmZc) [sage] 2020/10/23(金) 08:37:04 ID:WT7JJPgTa 自分で思いつかないようなテクニカルなやり方してもあとで読む人が大変だし普通に配列ループでいいじゃん http://mevius.5ch.io/test/read.cgi/tech/1598756127/617
618: デフォルトの名無しさん (ﾌﾞｰｲﾓ MM76-H07y) [sage] 2020/10/23(金) 09:16:49 ID:0vnMylCPM VBAで済む事をわざわざ他言語でやる池沼よりマシ http://mevius.5ch.io/test/read.cgi/tech/1598756127/618
619: デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-tMQb) [sage] 2020/10/23(金) 10:42:10 ID:9+IFx01J0 >>616 一定数を超えるとエラーになるってわかっているんだから一定数を超えないようにすればいいんじゃね http://mevius.5ch.io/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.io/test/read.cgi/tech/1598756127/620
621: デフォルトの名無しさん (ﾜｯﾁｮｲ 8249-5+f8) [sage] 2020/10/23(金) 12:29:02 ID:u/a/wHRt0 あまり編集をしないのであれば、条件付き書式で勝手に色がつくようにするとか http://mevius.5ch.io/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.io/test/read.cgi/tech/1598756127/622
623: デフォルトの名無しさん (ﾜｯﾁｮｲ 3901-3XbD) [sage] 2020/10/23(金) 13:51:36 ID:DQVFwAwV0 ＞一次元配列に格納し これでループ回したところで体感できるような速度差は出ないと思うがな むしろRange内の文字列引数処理のほうが時間食われるんじゃないかと Union・・・どんなもんだろねぇ http://mevius.5ch.io/test/read.cgi/tech/1598756127/623
624: デフォルトの名無しさん (ﾜｯﾁｮｲ 02ad-dZ3m) [sage] 2020/10/23(金) 13:51:42 ID:TKI7l+v40 >>622 なるほど 引数上限の255文字が原因っぽいですね んー……そうするとやっぱり複数範囲をカンマ区切りでーは上限が発生しちゃいますよねぇ http://mevius.5ch.io/test/read.cgi/tech/1598756127/624
625: デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MMe6-FUnU) [sage] 2020/10/23(金) 14:36:51 ID:ITa0Mrx5M 255件程度ならどんな方法でもさして時間変わらないのでは screenupdating切れば一瞬で終わりそう http://mevius.5ch.io/test/read.cgi/tech/1598756127/625
626: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-E8a6) [] 2020/10/23(金) 15:36:44 ID:wfU4S4ZzM 数秒が待てないというのはイベント駆動でもさせる気なの？ http://mevius.5ch.io/test/read.cgi/tech/1598756127/626
627: デフォルトの名無しさん (ﾜｯﾁｮｲ 8201-ZFHv) [sage] 2020/10/23(金) 15:48:23 ID:BdUYZCjc0 エクセルでマリオカートを作ります http://mevius.5ch.io/test/read.cgi/tech/1598756127/627
628: デフォルトの名無しさん (ﾜｯﾁｮｲ 21da-tMQb) [sage] 2020/10/23(金) 18:52:38 ID:uwgUvjOA0 エクセルでねぇ・・。 実質DirectX頼りだろう。 セル書き換えじゃ60fps出ないし。 http://mevius.5ch.io/test/read.cgi/tech/1598756127/628
629: デフォルトの名無しさん (ﾜｯﾁｮｲ cd7c-z4aL) [sage] 2020/10/23(金) 19:17:52 ID:knErP7D20 255個ぐらいで数秒もかかるのはおかしい http://mevius.5ch.io/test/read.cgi/tech/1598756127/629
630: デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-tMQb) [sage] 2020/10/23(金) 19:24:37 ID:9+IFx01J0 ヒントならもらったろうに、あとはどう実装するかは自力で試行錯誤やればいいんじゃね http://mevius.5ch.io/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.io/test/read.cgi/tech/1598756127/631
632: デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-tMQb) [sage] 2020/10/23(金) 21:25:05 ID:9+IFx01J0 問題に取り組む姿勢がおかしい http://mevius.5ch.io/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.io/test/read.cgi/tech/1598756127/633
634: デフォルトの名無しさん (ﾜｯﾁｮｲ 0242-Kbrf) [sage] 2020/10/23(金) 22:37:29 ID:jmwa0xlU0 何をやってるかにもよるがそもそも一度に全部読み込まなきゃいいんじゃね http://mevius.5ch.io/test/read.cgi/tech/1598756127/634
635: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-zec2) [sage] 2020/10/23(金) 23:22:27 ID:/Kxbsbpt0 曜日の色付けなんてWEEKDAY関数と条件付き書式で良くないか？ 曜日ごとに文字列記入するところはマクロにしてるけど http://mevius.5ch.io/test/read.cgi/tech/1598756127/635
636: デフォルトの名無しさん (ﾜｯﾁｮｲ 3901-3XbD) [sage] 2020/10/24(土) 06:26:18 ID:Uy2SF5SV0 >>634 ＞一度に全部読み込まなきゃ そうやねぇ・・・ 週ごとにデータを集計してんだけどいまんところ一括で読み込ませてる 常時PC立ち上がってる環境だから逐次データ吸い上げていけば一番いいんだけどそうなると小手先の変更じゃなくて大枠に手を加えなきゃなんなくなるのが頭痛いところ てかこんなのエクセルでやらせんなよって話でもあるんだけどそうはいかない http://mevius.5ch.io/test/read.cgi/tech/1598756127/636
637: デフォルトの名無しさん (ﾜｯﾁｮｲ 02ad-dZ3m) [sage] 2020/10/24(土) 08:29:55 ID:Q0nf4D4p0 >>635 それでも良いんですけど、行ごとに工程の開始日と終了日を設定して工程の期間のセルは計画達成率ごとに緑、黄、橙、赤って着色する必要があり、その着色は開始日が平日なら土日祝日は着色しない、開始日が土日祝日なら期間中全てのセルを着色 とかやるんで条件書式でやるのかなり面倒なんですよね ユーザーには進捗率をスケジュール表に記入させるんですけど今日以降の進捗率は入力があっても認識から外さなければならないって仕様もあったりするんで http://mevius.5ch.io/test/read.cgi/tech/1598756127/637
638: デフォルトの名無しさん (ﾜｯﾁｮｲ cd7c-z4aL) [sage] 2020/10/24(土) 10:23:24 ID:EYzilKe/0 そのぐらいなら自分なら条件付き書式でやる http://mevius.5ch.io/test/read.cgi/tech/1598756127/638
639: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa45-TzND) [sage] 2020/10/24(土) 10:53:59 ID:Fj5xdFDia 毎回全部のデータつくりなおすのか 差分だけやるとか分割するとかしないのね http://mevius.5ch.io/test/read.cgi/tech/1598756127/639
640: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-1Dkg) [] 2020/10/24(土) 12:24:40 ID:9i+KquaLM あるフォルダに複数のエクセルがあります。 シートは必ず一枚。 一番ファイル名が短いエクセルに 他のエクセルのシートをコピーしてまとめたい。 どう書けば楽ですか。 http://mevius.5ch.io/test/read.cgi/tech/1598756127/640
641: デフォルトの名無しさん (ｻｻｸｯﾃﾛ Sp11-xxau) [sage] 2020/10/24(土) 12:36:09 ID:Gp+9LQQ1p >>640 一番短いファイル名で同じ長さのものが有った時点で破綻 次の方どうぞ〜 http://mevius.5ch.io/test/read.cgi/tech/1598756127/641
642: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 12:41:50 ID:hS/lv/UK0 その問題を作った先生を問い詰めろ！ http://mevius.5ch.io/test/read.cgi/tech/1598756127/642
643: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 12:43:08 ID:hS/lv/UK0 >>640 前提条件にリアリティがなさすぎるw http://mevius.5ch.io/test/read.cgi/tech/1598756127/643
644: デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-tMQb) [sage] 2020/10/24(土) 13:11:38 ID:uN2dIIGs0 >>640 「わかりません」って書いとけばいいよ http://mevius.5ch.io/test/read.cgi/tech/1598756127/644
645: デフォルトの名無しさん (ﾜｯﾁｮｲ 224b-FUnU) [sage] 2020/10/24(土) 13:18:00 ID:Lxq4fMOo0 >>640 その通り書けば楽です http://mevius.5ch.io/test/read.cgi/tech/1598756127/645
646: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 13:35:27 ID:hS/lv/UK0 エクセルがあるとは何ですか？ http://mevius.5ch.io/test/read.cgi/tech/1598756127/646
647: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 13:37:23 ID:hS/lv/UK0 Excelファイルのことを単にExcelと呼ぶのも違和感がある。 http://mevius.5ch.io/test/read.cgi/tech/1598756127/647
648: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMe6-1Dkg) [] 2020/10/24(土) 13:45:51 ID:9i+KquaLM >>641 同じ長さになることはありません 説明不足ですみません http://mevius.5ch.io/test/read.cgi/tech/1598756127/648
649: デフォルトの名無しさん (ﾜｯﾁｮｲ cd7c-z4aL) [sage] 2020/10/24(土) 13:46:27 ID:EYzilKe/0 何を条件にした楽なのか？ http://mevius.5ch.io/test/read.cgi/tech/1598756127/649
650: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 15:19:09 ID:hS/lv/UK0 ファイル名のことなんてあとで考えればよい。 まず手順を考えてください。 ファイル名は重要ではありません。 http://mevius.5ch.io/test/read.cgi/tech/1598756127/650
651: デフォルトの名無しさん (ﾜｯﾁｮｲ ee8e-rRPK) [sage] 2020/10/24(土) 15:29:59 ID:VJA5Q+pD0 いつものあいつっぽい http://mevius.5ch.io/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.io/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.io/test/read.cgi/tech/1598756127/653
654: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 17:16:31 ID:hS/lv/UK0 >>652 可読性の悪さw http://mevius.5ch.io/test/read.cgi/tech/1598756127/654
655: デフォルトの名無しさん (ﾜｯﾁｮｲ ee8e-rRPK) [sage] 2020/10/24(土) 17:22:25 ID:VJA5Q+pD0 土曜日のことを聞いていたのは例のあいつ http://mevius.5ch.io/test/read.cgi/tech/1598756127/655
656: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/24(土) 17:24:29 ID:hS/lv/UK0 >>652 どのワークシートなのか指定がないけど？ http://mevius.5ch.io/test/read.cgi/tech/1598756127/656
657: デフォルトの名無しさん (ﾜｯﾁｮｲ 2e02-tMQb) [sage] 2020/10/24(土) 19:06:56 ID:kz7Ernxq0 例のあいつが好きな人か http://mevius.5ch.io/test/read.cgi/tech/1598756127/657
658: デフォルトの名無しさん (ﾜｯﾁｮｲ cd7c-z4aL) [sage] 2020/10/24(土) 19:44:26 ID:EYzilKe/0 オブジェクトの指定も無いし存在しない命令も書いてあるし http://mevius.5ch.io/test/read.cgi/tech/1598756127/658
659: デフォルトの名無しさん (ｽﾌﾟｯｯ Sd02-oXyV) [sage] 2020/10/24(土) 19:53:11 ID:rvK7EvYrd >>610 個別的になるが出来る。 Application.VBE.ActiveVBProject.References.AddFromFileを使う。 VBEを弄るからセキュリティがザルだ。 わかってる奴以外は使わないことをお勧めする。 http://mevius.5ch.io/test/read.cgi/tech/1598756127/659
660: デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM4a-stnX) [] 2020/10/24(土) 20:28:18 ID:UZJZIrrqM >>652 Sheets("カレンダー")のあとにセル範囲を書けば動くんじゃね http://mevius.5ch.io/test/read.cgi/tech/1598756127/660
661: デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sda2-AOxM) [sage] 2020/10/24(土) 21:19:11 ID:9VZVkXWLd 理解しないまま適当にいじって、エラーが出る位置を見直そうともせず修正丸投げか http://mevius.5ch.io/test/read.cgi/tech/1598756127/661
662: デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MMd2-++O/) [sage] 2020/10/24(土) 23:09:15 ID:ZLw1Oaa2M だっていつもの人だもの http://mevius.5ch.io/test/read.cgi/tech/1598756127/662
663: 652 (ﾜｯﾁｮｲ 05cc-BPyH) [sage] 2020/10/24(土) 23:35:43 ID:h35l0z5Z0 >>653 どこにＳｅｔをつければいいか分かりません >>652 どうやって指定すればいいですか？ >>660 Worksheet.Function.VLookup(DateAdd("d", r, Date), Sheets("カレンダー").Range("A:C"), 2, False) <> 1 でも同じでした http://mevius.5ch.io/test/read.cgi/tech/1598756127/663
664: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/25(日) 01:39:45 ID:eXluQ9/t0 うるさい http://mevius.5ch.io/test/read.cgi/tech/1598756127/664
665: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MMd2-lCrg) [sage] 2020/10/25(日) 02:05:19 ID:mQ0mp2TEM >>663 いい加減にしろや 死ね http://mevius.5ch.io/test/read.cgi/tech/1598756127/665
666: デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-tMQb) [sage] 2020/10/25(日) 11:43:41 ID:R1nDOxYO0 >>663 基本的なことができてないようなので職場の他の人に頼んだ方が早いだろう http://mevius.5ch.io/test/read.cgi/tech/1598756127/666
667: デフォルトの名無しさん (ﾜｯﾁｮｲ ee63-9Kcm) [] 2020/10/25(日) 12:51:32 ID:6oKLzf6v0 ある変数に、なんでもいいから100文字セットしたい場合って どの関数使えばいいの？ str = "*****..."(100文字) と書くのはダサいから嫌です http://mevius.5ch.io/test/read.cgi/tech/1598756127/667
668: デフォルトの名無しさん (ﾜｯﾁｮｲ cd7c-z4aL) [sage] 2020/10/25(日) 12:58:10 ID:cOgZifE90 ダサいとする基準は？ http://mevius.5ch.io/test/read.cgi/tech/1598756127/668
669: デフォルトの名無しさん (ﾜｯﾁｮｲ 895f-fj89) [sage] 2020/10/25(日) 13:44:52 ID:eJOhPHQ60 >>667 WorksheetFunction.Rept("あ" ,100) http://mevius.5ch.io/test/read.cgi/tech/1598756127/669
670: デフォルトの名無しさん (ｽﾌﾟｯｯ Sd02-oXyV) [sage] 2020/10/25(日) 14:25:26 ID:f7KUnMgPd >>667 String(255,"*") http://mevius.5ch.io/test/read.cgi/tech/1598756127/670
671: デフォルトの名無しさん (ｽﾌﾟｯｯ Sd02-oXyV) [sage] 2020/10/25(日) 14:26:14 ID:f7KUnMgPd 100文字か。 String(100,"*") http://mevius.5ch.io/test/read.cgi/tech/1598756127/671
672: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa45-TzND) [sage] 2020/10/25(日) 14:53:37 ID:SDXJVscja >>667 その質問のほうがダサい http://mevius.5ch.io/test/read.cgi/tech/1598756127/672
673: デフォルトの名無しさん (ﾜｯﾁｮｲ ee63-9Kcm) [] 2020/10/25(日) 17:29:34 ID:6oKLzf6v0 >667 です 669-671 おかげさまでできました有難う天才たち http://mevius.5ch.io/test/read.cgi/tech/1598756127/673
674: デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MMd2-++O/) [sage] 2020/10/25(日) 19:06:05 ID:DNLjJymIM やっぱりいつものあいつでしたとさ http://mevius.5ch.io/test/read.cgi/tech/1598756127/674
675: デフォルトの名無しさん (ﾜｯﾁｮｲ fd5f-orSx) [] 2020/10/25(日) 19:23:20 ID:eXluQ9/t0 なんでもいいという要件がわからない。 http://mevius.5ch.io/test/read.cgi/tech/1598756127/675
676: デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-tMQb) [sage] 2020/10/25(日) 20:13:10 ID:R1nDOxYO0 からかわれている http://mevius.5ch.io/test/read.cgi/tech/1598756127/676
677: デフォルトの名無しさん (ﾜｯﾁｮｲ cd7c-z4aL) [sage] 2020/10/25(日) 20:37:35 ID:cOgZifE90 というかバカにされてるなたぶん http://mevius.5ch.io/test/read.cgi/tech/1598756127/677
678: デフォルトの名無しさん (ﾜｯﾁｮｲ d163-9Kcm) [] 2020/10/25(日) 21:38:09 ID:eeV8PNBf0 複数行まとめてコメントアウトしたい場合 どう書けばいいですか 一行ずつ'を入れたくないです。 http://mevius.5ch.io/test/read.cgi/tech/1598756127/678
679: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa45-ot4R) [sage] 2020/10/25(日) 22:03:05 ID:D3cPjOx/a 選択されたら行範囲をすべてコメント化/コメント解除はツールバーにある そのバーが非表示だと表示しなければダメだが あと、推奨されるかは分からないけど、 #if 0 then コメント化したい行 #end if とかよくやります http://mevius.5ch.io/test/read.cgi/tech/1598756127/679
680: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa45-ot4R) [sage] 2020/10/25(日) 22:04:11 ID:D3cPjOx/a 出だし 選択された行範囲… です http://mevius.5ch.io/test/read.cgi/tech/1598756127/680
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 322 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.184s*