بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'if .....elseif'.
تم العثور علي 1 نتيجه
-
السلام وعليكم اخوتي الكرام ممكن احد يساعدني في هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim note As Integer, score_comment As String note = Range("A1") If note = 6 Then score_comment = "Excellent score !" ElseIf note = 5 Then score_comment = "Good score" ElseIf note = 4 Then score_comment = "Satisfactory score" ElseIf note = 3 Then score_comment = "Unsatisfactory score" ElseIf note = 2 Then score_comment = "Bad score" ElseIf note = 1 Then score_comment = "Terrible score" Else: score_comment = "Zero score" End If Range("B1") = score_comment End Sub ما معنى المصطلح ByVal المطلوب هل بالامكان ان ينطبق الكود على العمود في نطاق الخلايا التالية A2 to A100 والنتيجة تظهر في كامل العمود في النطاق التالي B2 to B10 هناك ملف مرفق وشكرا Book1.rar
