سوال در مورد نوشتن فرمول if

[panahi88]

سلام دوستان
در فایل پیوست username ویندوز در سلول a1 نوشته میشه
دنیال شرطی هستم که اگر username با username های نوشته شده در سولول B1 تا B10 یکی بود userform1 اجرا شود
اگر با username های نوشته شده در سولول C1 تا C10 یکی بود userform2 اجرا شود
و در غیر این صورت userform3 اجرا شود.
ممنون میشم راهنمایی کنید.

[komeilex]

دوست عزیز سلام. پسورد داره فایلت؟؟
قسمت vb رو می گم؟؟؟
من یوزر فرمی نمی بینم تو فایلت!!!

[panahi88]

دوست عزیز سلام. پسورد داره فایلت؟؟
قسمت vb رو می گم؟؟؟
من یوزر فرمی نمی بینم تو فایلت!!!

فایل پسورد نداره
userform ها هم من فرضی گرفتم
تنها کد موجود توی فایل این کد و برای نوشتن username ویندوز است

Private Sub Workbook_Open()Range("A1").Value = Environ$("UserName")
End Sub

[iranweld]

با سلام لطفا فایل رو بررسی بفرمایید شرط سوم نیاز به بررسی دارد

[panahi88]

با سلام لطفا فایل رو بررسی بفرمایید شرط سوم نیاز به بررسی دارد

بسیار عالی
ولی userform3 در هر حالت اجرا میشه

[komeilex]

با سلام و تشکراز دوست عزیزمون. ببینین شما می تونی این کارو راحتتر و با فراخوانی توابع خود اکسل انجام بدی. مثلا کد زیر رو بزنین ببینین جواب میده:

Private Sub Workbook_Open()
Range("A1").Value = Application.UserName
If Application.WorksheetFunction.CountIf(Sheet1.Range("b1:b10"), Sheet1.Range("a1")) > 0 Then
UserForm1.Show
ElseIf Application.WorksheetFunction.CountIf(Sheet1.Range("c1:c10"), Sheet1.Range("a1")) > 0 Then
UserForm2.Show
Else
UserForm3.Show
End If
End Sub 

[komeilex]

درضمن من تا حالا این کدو ندیده بودم:

Private Sub Workbook_Open()
Range("A1").Value = Environ$("UserName")
End Sub 

و تو سیستم منم ازش ارور می گیره. برا همین برا فراخوانی User name تو سلول a1 از کد زیر استفاده کردم:

Range("A1").Value = Application.UserName 

[panahi88]

ممنون
من اون کد رو توی اینترنت پیدا کردم اما کد شما قطعا درست تره