Excel VBA 質問スレ Part58

**デフォルトの名無しさん** · 2018/11/19(月) 06:47:24.99

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part57
https://mevius.5ch.net/test/read.cgi/tech/1536583359/

**デフォルトの名無しさん** · 2019/01/18(金) 04:56:39.52

馬鹿には入れさせないだけ

**デフォルトの名無しさん** · 2019/01/18(金) 08:20:26.64

>>515
別にわざわざでは無いけどね。
一瞬で出来るんだわ。
それ用のツールを昔、作ったんでね。

>>519
それは仕事の規模によるだろ。
それに、こっちも入れる迄もないと思ってるから申請なぞせんぞ。
VBAだとどうにもならない仕事が継続的に続くなら申請するんだろうが。

**デフォルトの名無しさん** · 2019/01/18(金) 08:59:50.59

まずOS標準のPowershellでできることをやる
規模が大きくなって型安全性などが欲しくなったら.net CLIとVSCodeを入れる
VBAは本当にVBAが必要で他に選択肢がない場合にしょうがなく使う

**デフォルトの名無しさん** · 2019/01/18(金) 09:13:15.26

なんでExcel標準のVBAを使わないのかねw
バカじゃないの?

**デフォルトの名無しさん** · 2019/01/18(金) 09:58:22.02

VBAは公式には「レガシー」で「非推奨」な機能だよ

**デフォルトの名無しさん** · 2019/01/18(金) 10:27:15.84

うちは無料ならツール申請すれば通常通るし、理由もそんなに掘り下げて詮索されることはない。
有料だととたんにハードルが上がるけど。
んでVisual Studioやらなんやら入れた後もVBAはがんがん使ってるな。
C++/C#と比較してもアドバンテージはあると思うよ。
ちなみにPowershellは起動できないようになってる。権限の問題だから単なるインストール申請よりハードル上がるとおもう。

**デフォルトの名無しさん** · 2019/01/18(金) 12:01:36.56

>>526
C# を禁止せずに PowerShell 禁止とか意味わからん
まあよくわかってない情シスとかが決めてたりするんだろうな

**デフォルトの名無しさん** · 2019/01/18(金) 12:06:44.97

>>527
そりゃ情シスなんかちょっとだけ意識高いPCユーザーに過ぎないんだから、その辺の層の人にとってexeは怖いでしょ
PowerShellなんか所詮テキストファイルだから安心

**デフォルトの名無しさん** · 2019/01/18(金) 12:54:22.16

PowerShellはデフォルトで実行出来ないでしょ。
で、実行できるようにして良いかが問題となる。

**デフォルトの名無しさん** · 2019/01/18(金) 13:32:03.41

うちは共有pcだと社員の個人情報とか社外秘のデータも扱っているから
情報漏洩やコンプライアンスはうるさいんだよね
そういうの適当な会社がうらやましいよ

**デフォルトの名無しさん** · 2019/01/18(金) 13:46:56.62

>>528
？？？
禁止してるのはテキストファイル（PowerShell）の方だよ？

**デフォルトの名無しさん** · 2019/01/18(金) 13:52:14.57

>>529
> PowerShellはデフォルトで実行出来ないでしょ。
できるよ
powershell -ExecutionPolicy RemoteSigned xxxx.ps1
ってやるだけ

**デフォルトの名無しさん** · 2019/01/18(金) 15:05:03.66

PowerShellデフォルトでスクリプト実行できないのは致命的。
「え？デフォルトからセキュリティ弛めるの？大丈夫なの？」ってなる。

**デフォルトの名無しさん** · 2019/01/18(金) 15:58:31.39

>>533
>>532

**デフォルトの名無しさん** · 2019/01/18(金) 18:10:43.98

>>534
ウザっ

**デフォルトの名無しさん** · 2019/01/18(金) 18:21:14.18

>>532
それをどこでやるの?
当然ダブルクリック1発でできるんだよね。

もしかしてそのためにバッチファイルも作るとか言わんよな。

**デフォルトの名無しさん** · 2019/01/18(金) 18:36:02.88

>>536
やれる/やれないの話な
後出しでダブルクリックガーとか恥ずかしすぎるだろ w
ちなみに若干トリッキーだがバッチファイルにPowerShellのソースを入れちゃうこともできる

**デフォルトの名無しさん** · 2019/01/18(金) 19:50:38.17

