نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: 3 کمبوباکس وابسته به هم در UserForm

  1. #1


    آخرین بازدید
    2024/02/08
    تاریخ عضویت
    April 2011
    نوشته ها
    384
    امتیاز
    245
    سپاس
    415
    سپاس شده
    225 در 123 پست
    سطح اکسل
    67.00 %

    Bow 3 کمبوباکس وابسته به هم در UserForm

    با درود

    دوستان 3 تا کمبو باکس دارم که به هم وابسته هستن و میخوام از توی Userform کار کنه و دیتاشو از رنج ستون ها بگیره (البته اگه شدنش سخته و پیچیده میشه 2 تا کمبوباکس اول رو میشه با AddItem توی UserForm اضافه کرد ولی سومی رو نه)

    مثلا میخوام وقتی کشور رو ایران انتخاب کردم تو کمبوباکس استان ، استان های ایران بیاد و بعد از انتخاب یه استان شهرستان های اون استان تو کمبوباکس بعدی بیاد .
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: zip Book1.zip اطلاعات (14.2 کیلو بایت, 72 نمایش)
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    سلام،
    کشور و استان را به عنوان مثال گفتيد؟ يا اينکه هر چيز ديگه اي ممکن است باشد؟

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2024/02/08
    تاریخ عضویت
    April 2011
    نوشته ها
    384
    امتیاز
    245
    سپاس
    415
    سپاس شده
    225 در 123 پست
    سطح اکسل
    67.00 %

    بله بعنوان مثال بود .
    توی چیزی که من میخوام در مورد انبار بود ،اول توضیحاتویکه نوشتم دیدم گیچ کننده شد بعد در این قالب عنوان کردم برای فهم راحتتر

  6. #4


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    892
    امتیاز
    4526
    سپاس
    2,297
    سپاس شده
    2,910 در 801 پست
    سطح اکسل
    64.00 %

    اتفاقا تو انبار آسونتره چون اونجا کالاها کد بندی میشن بهتر میشه رابطه برقرار کرد ، با توجه به همین فایلتون باید اینطوری بزنید .شاید راه آسونتریم باشه ولی همین بنظر من رسید .
    کد PHP:
    Private Sub ComboBox1_Change()
    ComboBox2.Clear
    ComboBox3
    .Clear
    lastrow_Table 
    Sheet1.Range("a:o").Cells.Find("*"SearchOrder:=xlByRowsSearchDirection:=xlPrevious).Row
    For 2 To lastrow_Table
    cell_B_active 
    Sheet1.Range("b" i).Value
    tedad 
    Application.WorksheetFunction.CountIf(Sheet1.Range("b1:b" i), cell_B_active)
    If (
    Range("A" i) = ComboBox1.Value And tedad 1Then
    ComboBox2
    .AddItem (Range("B" i).Value)
    End If
    Next i
    End Sub


    Private Sub ComboBox2_Change()
    On Error Resume Next
    ComboBox3
    .Clear
    lastrow_Table 
    Sheet1.Range("a:o").Cells.Find("*"SearchOrder:=xlByRowsSearchDirection:=xlPrevious).Row
    For 2 To lastrow_Table
    cell_C_active 
    Sheet1.Range("C" i).Value
    tedad 
    Application.WorksheetFunction.CountIf(Sheet1.Range("C1:C" i), cell_C_active)
    If (
    Range("A" i).Value ComboBox1.Value And Range("B" i).Value ComboBox2.Value And tedad 1Then
    ComboBox3
    .AddItem (Range("C" i).Value)
    End If
    Next i
    End Sub

    Private Sub UserForm_Initialize()
    On Error Resume Next
    lastrow_Table 
    Sheet1.Range("a:o").Cells.Find("*"SearchOrder:=xlByRowsSearchDirection:=xlPrevious).Row
    For 2 To lastrow_Table
    cell_A_active 
    Sheet1.Range("A" i).Value
    tedad 
    Application.WorksheetFunction.CountIf(Sheet1.Range("a1:a" i), cell_A_active)
    If (
    tedad 1Then
    ComboBox1
    .AddItem (Range("A" i).Value)
    End If
    Next i
    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm Book1.xlsm اطلاعات (24.4 کیلو بایت, 76 نمایش)


  7. #5


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    يک روشي هم من به نظرم رسيد بد نيست اون را هم بنويسم:
    تمام مقادير ستون a را در کمبوبکس اول بار گيري مي کنيم ـ ـ بعد موارد تکراري اش را حذف مي کنيم
    تمام مقادير ستون b را در کمبوبکس دوم بارگيري مي کنيم به شرط اينکه هم ارز آن در ستون a مقدار انتخابي در کمبوبکس يک باشد ـ ـ بعد موارد تکراري اش را حذف مي کنيم
    تمام مقادير ستون c را در کمبوبس سوم بارگيري مي کنيم به شرط اينکه هم ارز آن در ستون b مقدار انتخابي در کمبوبکس دو باشد ـ ـ بعد موارد تکراري اش را حذف مي کنيم

    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm DALA.xlsm اطلاعات (18.7 کیلو بایت, 54 نمایش)


  8. #6


    آخرین بازدید
    2024/02/08
    تاریخ عضویت
    April 2011
    نوشته ها
    384
    امتیاز
    245
    سپاس
    415
    سپاس شده
    225 در 123 پست
    سطح اکسل
    67.00 %

    ممنونم از هر دو عزیز بابت زحمت و وقتی که گذاشتین.


    در حالتی که همه اطلاعات متن باشن هر دو فایل درست کار میکنه ولی اگه بجای استان ها عدد وارد کنم دیگه تو کمبو باکس بعدی نمیاره .
    و فایلی که آقای پارسایی زحمتشو کشیدن در حالت فیلتر کردن جدول هم کار میکنه ممنون میشم اگه با اعداد هم کار کنه (استان عدد هم میتونه باشه)


  9. #7


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    مقدار کمبوبکس ها را value نوشته بودم ولي بايد text باشد، فرضا" به جاي combobox1.value بايد مينوشتم combobox1.text
    ببينيد درست شد؟:
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm DATA.xlsm اطلاعات (20.8 کیلو بایت, 57 نمایش)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. userform
    توسط amir0914 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2016/03/03, 11:53
  2. پاسخ ها: 2
    آخرين نوشته: 2015/12/03, 02:44
  3. نمايش چارت (نمودار) در فرم (userform)
    توسط amin.t در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 1
    آخرين نوشته: 2014/07/31, 21:59
  4. ران شدن userform در هنگام اجرای فایل اکسل
    توسط esyoo در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 17
    آخرين نوشته: 2013/03/26, 15:20
  5. chart در userform
    توسط Nima در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 7
    آخرين نوشته: 2012/06/10, 17:37

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

تنظیمات کمبو باکس در یوزرفرم اکسل

کمبوباکس استان php

اتصال دو کمبوباکس php

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است