با سلام
در ارتباط با سوالی در مورد ایجاد حلقه برای شیت ها خدمت دوستان باید بگم برای پیمایش بر روی شیت ها میشه از دو راه استفاده کرد ، فرض کنید برای اضافه کردن نام شیت ها به یک combobox چطور میشه عمل کرد؟دو نوع حلقه for و for each میشه استفاده کرد که میتونید این دو راه رو از طریق کد های زیر امتحان کنید:
[align=left]
کد PHP:
Private Sub UserForm_initialize()
Dim i As Integer
For 1 To Sheets.Count
ComboBox1
.AddItem Sheets(i).Name
Next i
End Sub 
[/align]

[align=left]
کد PHP:
Private Sub UserForm_initialize()
Dim shname As Object
For Each shname In Sheets
ComboBox1
.AddItem shname.Name
Next shname
End Sub 
[/align]
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.