برنامج حسابات مبسط وسهل بستخدام قوائم مخصصة على الفروم

[محمد علي الطيب]

تحية طيبة

برنامج حسابات بعد التعديل لن النسخة الاولى كان فيها بعض النواقص وتم اكمالها

اسم المستخدم: المدير

باسورد:123

محرر الاكواد:251869

الشيت:  251869

تحياتي محمد علي الطيب

 

 

 

 

برنامج محاسبة.rar

[عبد العزيز البسكري]

ألف شكر سيّدي القدير

محمد علي الطيّب

نسخة جد ممتازة

بكل صدق .. أعجبتني كثيرا

جزاك الله خيرا و زادك من علمه و فضله

[ياسر خليل أبو البراء]

بارك الله فيك أخي العزيز محمد الطيب وجزاكم الله خيراً على هداياك الثمينة

تقبل وافر تقديري واحترامي

 

[أبوبسمله]

جزاك الله كل خير وإن شاء الله ساقوم بتحميل النسخه المعدله عند عودتى واتفحصها

بالتوفيق

[ياسر العربى]

برامجك اخي الغالي محمد على الطيب لها طابع ومظهر رائع

وقوائم جميلة جزاك الله خيرا

ودائما في تقدم

وباذن الله نجرب البرنامج

تقبل تحياتي

[محمد حسن المحمد]

السلام عليكم ورحمة الله إخوتي الكرام

أخي الطيب اسماً ومسمىً جزاكم الله خيراً على هذا العمل الماتع والقوائم الرائعة وإلى المزيد بعون الله تعالى

أسال الله لنا ولكم التوفيق والسداد والنجاح والفلاح ...آمين

والسلام عليكم.

[أبو قاسم]

ملاحظة لايعمل على اكسل 2013  ...64 بت   ما الحل لجعلة يتناسب 

[ياسر خليل أبو البراء]

أخي الكريم كاسر الأمواج

استبدل الأسطر التي يظهر بها الخطأ باللون الأحمر بهذه الأسطر

#If VBA7 Then
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function BringWindowToTop Lib "user32" (ByVal hwnd As LongPtr) As Long
Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As LongPtr) As Long
#Else
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function BringWindowToTop Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "User32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long
#End If

ستجد الأسطر في أكثر من فورم ..لا تنزعج وأنت تعدل ..قم بحذف الأسطر باللون الأحمر وضع الكود عاليه مكانها

وإن شاء الله يعمل معك

تقبل تحياتي

[أبو قاسم]

تشكر الأستاذ ياسر خليل  وجزاك الله عنا الف خير