السلام عليكم و رحمة الله و بركاته
لحساب مضروب الرقم يمكنك استخدام الدالة FACT
و لعكس النص يمكنك إستخدام هذا الكود
Function Reverse(text As String) As String
For N = Len(text) To 1 Step -1
Reverse = Reverse & Mid(text, N, 1)
Next N
End Function
أو هذا الكود
Option Explicit
Function ReversTetx(text) As String
Dim TxtLen As Integer, i As Integer
TxtLen = Len(text)
For i = TxtLen To 1 Step -1
ReversTetx = ReversTetx & Mid(text, i, 1)
Next i
End Function