پرسش نیاز به کمک فوری در مورد تابع Vlookup

[mortezaasharif]

سلام به همه اساتید و دوستان
نیاز به کمک فوری و حیثیتی!! دارم. پیشاپیش ممنون

من یک فرم ارزیابی عملکرد درست کردم. در فرم شماره پرسنلی هر طرف وارد میشه و بعد با استفاده از تابع Vlookup سایر اطلاعات فرد از منبع فراخوانی میشه.
در مرحله بعد با استفاده از check Box فرم رو طراحی کردم و نهایتا هم با فرمول if جمع نمرات رو بر حسب گزینه ای که تیک زده میشه حساب کردم.
حالا به مشکل اساسی بر خوردم. برای مثال، یک نفر با شماره پرسنلی 1 ارزیابی میشه و گزینه ها تیک زده میشه و امتیازاتش هم جمع میشه. حالا این امتیاز رو چجوری ثبت کنم؟
یعنی وقتی کار با نفر شماره 1 تموم شد، امتیازش ثبت بشه و همینطور وقتی شماره پرسنلی نفر دوم زده شد و فرم تکمیل شد، امتیاز اونم ثبت بشه و همینطور تا آخر؟

ممنون میشم کمکم کنید

[iranweld]

با سلام

در جاییکه امتیاز فرد رو بدست آوردید اگر داخل تکست باکس هستش اونو مساوی با سلولی از شیت قرار بدید که مد نظر تون هست

Private Sub CommandButton1_Click()
Sheet1.Range("D" & Z1) = TextBox1.Value
End Sub 

که Z1 در اینجا سطر مورد نظر شما هست

[mortezaasharif]

سلام و ممنون
راستش متوجه نشدم. مکنه بیشتر توضیح بدید؟
من قسمتی از فایل رو میفرستم. البته فایل رو کامل نکردم (قسمت چک باکس و ...).
بازم ممنون
ممنون

[iranweld]

اگر یک نمونه فایل از ساختار فایل و فرم خود در سایت قرار دهید بهتر میشود راهنمایی نمود.

فایل خود را بصورت زیپ شده ضمیمه سایت کنید و بفرمایید امتیاز حاصل کجا باید ذخیره شود

[mortezaasharif]

سلام
امیدوارم این دفعه ارسال بشه!!!!

[mortezaasharif]

سلام
امیدوارم این دفعه ارسال بشه!!!!

با تشکر یه کم بیشتر توضیح میدم.
در شیت اول من سوالات و چک باکس رو گذاشتم. اینجا هر نفر یک به سوالات پاسخ میده یعنی برای هر سوال یک چک باکس رو علامت میزنه
در شیت دوم، بر اساس ضریب هر گزینه و ضریب هر سوال، امتیاز نهایی محاسبه میشه. این قسمت رو با if نوشتم
حالا من میخوام در شیت سوم نمره نهایی هر نفر ذخیره بشه. یعنی برای مثال، وقتی شماره پرسنلی نفر اول که 1635 هست در شیت اول زده شد و فرم ارزیابی پر شد، نتیجه امتیازش (که در شیت 2 محاسبه شده) در شیت سوم ثبت بشه و همینطور برای سایر نفرات.
ممنون

[iranweld]

با سلام

یک نمونه شیت برای امتیازدهی تهیه گردید که با کلیک بر روی هر سلول امتیاز بصورت رنگ ثبت میگردد و با زدن باتن ثبت امتیاز ، در شیت دیتا امتیاز فرد ذخیره میگردد

[mortezaasharif]

با سلام

یک نمونه شیت برای امتیازدهی تهیه گردید که با کلیک بر روی هر سلول امتیاز بصورت رنگ ثبت میگردد و با زدن باتن ثبت امتیاز ، در شیت دیتا امتیاز فرد ذخیره میگردد

