gaserahmed Admin
عدد المساهمات : 656 تاريخ التسجيل : 17/08/2013
| موضوع: كود اكسيل لعمل رسالة ترحيب الأربعاء أغسطس 26, 2015 6:19 pm | |
| السلام عليكم ورحمة الله اخواتي واخوتي سيتم طرح اكواد ممكن استخدامها في برنامج الاكسيل واليوم سيتم طرح كود لعمل رسالة ترحيب باليوم والتاريخ والساعة
ارجوا ان يحوز اعجابكم
Sub MACRO15() Dim thedate As String, thetime As String, greeting As String, fullname As String, firstname As String, ali As String Dim spaceinname As Integer, abood As String, alidroos As String, MY As String, thkr As String, thedat As String VBA.Calendar = vbCalGreg thedat = Format(Date, "long date") VBA.Calendar = vbCalHijri thedate = Format(Date, "long date") thetime = Format(Time, "medium time") abood = "التـاريخ هجري" ali = "التاريخ ميلادي" alidroos = "السـاعه" thkr = "لاتنسـى ذكــر الله" Select Case Time Case Is < TimeValue("12:00"): greeting = "السـلام عليكم صبــاح الخير" Case Is >= TimeValue("12:00"): greeting = "السـلام عليكم مســاء الخير" Case Else: greeting = "تصبح على خير" End Select fullname = Application.UserName spaceinname = InStr(1, fullname, "", 1) If spaceinname = 0 Then spaceinname = Len(fullname) firstname = Left(fullname, spaceinname) greeting = greeting MsgBox abood & thedate & vbNewLine & "=====================" & vbNewLine & vbCrLf & ali & thedat & vbNewLine & "=====================" & vbNewLine & vbCrLf & alidroos & thetime & vbNewLine & "=====================" & vbNewLine & vbCrLf & thkr & vbNewLine & "=====================" & vbNewLine & vbCrLf & MY & vbNewLine & "====================================" & vbNewLine, vbInformation, greeting End Sub
| |
|