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

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

قام بنشر

الاخوة الخبراء ارجوا المساعدة فى الملف المرفق

حيث لدى خليتين متغيرتين خلية السعر وخلية اخر كمية

اريد عند تغير الرقم فى اخر كمية يتم ترحيل السعر واخر كمية الى عمودين وهكذا كل ما يتغير القيمة فى اخر كمية يتم ترحيل السعر واخر كمية الى العموديين

جزاكم الله خيرا

Book2.rar

قام بنشر
الاخوة الخبراء ارجوا المساعدة فى الملف المرفق

حيث لدى خليتين متغيرتين خلية السعر وخلية اخر كمية

اريد عند تغير الرقم فى اخر كمية يتم ترحيل السعر واخر كمية الى عمودين وهكذا كل ما يتغير القيمة فى اخر كمية يتم ترحيل السعر واخر كمية الى العموديين

جزاكم الله خيرا

كده ولا محتاج تغييرات تانية؟

BOOK2CHANGED.rar

قام بنشر (معدل)

اخى الفاضل بارك الله فيك

ممتاذ والله ما فعلتة اخى العبقرى جارى فهم الطريقة جعلها الله فى ميزان حسناتك وارجوا الا اثقل عليك بالسؤال

هناك ملاحظة اخى

هو رقم 15

المفروض ان b2 عندما تتغير تنتقل هى والسعر الذى فى خليةa2الى العمودين k--j

لكن لاحظت فى طريقة حضرتك ان a2تتغير بمقدار b2+15مع ان المفروض خلية a2 خلية سعر واريدها ان تنتقل كما هى

جزاك الله كل خير

تم تعديل بواسطه ucppharma
قام بنشر

مجرد ان تمسح المعادلة فى الخلية b2 سوف ينتقل السعر كما هو

لكن اريد ان اعرف هل هذا هو ماتريد

بالضبط ام ان هناك تغييرات اخري يجب عملها على الملف مثلا هل ستغير انت خانة الكميات ام سيتم ربطها بخلية اخري تتغير تلقائيا

لقد وضعت المعادلة فى الخلية b2 كي اصل الى طريقة تجعل هذا ممكنا...

قام بنشر

بالمناسبة يمكن وضع التاريخ والوقت بجوار كل تغير ...وارجو ان اكون ساعدت فى الوصول الى ماتريد...اذا احتجت اي تغيير اخبرنى..

قام بنشر

اخى الفاضل جزاك الله كل غير والله لقد سعدت بكرمك هذا

ارجوا الا اثقل عليك

اريد ان الفت نظرك الى ان المفروض الخليتين A2:B2السعر واخر كمية مرتبطتيين بمصدر متغير فهل يمكن ذلك

قام بنشر

اخى الفاضل بارك الله فيك على تعبك معى

ارجوا الا اثقل عليك لكن بقى جزء مهم وتكتمل البرنامج

احنا حاليا عندنا الخلية b2 لما يحصل فيها تغيير بيتم نقل المجال b2:a2 الى العمود j2

دة اللى حضرتك عملتة مشكورا بس اللى بيحصل ان انا اللى بدخل القيمة فى b2 ,واغيرها بنفسى

ما اريدة ان الخلية b2 عبارة عن ارتباط بخلية اخرى كوبى وباست لينك او الخلية نفسها مرتبطة بمصدر متغير خارجى كمشاشة اسعار اسهم

يعنى b2 بتتغيير القيمة لوحدها طبقا للمصدر المرتبطة بية حاولت فى الربط لا يتم عملية الترحيل

عملية الترحيل تتم فقط عند ادخالى بنفسى للقيمة فى الخلية b2

اتمنى دون ان اثقل عليك ايجاد حل لها

بارك الله فيك

قام بنشر

اخى العزيز الفاضل

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

الملف الاخير ممتاذ وبة جزء من المطلوب

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

لذلك ارسلت لك ملف بة الصف الاول خلايا مرتبطة مع موقع بث اسعار اسهم الارقام اللى فى خلايا الاكسيل تتغير باستمرار مع السعر الموجود على شاشة بث الاسعار المرتبطة بية

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

:fff::fff::fff:

Book1.rar

قام بنشر

الاخ العزيز mooodie24

الموضوع شيق للغاية

والردود ممتازة

لكن هل تنعم علينا بالفكرة

يعني اي دالة استخدمت؟؟

بارك الله فيك وجزاك الله خيرا

قام بنشر

الاخ الفاضل mooodie24-- والعزيز ابو تامر

والله لا اجد ما اقولة لكما لاوفيكم حقكم لكنى ادعوا لكم بظاهر الغيب

انتم اخوة فى الله ربنا يبارك لكما

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

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

Book3.rar

قام بنشر

الاخ ucppharma

مع احترامى الشديد لك ::

عندما ابدأ بحل مشاركة لأحد الاخوة

اعتبر ان بها كل طلباتة

فلا اعمل بنظام جزء جزء الذى يتبعه البعض

ومع احترامى ايضا ::

اذا كان الحل هو ( الاقرب لما تريد )

ولا يحقق ما طلبت بالحرف الواحد و ناجح 100 % حسب ما هو موجود فى مشاركتك !!!

فأنا اعتبره حل لا يرضينى وغير ناجح نهائيا !!!

!!!

قام بنشر

معذرة على التأخر فى الردود لظروف العمل.....وان ابهرتني ملفات الأخ ابوتامر العبقرية

اذا احتجت اي تعديل اخبرني...ولكن بالطبع لا يمكنني التعديل فى ملفات الأخ ابو تامر...فلا استطيع اخذ مجهوده الرائع فى هذه الملفات...

قام بنشر

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Range("a2").Value = Range("f2").Value Then

Application.EnableEvents = False

Range("A2:B2").Select

Selection.Copy

Range("J2").Select

Selection.End(xlDown).Select

ActiveCell.Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("J2").Select

Selection.End(xlDown).Select

Application.CutCopyMode = False

Selection.Copy

Range("F2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.EnableEvents = True

End If

End Sub

قام بنشر (معدل)

اخى الفاضل ابو تامر

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

راعنى ما اظنة غضبك منى فانا لا اقصد ذلك اطلاقا وان اساءت التعبير فهذا ليس انتقاصا من ابداعك وعملك الرائع ولكن لسوء ادراكى او سوء استعمال اللفظ الصح فكل ما كنت اقصدة هى اضافة كنت اريدها حفذنى اليها طمعى واحسب طمعى لكرمكم فى الرد وعدم البخل على فارجوا تقبل اسفى ان اساءت التعبير وجزاك الله كل خير

تم تعديل بواسطه ucppharma
قام بنشر

الاخ ucppharma

ولكنك لم تخبرنى اخى ::

اذا كان نجح نسخ البيانات المرتبطة بمصدر بيانات خارجى ام لا

واذا نجح الامر ستكون هذه اول مرة بالمنتدى يتم نسخ البيانات المرتبطة بمصدر بيانات خارجى بنجاح

وبذلك سيتم تغير عنوان الموضوع الى ::

( نسخ البيانات المحدثه بمصدر بيانات خارجى كل ثانية اول حسب الزمن المحدد )

قام بنشر

اخى الفاضل ابو تامر

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

بارك الله فيك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information