| |
>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
上記のコードは、どこに記述して使用しているのでしょうか？
この処理は解りづらいのですが、どのようなことをしたいのか
目的を教えて頂けませんでしょうか？
|
|
IROC
- 05/1/6(木) 17:28 -
