طارق نادر قام بنشر أبريل 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
ياسر خليل أبو البراء قام بنشر أبريل 21, 2017 قام بنشر أبريل 21, 2017 جرب إضافة السطر التالي ws.Cells(T, 3).Resize(1, 10).Interior.Color = vbCyan بعد هذا السطر If Me.ComboBox1.Text = ws.Cells(T, 3) Then حيث الرقم 10 عدد الأعمدة المطلوب تلوينها بدايةً من العمود الثالث
طارق نادر قام بنشر أبريل 21, 2017 الكاتب قام بنشر أبريل 21, 2017 كل الشكر لك...جاري التجريب وسأعلمك بالنتيجة كل الشكر والتقدير ابو البراء حسب المطلوب بالضبط لك احترامي وتقديري 1
ياسر خليل أبو البراء قام بنشر أبريل 21, 2017 قام بنشر أبريل 21, 2017 الحمد لله الذي بنعمته تتم الصالحات .. بارك الله فيك أخي الكريم طارق .. تقبل وافر تقديري واحترامي
طارق نادر قام بنشر أبريل 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.