| |
すいません、もう１つ教えてもらいたいのですが
Ａ Ｂ ・・ ＢＪ ・・ ＢＫ
1 作成位置指示2 作成位置指示
2 3 1
3 2 2
4 1 0
5 2 3
6 2 1
7 3 2
上記のように作成位置指示2を追加して、BKで作成したsheet名とそれぞれ同じsheetにBJの円作成ができないでしょうか？
これは、ＢＫでつくったsheet上に追加するんではなく、同時ＢＪ・ＢＫ同時に円を作成したいのですが。。。
ＢＪの円作成位置は適当に決めてもらってかまいません。
▼ichinose さん：
>▼シスアド さん：
>こんにちは。
>
>>目的としては、単独で動作させるのが目的ではないんですけど
>>最終的には、データがBK2だけではなく縦にBK3BK4・・・と複数入れて
>>BK2は、sheet3,BK3はsheet4・・・というふうに実行結果を出力させていく
>>その時のsheetはデータがある数だけ作られるというようにしたいのですが・・・
>>意味が伝わりましたかね？わからなければいってください。
>
>はっきりではありませんが、何となくならわかります・・・が、
>
>>>下記のように、セルBK2に0.1.2.3のいづれかが入力された場合Caseによって条件があ>>るマクロを作成しました。
>>>これを同じSheetのリストという名前のセルBK2ではなく、データという名前のSheetの>>セルO2に値が入力されており、それを使用し、リストという名前に出力したいのですが>>どうしたらよいでしょうか？
>
>最初の投稿の↑の仕様とは違いますね！！
>
>マクロ実行前のシート構成
>
>マクロを含むブックには、
> ｘｘｘｘというシート名のシート
> ｙｙｙｙというシート名のシート（複数あるならすべて記述）
> ・
> ・
>
>というようにこんなところから 正確に記述してください。
>
>特に今回は、シートを追加するのですよね？
>だったら、どこに追加するかも正確に記述してください。
>
>
>マクロの入力データに相当するデータの情報も正確に記述してください。
>（まあ、これは、ある程度は記述されていましたが・・・）
>
>
>このマクロの入力データに相当するデータは、
> シートｘｘｘｘというシート名のシートのセルＢＫ２から決まった行数では
> ありませんが、入力されています。
>
> Ａ Ｂ ・・・・ ＢＫ
> 1 作成位置指示
> 2 1
> 3 2
> 4 0
> 5 3
> 6 1
> 7 2
>
>一例ですが、上記のように入力されています。
>行数は、上記の例ではセルＢＫ７までですが、一定ではありません。
>３行の場合もあれば、２０行の場合もあります。
>
>シートｘｘｘｘのセルＢＫ２以下のセルの値を基に
>オートシェープの円を作成します。
>
>
>作成するオートシェープの円の作成位置がセルの値によって違います。
>
>又、セルＢＫ２の値で作成するオートシェープの円は、
>
>このシートｘｘｘｘに作成するのではなく、
>新たに作成するシート（マクロで作成する）に作成します。
>
>同様にＢＫ３の値によって、作成するオートシェープの円も
>別に新規作成されたシート上に作成します。
>
>このようにシートｘｘｘｘのセルＢＫ２以下にオートシェープの円の作成指示データが
>ある限り新規にシートを作成し、
>その作成されたシート上に作成指示データで示される位置に
>オートシェープの円を作成します。
>
>それぞれのシートに作成するオートシェープの円の作成位置は、
>
> 作成指示データ シートのLeft、シートのTop
> 0 159.75 29.25
> 1 249.75 157.25
> 2 343.75 29.25
> 3 432.75 29.25
>
>
>上記のようになっています。
>
>
>とこのような仕様でよいのですか？
>
>だとしたら、シスアド さんこの程度の仕様の提示はしなければなりません。
>
>
>このような仕様だとして・・・・。
>
>・新規ブックにシートを１枚のみにしてください。
> （既定で、３枚作成されていても削除して１枚にしてください）
>
>・この１枚シートのシート名はSheet1としてください。
> このシートのセルBK2以降に円の作成指示番号が入っているとします。
>
>標準モジュールに
>'===================================================================
>Sub sample()
> Dim ok As Boolean
> Dim o_left As Double
> Dim o_top As Double
> Dim crng As Range
> Dim c As Range
> With Worksheets("sheet1")
> For Each c In .Range("bk2", .Cells(.Rows.Count, "bk").End(xlUp))
> ok = True
> Select Case c.Value
> Case 0
> o_left = 159.75
> o_top = 29.25
> Case 1
> o_left = 249.75
> o_top = 157.25
> Case 2
> o_left = 343.75
> o_top = 29.25
> Case 3
> o_left = 432.75
> o_top = 29.25
> Case Else
> ok = False
> End Select
> If ok = True Then
> With Worksheets.Add(after:=Worksheets(Worksheets.Count))
> .Name = "sheet" & c.Row
> DoEvents
> With .Shapes.AddShape(msoShapeOval, o_left, o_top, 15.75, 15.75)
> .Fill.Visible = msoFalse
> End With
> End With
> End If
> Next
> End With
>End Sub
>
>
>記述したようなシートの準備が出来たら、
>上記のSampleを実行してみてください。
>
>セルBk2から、BK7に上述のようなデータが入力されていた場合、
>
>Sheet2からSheet7というシートが追加作成され、それぞれのシートに
>指示データに対応した位置に円が作成されます。
|
|
シスアド
- 07/5/13(日) 21:02 -
