محمد طاهر عرفه

الربط لا يتم للورقة كلها و انما انتقي الخلايا التي تريد فقط بجيث فى النهاية تكون الورقة الجديدة عبارة عن الجدول الذي به البيانات المطلوب وصولها الي الاكسيل فقط بصرف النظر عن شكل الورقة المربوطة بالنت

لماذا لا يكون هناك فائدة .؟؟ ملف الاكسيل مفتوح و به و رقتي العمل المرتبطة بالنت و الاخري و هما تتحدثان تلقائيا كل فترة بحسب ما تختار الفترة فالي هنا لا اعتقد ان هناك مشكلة ثم ان بيانات الاكسس المرتبطة بورقة العمل الثانية ستجدها محدثة تلقائيا عند استدعاء اي بيانات من الجدول المرتبط بالاكسيل

أيضا لمن لم يستخدم ال add-in فى الباور بوينت قم بكتابة الاكود فى ملف عادي و ضع فيه نموذج به الزرين ثم احفظ الملف بالاسم الذي تريد ثم اختار النوع ppa مع ضرورة الاحتفاظ بالملف الاصلي حيث أن ملف ال ppa لن تستطيع التعديل فيه مع تحياتي

السلام عليكم أين الخطوة التي تريد توضيحها ؟؟ الاولي الربط من النت ، أفدت بانه امكنك عمل ذلك الثانية : الربط بين ورقتي عمل بان تقف فى الورقة رقم 2 ( الجديدة ) و تكتب = ثم تننتقل الي ورقة الربط مع الويب ( رقم واحد ) و تشير بالماوس الي الخلية المطلوبة ثم تضفط Enter و تكرر ذلك و اذا كانت الخلايا متجاورة ، يمكن نسخ المعادلة و يكون الناتج هو جدول صريح و بسيط به اسماء الحقول فى الاعلي ثم الخلابا التي بها القيم مباشرة الخطوة الثالثة الربط بين الاكسس و الاكسيل افتح الاكسس و من اطار الجداول اختار ربط البيانات Link data ثم اختار النوع اكسيل ثم حدد مكان الملف ثم اختار ورق العمل رقم 2 و اكمل مع المعالج مع تحياتي

من هنا

السلام عليكم شكرا للأخ عبد الله علي المداخلة و من ناحية أخري بالنسبة لاستخدام الكود مع الباوربوينت فالاختلاف الكبير هو اننا يجب وضع الكود المراد تشغيله فى وضع العرض فى add-in و عموما برمجة الباوربوينت بال vba اصعب من الاكسيل و الاكسيس و الوورد فلابد من تفعيل بعض الكائنات بالكود قبل البدء و يوجد مثال علي ذلك بقسم خلاصة المشاركات ، و ما يلي مثال آخر و الغريب أن ال msdn نفسها لم أجد فيها اكواد للباوربوينت اكس بي - فاما انني لم اصل اليها او أن المستخدمين لا يحتاجونها كثيرا و بالتالي لم يضعوها علي النت عموما و اذا أردنا تحقيق طلب الأخ العائد 2000 بالتحديد باستخدام الكود و بالضغط علي زر كما طلب فقد أعددت محاولة و هي مرفقة هنا كملف Add-in و من يريد تجربته فليفتح ملف خالي و يضع فيه رسم بيضاوي ثم يفتح قائمة Tools add-ins و يضيف الملف المرفق ( طبعا بعد فك الضغط ) ثم ليشغل العرض و فى الاغلب لن يعمل الا علي الاكس بي و للتحرك العلوي يضاف IncrementTop مع أو بدل IncrementLeft بحسب الحاجة و الكود به هو =========== Private Sub CommandButton1_Click() Application.ActivePresentation.SlideShowWindow.activate Call moveright End Sub Private Sub CommandButton2_Click() Application.ActivePresentation.SlideShowWindow.activate moveleftt End Sub ================== Dim X As New EventClassModule Sub Auto_Open() Call InitializeApp MsgBox "welcome to slide show by Keyboard numbers" & Chr(13) & Chr(13) & "By : Mohamed Taher Arafa " End Sub Public Sub InitializeApp() Set X.App = Application End Sub Public Sub moveright() MsgBox "The oval is going to be moved to the right" With Application.ActivePresentation.Slides(1).Shapes(1) .IncrementLeft (50) End With End Sub Public Sub moveleftt() MsgBox "The oval is going to be moved to the Left" With Application.ActivePresentation.Slides(1).Shapes(1) .IncrementLeft (-50) End With End Sub Public Sub openit() UserForm1.Show UserForm1.Left = 0 UserForm1.Top = 50 End Sub Public Sub starting() Call InitializeApp End Sub =============== Public WithEvents App As Application Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow) Call openit End Sub و قد تم تقسيمه فى ثلاث مجموعات الاولي كود الفورم و الثانية فى موديول و الثالثة في class module moveitSOURCE.zip

