Results of 1 - 1 of about 8926 for リスト (0.006 sec.)
- [[20220323215526]]
- #score: 2746
- @digest: 6072ff45e798f55f0fbb7418bc89db1e
- @id: 90820
- @mdate: 2022-03-24T02:51:32Z
- @size: 980
- @type: text/plain
- #keywords: 事保 (6024), 略en (3212), ビギ (3053), ギナ (3015), 下省 (1903), リス (1473), ト3 (1405), ナー (1356), 定シ (1195), いリ (1089), スト (958), ト2 (936), （vb (698), ト1 (682), 存在 (676), ary (673), thisworkbook (426), worksheets (400), 保存 (396), iserror (361), excel2019 (313), 、リ (305), 省略 (294), 無事 (286), 在し (273), 2022 (272), array (247), トル (224), ー） (212), copy (187), 特定 (184), タイ (178)
- 『VBA 特定シートの保存』（VBAビギナー）
タイトルの通りです リスト1とリスト2、リスト3というシートを保存するVBAを教えてください リスト1は必ず存在しますが、リスト2、リスト3は存在したりしなかったりします ThisWorkbook.Worksheets(Array("リスト1", "リスト2")).Copy 色々調べて上のVBAを作成しましたが、存在しないリスト2の処理がうまくできませんでした ＜ 使用 Excel:Excel2019、使用 OS:Windows10 ＞ ---- 例えばこんなことでしょうか。 Sub test() Dim ary As Variant Dim ws As Worksheet Dim s As String ary = Array("リスト1", "リスト2", "リスト3") For Each ws In Worksheets If Not IsError(Application.Match(ws.Name, ary, 0)) Then s = s & ws.Name & "," End If Next s = Left(s, Len(s) - 1) ThisWorkbook.Worksheets(Split(s, ",")).Copy '以下省略 End Sub （γ） 2022/03/23(水) 22:50 ---- γさん ありがとうございました 無事保存できました （VBAビギナー） 2022/03/24(木) 11:51... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202203/20220323215526.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97034 documents and 608020 words.
訪問者：