اوفيس 2003 قام بنشر أغسطس 19, 2010 مشاركة قام بنشر أغسطس 19, 2010 لدي ارقام كثيرة ولنفترض مثلاً انها ارقام موبايلات لثلاث شركات في مصــــر ( اتصالات - موبينيل - فودافون ) ولكل شركة كما نعلم لها العديد من اكوادها بمعنى شركة اتصالات اكوادها ( 011 - 014 ) شركة فودافون ( 010 - 016 - 019 ) شركة موبينيل ( 012 - 017 - 018 ) واريد ان ارحل كل الأرقام ومرتبة لكل ورقة على حدة يعني ورقة اتصالات بها جدول اتصالات وبه جميع ارقام شركة اتصالات ومرتبة وموزعة على جداول جاهزة للطباعة وهذا ما يهمني كيف اقوم بذلك Test2003.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 20, 2010 مشاركة قام بنشر أغسطس 20, 2010 السلام عليكم لقد اشتغلت في الملف قليلا ولم اكمله بعد لقد عملت دالة لمعرفة الرقم لاي شركة لكي استخدمها في كود الترحيل وقد قمت بالترحيل فعلا ولكن الى العمود الاول تباعا والفكرة لم تاتي بعد كيف سيتم توزيعة بالشكل الذي تريده ودمتم في حفظ الله خبور خير Test2003.rar رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر أغسطس 20, 2010 مشاركة قام بنشر أغسطس 20, 2010 السلام عليكم ورحمة الله وبركاته بعد اذن استاذنا خبور خير ولإثراء الموضوع في المرفق محاولة للحل باستخدام معادلات الصفيف تحياتي Test2003.rar رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر أغسطس 20, 2010 الكاتب مشاركة قام بنشر أغسطس 20, 2010 مشكور اساتذتنا الغاليين وفي انتظار التكملة استاذي خبور رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أغسطس 20, 2010 مشاركة قام بنشر أغسطس 20, 2010 السلام عليكم =========== بارك الله فيك استاذ خبور رائع اخى الخالدى ولمزيد من الافادة هنا حل اخر توزيع HHH3.rar رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 20, 2010 مشاركة قام بنشر أغسطس 20, 2010 السلام عليكم أنا ليس لى فى الوظائف لكن هذه عملت بكفاءة Function dodo(hhh As String) If Left(hhh, 3) = "012" Or Left(hhh, 3) = "018" Or Left(hhh, 3) = "017" Then dodo = "موبينيل" ElseIf Left(hhh, 3) = "011" Or Left(hhh, 3) = "014" Then dodo = "اتصالات" ElseIf Left(hhh, 3) = "010" Or Left(hhh, 3) = "016" Or Left(hhh, 3) = "019" Then dodo = "فودافون" End If End Function و على أساس العمود المجاور يمكن الترحيل Test2003-kemas.zip رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 20, 2010 مشاركة قام بنشر أغسطس 20, 2010 السلام عليكم الاخ الفاضل/ الخالدي _________حفظه الله الاخ الفاضل/ هشام شلبي _________حفظه الله الاخ الفاضل/ كيماس _________حفظه الله بارك الله فيكم جميعاً تقبلوا تحياتي وشكري ======================================== الاخ الفاضل/ office2003_________حفظه الله يجب ان تراعي ان تكون اسماء الاوراق مطابقة للاسماء في كود المسح kh_ClearContents السطر 3 Sub kh_ClearContents(Optional kh_Msg As Boolean = False) Dim L As Integer Kh_Sh_N = Array("اتصالات", "فودافون", "موبينيل") For Each N In Kh_Sh_N If SheetExists(CStr(N)) Then With Worksheets(N) .Columns(1).ClearContents L = .UsedRange.Rows.Count .Range("B4:F" & L).ClearContents End With End If Next N If kh_Msg Then MsgBox " لقد تم المسح بنجاح ", vbExclamation + vbMsgBoxRight, "الحمدلله " End Sub في كود الدالة Kh_Sh_Name السطر 4 Function Kh_Sh_Name(Num) As String Dim sn, Ln Dim R As Byte sn = Array("فودافون", "فودافون", "فودافون", "موبينيل", "موبينيل", "موبينيل", "اتصالات", "اتصالات") Ln = Array("010", "016", "019", "012", "017", "018", "011", "014") Kh_Sh_Name = "" For R = 0 To 7 If Ln(R) = Left(Num, 3) Then Kh_Sh_Name = sn(R) Exit For End If Next End Function ودمتم في حفظ الله kh_Test.rar رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أغسطس 20, 2010 مشاركة قام بنشر أغسطس 20, 2010 السلام عليكم =========== الاخ العزيز خبور خير كل عام وانتم بالف صحة اضافة روعة ادام الله عليك نعمه رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 20, 2010 مشاركة قام بنشر أغسطس 20, 2010 السلام عليكم =========== الاخ الفاضل /هشام شلبي __________حفظه الله ولك بمثل دعائك اضعاف مضاعفة اكرمك الله وكل عام وانت بخير تقبل تحياتي وشكري خبور خير رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر أغسطس 20, 2010 مشاركة قام بنشر أغسطس 20, 2010 السلام عليكم ورحمة الله وبركاته بارك الله فيكم مرفق ملف وفيه: تصحيح للخطاء في الملف السابق لاحد اكواد الشركات تعديل في معادلات الصفيف بحيث لا تحتاج لخلايا مساعدة حل اضافي بمعادلة اخرى ولا يجب ادخالها كصفيف مع اضافة عمود يحدد الشركة وكل عام وانتم بخير تحياتي Test2003.rar رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر أغسطس 21, 2010 الكاتب مشاركة قام بنشر أغسطس 21, 2010 (معدل) جزاكم الله كل خيـــــر اساتذة المنتدى الكرام وبارك الله فيكم استاذ خبور واستاذ هشام واستاذ كيماس واستاذ الخالدي الله يبارك فيكم عمل اكثر من رااااااااائع ولكني اريد اخواني ان اطبق هذا الشرح على ارقام اكواد اخرى كالتالي 1- الأرقام التي تبدأ ب 134 - 135 - 136 - 137 - 138 - 139 - 119 - 105 نضعها في جدول اسمه L 2- الأرقام التي تبدأ ب 121 - 122 - 123 - 124 - 125 - 126 - 127 -128 نضعها في جدول اسمه O1 3- الأرقام التي تبدأ ب 101 - 102 - 106 - 107 - 108 - 111 - 112 - 113 - 114 نضعها في جدول اسمه O2 4- الأرقام التي تبدأ ب 142 - 143 - 129 نضعها في جدول اسمه S 5- الأرقام التي تبدأ ب 110 - 180 نضعها في جدول اسمه CD انا حاولت ان اعدل على الكود الخاص بالأستاذ هشام بالمعادلات لم يظهر لي الناتج صحيح ونفس الموضوع للأستاذ خبور بالأكواد اتمنى شرح مصور فيديو كما يفعله استاذنا Kemas الغالي لأفهم الفكرة وحتى ولو اردت ان اضيف ارقام او امسح ارقام وان اجعل الجدول مرتب من الصغير الى الكبير اعتذر لكم كل الإعتذار على تعبكم معي الله يبارك فيكم جعله الله في ميزان حسناتكم تم تعديل أغسطس 21, 2010 بواسطه office 2003 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 23, 2010 مشاركة قام بنشر أغسطس 23, 2010 السلام عليكم تم التعديل: شاهد المرفق kh_Test_3.rar 1 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 23, 2010 مشاركة قام بنشر أغسطس 23, 2010 أستاذنا خبور تحفة فنية تحتاج للدراسة === لماذا تركت موضوعنا ؟ ننتظرك فى الكشوفات المدرسية رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر سبتمبر 27, 2010 الكاتب مشاركة قام بنشر سبتمبر 27, 2010 (معدل) جزاكم الله كل خيـــــــــــر جاري التجربة والرد تم تعديل سبتمبر 27, 2010 بواسطه office 2003 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان