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

الدمج البريدي بين الوورد و قواعد البيانات وورد مع : وورد ، أكسس ، إكسيل http://www.officena.net/ib/index.php?showtopic=148 درس : طريقة وضع الصور خلف الكتابة أو أمامها .. http://www.officena.net/ib/index.php?showtopic=1547 درس2: تحديد هوامش الصفحة + تحديد شكل الصفحة http://www.officena.net/ib/index.php?showtopic=1599 درس3: ترقيم الصفحات http://www.officena.net/ib/index.php?showtopic=1667 درس 4: رأس وتذييل الصفحة الجزء الأول http://www.officena.net/ib/index.php?showtopic=1682 سلسلة استخدام لوحة المفاتيح في الوورد http://www.officena.net/ib/index.php?showtopic=1173 إنشاء نموذج محمي بالوورد http://www.officena.net/ib/index.php?showtopic=2837

السلام عليكم أضفت الكائن المشار اليه و لم ينتقل التركيز معي فى اوفيس 2003 و بصفة عامة ، فان لهذا الكائن حدث يسمي On Enter يمكنك استخدامه

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

شرح دوال أكسس - دوال تجميع المجال http://www.officena.net/ib/index.php?showtopic=152 و هنا توجد أمثلة عليها و كلها متشابهة فى التطبيق دوال الأكسس http://www.officena.net/ib/index.php?s=&act=SF&f=30 شرح دوال التاريخ و الوقت - لأبي هاجر http://www.officena.net/ib/index.php?showtopic=482 شرح احرف البدل http://www.officena.net/ib/index.php?showtopic=812

فى هذه الحالة لابد من حفظ القيمة فى حقل فى جدول و استدعاؤها باستخدام DLOOKUP للتعامل معها

المقصود هو عمل استعلام توحيد يتم فيه توحيد الحقول n1,n3,n8 فى حقل واحد يسمي مثلا n9 فى الاستعلام و عليه تبني القائمة

تعديل الدالة : Function ForTrAlfbet(Astr As Variant) As String If Nz(Astr, "") = "" Then Exit Function Dim L1, L2, L3 As String, NewStr As String NewStr = Astr For i = 1 To Len(Astr) NewStr = CStr(NewStr) L1 = Mid(NewStr, 1, i - 1) L2 = Mid(NewStr, i, 1) L3 = Mid(NewStr, i + 1, Len(NewStr)) Select Case Asc(L2) Case 194, 195, 197: L2 = Chr(199) Case Else: L2 = L2 End Select NewStr = L1 & L2 & L3 Next i ForTrAlfbet = NewStr End Function

ملاحظة : تم تعديل الملف بعد تنزيله 4 مرات يرجي اعادة التنزيل ممن أنزلوه مع تحياتي

يوجد اضافة ال Solver فى الاكسيل و هو يضاف من ال add-ins

افتح الصفحة ثم tools options use current

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

اما اذا أردت كل الاسماء فلا تضعي أي معايير و انما تكتلفي بالتجميع بالاسم فقط

باضافة المعايير فى نفس السطر فهذا يعني أن الاسم سارة ، و ، فاطمة و هذا لن يتحقق و انما تلغي الاسم الثاني و تضيفي المعياران فى الاسم الاول الاول فى خانة المعيار و الثاني فى الخانة التي تكون فى اسفلها أمام سطر OR أي "أو" هذا اذا أدرت اظهار سارة و فاطمة فقط

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

موضوع مرتبط يمكنك من خلاله نقل الملفات الخاصة بالمراجع http://www.officena.net/ib/index.php?showt...view=getnewpost

لتغيير دقة الارقام الموجودة فى خلايا و اظظهار الناتج فى خلايا أخري يمكننا استخدام دوال عديدة كما ورد فى عدة أمثلة فى المنتدي سواء جاهزة مثل round,roundup او دوال اضافية و هنا يظهر الناتج فى خلايا جديدة أو نقوم باختيار أن تكون الدقة مناظرة للتنسيق الظاهر ، من Tools, options, Calcualations precision as displayed أما المثال المرفق فنقوم فيه باختيار الخلايا المطلوب تغيير دقتها و نشغل أحد الكودين الاول للتقريب العادي و الثاني للتقريب للاعلي ، و تظهر رسالة تسأل عن درجة دقة التقريب المطلوبة و الثالث للتحويل الي القيمة الصحيحة فقط ووجدتني أحتاج ذلك فى بعض الملفات ، و أرجو أن يكون مفيدا :( ملاحظة : لا تطبقه علي خلايا بها معادلات لانه سيقوم بتحويلها الي القيم المناظرة و يلغي المعادلات و انما علي الارقام المباشرة فقط Sub rounditapprox() Dim rr, cc, ap As Integer ap = InputBox("Enter the Number Of digits for Approximation", "www.officena.net", 0) rr = Selection.Rows.Count cc = Selection.Columns.Count For i = 0 To rr - 1 For j = 0 To cc - 1 ActiveCell.Offset(i, j) = Round(ActiveCell.Offset(i, j), ap) Next j Next i End Sub Sub rounditapproxUP() Dim rr, cc, ap As Integer ap = InputBox("Enter the Number Of digits for Approximation", "www.officena.net", 0) rr = Selection.Rows.Count cc = Selection.Columns.Count For i = 0 To rr - 1 For j = 0 To cc - 1 ActiveCell.Offset(i, j) = Application.WorksheetFunction.RoundUp(ActiveCell.Offset(i, j), ap) Next j Next i End Sub Sub takeinteger() Dim rr, cc As Integer rr = Selection.Rows.Count cc = Selection.Columns.Count For i = 0 To rr - 1 For j = 0 To cc - 1 Dim mycell As Double mycell = ActiveCell.Offset(i, j).Value * 100 ActiveCell.Offset(i, j).Value = ((Round(mycell, 0) - Round((mycell Mod 100), 0)) / 100) ActiveCell.Offset(i, j).NumberFormat = "#,##0" Next j Next i End Sub RoundSelection.rar

مثال لمقارنة قيميتين فى عمود السحب و الرصيد و منع تعدي المسحوب للرصيد فى العمود باكمله Rassed1.rar

مثال الاخ أحمد referenceFiles.rar

http://www.officena.net/ib/index.php?showt...pic=1296&hl=asp

نعم هذا هو الوضع الامثل و نرجو أن تقبل ذلك يا أخ مصلح من أجل مصلحة المشروع :(

الكود للاخ أمير Private Sub Worksheet_Change(ByVal Target As Range) If Worksheets("Sheet1").Range("A1").Value > Worksheets("Sheet1").Range("A2").Value Then If MsgBox("الرصيد لا يسمح بزيادة عدد" & " " & _ ((Worksheets("Sheet1").Range("A1").Value) - (Worksheets("Sheet1").Range("A2").Value)) _ & " " & "وحدة .. هل تريد الإستمرار أم نضع الحد الاقصي للاستمرار اختار نعم", vbQuestion _ + vbYesNo, "رسالة تنبيه") = vbNo Then Range("A1").Value = Range("A2").Value Exit Sub End If End If End Sub مرفق المثال CompareValue_amir.rar

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

موضوع مرتبط http://www.officena.net/ib/index.php?showtopic=1827

التحويل يتم من نسخة 2000 , و ليس 97 أي من الاصدار الاعلي الي الاقل فى نسخة الاصدار الاعلي

جرب التقرير فى هذا المثال الأجنبي :pp: justidirect.zip