|
>Private Sub CommandButton1_Click()
> Do
> CDNtule_form.Show
> Loop
> Unload me
>end sub
↑ここでは何のためにループしているのでしょうか?
>2.シートを対象のシートになるまで切り換える。
>Set Mysheet = ActiveWorkbook.Sheets
>sheet_count = Mysheet.Count '全シート数
>
>jj = 1
>
>For jj = 1 To sheet_count
> description_sheet_nm(jj) = Worksheets(jj).Name
> Worksheets(description_sheet_nm(jj)).Activate
> ↑この部分でオートメーションエラーが発生します。
>
> yesno = MsgBox("選択されたシートは" & description_sheet_nm(jj) & "です。これでよろしいですか?", vbYesNo)
>
> If yesno = 6 Then
> Exit For
> End If
>Next
上記のコードは、どこに記述して使用しているのでしょうか?
この処理は解りづらいのですが、どのようなことをしたいのか
目的を教えて頂けませんでしょうか?
|
|