|
IROC さんありがとうございます。詳しく言いますと、
今まで手動で切り換えたり、activateをつかってシートを切り換えていたのですが、
その切り換え時にXP(OS)ではエラーが発生します。
それは一度ユーザフォームを何度も繰返し使っているからという判断は少しついたのですが(もしかしたらそれが原因ではないかもしれませんが)、XPだけで出る現象なのでわかりません。
よろしければご教授願います。
>対象のシートは非表示になっていたりしませんか?
シートは非表示にはなっていません。
(以下抜粋し載せます)
1.ボタンを押してユーザフォームを表示させます。シート1に記述。
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
長くなってしまいましたが、以上宜しくお願いいたします。
|
|