DBA.Oracle قام بنشر أبريل 6, 2010 قام بنشر أبريل 6, 2010 برجاء المساعدة فى استيراد بيانات من جدول الي فورم معين وبعد التعديل عليها من داخل الفورم نقوم بتصديرها مرة اخري مرفق ملف به مثال جدول + فورم + تفاصيل الشرح ولكم فائق الشكر والاحترام Get_Mod.rar
أبوعبد الله قام بنشر أبريل 7, 2010 قام بنشر أبريل 7, 2010 أخي العزيز رجاء الاطلاع على المرفق وقد تم إلغاء مفتاح استدعاء البيانات حيث الاستدعاء يتك بشكل تلقائي بمجرد إختيار الإسم من ال COMBOBOX كما أن التعديل متاح للإسم أيضاً لا أدري إن كان هذا يمثل إضافة مفيدة بالنسبة لك أم لا ولكن أخبرني إن كان غير مطلوب تعديل الإسم . تحياتي أبو عبدالله Get_Mod.rar
DBA.Oracle قام بنشر أبريل 7, 2010 الكاتب قام بنشر أبريل 7, 2010 الله ينور عليك والله هو دا المطلوب بالضبط لكن فى مشكلة لو جربت التعديل علي خليه بيسأل للتأكيد وبضغط اوك فبيعدل عليها ولكن بعد التعديل بيعطي ايرور ويعلم علي الامر دا Me.TextBox1.Text = fAddr.Offset(0, -1).Value
أبوعبد الله قام بنشر أبريل 7, 2010 قام بنشر أبريل 7, 2010 المرفق به تعديل بسيط لحل مشكلة رسالة ال ERROR جرب الآن . تحياتي أبو عبدالله Get_Mod-1.rar
DBA.Oracle قام بنشر أبريل 7, 2010 الكاتب قام بنشر أبريل 7, 2010 بصراحة ممتاز وجزاك الله كل خير لكن استفسار بسيط هل فى طريقة تخلي الكومبو بوكس لما يعرض الداتا يعرض الخلايا الممتلئة فقط ويتغاضي عن الخلايا الفارغة ام شرط انو يعرض كل الخلايا وجزاك الله كل خير
أبوعبد الله قام بنشر أبريل 7, 2010 قام بنشر أبريل 7, 2010 قم بتعديل النطاق NAMES إلى =OFFSET(Sheet1!$B$2;0;0;COUNTA(Sheet1!$B:$B);1)
DBA.Oracle قام بنشر أبريل 7, 2010 الكاتب قام بنشر أبريل 7, 2010 اعذرنى لكن هل تقصد ؟ Private Sub UserForm_Initialize() ComboBox1.RowSource = OFFSET(Sheet1!$B$2;0;0;COUNTA(Sheet1!$B:$B);1) End Sub
أبوعبد الله قام بنشر أبريل 7, 2010 قام بنشر أبريل 7, 2010 أخي العزيز أنا استخدم اكسيل 2007 وما قصدته هو تعديل تعريف النطاق NAMES من NAME MANAGER وليس بالكود - يعني من NAME MANAGER اختر النطاق NAMES ثم من EDIT ومن REFERS TO الصق =OFFSET(Sheet1!$B$2;0;0;COUNTA(Sheet1!$B:$B);1) مكان الموجود بالحقل . المرفق تم التطبيق به . تحياتي Get_Mod-1.rar
DBA.Oracle قام بنشر أبريل 7, 2010 الكاتب قام بنشر أبريل 7, 2010 (معدل) فى الحقيقة انا عاجز عن الشكر تسلم علي مجهودك وتعبك معايا وجزاك الله كل خير لكن مازالت هناك مشكلة حاول اضافة اى كلمة فى الخانات السفلي ولن تظهر فى القائمة للاسف وان ظهرت تظهر فى الوسط الخلايا الفارغة Get_Mod-1.rar تم تعديل أبريل 7, 2010 بواسطه DBA.Oracle
أبوعبد الله قام بنشر أبريل 7, 2010 قام بنشر أبريل 7, 2010 أخي العزيز أظن أنه من المنطقي أنك تتعامل مع جدول به بيانات متصلة ولم تشير من قبل بأنه وارد ترك فراغات بين كل سجل وآخر وعلى هذا الأساس تم التعامل مع طلبك وتغيير تعريف النطاق NAMES من تعريف نطاق عادي إلى التعريف الأخير الذي أرفقته لك بردي الأخير وهو ما يطلق عليه ال DYNAMIC RANGE لن يعالج الفراغات الموجودة بين صفوف السجلات ، وأنا حقيقة لا أفهم السبب وراء رغبتك في ترك فراغات إذا كنا نتحدث عن جدول كل صف فيه يمثل سجل معلوماتي ، وهذا التوضيح حسب ما لدي من معلومات وأتمنى ممن لديه حل لطلبك أن يتدخل مشكوراً . تقبل تحياتي أبو عبدالله
DBA.Oracle قام بنشر أبريل 7, 2010 الكاتب قام بنشر أبريل 7, 2010 اخى ابو عبد الله جزاك الله كل خير علي مجهودك معي واعتذر عن عدم توضيح الفكرة بالطريقة الصحيحة و أرضي بما قدمته لي من مساعدة ولا اطمع فى المزيد لذا لا تعتقد ان معلوماتك ذهبت بلا فائدة بالعكس فلقد قمت بتقديم معلومات مهمة جدا اليوم ولك جزيل الشكر علي ذلك ولا املك غير الدعاء لك ولوالديك
DBA.Oracle قام بنشر أبريل 11, 2010 الكاتب قام بنشر أبريل 11, 2010 اخى عبد الله وجدت الحل والحمد لله من مثال سابق من موقع اجنبي استبدلت استخدام الرو سورس بهذا ونفعت الحمد لله ولك جزيل الشكر علي مجهودك معي Private Sub ComboBox1_Enter() Dim i As Integer Dim final As Integer Dim tareas As String ComboBox1.BackColor = &H80000005 For i = 3 To ComboBox1.ListCount ComboBox1.RemoveItem 0 Next i For i = 4 To 1000 If Sheet1.Cells(i, 3) = "" Then final = i - 3 Exit For End If Next For i = 4 To 1000 tareas = Sheet1.Cells(i, 3) If tareas <> "" Then ComboBox1.AddItem (tareas) Else End If Next End Sub
أبوعبد الله قام بنشر أبريل 11, 2010 قام بنشر أبريل 11, 2010 أخي العزيز أشكرك جداً على المعلومة ولكن لدى نقل الكود لاخر مرفق بالمشاركة تحدث مشكلة عند استدعاء الفورم ويعطي error بنفس الكود فأرجو التكرم بإرفاق ملف مطبق عليه الكود كي تتضح الفائدة من الكود . تقبل شكري أبو عبدالله
DBA.Oracle قام بنشر أبريل 11, 2010 الكاتب قام بنشر أبريل 11, 2010 اخي عبد الله الكود موجود فى هذا الملف فى يوزر فورم 28 بس بدون التعديل اللى انا ضيفته ليجعله لا يضيف الخلايا الفارغة الملف دا جميل جدا هو من موقع اجنبي ولكن احد الاخوة الافاضل فى المنتدي فك الحماية عنه ولك جزيل الشكر Macro_Excel_Stocks_warehouses_unlocked.rar
DBA.Oracle قام بنشر أبريل 11, 2010 الكاتب قام بنشر أبريل 11, 2010 (معدل) تفضل اخي عبد الله مرفق مثال بالكود المعدل وهذا هو ما كنت اقصده فى طلبي ولك فائق الاحترام وكل الشكر علي معاونتك ليlast.rar تم تعديل أبريل 11, 2010 بواسطه DBA.Oracle
key_ro قام بنشر أبريل 11, 2010 قام بنشر أبريل 11, 2010 اخى الكريم ابو عبد الله ممكن تعديل كود الفورم ليتهامل مع ارقام لانة يتعامل مع حروف فقط الموجودة فى نطاق names اريد الخانة 2 و3و4 تعرض بيانات b2 b3 b4 وتعدل كذلك بيانات لb2 b3 b4 والخانة الاولى اختار منها ارقام وليس حروف والثانية اعدل على الارقام الموجودة فى a2 ولكم جزير الشكر
أبوعبد الله قام بنشر أبريل 11, 2010 قام بنشر أبريل 11, 2010 أخي العزيز / DBA.Oracle أشكرك على المرفق والفكرة جداً قيمة . تقبل تحياتي أبو عبدالله أخي العزيز / key_ro أرجو توضيح طلبك بشكل أوضح واتمنى يكون على الملف المرفق حتى أستطيع المساعدة إن شاء الله . تحياتي
key_ro قام بنشر أبريل 12, 2010 قام بنشر أبريل 12, 2010 أخي العزيز / DBA.Oracle أشكرك على المرفق والفكرة جداً قيمة . تقبل تحياتي أبو عبدالله أخي العزيز / key_ro أرجو توضيح طلبك بشكل أوضح واتمنى يكون على الملف المرفق حتى أستطيع المساعدة إن شاء الله . تحياتي اشكرك جدا على الاهتمام ومرفق ملف به المطلوب Get_Mod-1.rar
أبوعبد الله قام بنشر أبريل 12, 2010 قام بنشر أبريل 12, 2010 أخي العزيز / key_ro رجاء الاطلاع على المرفق . تحياتي أبو عبدالله Get_Mod-2.rar
key_ro قام بنشر أبريل 18, 2010 قام بنشر أبريل 18, 2010 الاخ الكريم ابو عبد الله جزاك الله كل خير هذا خو المطلوب فعلا وشكرا جزيرا
م/ مغترب قام بنشر أغسطس 6, 2013 قام بنشر أغسطس 6, 2013 أخي العزيز / key_ro رجاء الاطلاع على المرفق . تحياتي أبو عبدالله السلام عليكم أستاذنا / عبد الله أنا اريد ان اضيف اكثر من Label و TextBoxوهذا سهل هل ممكن ان نجعل Label في الفورم ان يأخذ اسم العمود بالتدريج مباشرة بدلا من دخولي الى البرمجة و اضافة الاسم يدويا اي اجعل الجدول من 5 اعمدة مثلا الاسم - الترتيب - الصف - الدرجة - اسم الاب لكن Label و TextBox في الفورم 6 فاول ما اضيف اسم للعمود 6 بالجدول اريده ان يظهر بالفورم ارجو ان تكون وصلت فكرتي وشكرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.