اذهب الي المحتوي
أوفيسنا

كود ترحيل البيانات بشكل مميز + شرح مصور


إذهب إلى أفضل إجابة Solved by أحمد بكر,

الردود الموصى بها

images-45b9bf277d83.gif

الموضوع : كود ترحيل البيانات بشكل مميز

سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة

أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة

أبدأ بفنح ملف أكسيل جديد :

114.jpg

قم بتسمية

ورقة العمل الاولى بأسم ادخال بيانات

والورقة الثانية فواتير

214.jpg

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

315.jpg

ثم

تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا

412.jpg

لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال :

-----------------------------------------------------

اصدار 2003

من مربع أدوات التحكم > ادارج زر

------------------------------------------------------

اصدار 2007

من المطور > ادراج زر

-------------------------------------------------------

وفى الصفحة الثانية التى تم تسميتها باسم فواتير

نصممها على هذا الشكل

613.jpg

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

من خلال اختيار وضع التصميم

513.jpg

والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس

ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق )

712.jpg

الجزء الاولى من الكود

811.jpg

الجزء الثانى من الكود

911.jpg

الجزء الثالث من الكود

1016.jpg

الجزء الرابع من الكود

1110.jpg

الجزء الخامس من الكود

1210.jpg

الجزء السادس والأخير

1310.jpg

ملاحظة : الكود يرحل بترتيب الادخال .

image225.jpg

لتحميل الشرح مصور + ملف المثال + الكود

فى النهاية

أسالكم الدعاء اذا افادكم ذلك

  • Like 10
  • Thanks 1
رابط هذا التعليق
شارك

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

أخي الفاضل أحمد بكر حفظك الله

بداية ولاأروع ويفترض أن يحتذي بها الجميع كلاً وفق أمكانياته.

أعزك الله ورفع قدرك.

أبو أنس

رابط هذا التعليق
شارك

  • 5 months later...

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

رابط هذا التعليق
شارك

  • 1 year later...

السلام عليكم 

 

اخواني الكرام 

 

 

 انا اريد ان اكتب البيانات في جدول 1 و اريد ان يصنف لي المبالغ في الجدول 2 تلقائيا عن طريق الأسماء

    أو ان ينقلها لبيانات كاملة تلقائيا عن طريق الاسماء الى جداول  لكل اسم جدول خاص كما في الجدول 3 .

 

    

post-125753-0-54234800-1404773991_thumb.

post-125753-0-62868300-1404774175_thumb.

post-125753-0-63531500-1404774187_thumb.

تم تعديل بواسطه ahmad shehab
رابط هذا التعليق
شارك

  • 3 months later...

 

images-45b9bf277d83.gif

الموضوع : كود ترحيل البيانات بشكل مميز

سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة

أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة

أبدأ بفنح ملف أكسيل جديد :

114.jpg

قم بتسمية

ورقة العمل الاولى بأسم ادخال بيانات

والورقة الثانية فواتير

214.jpg

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

315.jpg

ثم

تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا

412.jpg

لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال :

-----------------------------------------------------

اصدار 2003

من مربع أدوات التحكم > ادارج زر

------------------------------------------------------

اصدار 2007

من المطور > ادراج زر

-------------------------------------------------------

وفى الصفحة الثانية التى تم تسميتها باسم فواتير

نصممها على هذا الشكل

613.jpg

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

من خلال اختيار وضع التصميم

513.jpg

والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس

ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق )

712.jpg

الجزء الاولى من الكود

811.jpg

الجزء الثانى من الكود

911.jpg

الجزء الثالث من الكود

1016.jpg

الجزء الرابع من الكود

1110.jpg

الجزء الخامس من الكود

1210.jpg

الجزء السادس والأخير

1310.jpg

ملاحظة : الكود يرحل بترتيب الادخال .

image225.jpg

لتحميل الشرح مصور + ملف المثال + الكود

من هنا

فى النهاية

أسالكم الدعاء اذا افادكم ذلك

 

الشرح مميز ورائع ارجو تنزيل الملف مرة اخري لان الملف الموجود غير موجود او تم حذفه

رابط هذا التعليق
شارك

  • أفضل إجابة

الملف مرة تانية بالمرفقات 

ودا الكود المتسخدم بالشرح

On Error Resume Next
If Range("a3") = "" Or Range("b3") = "" Or Range("c3") = "" Then
MsgBox "bla bla1", vbDefaultButton1, "bla bla1 "
Else

azsh = Sheet2.Range("c50000").End(xlUp).Row + 1
Sheet1.Range("A3:C3").Copy
Sheet2.Cells(azsh, 1).PasteSpecial Paste:=xlPasteValues
MsgBox "bla bla2", vbDefaultButton1, "bla bla2 "
Sheet1.Range("A3:C3") = ""
End If

كود ترحيل البيانات- أوفيسنا.rar

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information