اريد مساعدة عاجلة

[azizan11]

السلام عليكم اخوتي الكرام اريد حل لهدا الموضوع الرجاء الافادة

exel vba.rar

تم تعديل سبتمبر 29, 2013 بواسطه azizan11

[Akram Galal]

برجاء التوضيح أكثر

ماهو المطلوب عمل لكل زر

[azizan11]

اريد تسجيل البيانات في الطرف الاول وتظهر في الطرف الثاني اي عند الظغط على الزر edit تظهر في الطرف الثاني والزر الثاني يمسح البيانات عند ادخال قيم جديدة

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم، أعتقد أن استعمال الفورم UserFom باستعمال Textbox أفضل بكثير من استعمال "الكائنات Objects" وذلك لسهولة التحكم فيها عن طريق VBA... والله أعلم

 

أخوك بن علية

[Akram Galal]

أخي العزيز azizan

تفضل طلبك وأرجو أن يكون هو المطلوب

exel vba 2.rar

[الـعيدروس]

السلام عليكم

 

الصق الكود التالي في حدث الورقة

Private Const Rng As String = "$E$4,$E$7,$E$10,$E$13,$E$16,$E$19"
Private Sub CommandButton1_Click()
Dim Og As Object, i
With Feuil1
On Error Resume Next
For Each Og In .OLEObjects
With Og
 If Not .Name Like "CommandButton" Then
  Range(Split(Rng, ",")(i)).Cells.Value = .Object.Text: i = i + 1
 End If
End With
Next
On Error GoTo 0
End With
End Sub
Private Sub CommandButton2_Click()
 Range(Rng).ClearContents
End Sub