مساعدة فى الحصول على المضروب و عكس الكلمة فى vba

[نور الرحمة]

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

1) عندى فى العمود a قيم

عايزة اجيب مضروبها فى العمود b

وتكون على العمود بأكمله

2)عندى فى العمود c نصوص

عايزة الكلمة اللى فى c تظهر معكوسة فى العمود d

وتكون على العمود بأكمله

((بإستخدام بناء الدوال واستدعائها واستدعاء الاجراء))

وجزاكم الله كل خير

[أبوعبد الله]

الأخت الفاضلة

رجاء إرسال مرفق وتوضيح المطلوب بشكل أكثر تفصيلاً وماالمقصود بجملة ((بإستخدام بناء الدوال واستدعائها واستدعاء الاجراء)) وما المقصود ب (مضروب) القيم هل تقصدي حاصل ضربها في نفسها أم في قيمة أخرى ؟ وما المقصود بعكس الكلمات يعني عكسها في المعنى أم عكسها في الكتابة ؟ رجاء التوضيح .

تحياتي

أبو عبدالله

[نور الرحمة]

فيه ارقام فى العمود a

a1 فيها قيمة ولتكن 5 عايزة المضروب ليها فى الخلية b1

و المضروب لـ 5 هو 5*4*3*2*1

وعكس الكلمة عكسها فى الكتابة

noor roon

وبناء الدوال اللى هيا بتبدى fuction وبتنتهى بــ end fuction

واستدعاء الاجراء call

يعنى عايزة الحل يكون بيهم

تم تعديل أبريل 10, 2010 بواسطه نور الرحمة

[يحيى حسين]

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

لحساب مضروب الرقم يمكنك استخدام الدالة 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

[نور الرحمة]

جزاك الله كل خير استاذ

يحيى حسين

بس ممكن حضرتك توضحه اكتر على مرفق

تم تعديل أبريل 10, 2010 بواسطه نور الرحمة

[هشام شلبى]

السلام عليكم

========

بارك لله فيك اخى يحيى

اخى الحبيب ابو عبدالله

مضروب العدد " رياضيا " هو ضرب العدد تنازليا الى ان يصل الى العدد 1

الاخت الفاضلة شاهدى المرفق كيفية عكس النص

دالة عكس النص.rar

[نور الرحمة]

جزاك الله كل خير

استاذ هشام شلبى

[أبوعبد الله]

الأخوة الأعزاء / يحيى حسين وهشام شلبي

أشكركم على المعلومات القيمة والشكر موصول للأخت السائلة.

تحياتي

أبو عبدالله

[ياسر خليل أبو البراء]

إبداع متواصل من الجميع

جزيتم خيرا على ما تقدمونه من أجل إخوانكم

أخوكم أبو البراء

[نور الرحمة]

السلام عليكم

========

بارك لله فيك اخى يحيى

اخى الحبيب ابو عبدالله

مضروب العدد " رياضيا " هو ضرب العدد تنازليا الى ان يصل الى العدد 1

الاخت الفاضلة شاهدى المرفق كيفية عكس النص

السلام عليكم

لو سمحت استاذ هشام

ممكن تعرف لى معنى

trim و clng

فى الكود بتاع حضرتك

 strOld = Trim(Rcell)

 If IsText = False Then

        ReverseCell = CLng(StrNewNum)

تم تعديل أبريل 12, 2010 بواسطه نور الرحمة

[أسامة حسانين]

السلام عليكم

Trim: هو لإزالة أي مسافات زائدة في المتغير (ما عدا مسافة واحدة بين الكلمات)

clng: هو لتقريب الناتج إلى أقرب عدد صحيح للأرقام الكبيرة double

clng(56754.4)=56754

clng(56754.65)=56755

[يحيى حسين]

السلام عليكم و رحمة الله

بعد إذن الأخ الحبيب هشام

و الشكر الموصول للأخ أسامه على توضيحه

أعتقد أنه هذه الدالة ستكون أفضل و أبسط للفهم و الإستخدام

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

[هشام شلبى]

السلام عليكم

========

بارك لله فيك اخى يحيى

اخى الحبيب ابو عبدالله

مضروب العدد " رياضيا " هو ضرب العدد تنازليا الى ان يصل الى العدد 1

الاخت الفاضلة شاهدى المرفق كيفية عكس النص

السلام عليكم

لو سمحت استاذ هشام

ممكن تعرف لى معنى

trim و clng

فى الكود بتاع حضرتك

 strOld = Trim(Rcell)

 If IsText = False Then

        ReverseCell = CLng(StrNewNum)

السلام عليكم

===========

كما قال الاخ اسامة الامر strOld = Trim(Rcell هو لعدم الاخذ فى الاعتبار " المسافات فى النص القديم اى قبل الانعكاس" وممكن تجربى وتكتبى قبل النص او بعده اكثر من مسافة

اما الامر If IsText = False Then

ReverseCell = CLng(StrNewNum

فهو للحقاظ على انعكاس صورة الرقم عندText = False " اى عند استبدال النصوص بالاعداد "

تم تعديل أبريل 12, 2010 بواسطه هشام شلبى

[نور الرحمة]

شكرا جزيلا استاذ

Osama905

يحيى حسين

هشام شلبى

على التوضيح

وجزاكم الله كل خير

[أحمد عبدالعزيز]

والله العظيم إنتم ناس محترمه

وجزاكم الله كل خير