Excel VBA 質問スレ Part72

1 名前：デフォルトの名無しさん mailto:sage [2021/07/18(日) 08:42:15.37 ID:KskL7bEXd.net] !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付けるナリ ExcelのVBAに関する質問スレナリ コード書き込みや作成依頼もOKナリ ※前スレ Excel VBA 質問スレ Part70 https://mevius.5ch.net/test/read.cgi/tech/1616072923/ Excel VBA 質問スレ Part71 https://mevius.5ch.net/test/read.cgi/tech/1621914481/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 669 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 11:34:50.96 ID:O3Ip+Qo9M.net] なんで？ 670 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 12:05:27.22 ID:ZUCCF//La.net] 目がアーモンドになる 671 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 12:37:46.09 ID:XzPbf7xa0.net] >>664 一般的ではないですよね 672 名前：デフォルトの名無しさん [2021/08/28(土) 13:21:54.79 ID:GacscTPG0.net] 今時エクセルで請求書を作る会社って 673 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 13:26:28.47 ID:XzPbf7xa0.net] >>669 なにでつくるの？ Accessは古すぎたしファイルメーカーは高すぎであきらめた 売上額月に600万程度だからExcelでも十分なんだよね 674 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 13:29:02.28 ID:Wn50/Mou0.net] 今時〇〇ってとか言うアホはスルーでいいよ 675 名前：デフォルトの名無しさん [2021/08/28(土) 13:34:29.23 ID:d2Jh3olLM.net] >>671 こういう馬鹿こそスルーだろ 請求書発行ソフトとか販売管理とか沢山あるだろ 676 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 13:41:02.22 ID:y1FEzj5CM.net] と、馬鹿が申しております。 677 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 13:41:56.34 ID:YRitmpAVd.net] >>672 市販のあわないだろ 678 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 13:50:09.98 ID:+T8TIHFV0.net] なんでそこで経理ソフトって出てこないんだろう・・・ 679 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 14:11:22.66 ID:Wn50/Mou0.net] >>672 Excelで間に合ってるならそれでええやん 外野が何言ってんだかって感じ 680 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 14:15:33.19 ID:OUVKMoF10.net] まあ間に合ってるってならエクセルでいいけど シェイプで線引くような帳票が間に合ってるといえるのか 俺なら罫線で間に合わせるけどな 681 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 14:39:40.62 ID:nfIYqgR90.net] EXCEL帳票って多いよね 請求書に限らず 682 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 14:43:17.47 ID:EKyvlYlFd.net] うちみたいな零細は帳票の枚数も少ないしExcelに罫線で十分なんだワ 専用ソフトは従業員が2桁人数になってからだな 683 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 14:50:21.30 ID:+T8TIHFV0.net] 請求書の罫線にこだわるって何の意味があるんだろうと思う 684 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 16:39:25.21 ID:XzPbf7xa0.net] >>680 ぶっといの気にならない？ 単なる美的センス的なこだわりだからとくに意味はないんだけどね ぶっとい枠線だらけの表とかみるとデザインセンスというか旧時代的な印象うけてしまう 685 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 16:40:04.12 ID:XzPbf7xa0.net] >>677 Excelで0.75とかひければ問題ないんですけどね 686 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 16:49:11.38 ID:clAN9KQWM.net] そもそも罫線レイアウトが旧時代的だよ 687 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 17:01:08.85 ID:Wn50/Mou0.net] >>681 さすがに旧時代的な印象だからって理由だったなら なぜExcelで？ってなるぞｗ 688 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 17:03:13.47 ID:XzPbf7xa0.net] >>683 でも印刷だと最低限は必要じゃない？ 数十行ならんでるととくに 交互に色変えるのはモノクロやプリンタによって大きくかわるからねえ 689 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 17:04:05.90 ID:XzPbf7xa0.net] >>684 線以外は不満ない Accessも線選べないから細い四角をかいてならべてる 690 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 17:15:47.71 ID:6AjG+XmcM.net] そこまで帳票にこだわるならCrystal Reportsとか使えばいいのに https://www.sap.com/japan/products/crystal-visual-studio.html 691 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 17:21:15.10 ID:W6iJhC5F0.net] >>687 クリスタルレポート、アクティブレポート、PDFも別言語では使うけどEXCEL使う場合も多いからやっぱり抑えておくべきだよ。 特にここ、EXCEL VBAのスレだし。 692 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 17:23:01.48 ID:XzPbf7xa0.net] >>687 >>688 はじめて聞きましたが世界標準なんですね 日本語ではあまり情報がないみたいですね 693 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 17:27:11.56 ID:W6iJhC5F0.net] >>689 今は特に気にしなくていいよ。 そもそもVBAから使ったことないから VBAから使えるか分からんし。 694 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 19:16:34.16 ID:6UyriYnia.net] VBA使って作るぐらいだから大げさなものではないと思うから正直なところ明細の罫線はなくてもかまわないのではと思う 罫線信仰については日本は細かいと思うわ それなら偶数行の背景に薄いグレーの背景色をつけたほうがきれいに見えるかと 695 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 19:21:46.63 ID:P0+dXebs0.net] 帳票とかでも罫線レイアウトしてるのはただ単に四角く収まってるだけで別に使いやすくともなんともないんだよな 項目の意味より見た目の収まりでレイアウトしてるから意味不明だし書き込むスペースが足りなかったりするし 696 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 19:22:16.12 ID:XzPbf7xa0.net] >>691 モノクロレーザーだと濃淡でないのでスクリーントーンみたいになるんですよね これみてたけど線があったりなかったり色付きだったり なんか世界的な基準とかあるんですかね？ https://i.imgur.com/GQyzXam.jpg 697 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 19:51:56.00 ID:6UyriYnia.net] どんなプリンタ使ってるか不明だけど印刷品質とかでモノクロレーザーでもそれなりな背景色つけられると思うから プリンタ側の設定みなおしてみたほうがよいのでは 基準なんて別にないでしょ作り手（提供者）のセンスだけかと 698 名前：デフォルトの名無しさん [2021/08/28(土) 20:04:28.62 ID:qSiuLs4Ta.net] 濃いグレーと薄いグレーがどう印刷されるかな 699 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 20:16:48.82 ID:k0s+jeSJH.net] Excelの設定でも解像度が指定できるしモノクロレーザーの設定でも濃度や網点の細かさぐらい変更できるのに 700 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 20:45:50.31 ID:XzPbf7xa0.net] >>696 300dpiだと文字がガタガタ 600dpiだと一番細いとされる点線が印刷されませんね 701 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 10:34:22.30 ID:7BYV+8iF0.net] 任意のセルを選択(飛び地あり)→数式の入っているセル全て値貼り付けしたくて作成しました 動くのですが100万を超えるデータで動かすと1分以上かかってしまいます 2次元配列？を使えば高速化できますか 配列は使ったことがなく説明を読んでも難しく混乱していしまいました よろしくお願いします Dim Sc As Range Application.Calculation = xlManual   Selection.SpecialCells(xlCellTypeFormulas, 23).Select   For Each Sc In Selection     Sc.Value = Sc.Value Next Sc … 702 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 10:45:24.11 ID:lED3Ocwo0.net] >>698 selectionしなければ早くなるかも Sub Macro2() Application.Calculation = xlManual For Each Sc In Selection.SpecialCells(xlCellTypeConstants, 23) Sc.Value = 5 Next Sc End Sub 703 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 10:45:44.98 ID:HK4nM9G2a.net] >>698 Selectionは極力使わない方がいい 数式の入ったCellsをUnionしていって、最後にUnion範囲に対して値貼り付けすれば？ 704 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 10:46:46.41 ID:lED3Ocwo0.net] 違った、こうか Sub Macro2() Application.Calculation = xlManual For Each Sc In Selection.SpecialCells(xlCellTypeConstants, 23) Sc.Value = Sc.Value Next Sc End Sub しかし選択してるのは定数なのに、valueをvalueにするの？ あんまり意味ない気がするんだけど 705 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 11:23:08.03 ID:7BYV+8iF0.net] >>701 ありがとうございます 試してみます コピペを繰り返すより代入した方が早い、と出たので上記のようになりました Range一辺倒だったのでUnionも調べてみます 706 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 11:34:43.22 ID:IYYa0ToFM.net] >>698 > Selection.SpecialCells(xlCellTypeFormulas, 23).Select >>701 > For Each Sc In Selection.SpecialCells(xlCellTypeConstants, 23) > しかし選択してるのは定数なのに、valueをvalueにするの？ > あんまり意味ない気がするんだけど … 707 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 12:40:07.80 ID:TcEoTH9E0.net] >>698 数式セルだけに限定しないで 全部貼り付けちゃえばいいんじゃないの Sub Macro3() Dim temp() temp = Selection Selection = temp End Sub 708 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 13:20:16.41 ID:TcEoTH9E0.net] >>698 あー選択が飛び地か　 飛び地のRangeを順に取得する関数ってあったっけ　 思いつかないので以下のように修正版。 splecialcellsを使う必要がない気がするが尊重して入れておいた // Sub Macro4() Application.Calculation = xlManual Application.ScreenUpdating = False myAddress = Split(Selection.SpecialCells(xlCellTypeFormulas, 23).Address, ",") Dim temp() For Each EE In myAddress temp = Range(EE) Range(EE) = temp Next End Sub 709 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 13:22:53.01 ID:FZqboG1a0.net] >>704 ひとつずつ処理するよりもこういう考え方が正しい 710 名前：698 mailto:sage [2021/08/29(日) 13:24:14.88 ID:7BYV+8iF0.net] 698です 色々と案をありがとうございます >>701は構文エラーとなってしまいました たしかにSelectionを使わなければ早くなりそうではあるのですが… またUnionでまとめる方法は飛び地がなければ良さそうですが、左に詰めて貼り付けされてしまい欲しい結果が得られませんでした >>704 こちらも隣接セルのみであれば問題なさそうなのですが複数セルだと1番左の列は問題ないものの他のセルが元データとは異なるデータがペーストされてしまいました 私の理解不足であれば申し訳ありません ちなみに列選択をした際に少しでもループを減らしたかったため数式セルに限定してみただけなので選択部分まとめてでも問題ありません 711 名前：698 mailto:sage [2021/08/29(日) 13:25:52.00 ID:7BYV+8iF0.net] >>705 更新せず書き込みすみません 試してみます 712 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 13:34:12.51 ID:lED3Ocwo0.net] >>701だけどスマン、間違えてた上にすげーアホなことやってたわ >>698 ＞任意のセルを選択(飛び地あり)→数式の入っているセル全て値貼り付けしたくて作成しました Sub tgggMacro2() Range("a1:z100").Value = Range("a1:z100").Value End Sub これでアカンのか ※cells.valueだとメモリ不足になる 713 名前：698 mailto:sage [2021/08/29(日) 18:40:28.03 ID:7BYV+8iF0.net] >>705 試してみました 成功する時と途中でオブジェクトの型が一致しない、とエラーになる場合があるようです 配列を理解できておらず、なぜエラーになるのか解決策にたどり着けていません 単独セルを選択している箇所でエラーになるように思います 実際に使用する際は1セルだけを選択することはまずないとは思うのですが… >>709 せっかく書いていただいたのですが求めている内容ではなさそうです 全て代入していいならほんとラクなんですけどね 714 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 19:03:27.49 ID:FZqboG1a0.net] >>710 数式セルを値貼り付けするならなんで709じゃだめなん？ 715 名前：698 mailto:sage [2021/08/29(日) 19:06:25.69 ID:7BYV+8iF0.net] >>711 対象のセルはファイルによって異なりますが数式をあえて残すセルもあります シート内の計算結果を全て値にしたい訳ではないのです 716 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 19:29:10.08 ID:sPGAkNt40.net] 後だしぃ 717 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 19:29:59.26 ID:sl9xswiTM.net] rangeを配列に格納 配列内で特定セルに該当する部分を値に書き換えて 一気に貼り付ける 718 名前：698 mailto:sage [2021/08/29(日) 19:35:54.89 ID:7BYV+8iF0.net] え…始めから飛び地ありの任意セルを選択した状態って書いてあるのに後出しと言われましても… 719 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 19:50:08.61 ID:lED3Ocwo0.net] >>698 恐らくこれが一番早いと思います 飛び地で値でコピーペーストはできないし、 配列はしんどい Sub Macro2() Application.Calculation = xlCalculationManual ' 手動計算にする Application.ScreenUpdating = False ' 描画を停止する For Each Sc In Selection.SpecialCells(xlCellTypeFormulas, 23) Sc.Value = Sc.Value Next Sc Application.Calculation = xlCalculationAutomatic ' 自動計算にする Application.ScreenUpdating = True ' 描画を再開する End Sub >>711 要は ・選択部分を値にするマクロが欲しい ・値にする部分はフォーマットによって変わる ※社内で様々なフォーマットがあり、今はそれぞれを作り込む暇がないので「選択＋値化」で逃がしている という事なのだろう >>714 飛び地ありで配列にうまく入れる方法ってあるのかな 720 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 19:58:18.50 ID:1aCvHSMxH.net] ワークシート→配列は無関係なセルも一気に読み込んで、書き戻す時は1個ずつにしてもそこそこスピードアップできそうな気がする 721 名前：705 mailto:sage [2021/08/29(日) 21:48:01.74 ID:TcEoTH9E0.net] >>710 もう手間のかかる子だなぁｗ Sub Macro5() Application.Calculation = xlManual Application.ScreenUpdating = False myAddress = Split(Selection.SpecialCells(xlCellTypeFormulas, 23).Address, ",") Dim temp() For Each EE In myAddress If Range(EE).Count = 1 Then Range(EE).Value = Range(EE).Value Else temp = Range(EE) Range(EE) = temp End If Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub 100万を超えるデータで動かすと何秒で終わるか教えてね 722 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 22:34:44.25 ID:lED3Ocwo0.net] >>718 横だけど Dim temp() temp = Range(EE) Range(EE) = temp これは Range(EE).value =Range(EE).value じゃダメなの？ 723 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 22:40:30.11 ID:zuaG9uH70.net] 最後にそもそも値貼付けする理由がないとかいうオチが待ってそうだな 724 名前：705 mailto:sage [2021/08/29(日) 23:13:06.85 ID:TcEoTH9E0.net] >>719 あ！ほんとだ 配列という言葉にこだわっちゃって無駄なことをしてたねｗ Sub Macro6() Application.Calculation = xlManual Application.ScreenUpdating = False myAddress = Split(Selection.SpecialCells(xlCellTypeFormulas, 23).Address, ",") For Each EE In myAddress Range(EE).Value = Range(EE).Value Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub 725 名前：705 mailto:sage [2021/08/29(日) 23:18:37.19 ID:TcEoTH9E0.net] そのそもrelaxtoolsとかになかったっけｗ 確認してないけど 726 名前：デフォルトの名無しさん mailto:sage [2021/08/29(日) 23:53:07.29 ID:V4lHBgfX0.net] エクセルVBAが、現在最も重宝される言語だってのはわかるし 自分も随分それで助けられてるんだけど、その次に学ぶべきなのは なんなんだろう。 VBA自体が終わった言語なのは明らかだし・・・。 JavaScript ? Rust?　その他？ 727 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 00:31:07.88 ID:ckBh8waKH.net] >>723 言語は手段、重要なのは目的 何をやりたいかで選べ たとえばスマホアプリを作りたいならJava 728 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 00:36:33.71 ID:HHMxmKKh0.net] VBAが必要な理由てさ、元データがExcelだから これ以上でもこれ以下でもないよね そしてそれはこれからも変わらないもの 729 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 07:18:10.56 ID:lQLq+TuC0.net] >>723 js： ブラウザのコンソールに入力or拡張機能が非常に強力 web関連では大体なんでも出来る ただ言語の仕様が色々と特殊 php： webサーバー作りたいならこれ 本格運用しようとすると、覚える事は非常に多い 特にセキュリティが鬼門 rust： 新機能てんこもりの革新的な言語！は大体廃れる 730 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 08:10:18.19 ID:g9J4xp5m0.net] >>723 VBAを学んだのなら VBA → VB.Net → C# が楽だろう。 VB.Netは文法的にはほぼVBAと一緒だから .Netの構成を覚えることに専念出来る。 VB.Netを覚えてしまえば次はC#だな。 逆に構成がVB.Netと殆ど一緒なので VBA → VB.Net を覚えるときより楽に 覚えることが出来るだろう。 もしWeb系をやりたいなら VBA → ASP.Net(VB) → ASP.Net(C#)と 言ったところか。 自信があるならVBA → C#でも構わないが、 折角だから寄り道してついでにVB.Net覚えて おいても損はないだろう。 731 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 08:17:51.42 ID:g9J4xp5m0.net] JavaScriptはWeb系やるのであれば必須言語だが、これはWebやるときに必要に迫られて変な話だけどやらざるを得なくなって勝手に身につく。 DB扱うのにSQLが必須になるのと同じ。 Rustはまだ扱っている書籍やサイトが少ないのでもう少し待ってからでも良いと思う。 732 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 12:20:59.93 ID:a1GphOXp0.net] >>723 もしかしてVBAしかできない人？ 興味があるなら全部やればいいじゃん 733 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 12:52:53.22 ID:4aBvuqYpa.net] 次にって言葉を汲んであげてもいいと思うな サラダ食ったあと次にカレーとデザートどっち食べるべきか聞かれても「興味あるなら全部食え」ってレス付ける？ 734 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 13:18:03.24 ID:a1GphOXp0.net] 食いたいもん食えよ 俺なら食いたいもん全部食うけどな 735 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 13:19:04.91 ID:a1GphOXp0.net] そもそも興味があるのにやらないでいるこ理由がわからない 736 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 13:29:28.16 ID:qdrPJ241M.net] ズラがずれてるぞ 737 名前： [] [ここ壊れてます] 738 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 13:37:49.06 ID:ckBh8waKH.net] 今は個別の言語の文法よりも、大量のライブラリにどんな機能があるかを知る方が重要 クラスやAPIをどれだけ知ってるかで作れる物が決まるんで 739 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 13:40:48.19 ID:a1GphOXp0.net] 結局やらないでしょう 740 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 13:43:40.08 ID:txgJXV1kM.net] >>723 GASとかPowerFXとかSalesforceとか VBA上がりなら本格的なプログラミングよりローコードに行ったほうがすぐ役立てられてコスパいいよ 741 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 17:19:00.03 ID:KZUgc5l+a.net] スレチなんでそろそろプログラマ板いってやればいいのでは 742 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 18:03:03.80 ID:SLXKrFaKa.net] HTAのVBScriptでExcel操作って出来ましたっけ？ 743 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 20:36:23.51 ID:AiTAdVKh0.net] 2年くらい前にここでお世話になって、会社でもかなりVBA触るポジションができて、かなり成長した (皆さんありがとう) クラスモジュールを触ったことがないんだけど、経験のため触っておいた方がいい？ 理解が深まるなら触りたい 744 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 21:34:10.98 ID:PPAHi4pc0.net] エクセルでフィルターがかけられないんですが、 誰か助けてください 1列を指定して並び替えとフィルターを開いてフィルター（F）を押せません。 ちなみに空白業はないのですが、、、 745 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 21:41:22.45 ID:PPAHi4pc0.net] 解決しました 746 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 21:43:52.41 ID:zNy1vYFAM.net] >>738 昔はできた記憶があるけどセキュリティとか厳しくなってるから今でもできるかはよくわからん 747 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 22:40:05.22 ID:mO4hpp7AM.net] >>739 たかがVBAにクラスなんか要らんよ 並のスキルのVBAerにメンテできなくなるから害悪ですらある 748 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 23:22:00.02 ID:g9J4xp5m0.net] >>739 VBAのクラスは継承が使えないから敬遠されがちではあるが、逆に他言語では委譲の知識を疎かにしがちだからやっておいても損はないな。 メソッド名を文字列で指定して呼び出すCallByNameのような命令もクラスでないと使えない気がしたしな。 749 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 23:24:06.07 ID:lQLq+TuC0.net] >>739 vbaのクラスはコンストラクタも継承もない どうせやるなら別言語を勉強するか、 sheetやcellsオブジェクトのメンバやメソッドでも眺めてる方が有意義と思う 750 名前：デフォルトの名無しさん mailto:sage [2021/08/30(月) 23:52:32.26 ID:g9J4xp5m0.net] >>745 引数が渡せないだけでコンストラクタやデストラクタはあるのでは？ 751 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 01:57:49.48 ID:ihx26wcM0.net] >>739 経験の為に触るのなら自宅の個人PCで作るだけにしとけ まず職場で見ることができる全てのExcelVBAのコード眺めてみて、 全てを理解できるようになるのが先 752 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 03:43:06.41 ID:JZqVSHwg0.net] >>739 何でもそうだけど使い処というものがあって、ひょっとしたらその機能を使えばもっと簡潔にコードが書けたり後でテストがし易くなったり、改修がし易くなるかも知れない。 けど、それがどういったものか分からなければ本当に使うべきか、どういった使い方をすべきかも分からない。だからまずそれがどういったものであるかを調べる必要がある。 調べた上で使うべきかどうかは自分で判断すること。 「結局使う必要がないなら無駄足じゃん！！」という結論に行き着くかも知れない。けど調べてついた知識は無駄にはならない。 興味があるのなら何でも調べてみればいい。 753 名前：デフォルトの名無しさん [2021/08/31(火) 05:26:47.90 ID:Bq4JJtE70.net] Googleスプレッドシートに置き換えが進んでいるのにExcelをできるだけ残させるような発想がよくわからない。 マイクロソフト内でも切るべき機能とされているのに。 754 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 06:03:59.14 ID:Ns860ecPM.net] >>749 > Googleスプレッドシートに置き換えが進んでいる > マイクロソフト内でも切るべき機能とされている 妄想でないならソースよろしく 755 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 06:42:25.04 ID:yu36xbaqd.net] >>749 新しい部署や若い会社とかならそうなのかもしれないけど、長続きして規模の大きい会社は大人数がずっとExcel使ってきてる訳だし、今更急にスプレッドシートに切り替えとか出来ないよ マクロなら尚更 VBAからGASに書き換えるのも面倒だし、スクリプトを編集するにもアカウントの権限が必要なせいで他部署へ許諾が必要な職場もあって面倒だったよ 756 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 07:10:44.50 ID:yu36xbaqd.net] >>739 もう運用しているブックについてはクラスモジュールに書き換えなくていいよ 引き継ぎの際にクラスモジュール扱える人が担当になるとは限らないしね ただ、自衛策として1度は扱っておいた方がいいよ 自分が引き継いだブックにクラスモジュールあったりしたら大変だしね。それに折角学ぼうとしてる所だし 757 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 07:11:08.63 ID:i7ARXDZV0.net] VBAやマクロゴリゴリのExcelが社内にない状態が想像できないのだが スプレッドシートって代替できるの？ 758 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 07:25:24.78 ID:yu36xbaqd.net] >>753 シート上の編集とかブック内の処理で済むようなマクロならば、スプレッドシートへ移動可能 ただ、サーバからCSVが送られてきて、マクロによってそのCSVを開いてから処理する、とかならば移動が出来てないのが実情かなあ なにせ、Excelで何ら問題なく業務できてるってなら、わざわざサーバやらブックやら仕様を変更してまでスプレッドシートに移すメリットは無いしね。仕様書作り直し、単体、結合テストやり直しとか無駄に工数かかるし。 社全体がスプレッドシートに切り替えるってなら知らん 759 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 08:07:31.43 ID:JZqVSHwg0.net] 変な話だな EXCELをWebで扱うなら 余程金の無い中小企業でも無い限り Office365の企業用ライセンス取得して Web版EXCELに移行するのが 自然な流れだと思うのだが。 もっとも通常はEXCELそのものを Web上でツールとして扱うのも考え辛い。 何故ならEXCELなどよりもっと Wrbでツール作るのに向いた言語が 幾らでもあるからだ。 そういう場合はEXCELはダウンロードされる 1ファイルという立ち位置になるからな。 760 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 10:03:50.16 ID:Kb4xw5qb0.net] With Worksheets("Sheet1") .Columns("1"). Copy Destination_ = ThisWorkbook.Worksheets("Sheet2").Columns("1") Sheet1のA列をSheet2にコピーするマクロを書いたのですが 1004エラーが出てしまいます。 どう直せばいいでしょうか？ 761 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 10:11:41.55 ID:7DaXmsNEa.net] >>756 こんな感じでは With Worksheets("Sheet1") .Columns("A:A").Copy Destination:=ThisWorkbook.Worksheets("Sheet2").Columns("A:A") End With 762 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 10:17:59.90 ID:rtPimGdF0.net] Sub TEST1() '「1つ目」のグラフの「1つ目」の系列の「名前」 Debug.Print ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Name End Sub 基本的な質問ですみません グラフに折れ線グラフが10本あって、その内1本をグラフ上で選択している時に 選択している系列名をVBAで取得するにはどう書けばいいでしょうか？ あるいはSeriesCollection(1)の1という数字の部分が何なのか取得できますか？ 763 名前：デフォルトの名無しさん [2021/08/31(火) 10:34:44.96 ID:RXuTL+ZfF.net] forでまわしてselectedで見る とか 764 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 10:44:19.53 ID:rtPimGdF0.net] >>759 すみませんもう少し詳しく selectedというのはどういう使い方をするんでしょう？ 765 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 11:03:21.16 ID:0ik848aIM.net] マクロの記録で見れ 766 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 11:13:09.09 ID:rtPimGdF0.net] これでは以下のエラーが出るのですが どこが間違ってますでしょうか？よろしくお願いします for i = 1 to ActiveChart.SeriesCollection.Count If ActiveChart.SeriesCollection(i).Selected Then beep endif next 実行時エラー'438': オブジェクトは、このプロパティまたはメソッドをサポートしていません。 767 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 11:30:45.05 ID:NESsP7iO0.net] >>762 まず、ActiveなChartがあるかを確認 そして、ChartObjectはマクロの記録どおりに動かないことが多いので、ActiveChartの後に.Chartを挿入して試してみる 参考 officetanaka.net/excel/vba/graph/09.htm 768 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 12:01:04.19 ID:7DaXmsNEa.net] >>762 こういうのはどう？ Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long) If ElementID = xlSeries Then Debug.Print ActiveChart.SeriesCollection(Arg1).Name End If End Sub 769 名前：デフォルトの名無しさん mailto:sage [2021/08/31(火) 13:36:21.23 ID:rtPimGdF0.net] >>763 for 文の直後に ActiveChart.SeriesCollection(i).select とすると折れ線グラフは次々と選択されるのでChartはあると思うのですが if文入れるとエラーが出ます・・・ 的外れなこと言ってたらゴメンなさい >>764 検索するとアドイン？のイベントプロシージャになるんでしょうか？ かなり調べてみないと自分には理解できないかもしれません・・・ もう少し頑張ってみます

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef