おじじの日記✎

 

contents:

 

others :

 

search:

WORK💻LIFE🖱

注意事項
留意して作成しておりますが 紹介しているコードのご使用におけるトラブルに関しましては、一切責任を負いかねます。
コードの使用につきましては、使用者様のご責任にてお願い申し上げます。
誠に勝手ではございますが、何とぞご了知いただきたくお願い申し上げます。

うずまき

投稿日: 2022/03/02

1 / 2 枚目


VBAを始めたばかりの方で、ループ処理の中で分岐処理を
することが上手くできなった経験はないでしょうか?

添付ファイルは
セルに1~100の数字を渦巻き状に書き込むコードになります。
お困りの方がいらっしゃいましたらご参照ください。



2 / 2 枚目


実行ボタンを押すと
始点から終点に向かって渦巻き状に数字が
書き込まれます。

サンプルコードDL
うずまき_サンプル_20220302175616.xlsm


指定した複数のsheetを出力

投稿日: 2022/02/05

1 / 3 枚目


【目的】
選択した複数のsheetのみを出力したい場合もあると考え
プログラムを作成してみました。

【出力条件 ※イメージをご参照ください】
セルのシート名とsheet名が完全一致かつ、出力
フラグが1の場合のみ出力します。

【使用上の注意事項】
sheetの保存形式:csv
csvの保存場所:このエクセルブックがある場所。Desktopで実行する
場合は出力するファイル数に注意が必要です。
※なるべくDesktopは避けてください
保存方式:上書き保存



2 / 3 枚目


【使用方法】
①このExcelBookをフォルダに保存する
 ※なるべくDesktopは避けてください
②Excelbookを開く
③sheet名とセルのsheet名を一致させる。
④出力したいシート名の出力フラグに1を入力する
⑤実行ボタンを押す

※保存先に、同一のファイル名があった場合は
 自動的に上書き保存されます。


3 / 3 枚目


【実行結果】
data1、data4、data5、data7、data10の
sheetのみcsvとして出力されました。

【添付】
指定したsheetを出力.xlsm

サンプルコードDL
指定したsheetを出力_20220205002813.xlsm