比較データーの数が毎回違う為、比較するデーターの数を指定し、その数だけシートを追加、追加したシートの名前を画像のように上から順に変更していきたいがどう組んでいいかわかりません。どなたかご教授頂きたいです。
Sub Graph() Dim op As Worksheet, i As Long Dim cPath As String Set op = Workbooks("CAB-Grapf.xls").ActiveSheet cPath = op.Range("B1").Value Worksheets.Add After:=Sheets("DATA"), Count:=op.Range("K1").Value Sheets("sheet1").Select ActiveSheet.Name = op.Range("B2").Value Application.ScreenUpdating = False End Sub
データーの数が5個の時もあれば10個の時もあって毎回違うので
Sheets("sheet1").Select
ActiveSheet.Name = op.Range("B2").Value
だとその都度コード追加したりと変えなきゃなりませんのでそこもなんとかしたいです。
すみませんがよろしくお願い致します。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/01/24 09:52