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 محل ادرس دادن شیت و سلولی هست که نام کاربری در اون درج شده
یکی از مشکلاتی که هم خودم و هم خیلی از دوستان باهاش مواجه میشن نوشتن فارسی در محیط 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 محل ادرس دادن شیت و سلولی هست که نام کاربری در اون درج شده