У нас вы можете посмотреть бесплатно كيف تقوم بعمل برنامج محاسبي بسيط و احترافي على إكسل Excel или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
رابط البرنامج https://drive.google.com/file/d/1lAId... معادلة توضع داخلة معادلة فلتر (journal[من حساب]=Ledgor!$B$9)*(journal[subtotal]=1) ما كرو التسجيل Sub record5() Dim ws As Worksheet Dim tbl As ListObject Dim newRow As ListRow Set ws = ActiveSheet Set tbl = ws.ListObjects("journal") ' 1) نقل E2:G2 إلى F2 (قيم فقط) ws.Range("F2:H2").Value = ws.Range("E2:G2").Value ' 2) إضافة صف جديد في نهاية جدول journal Set newRow = tbl.ListRows.Add ' 3) إدخال البيانات في الصف الجديد (بدون Copy / Paste) ' يبدأ من العمود الثاني في الجدول newRow.Range.Cells(1, 2).Resize(1, 7).Value = ws.Range("B2:H2").Value ' 4) إعادة بعض القيم من الصف الجديد إلى E2 ws.Range("E2:H2").Value = newRow.Range.Cells(1, 6).Resize(1, 4).Value ' 5) مسح خلايا الإدخال ws.Range("B2:F2").ClearContents ws.Range("B2").Select Application.CutCopyMode = False End Sub