كود فى الفورم للتسجيل فى خلية معينة وشيت معين

[عبدالرحمن بدوى]

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

أخوانى وأساتذتى الافاضل فى منتدى اوفيسنا الغالى 

فى الملف المرفق تصميم لمثال فورم بها خانتين

الاولى لتسجيل width

والخانة الثانية لتسجيل sample No

أريد كود لحفظ width فى الخانة المقابلة في شيت width وهى C5

وحفظ sample No فى الخانة المقابلة فى شيت  result وهى b4

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

Form.rar

[الـعيدروس]

السلام عليكم

Private Sub CommandButton2_Click()
Dim Sh As Worksheet
Dim Sht As Worksheet
Dim A As Variant

Set Sh = Sheets("width")
Set Sht = Sheets("result")
A = Array("Width", "Samole")
If Me.TextBox1 <> Empty Then Ali_F TextBox1, A(0), Sh
If Me.TextBox2 <> Empty Then Ali_F TextBox2, A(1), Sht

End Sub
Public Function Ali_F(Tx, id, Tb As Worksheet)
    Dim Sht As Worksheet
    Dim Rng As Range
    Set Sht = Tb
    With Sht
        Set Rng = .Cells.Find(What:=id)
        If Not Rng Is Nothing Then Rng.Offset(, 1).Value = Tx
    End With
End Function

 

[عبدالرحمن بدوى]

جزاكم الله خيرا أخى الفاضل وجعل ذلك فى ميزان حسناتك

اللهم آمين

 

[عبدالرحمن بدوى]

في ١١‏/١٢‏/٢٠١٥ at 11:33, الـعيدروس said:

السلام عليكم

Private Sub CommandButton2_Click()
Dim Sh As Worksheet
Dim Sht As Worksheet
Dim A As Variant

Set Sh = Sheets("width")
Set Sht = Sheets("result")
A = Array("Width", "Samole")
If Me.TextBox1 <> Empty Then Ali_F TextBox1, A(0), Sh
If Me.TextBox2 <> Empty Then Ali_F TextBox2, A(1), Sht

End Sub
Public Function Ali_F(Tx, id, Tb As Worksheet)
    Dim Sht As Worksheet
    Dim Rng As Range
    Set Sht = Tb
    With Sht
        Set Rng = .Cells.Find(What:=id)
        If Not Rng Is Nothing Then Rng.Offset(, 1).Value = Tx
    End With
End Function

 

اخى الفاضل ممكن لو شرح بسيط للكود لأنى حاولت تنفيذه فى ملف اخر ولم استطع

الملف المرفق به تجربة للكود ولكنى اريد تطبيقه فى شيت واحد فقط

ارجو المساعدة وشرح وظائف الكود حتى استطيع تطبيقه

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

batch.rar

[الـعيدروس]

الفورم غير موجود في مرفقك الاخير ؟

هذا الكود وبه شرح الاسطر المعنيه

Private Sub CommandButton2_Click()
Dim Sh As Worksheet
Dim Sht As Worksheet
Dim A As Variant
''width للاشارة لورقة  Sh تعين متغير
Set Sh = Sheets("width")
''result للاشارة لورقة  Sht تعين متغير
Set Sht = Sheets("result")
''Samole و Width لادرااج الشروط المراد البحث عنها A تخصيص متغير
A = Array("Width", "Samole")
'' Ali_F  غير فارغ استدعي الدالة المعرفة  TextBox1
If Me.TextBox1 <> Empty Then Ali_F TextBox1, A(0), Sh
If Me.TextBox2 <> Empty Then Ali_F TextBox2, A(1), Sht
''==========================================================
'' شرح الدالة المعرفه
''----
 'Ali_F(Tx, id, Tb As Worksheet)
''----
 ''Tx  القيمة التي تود حفظها في العمود المقابل لنتيجة البحث
 ''TextBox1 طبعاً القيمة هيا ماتكتبه في
''----
 ''id   قيمة البحث
 ''"Width"  A(0)  A وهو القيمة الاولى في متغير
''----
 ''Tb الورقة المراد البحث فيها
 '' Sh  = "width" TextBox1  للـ
 '' Sht  = "result" TextBox2  للـ
''==========================================================
End Sub
Public Function Ali_F(Tx, id, Tb As Worksheet)
    Dim Sht As Worksheet
    Dim Rng As Range
    Set Sht = Tb
    With Sht
        Set Rng = .Cells.Find(What:=id) ''
        If Not Rng Is Nothing Then Rng.Offset(, 1).Value = Tx
    End With
End Function
 

 

[عبدالرحمن بدوى]

جزاكم الله خيرا على المساعدة

لقد قمت بتنفيذ كود للتسجيل ولكن بفكرة مختلفة شوية

جزام الله خيرا على الاهتمام

وسأقوم بطح الكود هنا ليستفيد منه الجميع

ولعله يكون أول كود أطرحه على المنتدى بعد ما استفدت منه كثيرا

 

[عبدالرحمن بدوى]

إخوانى وأساتذتى الافضل فى المنتدى

وبعد أن استفدت كثيرا من المنتدى

هذا هو أول كود أقوم بعمله

بالطبع ليس من البداية ولكنى رأيت كود مثله وعدلته حسب الاحتياج

وهى خطوة بالنسبة لى جيدة جدا (لأنى كنت لا أستطيع التعديل على اى كود وكنت أطلب ن الافاضل هنا أن يفيدونى بالتعديل)

لذا أطرحه على حضراتكم

لعلى أفيد غيرى بهذا الكود

ولعل أحد الاساتذة يكون له تعليق على الكود بالاقتراح او الاضافة أو شرح طريقة أبسط

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

مرفق ملف به الفورم والكود

Private Sub CommandButton1_Click()

Dim abdo As Integer
'هنا لاختيار الصف  الذى فيه الخلية المراد التسجيل فيها 
Rows("4:4").Select
'هنا لتعريفه ان المعرف عبده هذا  هو الصف الذى تم اختياره
abdo = Selection.Row
'هنا جعلته يكتب قيمة التكست بوكس فى الصف المختار فى الخلية رقم 3
Cells(abdo, 3) = TextBox1.Text
'لحفظ الملف
ActiveWorkbook.Save
End Sub

 

Form.rar