ExecutionPolicyはCurrentUserスコープなら権限不要で変更可能
陽
この情報はプロならみんな知ってるけどアマチュアは知らない人が多いね

**デフォルトの名無しさん** · 2019/01/18(金) 20:36:05.00

実行の話じゃないでしょ

**デフォルトの名無しさん** · 2019/01/18(金) 20:43:46.91

>>537
???
今まで何の話をしてたんだ?
PowerShellの方がVBAより有利だと言いたかったんじゃないの?

君の発言を聞いてるとPowerShellはますます使いものにならないように感じるんだが、もしかして君は実はVBAの方が有利だと言いたかったのか?

**デフォルトの名無しさん** · 2019/01/18(金) 21:06:07.91

>>540
> 今まで何の話をしてたんだ?
>>529 > PowerShellはデフォルトで実行出来ないでしょ。
とか言う情弱がいたって話 w

**デフォルトの名無しさん** · 2019/01/18(金) 21:45:43.94

あれ？ ExcelってVBAをデフォルトで実行できたっけ？

**デフォルトの名無しさん** · 2019/01/18(金) 22:19:33.59

>>542
まあ設定いるんだけど管理者権限は要らない
PowerShell も>>538が言うように管理者権限不要だけど>>529はSet-ExecutionPolicyの-scopeを知らなかったんだろうな

**デフォルトの名無しさん** · 2019/01/18(金) 23:37:19.13

設定を変えなければ動かないことをデフォルトでは動かないというんじゃないかね
設定を変えるのが簡単かどうかは別問題だろ

**デフォルトの名無しさん** · 2019/01/18(金) 23:49:44.04

右クリックするだけだろ

**デフォルトの名無しさん** · 2019/01/19(土) 00:13:36.27

既定では
右クリック→管理者として実行
右クリック→やWindowsPowerShellで実行

いずれも.ps1スクリプトは実行できない

>>543もまちがい
既定状態のPCでも
powershell -executionpolicy remotesigned -file 'hoge.ps1'
などと打てば自動的にプロセススコープで自作のスクリプトなどを実行可能

**デフォルトの名無しさん** · 2019/01/19(土) 02:49:20.82

PowerShell -Part 3
https://mevius.5ch.net/test/read.cgi/tech/1539074808/

**デフォルトの名無しさん** · 2019/01/19(土) 05:10:03.36

>>544
だからそんなこと言い出したらVBAだってディフォルトでは動かないって話
逆にPowerShellはオプションつければ設定変更なしに実行可能
要するに>>529が情弱っていう事実は変わらない

>>546
> >>543もまちがい
話の流れを読めよ…
既に>>532に書いてあることでドヤ顔されても困る w

**デフォルトの名無しさん** · 2019/01/19(土) 06:27:03.00

VBAってデフォルトでは動かないんだっけ？
マクロ入りファイルを開く時は許可か設定が必要だけど、新規ブックならいきなり使えたような
再インストールして確認するのは面倒だからうろ覚えだけど

**デフォルトの名無しさん** · 2019/01/19(土) 07:08:08.04

VBAはそもそもオフィスのインストールという過酷な作業が必要だからな
アマチュアの事務員さんは用意されたパソコンを使うだけだから知らないのかもしれないがな
プロはプロジェクトのたびに全員のパソコンを誰かが準備しなきゃならんのよ
オフィスのインストール作業は地味にでかい工数になるんだ

**デフォルトの名無しさん** · 2019/01/19(土) 08:17:46.72

デフォルトで信頼されてる場所のファイルでも動かなかったっけ？

大昔のエクセルならデフォルトでどこでもマクロ動いてたけどなｗ

**デフォルトの名無しさん** · 2019/01/19(土) 10:55:07.59

実行するファイルとは別に呼び出す仕組みを用意する必要があるからpowershellがクソだって言われてるのが分からないのか？
頭悪すぎない？

**デフォルトの名無しさん** · 2019/01/19(土) 11:03:22.61

実行スコープを細かく規定出来るのは進歩。クソだとのたまうアホはセキュリティ意識がおかしい

**デフォルトの名無しさん** · 2019/01/19(土) 11:07:55.26

右クリックするだけだろ

**デフォルトの名無しさん** · 2019/01/19(土) 11:12:21.71

そのスコープを組み込めない時点で終わってるという話をしているんですよ？

**デフォルトの名無しさん** · 2019/01/19(土) 11:39:33.19

スコープを組み込む

この言葉の意味がよくわからんので詳しく説明してみて

