ایجاد حلقه برای کامبو باکس

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • younes672

    • 2015/03/24
    • 75
    #1

    پرسش ایجاد حلقه برای کامبو باکس

    با سلام
    دوستان چطور میتونم برای 30 عدد کمبوباکس یه حلقه بنویسم.
    کد PHP:
    Private Sub ComboBox1_Change()Dim z1, i
    z1     = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "b").End(xlUp).Row
    For i = 1 To z1
    If ComboBox1 = Sheets("Sheet1").Range("b" & i) Then
    TextBox1     = Sheets("Sheet1").Range("a" & i)
    End If
    Next
    End Sub 
    برچسب ها: هیچ‌کدام
    • mrhartsclube

      • 2017/11/15
      • 130
      • 81.00
      #2
      سلام دوست عزیز
      لطفا اطلاعات کافی برای پاسخگویی رو مهیا کنید.
      تعداد کمبو باکسهاتون رو در داخل صورت سوال توجیه نکردین و توضیح ندادین منظورتون از یه حلقه چیه؟
      با یه حلقه میخواین 30 تا کمبو باکس رو پیمایش کنید؟
      کد ایونت تغییر اندیس کمبوباکسهاتون همه یکی هست و یه حلقه ست؟
      کد ایونت تغییر اندیس کمبو باکسهاتون یه کد مشابه هست فقط نام هر کمبو باکس باید داخل کد تغییر کنه؟
      اینا صورت سوالهایی هست که با سوال شما توی ذهن من به وجود اومده و واقعا جواب دادن به همشون وقت تلف کردنه مخصوصا اگه هر سه تاش هم اشتباه برداشت کرده باشم پس لطفا اگه جواب سوال براتون مهمه با عکس و فایل و کد و مثال کاملا توضیح بدین و اگه براتون مهم نیست اصلا نپرسید. ممنونم
      [CENTER][COLOR=#696969][FONT=lucida console]... [B]Programming [/B]C# - VB.Net - VC++ - ASP.Net - HTML - CSS - JS - AS2 - AutoIt - Pascal - Delphi - PHP - Python - VBA - Etc
      [/FONT][/COLOR][SIZE=2][FONT=lucida console][COLOR=#808080]... 2D & 3D [B]Graphic Designer[/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] 2D & 3D [B]Animator [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Game [/B]Designer & [B]Hacker [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] Data [B]Forensic [/B]Expert [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Ethical [/B]Hacker [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Pen[/B] Tester

      [/COLOR][/FONT][/SIZE][COLOR=#ff0000][FONT=courier new][SIZE=4][B].: Expert in doing what nobody else can :.[/B][/SIZE][/FONT][/COLOR][/CENTER]

        کامنت

        • younes672

          • 2015/03/24
          • 75
          #3
          سلام دوست عزیز
          یوزرفرمی طراحی کرده ام که 30عدد کامبوباکس ( 101 الی 130) و 30 عدد تکست باکس (281 الی 310) دارد. که با انتخاب کشویی نام خانوادگی از کمبوباکس شماره پرسنلی از شیت جستجو و به تکست باکس ها انتقال داده می شود.
          برای هر کامبوباکس به صورت جداگانه کد نوشته ام که شماره پرسنلی را به تکست باکس ها انتقال میده در پایین برای نمونه 3 کد را قرار داده ام.
          از آنجا که حجم کد ها زیاد هست میخواستم اگر امکانش هست با حلقه جایگزین کرد
          سپاسگرارم


          کد PHP:
          Private Sub ComboBox101_Change()Dim z1, i
          z1           = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "b").End(xlUp).Row
          For i = 1 To z1
          If ComboBox101 = Sheets("Sheet1").Range("b" & i) Then
          TextBox281           = Sheets("Sheet1").Range("a" & i)
          End If
          Next
          End SubPrivate Sub ComboBox102_Change          ()Dim z1, i
          z1           = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "b").End(xlUp).Row
          For i = 1 To z1
          If ComboBox102 = Sheets("Sheet1").Range("b" & i) Then
          TextBox282           = Sheets("Sheet1").Range("a" & i)
          End If
          Next
          End SubPrivate Sub ComboBox103_Change          ()Dim z1, i
          z1           = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "b").End(xlUp).Row
          For i = 1 To z1
          If ComboBox103 = Sheets("Sheet1").Range("b" & i) Then
          TextBox283           = Sheets("Sheet1").Range("a" & i)
          End If
          Next
          End Sub 

            کامنت

            قبلی template بعدی
            چند لحظه..