مجدى يونس

الف شكر

فورم مشاهدة البيانات المسجلة بالشيت فيديو 3 الفيديو

عزيزى اى خدمة تأخرت كتير 6 أيام لحين شفت الملف المهم انا حملت الملف وهو سليم وبتختار الامر اللى داخل المستطيل اسفل الصورة يمين preview انظر الصورة اما لسرعة النت انا عارف انها عالية عندكم لكن هل انت مفعل الاوفيس وهل مشترك فى خدمة الاوفيس انظر الصورة التالية تلاحظ اسم مجدى يونس اعلى الصورة يمين

التعرف على عدد السطور التى بها بيانات من خلال الفورم فيديو2 الفيديو

الف شكر

فورم ادراج البيانات واستدعائها بطريقة بسيطة فيديو1 الفيديو الصور

وعليكم السلام ورحمة الله وبركاتة وانت طيب والف شكر

الف شكر للدعاء واللهم امين

انشاء شريط تقدم فى فورم الاكسل الفيديو

اى خدمة

الرابط اسفل الفيديو على اليوتيوب

الف شكر اخ على

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

ماشاء الله

الف شكر اخ على

فورم اضافة وتعديل وحذف وحفظ الملف الفيديو

اى خدمة اخ رشيد

الف شكر اخ على

فورم ادراج بيانات وصور الفيديو الصورة الكود Dim fpath As String Private Sub CommandButton1_Click() Dim x As Integer Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False x = Application.FileDialog(msoFileDialogOpen).Show If x <> 0 Then fpath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1) Image1.Picture = LoadPicture(fpath) Image1.PictureSizeMode = 1 End If End Sub Private Sub CommandButton2_Click() Dim x As Integer Dim y As Worksheet Set y = Sheets("sheet1") x = y.Range("a" & Rows.Count).End(xlUp).Row With y .Cells(x + 1, "a").Value = Te1.Text .Cells(x + 1, "b").Value = Te2.Text .Cells(x + 1, "c").Value = Te3.Text End With Dim i As String i = Te1.Text FileCopy fpath, "D:\picture\" & i & ".jpg" Me.Te1.Text = "" Te1.Text = "" Te2.Text = "" Te3.Text = "" End Sub Private Sub UserForm_Click() End Sub

الف شكر اخ على بطيخ

الف شكر

الف شكر

الف شكر اخ على

شرح طريقة فورم لشريط متحرك الفيديو الصور

الف شكر على الدعاء والمتابعة