**デフォルトの名無しさん** · 2019/01/19(土) 11:47:23.37

vbaもエクセルファイル自体が実行可能な訳じゃなくエクセルというプログラムが解釈してやってるだけ
なのでvbaも別に呼び出す仕組みが必要と言っていい
その仕組みは膨大なインストール時間とライセンス料金を支払ってオフィスをインストールするという苦行を乗り越えないと利用できない

それに比べたらパワーシェルは実行までの手間は殆ど無視できるほど小さい
シェルでたったの1行コマンドレットを打つだけでOK
しかも無料なので嬉しいね

**デフォルトの名無しさん** · 2019/01/19(土) 11:47:30.68

OSのデフォルト状態で出来ることが前提
拡張子が.ps1の場合右クリックのメニューにremotesingedを表示させるとか？

**デフォルトの名無しさん** · 2019/01/19(土) 11:51:02.97

もうその話はpowershellのスレに移動してやってください

**デフォルトの名無しさん** · 2019/01/19(土) 11:51:52.41

>>552
> 実行するファイルとは別に呼び出す仕組みを用意する必要がある
はあ？
情弱自慢かよww

**デフォルトの名無しさん** · 2019/01/19(土) 12:11:34.94

現実社会では話ができない寂しい「プロ」」のプログラマどもが何やらくだらん
雑談をしてスレを潰してるけど質問者の皆さんはそんなヨタ話に付き合う必要
はありませんので、遠慮なく質問をどぞ～

**デフォルトの名無しさん** · 2019/01/19(土) 12:14:32.41

ところでホンマにブロなん？プロさんて？なんかあやしいんですけどw

**デフォルトの名無しさん** · 2019/01/19(土) 12:25:03.26

Officeインストールするしないがオプションなんて事業所あるの？

**デフォルトの名無しさん** · 2019/01/19(土) 12:40:58.29

厳密な定義や資格があるわけじゃないんで「プロ」を名乗るのは自由です

**デフォルトの名無しさん** · 2019/01/19(土) 13:14:50.16

>>563
そりゃもちろんあるよ
禁止してる事業所だってある
そもそもOS違いで使えないこともある

**デフォルトの名無しさん** · 2019/01/19(土) 13:21:53.40

>>563
うちの会社は開発専用機にはインストールしないけどそういう機器は自分でセットアップするからなぁ
>>550の言うプロジェクトの度に準備とかはよくわからんな

**デフォルトの名無しさん** · 2019/01/19(土) 13:26:53.56

CADなんかの専用ソフトしか動かさんとか開発機とかそういうのならわかるけど、
このスレで話題にする以上関係ないというか対象外でしょ

**デフォルトの名無しさん** · 2019/01/19(土) 13:35:07.44

普通はイメージで展開して、個別はライセンス認証だけっしょ一台数分

**デフォルトの名無しさん** · 2019/01/19(土) 14:06:33.45

>>558
へえ、ExcelってOSのデフォルト状態で使えるんだ？

**デフォルトの名無しさん** · 2019/01/19(土) 14:46:59.67

WSHだろ常考

**デフォルトの名無しさん** · 2019/01/19(土) 15:22:25.47

>>523-537
例えば、クリップボードでも、Ruby から、powershell コマンドを呼ぶ。
a.rb

str = `powershell Get-Clipboard`
str.encode! Encoding::UTF_8, Encoding::CP932 # UTF_8 へ変換

これをダブルクリックで起動したいのなら、バッチかVBS で起動する。
a.bat

ruby .\a.rb

テキスト処理は、VSCode, Rubyで十分！

**デフォルトの名無しさん** · 2019/01/19(土) 15:49:39.46

>>571
VSCodeは個別にライセンスのある膨大な数のオープンソースソフトウェアの塊であり、
PowerShellを禁止しているような糞組織のPCにインストールすることは不可能
RubyもライセンスにGPLの文字を見つけた途端に情シスが卒倒するレベルで全くもって論外

**デフォルトの名無しさん** · 2019/01/19(土) 21:28:25.59

プロさんてバカしかおらんの？

**デフォルトの名無しさん** · 2019/01/19(土) 21:35:07.05

所詮自称プロだしw

**デフォルトの名無しさん** · 2019/01/19(土) 21:40:37.46

>>574
開きなおるなバカ

**デフォルトの名無しさん** · 2019/01/19(土) 22:05:47.19

