البحث في الموقع

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

اخواني الاعزاء واستاذتي الفاضل لقد تناول اخواني بالمنتدي موضوعات كثيرة حول استخراج كشف حساب بالاكواد لكن اليوم سوف نتاول معا كشف الحساب عن طريق الفورم مع استخراج قيد اليومية الخاص بحركة معينة وقد استخدمت في الشرح مشاركة سابقة لاخي ومعلمي الاستاذ / عبدالله باقشير (بارك الله فيه وجعل جميع اعماله في ميزان حسناته) وبعد اذن ادارة المنتدي قمت بفتح مشاركة جديدة لتسهيل عملية الوصول للموضوع وحتي يستفيد منه عدد كبير ولسهولة البحث واضفت شرح تفصيلي لكشف الحساب بالفورم في موضوعي ((امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=47476&p=293524 ادعوا الله سبحانه وتعالي اكون وفقت في عرض وشرح الموضوع ولا تنسونا بدعوة بصلاح الحال في ظهر الغيب كشف الحساب.rar

يعطيكم العافية جميعاً وشكرا مقدماً أنا أقوم ببحث علمي وتوصلت لمجموعة من الاسهم التي يفضل اقتناؤها لدي حوالي 20 سهم اريد من برنامج اكسل أن يصنع لي 20000 محفظة من هذه الأسهم بحيث تضم كل محفظة جميع انواع الأسهم وكل محفظة تختلف عن سابقتها بنسبة كل سهم ضمن المحفظة وبعدها حساب بعض الأرقام كعوائد هذه المحافظ ومخاطرتها ومقاييس معينة ةذلك لاختيار المحفظة الأفضل ولكل من هذه المقاييس قانونه فهل هذا ممكن مع الvba وكيف ؟؟ شكراً جزيلاً

السلام عليكم اعاني من مشكله ان الحقول لا تظهر في النموذج كما موضح بالصور المرفقة وشكرا I have problem with MS Access though i created a table n added some data but when i create a form my table's fields do not appear on form view only on design view as it shows on the attachment photos Any one faced this issue before? Best regards

ممكن يوزرفورم يقوم بادخال البيانات كما في الصورة اليوزر الفورم للجدول الاول (على اليمين) اليوزر الفورم الثاني للجدول الثاني (على اليسار) مع توضيح إذا امكن (للأكواد) ملاحظة عندما يقوم بتعبئة البيانات في اليوزر فورم اريد ان ينزل تلقائياً للصف بعده، والجدول يتوسع تلقائياً ليشمل البيانات الجديدة (حين يتم تعبئة بيانات على صف جديد) أيضاً مثلاً عند كتابة تاريخ خاطئ يقوم بتنبيه كذلك في في العمود الرابع من كل جدول، يقوم بتنبيه إن كانت القيمة ليست أرقام هذا رابط لملف الاكسل http://www.gulfup.com/?SXGyuW وجزاكم الله خير

السلام عليكم استخدم خاصية instr لتحديد موقع الكلمة المستخدمة من خلال الكود المستخدم . وبعد الفحص تبين أن كلمة "عقد" قد اعطت قيمة في كلمة "انعقدت" السؤال هل يوجد طرييقة لفحص الكلمة فقط دون أي زيادة ؟ مع جزيل الشكر

السلام عليكم 1 عندي مجموعة ارقام مختلفة كثير متسلسلة من الكبير الى الصغير 2 عندي رقم يختلف عن هذه الارقام وخارج عن قائمتها يتغير كل فترة 3 المطلوب هو دالة تستخرج لي اقرب رقمين من الرقم المختلف من مجموعة الارقام المتسلسلة الاكبر منه والاصغر مثال 50 45 44 43 42 24 22 12 11 6 3 1 0 ارقام متسلسلة وعندي رقم لنفترض انه 26 اريد دالة تستخرج لي ان الرقم26 بين 42 و24 وجزاكم الله خيرا

يحتوى برنامج الفيزيو 2010 على خاصية اضافة الملاحظات و علامات المراجعة Mark up و لكن للاسف لا يحوي امكانيات متقدمة مثل برنامج الوورد للتحكم فى طباعتها و لكن يوجد حل بديل عن طريق الماكرو حيث يتم انشاء مربع نص و نسخ قائمة بالتعديلات اليه و ذلك بجوار الرسم المصدر http://support.microsoft.com/kb/898514/en-us و هذا هو الكود Public Sub GetComments() Dim pagMarkup As Visio.Page Dim pag As Visio.Page Dim shp As Visio.Shape Dim sText As String Dim iRow As Integer Set pag = Visio.ActivePage sText = "Reviewer" & vbTab & "Date" & vbTab & "Comment" If pag.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then For iRow = 0 To pag.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If For Each pagMarkup In pag.Document.Pages If pagMarkup.Type = visTypeMarkup Then If pagMarkup.OriginalPage = pag Then If pagMarkup.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then sText = sText & vbCrLf sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.ReviewerID - 1, Visio.visReviewerName).ResultStr("") For iRow = 0 To pagMarkup.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If End If End If Next pagMarkup Dim iAutoSize as Integer 'new iAutoSize = pag.AutoSize 'new pag.AutoSize = 0 'new Set shp = pag.DrawRectangle(-pag.PageSheet.Cells("PageWidth").ResultIU, 0, 0, pag.PageSheet.Cells("PageHeight").ResultIU) pag.AutoSize = iAutoSize 'new shp.AddSection visSectionUser 'new shp.AddNamedRow visSectionUser, "msvNoAutoSize", visTagDefault 'new shp.CellsU("User.msvNoAutoSize").FormulaU = 1 'new shp.Cells("Para.HorzAlign").Formula = "0" shp.Cells("VerticalAlign").Formula = "0" shp.Name = "Reviewers Comments" shp.Text = sText End Sub

السلام عليكم اولا اود ان اشكر كل القائمين على هذا الموقع ومايحمله من معلومات فادتني انا كثيرا كثيرا انا اريد مساعده بحثت عنها كثيرا اريد عمل كود للاكسل او الورد بحيث عند عملية الكتابه على الملف والانتهاء من ملئه مجرد الضغط على تخزين ينتقل بي الى الاوت لوك لاقوم بارسال الملف ويكون الملف مرفق ويوجد رساله مختصره بالبريد مع العناوين التي سوف ترسل لهم TO وايضا CC وجدت مثله لاكن لااعلم كيف اجعله دائم يعني كل مره ادخل اغير المعلومات ويرسل انا ماعرفت كيف اخزن الشيت واخليها بهذا الامر يمكن عندي مشكله في عملية تركيب VBA فاتمنى حد يوضح لي بشكل ميسر التركيب والحفظ اتمنى مساعدتي لكم جزيل الشكر مع التوضيح كيف اخزن الملف بشكل دائم هذا عمله واذا فيه حد عنده مثل هالملف جاهز اكسل يحتوي على ايقونه بنهايته ارسال يضغط عليها وتتحول الى الاوتلوك اكون شاكر له يريحني كثير ان شاء الله وصلت فكرتي لكم برفق لكم الكود الذي لدي send cod.txt

الرجاء المساعدة في حل هذه المشكلة

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

بسم الله الرحمن الرحيم أعزائي أعضاء ومشرفي منتدى أوفيسنا بدأت تعلم البرمجة من هنا ثم انتقلت بين لغات البرمجة وتعمقت في php ولكن أريد عمل برنامج بالأكسس فواجهتني مشكلة وهي: أريد وضع نتيجة استعلام في متغيرات وخاصة في حالة تكون النتيجة أكثر من سجل والسجل أكثر من حقل وهذه في لغة بي اتش بي في منتهى السهولة بدالة تسمى mysql_fetch_array وتقوم هذه الدالة بوضع متغيرات بعدد الصفوف والأعمدة في نتيجة الاستعلام بحيث إذا أردت استعمال الداتا الموجودة في الصف الأول والعمود الأول يكون هذا في متغير وإذا أردت استعمال الداتا الموجودة في الصف الثاني ومثلا العمود الثالث يكون ذلك في متغير آخر فكيف يمكن تنفيذ ذلك في الأكسس؟؟ تحياتي للجميع وكل عام أنتم بخير بمناسبة الشهر المبارك

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

السلام عليكم لدي استفسار عن كيفية إعدادات الصفحة قبل الطباعة ياريت تفيدوني..أو ادلوني على موقع او كتاب استفيد منه ..اكسل 2010 لانه هذه المشكلة اعانيها

سلام الله عليكم حاولت ان اراسلكم على صفحت الاكسل بس ما مسموح، حابب اسأل عن طريقة او كود على الـVBA بالاكسل طريقة عمل copy/paste المقصود نسخ القاعدة من الخلية الى خلية اخرى مع البقاء على اسم العامود واضافة رقم واحد فقط على رقم السطر من صفحة الى اخرى من دون ان تأخذ رقم السطر الموجودة عليه مثل ان على السطر D4والقاعدة IF('السعي الاول'!C10="","",'السعي الاول'!C10) اريد ان انسخه على السطر D60 من دون ان تأخذ قيمة السطر وتصبح IF('السعي الاول'!C11="","",'السعي الاول'!C11) (نقل المعلومات منsheet) طال الشرح اتمنى ان تكون وصلت الفكرة مشكورين............

ارجو المساعدة احفاء الصوف.rar

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

اريد طباعة محددة بستثناء الصفوف الفارغه من حيث إذا زاد أسم في صف من الصفوف الفارغه تشملة الطباعة . المرفق موجود طباعة.rar

بسم الله الرحمن الرحيم الأخوة الأعضاء تحية طيبة ارفق لكم نسخة من ملف وهو عبارة عن مجهود عظيم لمجموعة عطرة من المشرفين وألأعضاء في هذا المنتدى الكريم الملف عبارة عن فورم استخلاص بيانات نقل وصرف مبلغ للسائق ولكن ماهو مطلوب اليوم استخراج نسختين من الفورم في ورقة واحدة بحيث اذا تمت الطباعة من ايقونة الطباعة او طباعة متعدده تخرج لي نسختان من كل سائق ( يحمل الرقم التسلسلي نفسه ) لاني اعاني من مسألة اعادة الطباعة لكل سائق كثرا ............ اتمنى قد اوصلت الفكرة لكم وتقبلوا تقديري اخوكم ابو شرف فورم نقل.rar

السلام عليكم انا تلميذ جديد في الاكسيس واريد ان اتعلم فهل من مساعدة

السلام عليكم ورحمة الله تعالى وبركاته ومبارك عليكم الشهر أعاننا الله وإياكم على الصيام والقيام وصالح الأعمال ويسعدني تواجدي معكم في هذا المنتدى الجميل * * * نعاني يا أحباب من هذه المشكلة منذ فترة في العمل لدي ولدى عدد من الزملاء ظهرت فجأة ولا ندري ما السبب * * * با اختصار يتم تقسيم صفحة Excel إلى عدة صفحات وعند معاينة الطباعة يختفي هذا التقسيم ولكن عند النقر على زر الطباعة تظهر الصفحة الواحدة في الطابعة مجزأة إلى عدة صفحات كما هو واضح في الصور هنا في انتظار توجيهكم بارك الله في جهودكم

السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء والاساتذة الافاضل جزاكم الله خيرا المرفق فيه نتائج عملتها بالتصفية التلقائية بعد مساعدة الاساتذة الكرام في المنتدى الرائع لكن عندما اردت ان اطبع النتائج لكل فصل مع هامش وعملت ماكرو لهذا ولم ينجح وتظهر رسالة خطا ارجو مساعدتي في كود لطبع النتائج بعد التصفية وظهور الهامش اسفل النتائج في الطباعة وتقبلوا دعواتي لكم بالموفقية والنجاح كود طباعة البيانات بعد التصفية.rar

السلام عليككم ورحمة الله وبركاته عندي مشكله ببرنامج اكسل (( قهررررررررررررني ) اللي عنده خبره بالدوال خصوصا بدالة ( if ) او يدلني على احد يعرف للدوال المشكله موضحه بالصوره التااليه ابي اضبط جدول لحساب التوقعات .. شروط التوقعات موجوده بالصورة (مع مثال لكل شرط) يعني ابي يكون الجدول ثابت .. بس اغير الارقام واسماء الفرق وتلقائي يحسب لي عدد النقاط لكل شخص متوقع اتمنى اجد عندكم حل ، وشككككرا

العنوان لا يحتاج الى زيادة شرح او تفصيل في المرفقات مثال فريد لتحقيق المطلوب فريد : لاعتماده على جملة برمجية صغيرة ، بعيدا عن الوحدات النمطية المطولة Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long Private Sub Form_Open(Cancel As Integer) Dim Prn As Printer For Each Prn In Application.Printers PrinterList.AddItem Prn.DeviceName Next Prn End Sub Private Sub PrinterList_DblClick(Cancel As Integer) SetDefaultPrinter (PrinterList) DoCmd.Close acForm, Me.Name End Sub اختيار الطابعة الافتراضية من قائمة.rar

السلام عليكم .. لدي طلب مستعجل .. انا مبتدئ في استخدام فيجوال بيسك مشكلتي اني اريد نقل اكثل من قائمة من فيجوال بيسك الى برنامج اكسل علما اني وجدت الرابط التالي وفيه شرح نقل قائمة واحدة فقط ---- http://fr.scribd.com/doc/19578575/%D8%B1%D8%A8%D8%B7-%D8%A7%D9%84%D9%81%D9%8A%D8%AC%D9%88%D8%A7%D9%84-%D8%A8%D9%8A%D8%B3%D9%83-%D8%A8%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D9%8A%D9%84 ----- أرجوا الإفادة من خبراء البرمجة قريبا .. للتواصل السريع .. www.facebook.com/drnaoui