سلام
خیلی خیلی ممنون
عالی بود
فقط یه مشکل وجود داره
اینکه امتیاز بعضی سوالات برعکسه. یعنی اگر گزینه اول انتخاب بشه امتیاز 1 داره و اگر گزینه آخر انتخاب بشه امتیاز 5
در شیت دوم فایل form امتیازات درج شده
ممنون میشم اگه روش تصحیح رو بهم بگید یا جسارتا خودتون تصحیح کنید.
بازم ممنون
واقعا لطف کردید

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید

کلیه سوالاتی که امتیاز آنها از کم به زیاد بود به انتهای ستون ها منتقل گردید.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Me.Range("C6:G29")) Is Nothing Then

If Selection.Count > 1 Then
GoTo 0
End If

Application.EnableEvents = False
If Target.Column = 3 Then
Range("D" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 0
Target.Interior.ColorIndex = 4
Range("I" & Target.Row) = Range("H" & Target.Row) * 5
Range("I5") = Application.Sum(Range("I6:I38"))

ElseIf Target.Column = 4 Then
Range("C" & Target.Row).Interior.ColorIndex = 0
Range("E" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 0
Target.Interior.ColorIndex = 4
Range("I" & Target.Row) = Range("H" & Target.Row) * 4
Range("I5") = Application.Sum(Range("I6:I38"))

ElseIf Target.Column = 5 Then
Range("C" & Target.Row & ":D" & Target.Row).Interior.ColorIndex = 0
Range("F" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 0
Target.Interior.ColorIndex = 4
Range("I" & Target.Row) = Range("H" & Target.Row) * 3
Range("I5") = Application.Sum(Range("I6:I38"))

ElseIf Target.Column = 6 Then
Range("C" & Target.Row & ":E" & Target.Row).Interior.ColorIndex = 0
Range("G" & Target.Row).Interior.ColorIndex = 0
Target.Interior.ColorIndex = 4
Range("I" & Target.Row) = Range("H" & Target.Row) * 2
Range("I5") = Application.Sum(Range("I6:I38"))

ElseIf Target.Column = 7 Then
Range("C" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = 0
Target.Interior.ColorIndex = 4
Range("I" & Target.Row) = Range("H" & Target.Row) * 1
Range("I5") = Application.Sum(Range("I6:I38"))
End If
Application.EnableEvents = True
End If

If Not Intersect(Target, Me.Range("C30:G38")) Is Nothing Then

If Selection.Count > 1 Then
GoTo 0
End If

Application.EnableEvents = False
If Target.Column = 3 Then
Range("D" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 0
Target.Interior.ColorIndex = 4
Range("I" & Target.Row) = Range("H" & Target.Row) * 1
Range("I5") = Application.Sum(Range("I6:I38"))

ElseIf Target.Column = 4 Then
Range("C" & Target.Row).Interior.ColorIndex = 0
Range("E" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 0
Target.Interior.ColorIndex = 4
Range("I" & Target.Row) = Range("H" & Target.Row) * 2
Range("I5") = Application.Sum(Range("I6:I38"))

ElseIf Target.Column = 5 Then
Range("C" & Target.Row & ":D" & Target.Row).Interior.ColorIndex = 0
Range("F" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 0
Target.Interior.ColorIndex = 4
Range("I" & Target.Row) = Range("H" & Target.Row) * 3
Range("I5") = Application.Sum(Range("I6:I38"))

ElseIf Target.Column = 6 Then
Range("C" & Target.Row & ":E" & Target.Row).Interior.ColorIndex = 0
Range("G" & Target.Row).Interior.ColorIndex = 0
Target.Interior.ColorIndex = 4
Range("I" & Target.Row) = Range("H" & Target.Row) * 4
Range("I5") = Application.Sum(Range("I6:I38"))

ElseIf Target.Column = 7 Then
Range("C" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = 0
Target.Interior.ColorIndex = 4
Range("I" & Target.Row) = Range("H" & Target.Row) * 5
Range("I5") = Application.Sum(Range("I6:I38"))
End If
Application.EnableEvents = True
End If

0
End Sub