>>575
開き直り？
嘲笑って意味わかる？ w

**デフォルトの名無しさん** · 2019/01/19(土) 22:06:05.61

excelってVBAからpythonに変わるっていってなかったっけ？

◆QZaw55cn4c · 2019/01/19(土) 22:08:25.92

>>577
いってるだけ、今のところは

**デフォルトの名無しさん** · 2019/01/20(日) 00:48:58.52

dictionaryに格納してるItemを検索して、存在してればKeyを返却する方法が知りたいのだけど、ループさせてヒットしたら値を出す方法以外でfind的な一発でポンと返す記述の仕方はない？

◆QZaw55cn4c · 2019/01/20(日) 01:04:30.85

>>579
Item 間に順序関係があればそれを利用して二分探索を適用できる、無論、記述はループチェックに比べて量が多くなる

**デフォルトの名無しさん** · 2019/01/20(日) 03:54:11.74

>>579
一行で書きたいということなら、文字列ならワークシート関数Matchで検索できます。
ただ存在しなかった場合はエラーが返るので例外処理か事前に調べておく必要があります。

例）
Dim map As Dictionary
Set map = New Dictionary
map.Add "みかん", "橙"
map.Add "りんご", "赤"
map.Add "さくらんぼ", "赤"
map.Add "ぶどう", "紫"

On Error Resume Next

Debug.Print map.Keys(WorksheetFunction.Match("赤", map.Items, 0) - 1)
'りんご
Debug.Print map.Keys(WorksheetFunction.Match("白", map.Items, 0) - 1)
'エラー

On Error GoTo 0

個人的には普通に関数作った方が使いやすいと思います。

**デフォルトの名無しさん** · 2019/01/20(日) 08:04:01.23

>>439
Excel.Application.Onkey で最優先ショートカットキーにできる
次いで.macroOptionsの古いほうが動くよ

**デフォルトの名無しさん** · 2019/01/20(日) 08:25:03.17

配列とかコレクションに対してSQLが使えればいいんだけどな。
matchやvlookupより速いんだけど、いちいちシートとかcsvに書き出さなきゃならん。

**デフォルトの名無しさん** · 2019/01/20(日) 09:17:44.39

そこまで行くとAccessのお仕事を食っちまう

**デフォルトの名無しさん** · 2019/01/20(日) 09:22:18.21

Access VBAでやればいいじゃん

**デフォルトの名無しさん** · 2019/01/20(日) 09:32:11.24

>>582
おっと、回答いただけるとは。
onkeyだと、activeworkbookだろうが、thisworkbookだろうが、後定義したほうが上書き、後勝ちしません？
active側に定義されたショートカットがそれぞれ反応してくれると嬉しいのですが。

**デフォルトの名無しさん** · 2019/01/20(日) 10:54:01.49

>>583
MSにExcelでC#使えるようにしてくれ～
って要望をガンガン出せばお前の望みが叶うかも知れない

**デフォルトの名無しさん** · 2019/01/20(日) 13:02:37.66

>>580,581
ありがとう
Itemには順序関係ないから二分探索は出きなさそう
worksheet関数は完全に意識無かったので見た瞬間にあぁ！その手があったか！と目からウロコでした

**デフォルトの名無しさん** · 2019/01/20(日) 13:13:34.11

C#スクリプトってOSSで軌道に乗っちゃってるからExcelの処理系として採用されることはないと思うぞ
同じものをClosedで再発明するってのも馬鹿馬鹿しいしな

強力な言語を使いたいならその言語を主としてExcelをコントロールすればいい
それで十分だ
わざわざExcelに乗っける必要性は薄い

**デフォルトの名無しさん** · 2019/01/20(日) 13:31:13.08

再発明とか意味わからん w

**デフォルトの名無しさん** · 2019/01/20(日) 16:43:57.95

この場合の再発明と言われれば車輪の再発明を連想出来ないのはかなり緩いんだろう

**デフォルトの名無しさん** · 2019/01/20(日) 17:26:38.62

文脈的には再発明と言うより再実装かな

**デフォルトの名無しさん** · 2019/01/20(日) 17:32:05.81

いや、車輪の再発明はいいとして何を再発明するんだよって話
C#処理系のソースライセンス見てないけどMSが自社製品に使えなくなるようなライセンスにはなってないだろうし（なってたらVisual Studioの有償版とか売れなくなる）
普通にExcelに組み入れるだけだろ

