مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

کار نکردن یک کد ساده

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • a.dal65

    • 2011/04/29
    • 384
    • 67.00

    [حل شده] کار نکردن یک کد ساده

    با سلام خدمت دوستان،
    توی شیت 5 ، تو سلول k2 عبارت مریم مریمی تایپ شده

    من میخوام اگه ورودی که کاربر توی textbox وارد میکنه برابر بود با اون مقدار بود یه msgbox نمایش داده بشه
    ولی هر کار میکنم کار نمیکنه
    این رو باید چطور بنویسم ؟
    کد PHP:
    If Sheet5.Range("K2").Value "Chr(227) & Chr(209) & Chr(237) & Chr(227) & Chr(32) & Chr(227) & Chr(209) & Chr(237) & Chr(227) & Chr(237)" Then 
    هر جوری که فکر کنید تست کردم نشد
  • iranweld

    • 2015/03/29
    • 3341

    #2
    نوشته اصلی توسط a.dal65
    با سلام خدمت دوستان،
    توی شیت 5 ، تو سلول k2 عبارت مریم مریمی تایپ شده

    من میخوام اگه ورودی که کاربر توی textbox وارد میکنه برابر بود با اون مقدار بود یه msgbox نمایش داده بشه
    ولی هر کار میکنم کار نمیکنه
    این رو باید چطور بنویسم ؟
    کد PHP:
    If Sheet5.Range("K2").Value "Chr(227) & Chr(209) & Chr(237) & Chr(227) & Chr(32) & Chr(227) & Chr(209) & Chr(237) & Chr(227) & Chr(237)" Then 
    هر جوری که فکر کنید تست کردم نشد
    با سلام

    فایل پیوست را بررسی کنید

    کد:
    Private Sub CommandButton1_Click()
    
    If Sheet1.Range("K2") = ChrW(1605) & ChrW(1585) & ChrW(1740) _
    & ChrW(1605) & ChrW(32) & ChrW(1605) & ChrW(1585) & ChrW(1740) & ChrW(1605) & ChrW(1740) Then
    
    
    MsgBox "خوش آمدید"
    
    
    End If
    End Sub
    فایل های پیوست شده

    کامنت

    چند لحظه..