أ / محمد صالح

لعمل هذا
يمكنك نسخ الكود الموجود في الزر الثاني إلى الزر الأول
أو استعمال
call button2_Click داخل حدث ضغط الزر الأول

وهذا تطوير للمثال بحيث يكون أكثر احترافية
بحيث يقوم بالبحث ولا يمسح محتويات مربع البحث إذا تم تغيير الحقل
وتفادي وقوع الأخطاء وعدم استعمال
on error resume next
وتحديد القيمة الافتراضية لقائمة الحقول
بحث في جميع حقول النموذج.rar

تفضل أخي الكريم
تم استحداث دالة بالكود لجلب الحصص
ومعادلة بحث لجلب اسم المعلم
وأنصح بتسمية الشيتات بالانجليزية لتسهيل كتابة المعادلات عليك
وفقنا الله وإياكم لكل خير
ترحيل للجدول العام.rar

وفقنا الله جميعا لكل خير
الرسالة تعني أن المتغير passDatabase لم يتم تعريفه 
فكيف يتم حساب عدد حروفه؟!
يجب ان يتم الإعلان عن المتغير أولا
ثم وضع قيمة له
ثم استخدامه بعد ذلك
بالتوفيق للجميع

وفقك الله وهداك وإيانا للصواب
يتم معرفة اسم الملف الناقص ومساره بتحديد المرجع المطلوب (المكتوب بجواره missing) سيظهر بياناته في اسفل النافذة كما قلت سابقا
ولكن جرب أخي الكريم الحل الأسهل وهو حذف علامة الصح بجوار المرجع الثالث
missing: Microsoft office 12 authorization control
وإذا استمر عمل البرنامج
فالحمد لله
وإذا تعطل فيه شيء 
فيجب للأسف تحميل ملف dll الخاص بالمرجع من الانترنت
 

تفضل أخي الكريم
هذا مثالك بعد بعض التعديلات
فقط يلزمك وضع بريدك في جميل وكلمة مروره في الكود الخاص بزر الإرسال
mas_forgetpassword_email.rar

معنى هذا أن shapes.addchart موجودة في إكسل 2007 وما بعده
وربما يفيد هذا الإجراء من يستخدمون 2003
مع تغيير في الآلية
وهي تصدير النطاق المحدد
إلى مجلد اسمه folder موجود على سطخ المكتب
Sub SelectionToJpg() fpath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\folder\" & Format(Now, "yyyymmdd.hhnnss") & ".jpg" Selection.CopyPicture xlScreen, xlPicture With ActiveSheet Dim chtObj As ChartObject Set chtObj = .ChartObjects.Add(0, 0, Selection.Width, Selection.Height) chtObj.Name = "TempChart" .ChartObjects("TempChart").Activate ActiveChart.Paste ActiveChart.Export fpath chtObj.Delete End With MsgBox "ok" End Sub وفي الأخير
أنصح كل من يستخدم أوفيس 2003 بألا يحرم نفسه من سهولة ومميزات الإصدارات الأحدث
فقد صدر بعده 4 إصدارات
2007
2010
2013
2016
 

جرب هذا الفيديو

أعتقد أنه لا توجد امكانية في الأكسس لاعتماد نظامي تقويم في نفس الوقت
والحل في ذلك يمكنك اختيار نوع التقويم في بداية تسجيل كل تاريخ
ولا تقلق من تحويل التاريخ المكتوب بالميلادي إلى الهجري أو العكس
باستخدام الأمر التالي
Private Sub Text69_GotFocus() Application.SetOption "use hijri calendar", True End Sub Private Sub Text71_GotFocus() Application.SetOption "use hijri calendar", False End Sub في حدث عند امتلاك التركيز

بسم الله
السلام عليكم ورحمة الله وبركاته أحبابي في الله
بفضل الله انتهت التجربة بنجاح في استعمال موقع 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

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

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

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

وفقنا الله وإياكم لكل خير

لعمل ما تريد
يمكنك تغيير الماكرو mas إلى ما يلي
Sub mas() If Not Intersect(ActiveCell, Range("g5:h17")) Is Nothing Then ActiveCell = Format(Now, "hh:nn:ss ampm") End If End Sub وفقنا الله وإياكم لكل ما يحب ويرضى

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

أتمنى أن يكون هذا هو المطلوب
للعلم يجب تغيير الخلية B3 إلى تاريخ حتى يتم المطلوب وإلا سينتج أرقام عشرية
 
mas_حساب الايام مابين تاريخيين.rar

يمكنك استعمال هذه المعادلة
=INDEX(M11:M50;MATCH(I8;I11:I50;0)) في الخلية التي ترغب ظهور القسط فيها

يا هلا بك أخي العزيز
للوصول لما تريد
اكتب المعادلة التالية في الخلية D5
=IFERROR(IF(FIND(D$4;$C5);"دور ثان");"") وانسخ المعادلة رأسيا وأفقيا لكل الطلاب وكل المواد

عدد الصفوف والأعمدة في إكسل مرتبط بالإصدار
فنسخة إكسل 2003 وما قبلها:
عدد الأعمدة 256 عمود وعدد الصفوف 65536 صف
ونسخة إكسل 2007 وما بعدها:
عدد الأعمدة 16384 عمود وعدد الصفوف 1048576 صف
لذا أنصح باستعمال أحدث نسخة من الأوفيس حاليا 2013
ويوجد نسخة 2016 ولكن ما زالت تجريبية

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

لا مشكلة 
يبدو أن الكود في موضوع الأستاذ مختار يكتب جملة الشرط في سطر واحد 
لذلك لم يتم التطبيق على الخلية التي بها معادلة فقط
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select msgbox "any text" end if End Sub

ما يمكن تصديره واستيراده من إعدادات الإكسل
هو تخصيص شرط أدوات الوصول السريع
أو تخصيص الشريط ribbon
وذلك من خلال 
file ----> options ----> customize
export/import

يمكنك ذلك من خلال:
فتح مستند جديد فارغ
ثم الوصول للصندوق الحواري خط font
 
 
ثم اختيار نوع الخط وحجمه ولنه وأي اعدادات أخرى مطلوبة
ثم الضغط على
تعيين كافتراضي set as default
ثم موافق ok

أخي الكريم مختار
لقد نفذت المطلوب بدون الاهتمام باختبار الكود
لكن يبدو أن الكود به بعض النقص
فقمت بتغيير الإجرائين
وهما يعملان 100%
الإجراء الأول لوضع تاريخ اليوم في آخر خلية في الشيت إذا لم تكن موضوعة
وإذا كانت موضوعة يتم اختبار المدة الموحددة في المتغير days بالأيام
 
والإجراء الثاني لحذف الملف الحالي
بعد إكمال النقص به
mas_killmyself.rar

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