كتابة الدوال داخل محرر الفيجول

[Anwar]

جزء اللة القائمة علي هذا المنتدي خير الجزء

لدي سؤال اذا كنا نريد كتابة دالة في اي شيث وليكن الدالة SUM فاننا نكتبها هاكذا

SUM(A1:A10)

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

شكرا لتعاونكم

[محمد طاهر عرفه]

جرب هذا الموضوع

http://www.officena.net/ib/index.php?showtopic=206

[Anwar]

شكر استاذ محمد ويعطيك العافية والنور

انا قرات الدروس ورايح اجرب اعمل جمع في محر الفيجوال ولكن لي سؤال وحتي لا يقال اننا نعتمد علي هذا المنتدي الرائع دون ان نجرب

فلقد جربت ولم تنجح معي اريد كود لماكرو يقوم بنقلي من الخلية الحالي التي انا فيها الي الخلية المجاورة لها في جهة اليمين

فمثلا التركيز الان في الخلية B3 عند تشغيل الماكرو ينتقل التركيز الي الخلية A3

وللعلم يوجد كود للاستا ذ محمد طاهر في الوصلة اعلاها ولكن المشكلة انها تجعل التركيز علي الخليتين مع بعض

اي بعد تشغيل الماكرو تم التركيز علي الخليتين B3 و A3 وانا اريد التركيز فقط علي A3 وذلك بواسطة الماكرو

والامر السابق هو

Range(ActiveCell, ActiveCell.Offset(MyRow - 1, 0)).Select

طبعا مع تعريف القيم المتغيرة

ارجو المساعدة

[Anwar]

للرفع

[السيد عبد العال]

ActiveCell.Offset(0, -1).Select

[السيد عبد العال]

بالنسبة للموضوع الاساسى لهذه المشاركة وإضافة للدرس الجميل للاخ المهندس / محمد طاهر فى التعريف على VBA:

فقد فهمت من سؤالك أنك تريد استخدام الدوال الاساسية للأكسل (مثل Sum ,min)- والتى قد لا يوجد مثيل أومكافئ لها فى الدوال الأساساية للبيزيك - تريد استخدامها داخل محرر VBA:

ولهذا الغرض قامت مايكروسوف بعمل WorksheetFunction Object ضمن كاتنات Microsoft Excel Visual Basic

يوجد مثال فى صفحة المساعدة الخاصة بهذا الكائن فى الاكسل

يراعى ان متغيرات الدوال لا يشار إليها كما يتم داخل الشيت بمعنى أنك اذا أردت أن تقول A1 فلا تكتبها هكذا مباشرة ولكن تستخدم مثل هذه الطريقة

Range("A1") وإليك ملخص المساعدة والمثال:

WorksheetFunction Object

Used as a container for Microsoft Excel worksheet functions that can be called from Visual Basic.

Using the WorksheetFunction Object

Use the WorksheetFunction property to return the WorksheetFunction object. The following example displays the result of applying the Min worksheet function to the range A1:A10

.

Set myRange = Worksheets("Sheet1").Range("A1:A10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer

تم تعديل يونيو 20, 2004 بواسطه السيد عبد العال

[Anwar]

شكرا لك مشرفنا واستاذنا العزيز (سيد عبد العال)

الكود السابق ممتاز ويعمل بشكل صحيح والشرح السابق بصراحة لم افهمة ولكن لان اياس سوف ادرسة واذا اصتصعب علي اي شي فانا واثق انكم تتسابقون لتقديم يد العون

استاذ سيد لدي سؤال لو سمحت اريد كود يقوم يتحديد العمود او الصف الموجود فية الخلية النشطة

مثال انا الان موجود في الخلية C3 عند تشغيل الماكرو اريد من هذا الماكرو ان يعمل تركيز علي كامل العمود تماما مثل التركيز الذي ينتج عن نقر راس العمود اي عند النقر علي الحرف C

انا حاولت قبل طرح السؤال ولم انجح

ارجو المساعدة

[السيد عبد العال]

أكرمك الله يا أخى الحبيب

ومعذرة يبدو أننى فهمت سؤالك خطأ

وأن شاء الله سأقوم بتو ضيح للشرح السابق فى مشاركة لاحقة بطريقة أفضل

وإليك الكود الذى طلبته

Dim cCol As Long
cCol = ActiveCell.Column
Columns(cCol).Select

او فى سطر واحد هكذا

Columns(ActiveCell.Column).Select

تم تعديل يونيو 22, 2004 بواسطه السيد عبد العال

[Anwar]

شكرا لك استاذي الفاضل

شكرا لك الكود يعمل بشكل صحيح ولست ادري كيف ارد الجميل ولكن الجزء العظيم عند اللة ربنا ان شاء اللة يفرج عنك هموم الدنيا والاخرة

نعم استاذ الفاضل ياليت تعمل دروس عن الفيجوال فى الاكسيل اذا سمح وقت سيادتكم كان اللة في عونكم وامدكم بالصحة و العافية

[Anwar]

اولا احب ان اشكري استاذي الفاضل السيد عبد العال

وكل المجموعة الطيبة في منتدي الخير

اخواني اريد كود لماكروا عند التشغيل يقوم بنقل التركيز الي الخلية الاولي في الصف الموجود فية الفارة

مثال الفارة الان في الخلية s11 عند تشغيل الماكروا ينتقل التركيز الي الخلية s1

ارجو ان يكون السؤال واضح

[السيد عبد العال]

Sub SelectTop()
ActiveSheet.Cells(1, ActiveCell.Column).Select
End Sub

Sub SelectLeft()
ActiveSheet.Cells(ActiveCell.Row, 1).Select
End Sub

[Anwar]

شكرا لك استاذ السيد

كل الاكواد تعمل بشكل صحيح كل الشكر لك

لقد قمت بكتابة هذة الدروس القيمة من الاكواد والمكروات شكرا لك