| |
▼ゆぅ さん：
こんにちは
まず、エクセルでの操作を以下に。
１．特定のシートのシートタブを右クリック
２．メニューから、移動またはコピー(M)を選ぶ
３．出てきた小窓で
１）移動先ブック名(G)のコンボボックスから (新しいブック)を選び
２）コピーを作成する(C)にティックをつけて
３）ＯＫボタン
４．これで、指定したシートだけのブックが新規で作成される。
５．作成された新規ブックのシートのセルをすべて選びCtrl/c
６．これを、形式を指定して貼り付け で値の貼り付けを選んで貼り付け
７．Escキーをおしてコピーモードを解除
８．名前をつけて保存。
９．保存したブックを閉じる。
この操作をマクロ記録してできあがるコードが基本コード。
できあがったコードは、Select/Selectionのペアがたくさん登場したり、
保存ファイル名等が固定になっているので、それをブラッシュアップしたり、変数で与えるように
して加工。
で、あとは、ブック内のシートについて、この操作を繰り返すことになります。
そこは、マクロ記録ではできないので、以下を参考に。
Sub Sample()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
'ここにマクロ記録を基に作成したコードを。
'sh.Name がシート名。
'必要ならこのシート名を判定してブックを作成する、しないの判定を行う。
'また保存ブック名い、このシート名を採用する。
MsgBox sh.Name
Next
End Sub
|
|
UO3
- 11/5/29(日) 13:26 -