بالنسبة لطلب الرقم الداخلي يمكن استخدام فاصلة أو أكثر للانتظار بين الرقمين مثل فاذا كنت تطلب خط خارجي و تريد طلب رقم 888888 ثم داخلي 999 فتكتب الرقم 9,888888,999 بعد انشاء الزر بالطريقة التي ذكرها الأخ الكريم يمكنك تعديل الكود الموجود فى الزر لادراج الرقم من قاعدة البيانات مثلا بان يكون الرقم ظاهر فى مربع نص اسمه Tel2 فى النموذج و تستدعي الكود هكذا ( لم أجربه ، فارجو التجربة ) مثلا اذا أردت الطلب بالنقر المذدوج علي مربع النص الذي به الرقم Private Sub Tel2_DblClick(Cancel As Integer) On Error GoTo Err_Phone_Click Dim stDialStr As String Dim PrevCtl As Control Const ERR_OBJNOTEXIST = 2467 Const ERR_OBJNOTSET = 91 stDialStr = Me.Tel2 If stDialStr = "" Then MsgBox " No Number Choosen !!!" Exit Sub End If stDialStr = Predial + stDialStr Application.Run "utility.wlib_AutoDial", stDialStr Exit_Phone_Click: Exit Sub Err_Phone_Click: If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Then Resume Next End If MsgBox Err.Description Resume Exit_Phone_Click End Sub و يمكنك تكوين الجملة الخاصة ب stDialStr = Predial + stDialStr كما تشاء فهنا قيمة predial عادة ما تكون ثابتة و تتعين مرة واحدة للبرنامج لذا تستدعي مرة واحدة و نكون مثلا "9," فى حالة انك تطلب 9 للحصول علي الرقم أو أن تخير المستخدم فى اضافتها أو لا فى اعدادات البرنامج لانها ستتغير من مكان لاخر فى حالة الكمبيوتر المحمول مثلا و بالنسبة للقيمة التي تلي الرقم يمكن تعريفها بناء علي حقل آخر فى النموذج بنفس الطريقة و اذا كان موجود نضيفها علي الجملة و مثلا اذا كان حقل Ext به قيمة stDialStr = Predial + stDialStr+Ext حيث يتم قبلها تعريف Ext بانها Ext="," & Me.Extention

السلام عليكم ما دام ده رد الاخ عبد الله يبقي أكيد صعب باجرب فى المساء باذن الله ، و أتمني ان أصل لما تريد

لم أسمع بمثل هذا البرنامج - لكن طبعا هذا لا يمنع وجوده

بالنسبة لاستخدام الاكسس فى هذا الموضوع ، صراحة لم أجربه و لكن مبدأيا : يمكن الربط مع قادة البيانات علي الويب عن طريق odbc connection و لكن لابد من تحديد المسار و جملة الريط بواسطة الموقع لذا لابد من موافقتهم عليه لأنهم سيسمون وصلة ال odbc ياسم محدد و قد يكون لها كلمة سر الحل البديل ، هو عمل الريط بالاكسيل علي الصفحة كما سبق ثم عمل ورقة عمل جديدة فى نفس الملف مرتبطة بورقة العمل التي تم ربطها بالنت و تكون ورقة العمل الجديدة عبارة عن جدول صريح و له اسماء للحقول من اعلا و لا توجد به بيانات بدون اسم للحقل يلي ذلك عمل ربط بين الاكسس وورقة العمل الجديدة

دع الصفحة المرتبطة بالنت كما هي اختار و رقة عمل جديدة و نسقها كما تشاء و اربط الخلايا بها ، بورقة العمل المربوطة بالنت

أهلا أهلا بك أخونا الكريم نورت المنتدي :(

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

السلام عليكم لكن العرض بال pps ليس من خصائصه منع التعديل فيه فهو تحزيم للعرض و ليس حمايته من التعديل و يمكن وضع باس وورد علي التعديل فقط و عند التحويل الي عرض ، سيسأل عن كلمة سر التعديل و يخيرك اذا اردت فتحه للعرض فقط فسيمكن فتحه بدون كلمة السر و لكن للعرض فقط

نعم فى الحل المقترح تتحدث تلقائيا و يمكنك التحكم فى الفترة أو ان توقف التحديثي النلقائي بحسب رغبتك

أسهل الطرق هو استخدام الاكسيل Data Get External data new Web Query و تابع خطوات المعالج و الأخ Sharaf مشرف قسم الاكسيل خبير فى هذا الموضوع :) فاذا واجهنك مشكلة معه فى الاكسيل فاطرحها فى قسم الاكسيل و بالتأكيد سيكون له مداخلة حينما يقرأ الموضوع :)

