投稿/コメントを表示します。

初心者です。

初めてなのでわからないことだらけなのですが、、
少しずつできるようになれるように楽しみながらやっていきたいです。よろしくお願いします。
シートをコピーして、名前をつける、マクロがまだ一人でできない状況です。


以下だと、何が問題なのか自分では解明できなくて、教えていただきたいのですが。

①active sheetsのままがいけませんか。
②まだ、はなこのステップのはこのどこに、どこまでのお団子をいれたらいいか、よくわかっていません。また、変数を定義する場所もよくわかっていません。

アドバイスをいただけると幸いです。よろしくお願いします。  (渡辺早紀)



'シート「main」にある各取引先の名称のシートを作れ
'(シートには何も記載されていなくてよい)
'ヒント: [1] シートを追加するマクロを作ってみる
' [2] [1]で作ったマクロで、さらに、その直後に、作ったシートの名前を変更するようにする
' [3] [2]で作ったマクロで、作ったシートの名前を、シート「main」のセルB2の値になるようにする
' [4] [3]で作ったマクロで、シート「main」の2行目から21行目までで連続作業をするよう改変する

------------------------------------

Sub shadd()

Dim gyo 'エラーメッセージが、「この名前は既に使用されています。別の名前を使用してください。」となってしまう。。

For gyo = 2 To 21

Worksheets.Add


ActiveSheet.Select
ActiveSheet.Name = Worksheets("main").Range("B" & gyo).Value


Next


End Sub





2015/01/17 08:58