**デフォルトの名無しさん** · 2019/01/20(日) 17:45:17.54

>>593
メンテナンスのコストを甘く見すぎ
Excelに入れるなら最低でも以後10年は完全な互換性を維持し続けなきゃいけないわけ
今メインストリームのC#環境を入れるなら.NET Coreを組み込むことになるだろうけど、
.NET Coreって完全なサイドバイサイドを前提にガンガン破壊的変更をぶっ込んでいくスタイルだから、
Excelのバージョンアップのときに単純に.NET Coreのバージョンを上げるわけにはいかなくて、
Excel専用のブランチを作って継続的にメンテしていかざるを得ないの
それは実質的には新たに.NETの兄弟分を作って独立して育てていくことに他ならず、多大なメンテナンスコストを生じる上、
.NET エコシステムの分断を生むことになる
そんな馬鹿げたことをするくらいなら普通に.NET Coreを直接使わせた方が遥かにマシだろう

**デフォルトの名無しさん** · 2019/01/20(日) 17:59:54.91

>>594
> Excelに入れるなら最低でも以後10年は完全な互換性を維持し続けなきゃいけないわけ
それVBAの開発担当者にも言ってくれよ w

**デフォルトの名無しさん** · 2019/01/20(日) 18:07:02.56

>>595
煽りはいいから直近10年でVBAに対して行われた破壊的変更を具体的に挙げてくれよ
当たり前だが不具合の話はしてないぞ？

**デフォルトの名無しさん** · 2019/01/20(日) 18:28:52.57

>>596
いや破壊的かどうかは別にしてもVBAも色々機能追加とかされてるだろ
VBAの機能追加をやめてそのリソースをC# for Officeに割くだけだよ
そもそもMac版はともかくWindows版のOfficeなら.NET Coreじゃなくて.NET Framework上に構築するだろうしな

**デフォルトの名無しさん** · 2019/01/20(日) 18:31:24.08

みっともないからいいかげん止めや似非プロさんの一人語り
そもそも出鱈目やってバレバレのプロ風の話して誰に対してマウント取りたいねんw

**デフォルトの名無しさん** · 2019/01/20(日) 18:46:13.28

>>597
Full .NET はメンテナンスモードに入ったよ
4.8を最後に、今後大きな機能追加はない
残念ながら、今入れても新たに時代遅れのゴミが増えるだけだ

**デフォルトの名無しさん** · 2019/01/20(日) 20:02:31.83

>>599
逆に都合がいいじゃん
.NETFrameworkは簡単に廃止できないから君が大事にしてる互換性も保ちやすいしね

**デフォルトの名無しさん** · 2019/01/20(日) 22:44:30.32

A4用紙に上から4件ずつ異なるデータを入力して、
印刷したいのですが、どうすればいいか教えて下さい。
データ数は日によって異なり、30件～50件程度あります。
1ページ目に1～4、2ページ目に5～8・・・という感じです。
うまく説明出来なくてすいません。
4つデータを入力して印刷したら次、っていう感じの
ループ処理のコードのサンプルなどありましたら教えてください。

**デフォルトの名無しさん** · 2019/01/20(日) 22:48:25.28

>>601
改ページを設定すればいいだけじゃね？
https://kosapi.com/post-3244/

**デフォルトの名無しさん** · 2019/01/20(日) 22:55:12.40

>>602
ありがとうございます。

**デフォルトの名無しさん** · 2019/01/21(月) 09:00:45.75

このループw
他言語を推奨してる奴らには馬鹿しかいない。

ExcelVBAのスレなんだからExcelが動いてるのが大前提なんだよ。
そこへノコノコ乗り込んで来てOfficeインスト―ルとか言ってる馬鹿は滑稽。

テキスト処理とかもアホ丸出し。
Excel関係無いなら、そもそもVBAでやる必要全く無い。
そして全くのスレ違い。

**デフォルトの名無しさん** · 2019/01/21(月) 09:04:27.40

その後のC#やPythonを組み込んでくれって話はどうでもいい。
入って来たらそれで組むだけだ。

**デフォルトの名無しさん** · 2019/01/21(月) 10:06:31.18

終わった話にノコノコ乗り込んでくるウスノロかよww

**デフォルトの名無しさん** · 2019/01/21(月) 12:17:14.05

言われてみればVBAの破壊的仕様変更ってまったく無いよな。
オブジェクトを省略してて挙動が変わったくらいならあるけど。

64bit対応くらいじゃ無いか？

