پیمایش شیت ها

[~M*E*H*D*I~]

با سلام
در ارتباط با سوالی در مورد ایجاد حلقه برای شیت ها خدمت دوستان باید بگم برای پیمایش بر روی شیت ها میشه از دو راه استفاده کرد ، فرض کنید برای اضافه کردن نام شیت ها به یک combobox چطور میشه عمل کرد؟دو نوع حلقه for و for each میشه استفاده کرد که میتونید این دو راه رو از طریق کد های زیر امتحان کنید:
[align=left]

Private Sub UserForm_initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
End Sub 

[/align]

[align=left]

Private Sub UserForm_initialize()
Dim shname As Object
For Each shname In Sheets
ComboBox1.AddItem shname.Name
Next shname
End Sub 

[/align]

[Javid Mokhtari]

RE: پیمایش شیت ها

با سلام.
خب،روش های زیادی میشه به کار برد.مثل روش زیر:
[align=left]

ComboBox1.Clear
i = 1
Do While Application.Sheets.Count <> i - 1
ComboBox1.AddItem Sheets(i).Name
    i = i + 1
Loop 

[/align]


اما روش هایی که آقای وطن پرست گفتن آسانتر و معمول تر هستش.