السلام عليكم أخي أمير حسب ما فهمت من الرابط أن هذا الملف لا يضيف العربية Translation can be performed between Chinese, English, French, German, Italian, Japanese, Korean, Portuguese, Russian, and Spanish فهل عمل معك مع العربية ؟؟ و أعتقد أن أحد الحلول اذا كنت تستخدم نسخة الاوفيس ذات الاسطوانة الواحدة و هي اما لواجهة التطبيق العربية او الانجليزية فان كانت لديك احداهما فلتحمل الاخري معها و يمكن حينئذ التبديل بين لغتي واجهة التطبيق و ستعمل الترجمة حينئذ بإذن الله و لكن ستجد بعد العيوب فى التشغيل مثل ظهور بعض أسماء الكائنات و التعليمات بلغة غير واجهة التطبيق

السلام عليكم أولا جزاك الله خيرا علي الشرح الوافي و المميز ، و الذي سنستفيد منه جميعا بإذن الله و عندما نصل بالدورة الاكسس بإذن الله الي الاكواد و استخدام ال vba لن أقلق علي البداية ( لأني سأنقل من هنا مع الاشارة طبعا اول تعليق : فيما يخص : معرفات الوسائط : ByVal ByRef Optional فأود أن َضيف أنه أن Byref هي القيمة الافتراضية في حالة عدم الاختيار

Format Sheet Unhide و للتعديل فيها Tools Protection Unprotect Sheet و لا تنسي اعادة الحماية ثم الاخفاء بعد التعديل مع تحياتي

الجزء االثاني - محتوبات الموضوع : إنشاء إستعلام إختيار باستخدام المعالج تمثيل العلاقات المختلفة بجمل الاس كيو ال استعلام الجداول المحورية إٍستعلام إيجاد القيم المتكررة إستعلام إيحاد القيم الغير متماثلة المجموعات فى الأكسس الموضوع من هنــــــــــــــــــــــاو المثال التطبيقي من هنــــــــــــــــــــا

الجزء االثاني - محتوبات الموضوع : إنشاء إستعلام إختيار باستخدام المعالج تمثيل العلاقات المختلفة بجمل الاس كيو ال استعلام الجداول المحورية إٍستعلام إيجاد القيم المتكررة إستعلام إيحاد القيم الغير متماثلة المجموعات فى الأكسس الموضوع من هنا و المثال التطبيقي مرفق Q2.zip

شكل راااااااااااااااااائع و فكرة جميلة أمضيت خمسة دقائق قبل أن أصل الي الفكرة :)

لتشغيل الكود فى الاكسيل اما تشغيله عند حدث معين مثل : فتح ملف تغيير فى ورقة عمل ضغط علي زر و للتعرف علي الاحداث المرتبطة بالكائنات اضغط alt+F11 ثم انقر مرتين علي اكائن سواء كان الملف أو ورقة العمل ستجد فى اليمين مربعي سرد COMBO BOX من أحدها تختار الكائن و من الاخر تختار الحدث فيكتب لك بداية الروتين الفرعي المرتبط بالحدث و الذي تضع الكود داخله مثل Private Sub Workbook_Open() هنا يكتب الكود End Sub أو اذا كان مكتوب فى Sub Routine لها اسم مخصص غير مرتبط بحدث مثل Sub IBNSINA1() هنا يكتب الكود End Sub سيظهر فى قائمة الماكرو و يمكن تشغيله من القائمة أو بضغط ALT+F8 و اختياره ثم تشغيله و اذا كان فى دالة Function Function IBNSINA() هنا يكتب الكود End Function فيمكن استدعاء الدالة مثل باقي الدوال الموجودة فى الاكسيل و ذلك من القسم المسمي User Defined Functions من مجموعات الدوال و توجد مقدمة عن الكود و استخدامه فى الاكسيل هنا ( اضغط هنا )

مشكور أخ رضا :) و نرجو ارفاق الملف نفسه ، لتكتمل الفائدة مع تحياتي

نعم و ما يرتبط بالاعدادات الاقليمية هو خيار الصفر نفسه ( حسب ما فهمت من التعليمات ) Weekday(K, 0)