عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي سنتشرف بتسجيلك شكرا ادارة المنتدي
الاستاذ مجدى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: فورم ادراج بيانات وصور الإثنين سبتمبر 16, 2019 1:42 pm
فورم ادراج بيانات وصور
الفيديو
الصورة
الكود
الكود:
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