PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : حل مشکل حرف "ی" در ساخت فرم ها (آموزشی)



ali.b
2014/07/22, 08:13
با سلام
یکی از مشکلاتی که هم خودم و هم خیلی از دوستان باهاش مواجه میشن نوشتن فارسی در محیط vb و مخصوصا حرف ی هست که دردسرهای زیادی رو ایجاد میکنه
و بهتره اصلا تو محيط vba فارسي ننويسين
این نمونه کد برای فرم درخواست یوزر و پسورد هست که توسط اقای قاسمیان درست شده این مشکل رو حل میکنه . از همینجا هم ازشون دوباره تشکر میکنم

Private Sub CommandButton1_Click()


If TextBox1.Text = ComboBox1.Column(1) Then

MsgBox (" پیغام هنگام ورود " + ComboBox1.Column(0))

If ComboBox1.Column(0) =Sheet11.Range("B4").Value Then

Sheet1.Visible = xlSheetVisible

Sheet11.Visible = xlSheetVisible
Sheet2.Visible = xlSheetVisible
Sheet3.Visible = xlSheetVisible

Sheet1.Select


ElseIf ComboBox1.Column(0) = Sheet11.Range("B5").Value Then


Sheet2.Visible = xlSheetVisible
Sheet2.Select


ElseIf ComboBox1.Column(0) = Sheet11.Range("B6").Value Then


Sheet3.Visible = xlSheetVisible
Sheet3.Select


Else


MsgBox ("پیغام در صورت اشتباه بودن یوزر یا پسورد")



End If


End Sub


در این قسمت
Sheet11.Range("B4").Value Then محل ادرس دادن شیت و سلولی هست که نام کاربری در اون درج شده