عمل نموذج ادخال بيانات من الشيت скачать в хорошем качестве
عمل نموذج ادخال بيانات من الشيت
5 years ago
Не удается загрузить Youtube-плеер. Проверьте блокировку Youtube в вашей сети.
Повторяем попытку...
Повторяем попытку...
Скачать видео с ютуб по ссылке или смотреть без блокировок на сайте: عمل نموذج ادخال بيانات من الشيت в качестве 4k
У нас вы можете посмотреть бесплатно عمل نموذج ادخال بيانات من الشيت или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
-
Информация по загрузке:
Скачать mp3 с ютуба отдельным файлом. Бесплатный рингтон عمل نموذج ادخال بيانات من الشيت в формате MP3:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
عمل نموذج ادخال بيانات من الشيت
=================== فى هذا الجزء نشرح طريقة عمل نموذج لادخال البيانات و كذلك وضع زرين فقط احدهم لحفظ البيانات فى شيت اخر (ترحيل البيانات) ام الزر الاخر فقط لازالة البيانات من النموذج و عمل استعاده للوضع الاصلى للنموذج تم تسمية الزر الاول cmdSave الكود الخاص به Private Sub cmdSave_Click() Application.ScreenUpdating = False Dim iRow As Long iRow = Sheets(2).Range("A1048576").End(xlUp).Row + 1 With ThisWorkbook.Sheets(2) .Range("A" & iRow).Value = iRow - 1 .Range("B" & iRow).Value = txtName.Value .Range("C" & iRow).Value = IIf(optMale.Value = True, "ذكر", "انثى") .Range("D" & iRow).Value = cmbQualification.Text .Range("E" & iRow).Value = txtCity.Value End With Call Reset Application.ScreenUpdating = True End Sub الزر الاخر يسمى cmdReset و الكود الخاص به Private Sub cmdReset_Click() Dim i As Integer i = MsgBox("Do you want to reset this form?", vbQuestion + vbYesNo + vbDefaultButton2, "Form Reset") If i = vbYes Then Call Reset End If End Sub مع وضع داله فى الاول لعمل مسح لما بداخل النموذج Function Reset() Application.ScreenUpdating = False txtName.Value = "" txtName.BackColor = vbWhite optMale.Value = False optFemale.Value = False cmbQualification.Text = "" cmbQualification.BackColor = vbWhite txtCity.Value = "" txtCity.BackColor = vbWhite Application.ScreenUpdating = True End Function تحميل ملف العمل الجزء الاول https://www.mediafire.com/file/xv7j1v... الجزء الثانى https://www.mediafire.com/file/memtep... الجزء الثانى من الشرح • Video
Comments