**デフォルトの名無しさん** · 2019/01/21(月) 16:29:48.24

LongPtr型とPtrSafe宣言くらいか

**デフォルトの名無しさん** · 2019/01/21(月) 20:06:20.50

>>607
ただパッチいれたら動かなくなったことはあった

**デフォルトの名無しさん** · 2019/01/21(月) 20:57:18.88

2007の時、グラフ周りが軒並み動かなくなったことはあったな。

**デフォルトの名無しさん** · 2019/01/21(月) 22:36:48.74

改ページ位置の誤検出がヒドイ。
一旦、改ページプレビューにしてから戻せば大丈夫ですとか、何だよそれ。

**デフォルトの名無しさん** · 2019/01/21(月) 23:15:39.37

64bitはスクリプトオブジェクトがないとかは？

**デフォルトの名無しさん** · 2019/01/22(火) 00:07:05.98

よろしくお願いします。
あるシートのコピーだけを新規の別ファイルとして保存したいのですが、

1　dim fn as string
2　fn="c:\*****\集計表.csv"
3　ThisWorkbook.Worksheets("集計表").Copy
4　Application.DisplayAlerts = False
5　ActiveWorkbook.SaveAs fileName:=fn, FileFormat:=xlCSV
6　ActiveWorkbook.Close

このように書きました。普通だと問題なくいっているのですが、この処理をしている途中で、
使用者がガチャガチャとマウスをイジり、いくつも開いているうちの適当なブックをアクティブにしてしまった
りなどしてると、想定通りの動作をしなくなってしまいます。
3行目でコピーしたときに、コピー先のその新しいブック自体を名指しできれば、いいのではないかと
思うのですが、いかがでしょうか？
「ActiveWorkBook」ではなく、ちゃんと名指しする方法ってないでしょうか？

◆QZaw55cn4c · 2019/01/22(火) 00:33:28.43

いろいろな事情があって、ExcelVBA に専心することになりそうです…Excel VBA から任意の win32api を呼び出すことは可能ですか？

**デフォルトの名無しさん** · 2019/01/22(火) 00:44:54.38

>>613
処理中いじるなと表示させたフォームをモーダルにして処理終わるまで×ボタン消しとくとかは？

**デフォルトの名無しさん** · 2019/01/22(火) 02:38:45.16

activeじゃなくてもsaveできるだろ

**デフォルトの名無しさん** · 2019/01/22(火) 05:03:39.16

>>613
方法１：新規ブックはWorkbooksコレクションの末尾に追加されるはずなので、Workbooks (Workbooks.Count)で参照できます。

方法2：先に新規ブックを作っておけば参照出来ます。
余計な新規シートが触られる不安があるなら削除する必要があります※
例）
With Workbooks.Add
　 Dim fn As String: fn = "c:\*****\集計表.csv"
Worksheets("集計表").copy Before:=.Worksheets(1)
Application.DisplayAlerts = False

Dim elem As Worksheet '※
For Each elem In .Worksheets
If elem.Name <> "集計表" Then elem.Delete
Next elem

.SaveAs Filename:=fn, FileFormat:=xlCSV
.Close
End With

方法3：集計表なので数式が入っていると思いますから、Copy時のCalculateイベントでシート自身に保存させます。
例）
Private Sub Worksheet_Calculate()
If Worksheets.Count > 1 Then Exit Sub 'Copyされた単一シートか判定
Dim fn As String: fn = "c:\*****\集計表.csv"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=fn, FileFormat:=xlCSV
ThisWorkbook.Close
End Sub
上記を集計表シートのシートモジュールに書き込むと、Worksheets("集計表").Copy だけで自動的に保存されます。

**デフォルトの名無しさん** · 2019/01/22(火) 05:11:20.49

Worksheets("集計表").copy
↓修正
ThisWorkbook.Worksheets("集計表").Copy 👀
Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b)

**デフォルトの名無しさん** · 2019/01/22(火) 08:07:57.46

>>614
トリッキーな技が技があるかもだけど「任意の」となると単独では無理と思った方がいい

**デフォルトの名無しさん** · 2019/01/22(火) 08:14:29.14

>>614
任意ってのはどういう意味?
動的に呼び出したいってこと?

それだったらかなり高度になる。

**デフォルトの名無しさん** · 2019/01/22(火) 12:45:48.79

declareで追加するだけでしょ
ぐぐればサンプル大量に出てくるし
高度でもない