Ali Mohamed Ali

وممكن تجرب هذا الملف فبمجرد الضغط دبل كليك على اى خلية من العمود الأول A ويكون بداية من الصف السادس سيظهر لك الفورم مباشرة كل عام وانتم بخير ورمضان مبارك Search.xlsm

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

أخى الكريم هذه الطريقة امنة لا تقلق منها ولكنك اذا كنت تريد مزيد من الأمان والخصوصية فعليك بإنشاء موقع خاص بك تتبع هذه المواقع تساعدك فى ذلك http://mawdoo3.com/كيفية_إنشاء_موقع_إلكتروني_مجاني_على_الإنترنت https://ukit.com/ https://cdhost.com/ar/ بارك الله فيكم

تفضل استاذى الكريم وقمت بعمل ايصا تاريخ النهاية فى عمود اخر Fisrt date-1.xlsx

وعليكم السلام استاذى الكريم وكل عام وانتم بخير يمكنك تتبع فيديوهات الشرح فى كل جزئية وتخصص من هذا البرنامج فى هذا الموقع: http://arabhardware.net/forum/showthread.php?t=386972

جزاك الله كل خير وبارك الله فيك

السلام عليكم ورحمة الله وبركاته وكل عام وانتم جميعا بخير ورمضان مبارك علينا جميعا -تقبل الله منا سائر الأعمال اقدم لكم اليوم برنامج حسابات شامل ومتعدد-من حسابات لشركات وايضا للمخازن وبه ايضا شئون عاملين (من وضع المكافات والجزاءات والسلف للعاملين والموظفين الى صرف المرتبات والمستحقات) ومع الملف فيديوهات للشرح ونظرا لكبر حجم الملف فقمت برفعه على موقع خارجى تقبل الله منا ومنكم الصيام والصلاة والقيام-جزاكم الله كل خير http://www.mediafire.com/file/h3vh1cwint9s95p/برنامج+حسابات+المقاولات.rar

بعد اذن الأستاذ خالد فقد قمت برفع الملف مرة اخرى حتى تتمكن جميع الإخوة من المساعدة ان شاء الله وكل عام وانتم بخير ورمضان مبارك Database3.rar

تفضل اخى الكريم وكل عام وانتم بخير ورمضان مبارك تفقيط.xlsx

يمكنك تجربة هذا الكود Sub JPGActiveSheet() 'www.contextures.com 'for Excel 2010 and later Dim wsA As Worksheet Dim wbA As Workbook Dim strTime As String Dim strName As String Dim strPath As String Dim strFile As String Dim strPathFile As String Dim myFile As Variant On Error GoTo errHandler Set wbA = ActiveWorkbook Set wsA = ActiveSheet strTime = Format(Now(), "yyyymmdd\_hhmm") 'get active workbook folder, if saved strPath = wbA.Path If strPath = "" Then strPath = Application.DefaultFilePath End If strPath = strPath & "\" 'replace spaces and periods in sheet name strName = Replace(wsA.Name, " ", "") strName = Replace(strName, ".", "_") 'create default name for savng file strFile = strName & "_" & strTime & ".jpg" strPathFile = strPath & strFile 'use can enter name and ' select folder for file myFile = Application.GetSaveAsFilename _ (InitialFileName:=strPathFile, _ FileFilter:="jpg Files (*.jpg), *.jpg", _ Title:="Select Folder and FileName to save") 'export to PDF if a folder was selected If myFile <> "False" Then wsA.ExportAsFixedFormat _ Type:=xlTypePDF, _ filename:=myFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False 'confirmation message with file info MsgBox "jpg file has been created: " _ & vbCrLf _ & myFile End If exitHandler: Exit Sub errHandler: MsgBox "Could not create jpg file" Resume exitHandler End Sub

وعليكم السلام استاذى الكريم -كل عام وانتم بخير ورمضان مبارك يمكنك مشاهدة هذا الفيديو وهو عن خطوات رفع ملف إكسيل على الإنترنت والتعامل والتغيير عليه من اكثر من شخص:

تفضل استاذى الكريم ضبط المعادلة.xlsx

جزاك الله كل خير استاذى الكريم وبارك الله فيك

ممكن تجرب هذا الملف طباعة اليوزر فورم.xlsm

تفضل هذا الملف تغيير لون الخلايا.xlsx

تفضل اخى الكريم المصنف1-1.xlsm

أعتقد ان هذا هو المطلوب توزيع ارباح-3.xlsx

جزاك الله كل خير وكل عام وانتم بخير

تفضل أستاذى توزيع ارباح-2.xlsx

ممكن تجرب هذا تقييد الخلايا مع شرط رابع.xls

تفضل جرب هذا توزيع ارباح-1.xlsx

تفضل اخى الكريم لمعرفة المخزون المتبقي.xlsx مخازن (1).xlsx

وعليكم السلام-أهلا وسهلا بك بين اخوانك فى منتدانا الكريم وكل عام وانتم بخير ..تفضل استاذى الكريم لك ما طلبت بطريقتين-اختر منهما ما تريد my work-1.xlsx

تمام جرب هذا Book1-2.xls.xlsx

تفضل اخى الكريم Book1-1.xls.xlsx