ترحيل من الفورم من خلال انتر

[ابوصلاح]

هل يمكن عمل ترحيل من اليوزرفورم من خلال بالضغط علي enter  بد من  CommandButton 

في المرفق اتريد عمل ذلك من خلال درجات الطلاب 

ترحيل بانتر بدل كموندبوتن.rar

[سليم حاصبيا]

استعمل هذا الكود لنقل البيانات الى الورقة(بدل الكود الطويل جداً عندك)

Private Sub CommandButton1_Click()
Dim iRow As Long, i%
Dim ws As Worksheet
Set ws = Worksheets("بيانات")
iRow = ws.Cells(Rows.Count, 5) _
  .End(3).Row + 1
   For i = 5 To 15
    ws.Cells(iRow, i) = Me.Controls("TextBox" & i)
    Me.Controls("TextBox" & i) = vbNullString
   Next
Me.TextBox1.Value = iRow + 1
 
End Sub

اما لتجعل الكومندبوتن يعمل على الانتر يمكن ذلك من خلال الدخول على  properties  لكومندبوتن      و جعل Default       تساوي true

الملف مرفق

 

 

check1salim.xlsm

[ابوصلاح]

اشكرك جزيلا استاذ  سليم 

ساقوم بتجربة الكود

[ابوصلاح]

معذرة هناك مشكلة حيث انه من المفترض يرحل البيانات بداية من عمود (عربي) اما عمود الجلوس والسري والاسم فاريد اظهار بياناتهم في التكست بوكس 

تماما مثل عمود المسلسل بحيث اكتب الدرجة  واضغط انتر لترحيل البانات