ضروري المساعدة

اسماء جمال

  • Newbie
  • *
    • مشاركة: 3
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: آب 05, 2014, 08:52:19 صباحاً
السلام عليكم
انا لسة حديثة العهد بالفيجوال بيسك الموجود بالاكسيل
وعايزه اعمل برنامج صغير يدور في شيت عن معلومات معينة ثم ينقلها شيت اخر
انا عملت التالي ومش عايز يشتغل
Sub press()
'
Sheets("calcu").Select
Range("B3:B5").Select
D = ActiveCell
Sheets("lib").Select
R = 2
R = R + 1
Cells(R, 1).Select
x = ActiveCell
If x = 0 Then GoTo 88
If x = D Then GoTo 12
GoTo 11
12 Range(Cells(R, 2), Cells(R, 4)).Select
Selection.Copy
Sheets("calcu").Select
a = 2
a = a + 1
Cells(R, a).Select
ActiveSheet.Paste
Sheets("lib").Select
GoTo 11
88 Sheets("calcu").Select
End Sub

ممكن احد من العضاء الكرام يساعدني يقولي الغلط في ايه
ولو فيه اي كتاب بيشرح عمل برمجة كاملة للاكسيل عن طريق الفيجوال بيسك ياريت ماحدش يبخل علي بيه

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


ING_HYD

  • Hero Member
  • *****
    • مشاركة: 1124
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: آب 06, 2014, 01:58:52 مسائاً
Salam
ilayki hada rabite bel ankliziya
http://www.excel-spreadsheet.com/vba/vba.htm