السلاه عليكم و رحمة الله تعالى و بركاته
من فضلكم أريد دالة أقوم بتصميمها وتكون شبيهة للدالة : Mid
لقد بذلت جهدي في عمل هذه :
[HTML]
Private Function MDb(M0 As String, R1 As Long, R2 As Long)
On Error Resume Next
MDb = Right$(M0, Len(M0) - (Val(R2 - R1) - 1))
MsgBox (Val(R2 - R1) - 1)
MDb = Right$(MDb, R2)
End Function
[/HTML]
فمثلا في الدالة mid
msgbox mid("I'm waidom",10,2)
ستقوم دالتي بنفس العمل :
:MDb mid("I'm waidom",10,2)
و ما أريده منكم لو سمحتم أن تقوموا بتعديل بسيط عنها
شكرا لكم مقدما
من فضلكم أريد دالة أقوم بتصميمها وتكون شبيهة للدالة : Mid
لقد بذلت جهدي في عمل هذه :
[HTML]
Private Function MDb(M0 As String, R1 As Long, R2 As Long)
On Error Resume Next
MDb = Right$(M0, Len(M0) - (Val(R2 - R1) - 1))
MsgBox (Val(R2 - R1) - 1)
MDb = Right$(MDb, R2)
End Function
[/HTML]
فمثلا في الدالة mid
msgbox mid("I'm waidom",10,2)
ستقوم دالتي بنفس العمل :
:MDb mid("I'm waidom",10,2)
و ما أريده منكم لو سمحتم أن تقوموا بتعديل بسيط عنها
شكرا لكم مقدما
