أ / محمد صالح

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

الإعدادات الإقليمية تخص الويندوز حاول تضيف اللغة العربية في الويندوز التركي يعني لوحة المفاتيح تكتب عربي وتركي وانجليزي مثلا وحاول من تبويب administrative أو الإدارة استعمال اللغة العربية كلغة الترميز Unicode يا ريت تصور الرسالة

ربما تحتاج لترقية المتصفح الخاص بك لأحدث إصدار لا يوجد مشاكل معي

يا ريت توضح أكثر ما المشكلة؟ مع العلم أن أي نسحة ويندوز يمكن إضافة لغات تحرير لها

بسم الله السلام عليكم ورحمة الله وبركاته أحبابي في الله بفضل الله انتهت التجربة بنجاح في استعمال موقع http://www.batelcosms.com.bh/ لإرسال رسائل sms في دولة البحرين الشقيقة وهي خدمة مدفوعة الأجر تم التوصل لكود يقوم بفتح موقع الشركة وإرسال الرسالة منه باستعمال بيانات المستخدم المزودة من الشركة ووضعها في الكود الكود يحتوي على إجراس الإرسال ودالة لتحويل نص الرسالة للترميز العالمي الموحد utf8 هذا هو الكود لمن يريد إرسال رسائل باستخدام نفس الشركة في الأكسس أو الإكسل Sub sndSMS() customerID = "" UserName = "" userPassword = "" originator = "" MessageType = "ArabicWithArabicNumbers" 'Latin, ArabicWithArabicNumbers, ArabicWithLatinNumbers recipientPhone = "" smsText = "" sURL = "http://www.batelcosms.com.bh/bms/Soap/Messenger.asmx/HTTP_SendSms?customerID=" & customerID & "&userName=" & UserName & "&userPassword=" & userPassword & "&originator=" & originator & "&smsText=" & UTF8Encode(smsText) & "&recipientPhone=" & recipientPhone & "&messageType=" & MessageType & "&defDate=" & Format(Now() - TimeValue("04:00"), "yyyymmddhhnnss") & "&blink=0&flash=0&Private=0" Set oh = CreateObject("Microsoft.XMLHTTP") oh.Open "get", sURL, False oh.send If InStr(oh.responseText, "OK") > 0 Then MsgBox "Message sent." Else MsgBox "Error." End If Set oh = Nothing End Sub Function UTF8Encode(ByVal sStr As String) As String Dim i As Integer Dim thisChar As String Dim sUtf8 As String For i = 1 To Len(sStr) thisChar = AscW(Mid(sStr, i, 1)) If thisChar < 128 Then sUtf8 = sUtf8 + Mid(sStr, i, 1) ElseIf ((thisChar > 127) And (thisChar < 2048)) Then sUtf8 = sUtf8 + Chr(((thisChar \ 64) Or 192)) sUtf8 = sUtf8 + Chr(((thisChar And 63) Or 128)) Else sUtf8 = sUtf8 + Chr(((thisChar \ 144) Or 234)) sUtf8 = sUtf8 + Chr((((thisChar \ 64) And 63) Or 128)) sUtf8 = sUtf8 + Chr(((thisChar And 63) Or 128)) End If Next i UTF8Encode = sUtf8 End Function ومرفق الكود في ملف إكسل وفقنا الله وإياكم لكل ما يحب ويرضى Mas_Send SMS.rar

جاري التواصل مع الحبيب عبد الله (أبو أحمد) بخصوص إرسال رسائل sms من خلال الأكسس وسيتم وضع الكود بعد تجربته ونجاح التجربة بإذن الله

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

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

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

المعادلة صحيحة 100% ولكن ربما تحتاج لتغيير الفاصلة المنقوطة ( ; ) إلى الفاصلة فقط ( , ) جيث يرجع ذلك إلى اختلاف التنسيقات بين جهاز صاحب المعادلة وجهازك

كل عام الجميع بكل خير تقبل الله منا ومنكم صالح الأعمال طلباتك أوامر أستاذ ياسر قريبا إن شاء الله

