احرای ماکرو با کمبو باکس

**Amir Ghasemiyan** · 2014/10/10, 14:34

نوشته اصلی توسط absorkhi

سلام
اساتید محترم چطور میشه با یک کمبو باکس یک ماکرو رو اجرا کرد یعنی اگه فلان متن اومد فلان ماکرو رو اجرا کن
از لینک سلولش نمیخوام از متن داخل خود کمبو باکس میخوام اجرا شه

سلام
ما سه نوع كمبو باكس در اكسل داريم
يكي با data validation ساخته ميشه
يكي از طريق تب developer ساخته ميشه
يكي هم داخل فرم در vba هست
كدوم منظورتونه؟

**ali.b** · 2014/10/10, 15:03

يكي از طريق تب developer ساخته ميشه

**Amir Ghasemiyan** · 2014/10/10, 20:13

نوشته اصلی توسط absorkhi

يكي از طريق تب developer ساخته ميشه

شما با استفاده از اين قطع كد ميتونين ID گزينه انتخاب شده رو بدست بياريد

کد:

a = Sheet1.Shapes("Drop Down 1").OLEFormat.Object

يعني مثلا ليست شما سه تا آيتم داره و شما سومي رو انتخاب ميكنيد. اين كد كه گذاشتم به شما عدد 3 رو برميگردونه
فكر كنم با اين كارتون راه بيفته ولي اگه حتما بايد از متن اون آيتم كمك بگيرين اين كد رو هم بهش اضافه كنيد

کد:

q = a.List(a.ListIndex)

**ali.b** · 2014/10/10, 20:39

من متوجه نشدم مثلا نمونه فایل زیر چطور میشه وقتی علی انتخاب شد ماکرو اجرا شه

فایل های پیوست شده

Book1.xlsm (20.1 کیلو بایت, مشاهدات 45)

**ali.b** · 2014/10/10, 21:59

کد:

Private Sub ComboBox1_Change()
 Select Case Me.ComboBox1
    Case "Jan"
        Call jj
    Case "Feb"
        Call Module1.macro2
    Case Else
         'Do nothing
    End Select
End Sub

با این روش حل شد