- Excel VBA 質問スレ Part41©2ch.net
361 ：デフォルトの名無しさん[sage]：2016/05/30(月) 00:11:04.77 ID:MwQPmEOY - >>345です。
連投すみません。奇跡的に出来ました。
ちなみに下のようなプログラムです。
Sub 商品別作成 ()
dim i as integer
i = 2
do until worksheets("リスト").cells(i.1).value = ""
worksheets("原紙").copy after:= worksheets(worksheets.count)
with worksheets(worksheets.count)
.cells(1,2).value = worksheets("リスト").cells(i,1)
.name = year(date) & month(date) & day(date) & worksheets(worksheets.count).cells(1,4)
end with
i = i + 1
loop
end Sub
です。
携帯からの書き込みのため見にくくて申し訳ありません。
手元にあった参考書と>>355さんのプログラムを参考に作りました。
自分で作っておきながらよく理解できていないところもあります。
たとえば、
worksheets(worksheets.count)
がなぜワークシートの末尾という意味になるのか、とか。
長文すみません。ありがとうございました。
| - Excel VBA 質問スレ Part41©2ch.net
368 ：デフォルトの名無しさん[sage]：2016/05/30(月) 06:28:58.71 ID:MwQPmEOY - >>363
>>364
ありがとうございます。
なるほど。
>>361では本当は「ワークシート1の後にワークシート1をコピーして、コピーしたワークシートに作業する」ということがしたかったんですが、その場合は
Sub 商品別作成 ()
dim i as integer
i = 2
do until worksheets("リスト").cells(i.1).value = ""
worksheets(1).copy after:= worksheets(1)
with worksheets(2)
.cells(1,2).value = worksheets("リスト").cells(i,1)
.name = year(date) & month(date) & day(date) & worksheets(2).cells(1,4)
end with
i = i + 1
loop
end Sub
というプログラムにすれば、ワークシートの名前は関係なしに一枚目をコピーして二枚目に作業する、ということになりますか？
|
|