كود اكسيل لعمل رسالة ترحيب

سيتم طرح اكواد ممكن استخدامها في برنامج الاكسيل

واليوم سيتم طرح كود لعمل رسالة ترحيب باليوم والتاريخ والساعة

ارجوا ان يحوز اعجابكم

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