ابو تميم قام بنشر أكتوبر 23, 2012 قام بنشر أكتوبر 23, 2012 الملف المرفق تجربة وعلى افتراض أنه يحتوي على مجموعة أوراق (ورقة1،ورقة2،ورقة3) إضافة إلى أكواد على محرر الاكواد وماكرو وغيرها من الاعدادات المطلوب هو عندما أضغط على الزر ( نقل الملف ) يتم نقل الملف كاملا بكامل محتوياته إلى سطح المكتب ويكون الملف على سطح المكتب بنفس اسمه الاصلي دون أي تغيير أي حفظ نسخة من الملف كاملا على سطح المكتب مع ضرورة حفظ التغييرات على الملف نفسه في موقعه وحفظ نسخة بعدها إلى سطح المكتب جزاكم الله خيرا حفظ نسخة من الملف على سطح المكتب.rar
عبدالله باقشير قام بنشر أكتوبر 23, 2012 قام بنشر أكتوبر 23, 2012 السلام عليكم حفظ نسخة من الملف على سطح المكتب وحفظ واغلاق المصنف الاصل Sub kh_SaveCopyInDesktop() Dim wo As Workbook Dim StrDeskPath As String, sPath As String ''''''''''''''''''' StrDeskPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") sPath = StrDeskPath & Application.PathSeparator & ThisWorkbook.Name ' '''''''''''''''''''' With ThisWorkbook .SaveCopyAs sPath .Close True End With ' '''''''''''''''''''' End Sub
عبدالله باقشير قام بنشر أكتوبر 23, 2012 قام بنشر أكتوبر 23, 2012 السلام عليكم حفظ نسخة من الملف على سطح المكتب وحفظ المصنف الاصل بدون اغلاقه Sub kh_SaveCopyInDesktop() Dim wo As Workbook Dim StrDeskPath As String, sPath As String ''''''''''''''''''' StrDeskPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") sPath = StrDeskPath & Application.PathSeparator & ThisWorkbook.Name ' '''''''''''''''''''' With ThisWorkbook .SaveCopyAs sPath .Save End With ' '''''''''''''''''''' End Sub
ابو تميم قام بنشر أكتوبر 23, 2012 الكاتب قام بنشر أكتوبر 23, 2012 جزاكم الله خيرا أستاذنا الكبير عبد الله باقشير كفيت و وفيت وسلمت يداك وأبعد الله عنك أبناء السوء
دغيدى قام بنشر أكتوبر 23, 2012 قام بنشر أكتوبر 23, 2012 أخى الفاضل / عبدالله باقشير سلام الله عليكم وفقكم الله على عمل الخير عيد مبارك
عبدالله باقشير قام بنشر أكتوبر 23, 2012 قام بنشر أكتوبر 23, 2012 جزاكم الله خيرا أستاذنا الكبير عبد الله باقشير كفيت و وفيت وسلمت يداك وأبعد الله عنك أبناء السوء جزاكم الله خيرا ملاحظة : تم اختصار الاكواد في المشاركات اعلاه
عبدالله باقشير قام بنشر أكتوبر 23, 2012 قام بنشر أكتوبر 23, 2012 أخى الفاضل / عبدالله باقشير سلام الله عليكم وفقكم الله على عمل الخير عيد مبارك وعليكم السلام اكرمكم الله وحفظكم من كل مكروه وعيدكم مبارك وكل عام وانتم بخير تقبل تحياتي وشكري
خالد الشاعر قام بنشر أكتوبر 23, 2012 قام بنشر أكتوبر 23, 2012 استاذى عبد الله باقشير تسلم ايدك و كل عام و انتم بخير جزاك الله كل خير
الـعيدروس قام بنشر أكتوبر 23, 2012 قام بنشر أكتوبر 23, 2012 السلام عليكم معلم كبير علم خلق الله ينور دريك اين ماذهبت تقبل مروري
عبدالله باقشير قام بنشر أكتوبر 23, 2012 قام بنشر أكتوبر 23, 2012 استاذى عبد الله باقشير تسلم ايدك و كل عام و انتم بخير جزاك الله كل خير وعليكم السلام الله يسلمك وعيدكم مبارك وكل عام وانتم بخير تقبل تحياتي وشكري
عبدالله باقشير قام بنشر أكتوبر 23, 2012 قام بنشر أكتوبر 23, 2012 السلام عليكم معلم كبير علم خلق الله ينور دريك اين ماذهبت تقبل مروري وعليكم السلام هذا من اصلكم الكريم اكرمكم الله وحفظكم من كل مكروه وعيدكم مبارك وكل عام وانتم بخير تقبل تحياتي وشكري
عبدالله باقشير قام بنشر أكتوبر 23, 2012 قام بنشر أكتوبر 23, 2012 السلام عليكم ايضا هذا السطر يعطيك مسار سطح المكتب MsgBox Environ("USERPROFILE") & "\Desktop"
أبو أنس حاجب قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 السلام عليكم ورحمة الله وبركاته أستاذي وسيدي النبيل عبد الله باقشير (أبا علي) حفظكم الله عيدكم مبارك مقدماً وكل عام وأنتم في خير ونعم وفيرة وصحة وعافية. الله يبارك لك في كل خطوة وكل نفس ويحفظك الحفظ التام من كل شر. أبو أنس
إبراهيم ابوليله قام بنشر أكتوبر 24, 2012 قام بنشر أكتوبر 24, 2012 الاخ عبد الله بارك الله فيك كود رائع وجميل وكل عام وانت وجميع الاخوه بخير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.