بسم الله الرحمن الرحيم كل عام والجميع بكل خير عيد سعيد ومبارك .................. للوصول لما تريد ينبغي تثبيت طابعة pdf وهمية على الجهاز (أنا شخصيا أستخدم الملحقة مع قارئ pdf اسمه foxit reader) مع التأكيد على استعمالها كطابعة افتراضية set as default printer ثم تقوم بإضافة حجم ورق جديد للطابعة الوهمية (الحجم الذي تطبع عليه وليكم 100 في 80 مثلا) وذلك عن طريق: لوحة التحكم control panel -------> ثم الأجهزة والطابعات Devices and Printers -----> ثم كلك يمين على طابعة Foxit Reader PDF Printer وتختار printing preferences تفضيلات الطباعة ومن التبويب تخطيط layout يمكن تحديد وحدة القياس unit of metrics بالبوصة أم السنتيمتر ثم نضغط على زر costume page size حجم صفحة مخصص ثم زر إضافة add ثم تسمي هذا الحجم بما شئت (mas) وتكتب العرض width والارتفاع height كما تريد ثم ok ثم ok ثم ok نأتي للطباعة من الإكسل: في نافذة المعاينة نختار من paper size حجم الورق (mas) أو الاسم الذي سميناه به وإذا لم يكن موجودا نضغط على more paper sizes المزيد من أحجام الورق وساعتها تفتح نافذة إعدادا الصفحة ونختار الحجم المطلوب ثم ok ثم print واستمتع بملف pdf بالحجم المطلوب يتم طباعته هناك بضغطة زر واحدة بدون فقد الخطوط ولا التنسيقات ولا الوقت ............... ولا ينقصني سوى دعاؤكم

بعد إذن الأستاذ جمال جرب أخي الكريم أن تستعمل هذه المعادلة =IF(MOD(A2,0.1)>0.05,ROUNDUP(A2,0),ROUNDDOWN(A2,0)) لعلها تكون المطلوب

الأخ الكريم أبو حنين المعادلة تعني اختبار شرط إذا كان وقت العودة أقل من وقت الخروج (وهذا الشرط لن يتحقق إلا إذا كانت العودة في اليوم التالي) يتم إضافة 1 (بمعنى يوم أو 24 ساعة) على وقت العودة فتصير مثلا الساعة 6ص الساعة 30 ناقص مثلا الساعة 8م (20) يساوي 10ساعات وإذا لم يكن وقت العودة أقل لا يضيف شيء (يضيف صفر) على وقت العودة ثم يطرح وقت العودة الجديد - وقت الخروج

تفضل أخي الكريم ضع هذه المعادلة في الخلية I5 =IF(H5<G5,1,0)+H5-G5 ويمكنك سحبها إلى I17

بسم الله الرحمن الرحيم السلام عليكم جميعا وكل عام أنتم بكل خير أخي الكريم إذا كنت تقصد مثلا وجود بعض الأرقام في العمود A ووجود بعض النسب أمام كل رقم في العمود B وتريد إظهار النسبة المئوية في العمود C يمكنك وضع هذه المعادلة في العمود C في الخلية C1 =A1*B1 وأسفل هذه القيم تضع دالة الجمع العادية =SUM(C1:C10) وإذا أردت وضع معادلة واحدة للضرب والجمع بدون العمود c يمكنك استعمال هذه المعادلة =SUMPRODUCT(A1:A10,B1:B10)

وفق الله الأستاذ إبراهيم في تعديل الخلية C10 ولم يضع معادلة الخلية F10 سهوا ولكني لاحظت اضطرابا في معادلة الخلية B10 وهذا المرفق بعد التعديل للعلم المعادلة الموجودة في B10 معادلة صفيف يلزم بعدها الضغط على CTRL+SHIFT+ENTER mas_رندة.rar

كل عام وأنت بخير أخي الكريم * لا يوجد مرفق ثان اسمه مستخلص نهائي * وهل المستخلص الجديد سيكون ورقة عمل (شيت) بنفس الملف أم ملفا جديدا؟ * برجاء تحديد خانة الجاري والسابق من خلال اسم الخلايا يعني A1, B2 وهكذا يفضل عرض المطلوب بكل تفاصيله بأسلوب بسيط حتى يتمكن الزملاء من مساعدتك والوقت الذي يقضى في تفسير المطلوب يمكن أن يتم تنفيذه فيه بل وأقصر

