الرد على موضوع شرح فيجول بيزك للمتوسطين

[محمد فيروز]

س / هل يشترط أن يكون هناك زر حتى تعمل هذه الأكواد به

ألا يمكن أن تعمل تلقائيا بمجرد إدخال الكود

[محمد فيروز]

كود

Sub sRange_Move()

Sheets("Sheet2").Range("A1:A3").ClearContents

Sheets("Sheet2").Range("A1:A3").ClearContents

Sheets("Sheet2").Range("A1:A3").Value = Sheets("Sheet1").Range("A1:A3").Value

End Sub

هل السطر الثانى من الكود خطأ ممكرر بالخطأ

وإلا فما فائدته

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

س / هل يشترط أن يكون هناك زر حتى تعمل هذه الأكواد به

ألا يمكن أن تعمل تلقائيا بمجرد إدخال الكود

ليس بالضروره وجود مفتاح ليعمل الكود

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

كود

Sub sRange_Move()
Sheets("Sheet2").Range("A1:A3").ClearContents
Sheets("Sheet2").Range("A1:A3").ClearContents
Sheets("Sheet2").Range("A1:A3").Value = Sheets("Sheet1").Range("A1:A3").Value
End Sub

هل السطر الثانى من الكود خطأ ممكرر بالخطأ

وإلا فما فائدته

السطر الثانى من الكود مكرر بالخطأ

ملحوظه :

عنوان الموضوع لا يعبر عن مضمونه

السلام عليكم

[محمد فيروز]

أنا فى غاية الشكر

للأستاذنا / هادى سالمعلى مروره ورده

فبالنسبة لطريقة عمل الكود تلقائيا كيف يكون ذلك

والمرفقين الذلين أضفتهم حضرتك

االلذان كودهما خاص بتثبيت رقم معين والأخر بتحديد نطاق معين

لا يعملان إلا بالمفتاح

فكيف أشغل الكود تلقائيا بمجرد أن أكتب فى صفحة الفيجول بيزك أظهر فى الخلية a1 رقم 5 مثلا يظهر الرقم

ماذا تعنى حضرتك بأن العنوان لا يعبر عن مضمونه

أليس هو كذلك عبارة عن أئلة فى هذا الموضوع وحضرتك ترد على

ولو فيها مشكلة فيريت توضح حتى لا أكرر ثانية

[محمد فيروز]

هناك أحيانا عندما أريد أن أشغل زر أو مفتاح وربطه بالمكرو لا يظهر لى قائمة تسجيل مكرو ولكن يظهر إظهىر مكرو

فرجاء التوضيح من سيادتكم

مرفق ملف

_________________________.doc

[هادى محمد المامون سالم]

ماذا تعنى حضرتك بأن العنوان لا يعبر عن مضمونه

أليس هو كذلك عبارة عن أئلة فى هذا الموضوع وحضرتك ترد على

ولو فيها مشكلة فيريت توضح حتى لا أكرر ثانية

بسم الله الرحمن الرحيم

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

فبالنسبة لطريقة عمل الكود تلقائيا كيف يكون ذلك

والمرفقين الذلين أضفتهم حضرتك

االلذان كودهما خاص بتثبيت رقم معين والأخر بتحديد نطاق معين

لا يعملان إلا بالمفتاح

بصراحه لا اتذكر

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

السلام عليكم

[محمد فيروز]

السلام عليكم

أنا فى غاية الشكر و الإمتنان لحضرتك ومتابعك له

هذا المرفق به الملفان اللذان حدثت حضرتك عنهم

ماذا تعنى برابط هذا الموضوع ؟

إنه شرح الفيجول بيزك للمتوسطين لحضرتك الموجود أسفل توقيعك

أتمنى من حضرتك الرد على سؤالى الخاص بالمشاركة الماضية

vba_01.zip

[هادى محمد المامون سالم]

أنا فى غاية الشكر

للأستاذنا / هادى سالمعلى مروره ورده

فبالنسبة لطريقة عمل الكود تلقائيا كيف يكون ذلك

والمرفقين الذلين أضفتهم حضرتك

االلذان كودهما خاص بتثبيت رقم معين والأخر بتحديد نطاق معين

لا يعملان إلا بالمفتاح

فكيف أشغل الكود تلقائيا بمجرد أن أكتب فى صفحة الفيجول بيزك أظهر فى الخلية a1 رقم 5 مثلا يظهر الرقم

بسم الله الرحمن الرحيم

لتشغيل الكود من صفحه الفيجوال بيزك

أضغط F5

السلام عليكم

[محمد فيروز]

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

والله أنا أشكرك من القلب وبكل إخلاص

وفقك الله إلى كل خير وةسدد خطاك وجعل الجنة مسواك

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

[sub Hady()

Dim i As Integer

For i = 1 To 3

MsgBox (Sheets("Sheet1").Cells(i, "A"))

Next i

ما معنى Dim for

ما المقصود ب I

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

[محمد فيروز]

السلام عليكم

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

وليس حتى أضغط على المفتاح

Sub Hady()

Dim i As Integer

For i = 1 To 3

If Sheets("Sheet1").Cells(i, "A").Value = "Hady1" Then

MsgBox (Sheets("Sheet1").Cells(i, "A"))

End If

Next i

End Sub

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

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

[محمد فيروز]

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

ألا من مجيب

[محمد فيروز]

[عادل حنفي]

السلام عليكم

تفضل يا اخي

تحياتي

hady.rar