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 610 名前：デフォルトの名無しさん mailto:sage [2021/08/22(日) 22:29:56.81 ID:fZZZNArf0.net] >>605 だよね そもそもループに拡張子を変えたファイルを追加しようって考えがズレてるだけだよな 611 名前：604 mailto:sage [2021/08/22(日) 23:15:55.98 ID:aqCRpfAk0.net] 完全に、処理を分けて作る まず、拡張子だけを変える。 これで処理対象のファイルを確定させる その後、処理対象のファイルだけを処理すればよい。 この手順なら、処理中に処理対象のファイル数が増減することはない とにかく、バグらないような手順を作ることが大事 612 名前：デフォルトの名無しさん mailto:sage [2021/08/23(月) 08:26:55.69 ID:LGNn5NAE0.net] >>605 Goto文使うのはエラーのときと エラーとエラーじゃないときの 同じ後始末の部分以外は使うなって 死んだばあちゃんが言ってた 613 名前：デフォルトの名無しさん mailto:sage [2021/08/23(月) 08:53:51.78 ID:cXrkxB5+0.net] >>609 初心者にはそれしか解法がわからない場合もあるかなと思って プロシージャ分割とかも理解できない場合は、とりあえず動くプログラム作れたらなと 614 名前：デフォルトの名無しさん mailto:sage [2021/08/23(月) 10:54:22.12 ID:FgZeCk1s0.net] goto finaly 615 名前：デフォルトの名無しさん mailto:sage [2021/08/23(月) 23:10:58.58 ID:JXgHy/i50.net] ちょっとスレ違いで恐縮ですが知ってる方がいたら教えてください　3D CAD(catia v5、ソリッドワークス、NXなど)のVBAについて話題にしてるスレとかご存知の方いれば教えてください 616 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 01:04:28.30 ID:O47VPk1P0.net] そんなものはない 617 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 01:15:14.20 ID:F5g8S0IPM.net] >>612 これらの3D CADにVBAが載ってるの？ 618 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 04:11:27.55 ID:daNQErAcH.net] エスパーするとマクロのことだろ 619 名前：デフォルトの名無しさん [2021/08/24(火) 05:20:46.31 ID:TjlSba9p0.net] >>612 馬鹿は死ね 620 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 08:13:34.81 ID:klPKE9MS0.net] >>612 そんなスレは存在しないし立てたとしても誰もレスしないだろう。 質問があるならこっちで聞けばひょっとすると誰か答えてくれるかもな スレ立てるまでもない質問はここで 157匹目 https://mevius.5ch.net/test/read.cgi/tech/1624024239/ 621 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 08:30:12.55 ID:g24P+U87M.net] 調べたら、SolidWorksはAPIでVBAとかC(++)とかから呼び出せるみたいだから、Excel VBA で呼ぶ範囲ならこのスレでも良いんじゃない？ CAD ソフト側の特有の動作は答えられる人少ないか居ないだろうけど 622 名前：デフォルトの名無しさん [2021/08/24(火) 09:09:24.64 ID:4r51bMHN0.net] >>618 そんな質問してないだろ 623 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 12:58:36.89 ID:v4BujoFfM.net] SolidWorksのAPI呼んでなにかしようとするような奴がこんfなスレでVBAの質問なんてしないだろw 624 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 13:07:40.15 ID:Ggt7zoavM.net] でも、3D CADのVBAって言っちゃうレベルの質問者さんだし... 625 名前：デフォルトの名無しさん [2021/08/24(火) 15:14:02.93 ID:WZMj7UxVF.net] 馬鹿には無理 626 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 18:59:28.08 ID:Tulkbq4hM.net] 最悪go toもありだろ 627 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 20:36:36.02 ID:DkRvLF/FM.net] おまいら、質問者を馬鹿にするのやめろよ 628 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 21:11:06.89 ID:4FqDVhnYM.net] 「貴方には無理」と言ってあげるのも親切 馬鹿が諦めず無理してるおかげで周囲は迷惑してる 629 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 21:17:10.14 ID:PotHtuTn0.net] dllやAPIアリならもうなんでもｖｂａのような 630 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 21:17:46.98 ID:PotHtuTn0.net] 知ってたら答えるけど、あまりにも知ってる人が少なすぎる メーカーに聞いた方が早いとおもう 631 名前：デフォルトの名無しさん mailto:sage [2021/08/24(火) 22:24:25.02 ID:EnLftN4na.net] >>612 話題になってませんが聞くならこっちのスレかな？ VBAなんでも質問スレ Part2 [転載禁止]©2ch.net https://itest.5ch.net/mevius/test/read.cgi/tech/1432173164 0001 デフォルトの名無しさん 2015/05/21 10:52:44 VBAを使った質問ならなんでもござれ 本来の対象であるオフィスアプリを操作する以外の話もＯＫ ゲーム作り、Webアクセス、外部アプリの操作 COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど VBAで実行するものであればなんでも質問してください 632 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 00:31:39.65 ID:1unhm7rk0.net] VBEの入力支援で「WorksheetFunction」って邪魔ですよね。 「Worksheets」が第一候補に表示されればいいのに。 633 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 01:55:37.60 ID:7J8MKXIfa.net] 辞書順だから仕方がないよね 634 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 07:25:33.24 ID:SRu++D3OM.net] 客先のお偉いさんにコンテンツの有効化を行わずにマクロを動かせと無茶振りされるなどした 決してデジタル署名云々をなどという話ではなく 既存のツールのコードをいじらずにWorkbook_Openのイベントを回避せよとのご指示を頂いたのだ どうしたものか 635 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 07:35:04.03 ID:ltkpDR880.net] >>631 他のブックにマクロを書いて ・イベント停止 ・ブックopen Sub foo() Application.EnableEvents = False Workbooks.Open (ThisWorkbook.Path & "\book1.xlsm") Application.EnableEvents = True End Sub 636 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 07:39:39.81 ID:SRu++D3OM.net] あ、他ファイルの新規作成も一切ダメだそうです 637 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 07:50:37.91 ID:ltkpDR880.net] じゃあ基本イベント停止にしてマクロを動かしたい時だけ Application.EnableEvents = True だな 638 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 08:12:30.95 ID:SRu++D3OM.net] 既存のツールのコードに手を加えるのはNG、別のファイルを作成するのもNG、数百人ほどいる作業員に配布してるツールだからExcelの設定を変更して回るのも現実的ではない 要するに作業工数を発生させずにイレギュラーに対応出来る特殊仕様用のツールを作れって事みたい 639 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 09:17:10.78 ID:ZSU75DCm0.net] なんか話おかしくね そのイレギュラー対応ツールはどこに置いて誰が使うことを想定してんだ 640 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 09:40:43.13 ID:ZqZAJ3QxM.net] 相手すんなよ偉いさんに振られた内容を盛って語ってるだけだろ そもそも客先からの要請なら普通にできないって断ればいいだけだし 641 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 10:21:16.42 ID:SRu++D3OM.net] いやまぁ断るんだけどさ 逐一ネットワークドライブのファイルとやりとりをしてるツールを社外の下請け業者にも使わせたいんだと まぁ当然ながら下請け業者からはネットワークドライブに接続はできないんよ だから何するにしてもエラーが出ます。なんならファイルを開いた時にコンテンツの有効化を押した時点でエラー出ますよ。って言ったらコンテンツの有効化を押さずにマクロを動かせば良いじゃないかって怒鳴りながら台パンされたのが昨日の話 642 名前：デフォルトの名無しさん [2021/08/25(水) 10:33:09.92 ID:PF+Wtj1u0.net] それで金もらうんでしょ 643 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 13:39:00.29 ID:9wT7W/qy0.net] >>638 断るという方針を決めているなら解決だな 644 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 14:41:15.54 ID:j973WKJq0.net] ユーザーフォームのコンボボックスでドロップボタンをおすと実行され、リストができるのですが、項目を選択しても反映されず空欄になってしまいます。 反映されるにはどうしたらいいでしょうか Private Sub ComboBox3_DropButtonClick() Dim LastDay As Long, MyYear As Long, MyMonth As Long, r As Long With UserForm1 .ComboBox3.Clear MyYear = Val(Replace(ComboBox1.Value, "年", "")) MyMonth = Val(Replace(ComboBox2.Value, "月", "")) '来月１日の１日前から今月の対象月の終了日を算出する LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0)) 'リストボックス３に今日の日付リストを入れる For r = 1 To LastDay .ComboBox3.AddItem r & "日" Next r End With End Sub 645 名前：デフォルトの名無しさん [2021/08/25(水) 14:45:50.68 ID:vgh3MVy/M.net] しらんけど 月の変更時にやるもんじゃね？ 646 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 15:11:25.13 ID:9wT7W/qy0.net] 知らんけど変数の頭によくMyとかmyとか付ける人いるけど私の年とか私の月なの？ 647 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 15:32:21.08 ID:KYWpPte7M.net] mousedown でやるとか？ 648 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 15:50:44.79 ID:ZSU75DCm0.net] ComboBox3のイベントでやることじゃないんじゃね 649 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 17:16:17.54 ID:92U/3Tama.net] DropButtonClickが発火していない可能性をまず見る Combobox1とCombobox2の頭に「.」が付いていないことが原因か調べる 来月1日の1日前から今月の対象月の終了日…の日本語がよくわからんが、仮にMyMonthが12ならどうなるの？というのは気になる そもそもDay関数で0日を指定しているんだから、どうやってもLastDayって0になるんでは？ 最後のが原因かとは思うが、とりあえず気になったところを 650 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 17:19:41.69 ID:92U/3Tama.net] >>646 どうやら0日を指定すると前月末になる仕様なのね 誤った理解で申し訳ない https://vbabeginner.net/find-number-of-days-in-month/ 651 名前：デフォルトの名無しさん mailto:sage [2021/08/25(水) 18:17:55.62 ID:7AvRhiNY0.net] >>419 「100点取らなきゃいけない数学のテストが延々と続く」って 表現したことあるけど、あんたの表現は簡にして要を得てるな。 652 名前：デフォルトの名無しさん mailto:sage [2021/08/26(木) 01:04:55.66 ID:3Wwx5xcw0.net] >>641 まぁなんでもいいんだけどこういうテストしてみる TextBox1を設置してプロパティのmultilineをtrueにしておく んでコンボボックスのイベントの下の方にちょい付け加えてこうする Private Sub ComboBox3_DropButtonClick() Dim MyYear As Integer Dim MyMonth As Integer Dim LastDay As Integer With UserForm1 .ComboBox3.Clear MyYear = Val(Replace(ComboBox1.Value, "年", "")) MyMonth = Val(Replace(ComboBox2.Value, "月", "")) '来月１日の１日前から今月の対象月の終了日を算出する LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0)) 'リストボックス３に今日の日付リストを入れる Dim r As Integer For r = 1 To LastDay .ComboBox3.AddItem r & "日" Next r End With TextBox1.Text = TextBox1.Text & Now & vbNewLine'←これ End Sub すると、combobox3でリスト開いた時だけじゃなくて、アイテム選択したときもイベントが発生していることがわかる 653 名前：デフォルトの名無しさん mailto:sage [2021/08/26(木) 01:06:07.22 ID:3Wwx5xcw0.net] そもそもcombobox3は結果表示のコントロールだから、ここに余計なもの置くべきじゃないわ Option Explicit Private Sub ComboBox1_Change() If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then AddItemToComboBox3 End If End Sub Private Sub ComboBox2_Change() If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then AddItemToComboBox3 End If End Sub Sub AddItemToComboBox3() Dim MyYear As Integer Dim MyMonth As Integer Dim LastDay As Integer With UserForm1 .ComboBox3.Clear MyYear = Val(Replace(ComboBox1.Value, "年", "")) MyMonth = Val(Replace(ComboBox2.Value, "月", "")) '来月１日の１日前から今月の対象月の終了日を算出する LastDay = Day(DateSerial(MyYear, MyMonth + 1, 0)) 'リストボックス３に今日の日付リストを入れる Dim r As Integer For r = 1 To LastDay .ComboBox3.AddItem r & "日" Next r End With End Sub 654 名前：デフォルトの名無しさん mailto:sage [2021/08/26(木) 01:06:23.79 ID:3Wwx5xcw0.net] >>650続き Private Sub ComboBox3_DropButtonClick() '空にする End Sub Private Sub UserForm_Initialize() ComboBox1.AddItem "2021年" ComboBox2.AddItem "8月" End Sub 655 名前：デフォルトの名無しさん mailto:sage [2021/08/26(木) 01:08:23.20 ID:3Wwx5xcw0.net] Option Explicitつけないのがはやりなんかね 宣言しねぇのがはやりなんかね 656 名前：デフォルトの名無しさん [2021/08/26(木) 10:50:03.92 ID:3EUdzNHVM.net] 質問には必要だが 回答には不要 657 名前：デフォルトの名無しさん mailto:sage [2021/08/26(木) 14:29:16.05 ID:/k4Lkr6/0.net] VBAのコードを書くウインドウが何かのタイミングで個別ウインドウ表示に切り替わり、バラバラになって元に戻らなくなってしまったのですが、 プロジェクト一覧などが左側にある初期状態に戻すにはどうすれば良いのでしょうか？ 658 名前：デフォルトの名無しさん mailto:sage [2021/08/26(木) 14:59:17.57 ID:2GwscEzmH.net] >>654 KYCU\SOFTWARE\Microsoft\VBA\7.1\Common\Dockを削除 完全な初期状態だと使いにくいから、自分流にカスタマイズした後Common以下を保存しとくといい 659 名前：641 mailto:sage [2021/08/26(木) 17:19:31.21 ID:eaDIsBK00.net] 皆様ありがとうございます。年と月の変更時に組み替えてできるようになりました >>642 それに変更しました >>644 試しましたが、リストの表示すらされませんでした >>645 その通りでした >>650 ありがとうございます。 660 名前：デフォルトの名無しさん mailto:sage [2021/08/26(木) 19:24:12.66 ID:/k4Lkr6/0.net] >>655 ありがとうございます！リセット機能が無いのですねぇ 661 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 02:17:56.45 ID:XzPbf7xa0.net] 請求書つくってて1行ごとに仕切り線を挿れたいです 入力があるセルのセルの下に、オートシェイプ（0.75ptなどの線）を引くことはできませんか？ 規定の線では太すぎて表がごちゃごちゃになってしまいます（細線では複数のプリンターでかすれて出ませんでした） Excelでは線の種類が少ないので望みの書類をつくれない、力技でオートシェイプで引きたいけど手作業では大変 請求書データをコピペしてボタンおしたらオートシェイプの線がセルに沿ってしかれる、としたいです 662 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 02:53:29.63 ID:K563/rxVd.net] >>658 できます 663 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 02:57:38.41 ID:K97Q7PgmM.net] 条件付き書式で罫線を引いて 線の太さは色をグレーにしてごまかす VBA使わないなw 664 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 03:20:48.79 ID:k0s+jeSJH.net] >>658 '何か入力済のセルにオートシェイプで下線を引く Sub Macro1() 　　For Each c In ActiveSheet.UsedRange 　　　　If c.Text <> "" Then Call セルに下線(c.Row, c.Column) 　　Next End Sub Sub セルに下線(r, c) 　　x1 = Cells(1, c).Left 　　x2 = Cells(1, c + 1).Left 　　y1 = Cells(r + 1, 1).Top 　　y2 = y1 　　ActiveSheet.Shapes.AddConnector(msoConnectorStraight, x1, y1, x2, y2).Select 　　With Selection.ShapeRange.Line 　　　　.ForeColor.RGB = RGB(0, 0, 0)　　'黒 　　　　.Weight = 0.75　　'太さpt 　　End With End Sub 665 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 03:32:32.93 ID:XzPbf7xa0.net] >>660 それだとモノクロプリンタに対応できません あと太いのは太いのでやぼったいですよね >>661 休み明けに頑張ってみます オートシェイプで選択できる太さはすべて指定出来ますよね？ 666 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 03:44:32.68 ID:3njcewBU0.net] Shape系って使うのはいいんだけど削除してもオブジェクトが残るバグってない？ 以前苦しんだ記憶が 667 名前：デフォルトの名無しさん mailto:sage [2021/08/28(土) 05:22:31.37 ID:1cfI7qZ1M.net] モノクロプリンタでもグレーぐらい印刷できるやろ 668 名前：デフォルトの名無しさん [2021/08/28(土) 11:23:58.24 ID:wL/wcpIq0.net] グレーはやめとけ 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番左の列は問題ないものの他のセルが元データとは異なるデータがペーストされてしまいました 私の理解不足であれば申し訳ありません ちなみに列選択をした際に少しでもループを減らしたかったため数式セルに限定してみただけなので選択部分まとめてでも問題ありません

---

---

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

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