طارق نادر قام بنشر أبريل 21, 2017 مشاركة قام بنشر أبريل 21, 2017 السلام عليكم لدي فورم يوجد عليه زر حفظ وتعديل اريد منكم مساعدتي في اضافة امر اخر لهذا الزر وهو تلوين الصف الذي تم تعديله بحيث عند التعديل ينفذ امرين في نفس الوقت Dim ws As Worksheet, LastRow As Long Set ws = ThisWorkbook.Sheets("ÇáÈíÇäÇÊ") LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 If Me.ComboBox1.Text <> "" Then For T = 2 To LastRow If Me.ComboBox1.Text = ws.Cells(T, 3) Then For i = 2 To 17 ws.Cells(T, i).Value = Me.Controls("TextBox" & i).Value Next MsgBox "Êã ÊÚÏíá ÈíÇäÇÊ ÇáãæÙÝ ÈäÌÇÍ", vbOKOnly + vbInformation, "Êã ÇáÊÚÏíá" GoTo 1 End If Next End If 1 For i = 2 To 17 Me.Controls("TextBox" & i).Value = "" Next CommandButton3.Enabled = False CommandButton4.Enabled = False Me.ComboBox1.Clear TextBox2.SetFocus End Sub رابط هذا التعليق شارك More sharing options...
طارق نادر قام بنشر أبريل 21, 2017 الكاتب مشاركة قام بنشر أبريل 21, 2017 للرفع رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 21, 2017 مشاركة قام بنشر أبريل 21, 2017 جرب إضافة السطر التالي ws.Cells(T, 3).Resize(1, 10).Interior.Color = vbCyan بعد هذا السطر If Me.ComboBox1.Text = ws.Cells(T, 3) Then حيث الرقم 10 عدد الأعمدة المطلوب تلوينها بدايةً من العمود الثالث رابط هذا التعليق شارك More sharing options...
طارق نادر قام بنشر أبريل 21, 2017 الكاتب مشاركة قام بنشر أبريل 21, 2017 كل الشكر لك...جاري التجريب وسأعلمك بالنتيجة كل الشكر والتقدير ابو البراء حسب المطلوب بالضبط لك احترامي وتقديري 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 21, 2017 مشاركة قام بنشر أبريل 21, 2017 الحمد لله الذي بنعمته تتم الصالحات .. بارك الله فيك أخي الكريم طارق .. تقبل وافر تقديري واحترامي رابط هذا التعليق شارك More sharing options...
طارق نادر قام بنشر أبريل 21, 2017 الكاتب مشاركة قام بنشر أبريل 21, 2017 هذا كود اخر اريد ان اضيف اليه امر لكي يتم تلوين الصف الذي احفظه فيه اذا تكرمت اخي ابو البراء نفس المطلب الاول حاولت ان ان الصق الامر الذي اعطيتني اياه في اكثر من مكان في الكود ولكن لم يحدث شيء Private Sub CommandButton3_Click() Dim i As Integer, LastR As Long, ws As Worksheet Set ws = ThisWorkbook.Sheets("ÇáÈíÇäÇÊ") LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 TextBox2 = LastRow - 1 With ws For i = 2 To 17 .Cells(LastRow, i).Value = Me.Controls("TextBox" & i).Value Next i End With MsgBox "Êã ÍÝÙ ÈíÇäÇÊ ÇáãæÙÝ ÈäÌÇÍ", vbOKOnly + vbInformation, "Êã ÇáÍÝÙ" For i = 2 To 17 Me.Controls("TextBox" & i).Value = "" Next CommandButton3.Enabled = False CommandButton4.Enabled = False Me.ComboBox1.Clear TextBox2.SetFocus End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان