مقدار دهي کنترل از طريق tag

[Ali Parsaei]

سلام دوستان،
مي خواستم بدونم آيا مي شود کنترل هاي داخل يک يوزر فرم را از طريق tag آنها مقدار دهي کرد؟
مثلا" کدي نوشت که مقدار درون کنترل هاي داراي tag يک تا ده (حالا از هر نوع textbox - combobox يا listbox که مي خواهند باشند فرقي نمي کند) به ترتيب مساوي محدوده a1:j1 قرار گيرند.
حالا اگر محدوده اي هم نشد، يک تک کد هم بد نيست، يعني کدي که مقدار کنترل داراي tag يک را مساوي چيزي که ما تعيين مي کنيم قرار دهد.
اين کد را براي راحتي در مقدار دهي به يک فرم که پر از کنترلهاي با انواع مختلف است مي خواهم.

[ordouei]

با سلام
اگر سوال شما را درست متوجه شده باشم - فایل پیوست را بررسی نمایید .
البته ارزش سلول نیز قابل استفاده است .
با تشکر - اردوئی

[Ali Parsaei]

با سلام
اگر سوال شما را درست متوجه شده باشم - فایل پیوست را بررسی نمایید .
البته ارزش سلول نیز قابل استفاده است .
با تشکر - اردوئی

متشکرم، ولي نه! منظورم اين نبود

[Ali Parsaei]

پيدا کردم چه جوري بنويسم، در زير مي نويسم شايد به درد شخص ديگري هم بخورد
اگر تعداي کنترل روي فرم داشته باشيم و بخواهيم همه را فرضا" به ترتيب مساوي خانه A1 و B1 و C1 و ... قرار دهيم، اگر همه از يک نوع باشد کار راحت تر است ولي اگر نوع هر کدام با ديگري تفاوت کند مي شود براي خلاصه نويسي در کدها "خصوصيت TAG" آنها را (صرف نظر از اينکه نوع کنترل چيست) به ترتيب از يک به بالا شماره گذاري کرد سپس با کمک همين TAG و با استفاده از کد زير آنها را مقدار دهي کرد: (چيزهاي ديگر را هم مي شود اضافه کرد مثلا" LABEL ها و کامند بتن ها را با مقدار دهي CAPTION هايشان و ...)

Private Sub UserForm_Activate()
Dim J As Control
For Each J In Me.Controls
Dim D As Integer
On Error Resume Next
D = J.Tag
If TypeOf J Is MSFORMS.ComboBox Then
J.Value = Cells(1, D).Value
ElseIf TypeOf J Is MSFORMS.TextBox Then
J.Value = Cells(1, D).Value
ElseIf TypeOf J Is MSFORMS.ListBox Then
J.AddItem Cells(1, D).Value
End If
Next
End Sub