با سلام
یکی از مشکلاتی که هم خودم و هم خیلی از دوستان باهاش مواجه میشن نوشتن فارسی در محیط 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
محل ادرس دادن شیت و سلولی هست که نام کاربری در اون درج شده
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)