سؤال في الترحيل لصفحات متعددة

[اوفيس 2003]

لدي ارقام كثيرة ولنفترض مثلاً انها ارقام موبايلات لثلاث شركات في مصــــر ( اتصالات - موبينيل - فودافون ) ولكل شركة كما نعلم لها العديد من اكوادها بمعنى شركة اتصالات اكوادها ( 011 - 014 ) شركة فودافون ( 010 - 016 - 019 ) شركة موبينيل ( 012 - 017 - 018 ) واريد ان ارحل كل الأرقام ومرتبة لكل ورقة على حدة يعني ورقة اتصالات بها جدول اتصالات وبه جميع ارقام شركة اتصالات ومرتبة وموزعة على جداول جاهزة للطباعة وهذا ما يهمني

كيف اقوم بذلك

Test2003.rar

[عبدالله باقشير]

السلام عليكم

لقد اشتغلت في الملف قليلا ولم اكمله بعد

لقد عملت دالة لمعرفة الرقم لاي شركة

لكي استخدمها في كود الترحيل

وقد قمت بالترحيل فعلا ولكن الى العمود الاول تباعا

والفكرة لم تاتي بعد كيف سيتم توزيعة بالشكل الذي تريده

ودمتم في حفظ الله

خبور خير

Test2003.rar

[الخالدي]

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

بعد اذن استاذنا خبور خير ولإثراء الموضوع

في المرفق محاولة للحل باستخدام معادلات الصفيف

تحياتي

Test2003.rar

[اوفيس 2003]

مشكور اساتذتنا الغاليين وفي انتظار التكملة استاذي خبور

[هشام شلبى]

السلام عليكم

===========

بارك الله فيك استاذ خبور

رائع اخى الخالدى

ولمزيد من الافادة

هنا حل اخر

توزيع HHH3.rar

[عبد الفتاح كيرة]

السلام عليكم

أنا ليس لى فى الوظائف

لكن هذه عملت بكفاءة

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

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل/ الخالدي _________حفظه الله

الاخ الفاضل/ هشام شلبي _________حفظه الله

الاخ الفاضل/ كيماس _________حفظه الله

بارك الله فيكم جميعاً

تقبلوا تحياتي وشكري

========================================

الاخ الفاضل/ 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

[هشام شلبى]

السلام عليكم

===========

الاخ العزيز خبور خير كل عام وانتم بالف صحة

اضافة روعة

ادام الله عليك نعمه

[عبدالله باقشير]

السلام عليكم

===========

الاخ الفاضل /هشام شلبي __________حفظه الله

ولك بمثل دعائك اضعاف مضاعفة

اكرمك الله

وكل عام وانت بخير

تقبل تحياتي وشكري

خبور خير

[الخالدي]

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

بارك الله فيكم

مرفق ملف وفيه:

تصحيح للخطاء في الملف السابق لاحد اكواد الشركات

تعديل في معادلات الصفيف بحيث لا تحتاج لخلايا مساعدة

حل اضافي بمعادلة اخرى ولا يجب ادخالها كصفيف مع اضافة عمود يحدد الشركة

وكل عام وانتم بخير

تحياتي

Test2003.rar

[اوفيس 2003]

جزاكم الله كل خيـــــر اساتذة المنتدى الكرام وبارك الله فيكم استاذ خبور واستاذ هشام واستاذ كيماس واستاذ الخالدي الله يبارك فيكم عمل اكثر من رااااااااائع

ولكني اريد اخواني ان اطبق هذا الشرح على ارقام اكواد اخرى كالتالي

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

[عبدالله باقشير]

السلام عليكم

تم التعديل:

شاهد المرفق

kh_Test_3.rar

[عبد الفتاح كيرة]

أستاذنا خبور

تحفة فنية تحتاج للدراسة

===

لماذا تركت موضوعنا ؟

ننتظرك فى الكشوفات المدرسية

[اوفيس 2003]

جزاكم الله كل خيـــــــــــر جاري التجربة والرد

تم تعديل سبتمبر 27, 2010 بواسطه office 2003