تلوين الصفوف

[ameeramy]

السلام عليكم إخواني الكرام

أريد تلوين صف باستخدام المتغيرات

تقبلوا تحياتي

 

تلوين صف باستخدام المتغيرات.rar

[خالد الرشيدى]

السلام عليكم

تفضل اخي الكريم عله المطلوب حسب ما فهمت 

Sub Test()
    m = 20
    Range("A" & m & ":G" & m).Interior.ColorIndex = 6
End Sub

 

[ameeramy]

29 دقائق مضت, خالد الرشيدى said:

السلام عليكم

تفضل اخي الكريم عله المطلوب حسب ما فهمت 

Sub Test()
    m = 20
    Range("A" & m & ":G" & m).Interior.ColorIndex = 6
End Sub

 

أشكرك أخي العزيز

نعم هذا ما أريده , أرجو أن تتحملني لي أسألة كثيرة

وجزاك الله خيرا

إضافة.rar

[خالد الرشيدى]

السلام عليكم 

تفضل عله المطلوب - كان من الممكن ان يكون الكود ابسطمن ذلك بكثير - ولكن تحسباً لكون عدد التكست بوكس يكون كبير او ما الى ذلك - اليك الكود التالى 

Dim r As Long
Private Sub CommandButton1_Click()
    Dim i As Integer
    Me.TextBox5.Value = ""
    For i = 1 To 4
        Me.TextBox5.Value = Val(Me.TextBox5.Value) + Val(Replace(Me.Controls("TextBox" & i).Value, ",", ""))
    Next
    r = r + Val(Me.TextBox5.Value)
    Me.TextBox6.Value = r
    For i = 1 To 4
        Me.Controls("Textbox" & i).Value = ""
    Next
End Sub

ان لم يكن المطلوب - يرجي مزيد من التوضيح التفصيلى 

[ameeramy]

1 ساعه مضت, خالد الرشيدى said:

السلام عليكم 

تفضل عله المطلوب - كان من الممكن ان يكون الكود ابسطمن ذلك بكثير - ولكن تحسباً لكون عدد التكست بوكس يكون كبير او ما الى ذلك - اليك الكود التالى 

Dim r As Long
Private Sub CommandButton1_Click()
    Dim i As Integer
    Me.TextBox5.Value = ""
    For i = 1 To 4
        Me.TextBox5.Value = Val(Me.TextBox5.Value) + Val(Replace(Me.Controls("TextBox" & i).Value, ",", ""))
    Next
    r = r + Val(Me.TextBox5.Value)
    Me.TextBox6.Value = r
    For i = 1 To 4
        Me.Controls("Textbox" & i).Value = ""
    Next
End Sub

ان لم يكن المطلوب - يرجي مزيد من التوضيح التفصيلى 

 

السلام عليكم أخي الفاضل

لست أدري كيق أشكرك , كل ما أستطيع فعله أني أدعو لك بظهر الغيب متمنيا من الله القبول

جزاك الله كل خير

[خالد الرشيدى]

وجزاك خيرا اخي الكريم علي هذا الدعاء الطيب

كل عام وحضرتك بخير