جرب نسخ الإجراء كله وبلاش حكاية التعديل دي Sub mas() For n = 1 To 10 If WorksheetFunction.Sum(Range("g" & 6 + n * 38 - 38 & ":g" & 37 + n * 38 - 38)) > 0 Then Range("g" & 6 + 1 * 38 - 38).Select PrintCurrentPage End If Next n MsgBox "Ok" End Sub

ينفع جدا الاعتماد على مجموع الخلايا g6:g37 اللي هو المفروض يكون في الخلية g38 كما قلت سابقا من البداية لعمل ذلك يمكنك تغيير "f" التي في السطر الثالث إلى "g" وفي الأخير أنصحك أخي الكريم بمتابعة الدورات الموجودة في المنتدى حتى يكون لديك الأساسيات ومن ثم تنطلق في فضاء الإكسل

بارك الله لك أخي خالد ولاختصار بعض الحروف يمكن كتابتها كما يلي: =SUM(INT((WEEKDAY(A2-{1,2,3,4,5})+B2-A2)/7))-SUMPRODUCT(--(C2:C10>=A2),--(C2:C10<=B2),--(WEEKDAY(C2:C10)<>6),--(WEEKDAY(C2:C10)<>7))

الطبيعي والمنطقي في تنسيق الصفحات في إكسل أن تكون متساوية في عدد الصفوف والأعمدة وبعد فحص ملفك وجدت أن الصفحة الأولى 39 صفا ونظرا لأن عمليات التكرار في البرمجة منتظمة (يعني مضاعفات أي رقم) ففمت بضبط باقي الصفحات على 39 صفا واستعمالنا لخلية واحدة هي إجمالي المجموع g38 هو بديل لاستعمالنا لمجموعة كبيرة من الخلايا تقريبا 62 خلية ولا أدري كيف يكون تنسيق صفحة مختلف عن صفحة أخرى (دي فيها مجموع ودي مفيهاش) وإذا اعتمدت على خلية g46 أو g44 ومضاعفاتها فربما لن يتم طباعة أي صفحة (لأن هذا صف من صفوف صفحة وليس صفا يعبر عن الصفحة كلها كصف المجموع) .............. طبعا أكيد خضرتك متقصدش العمود F أو العمود G كلها أكيد تقصد ضمن الصفحة الواحدة لذلك يمكن تغيير كود الإجراء mas إلى ما يلي Sub mas() For n = 1 To 10 If WorksheetFunction.Sum(Range("f" & 6 + n * 38 - 38 & ":g" & 37 + n * 38 - 38)) > 0 Then Range("g" & 6 + 1 * 38 - 38).Select PrintCurrentPage End If Next n MsgBox "Ok" End Sub ويعني الشرط الذي تم تغييره إذا كان مجموع الخلايا F6:G37 أكبر من صفر يتم تحديد أول خلية في الصفحة ثم طباعة الصفحة الحالية وهكذا يتكرر الكود مع الخلايا F44:G75 بإضافة 38 إلى الرقمين وهو عدد صفوف الصفحة .................... رغم استحبابي للفكرة الأولى وهي تجميع هذا النطاق كله في خلية واحدة هي خلية المجموع وكل عام والجميع بخير

لو قلنا كيف نصحح هذا الخطأ؟؟!! من يجعل المعادلتين متساويتين في النتائج

هذا الكود iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row يعني تخصيص قيمة للمتغير iRow وهي رقم الصف التالي لآخر صف لأعلى من آخر صف في الشيت باختصار أول خلية فارغة بعد المكتوب

فعلا أخي الكريم خالد خلدك الله في جنات النعيم الدالة الأولى أكثر دقة في حالة كتابة جميع تواريخ الأجازات بما فيها الأجازات التي تكون يوم الجمعة أو السبت (اللي هما أصلا أجازة) أما المعادلة الثانية تعتمد على طرح عدد الأجازات المحصورة بين تاريخ البداية والنهاية من العدد الكلي لأيام العمل بين التاريخين ....................... شفت الفرق يا اللي لسة بتستخدم أوفيس 2003 وما قبله يالا بينا نستحدم كل جديد