ناصراا قام بنشر مارس 5, 2013 مشاركة قام بنشر مارس 5, 2013 السلام عليكم عضو جديد بينكم أتمنى ان تقبلوني وعندي طلب بحثت عنه كثيرا عندي جلب بيانات تداول اسهم مباشر أريد في خلية b2 تعطيني أول قيمة لخلية a2 وفي خلية b3 تعطيني الوقت لهذه القيمة الجديد علما أن خلية a2 ترتفع وتنزل (وهي تمثل سعر السهم) يعني سهم سعره 10 ارتفع وصار 11 الساعة 12 ظهرا ثم ارتفع وصار 15 الساعة الواحدة ظهرا المفترض تكون النتيجة في خلية b2 هي 11 وفي خلية الوقت 12 ظهرا أريد ضبط هذه الخلايا بدون ماكرو ولكم مني الدعوات رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر مارس 5, 2013 مشاركة قام بنشر مارس 5, 2013 (معدل) عملت لك هذا علي حسب ما فهمت من كلامك فانا لم افهم هل انت لاتريد الماكرو فقط ام انك لاتريد اكواد نهائيا اتمني ان يفي المرفق بالغرض activecell.rar تم تعديل مارس 5, 2013 بواسطه حسين العصلوجى رابط هذا التعليق شارك More sharing options...
ناصراا قام بنشر مارس 6, 2013 الكاتب مشاركة قام بنشر مارس 6, 2013 ما شاء الله لا قوة إلا بالله مخك يوزن بلد أخي حسين أنا لا أريد الماكرو لأني لا أجيد التعامل معه ... ولأنه يطلب مني اذن عند فتح الملف كل مرة فهل يمكن تنفيذها بمعادلات فهو أنسب لي ؟؟ عودا على الملف لاحظت أنه سوف يضع كل حركة تغير مع وقتها حتى AZ الطريقة ممتازة سانفذها في فكرة أخرى دعني أشرح طلبي أكثر هو سعره 10 ارتفع فقط (وليس نزل) صار 11 الساعة 12 ظهرا يعني عندي سعر أولي هو اساس الشرط اذا ارتفع عنه عطني قيمة الإرتفاع ووقتها ستواجهني مشكلة أخي أن ملف الإكسل عندي يجلب من السوق مباشرة وهذه الخلية (الأساس ) دائما فيها رقم (سعر الأمس أو صفر قبل بداية السوق أو سعر تداول وقت افتتاح السوق ) الساعة 10 صباحا إلى 11 تصفر جميع الخلايا تلقئيا ثم بيدأ السوق الساعة 11 في الملف المرفق مزيدا من الشرح لطلبي شاكرا لكم حسن الضيافة activecell.rar رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر مارس 6, 2013 مشاركة قام بنشر مارس 6, 2013 جرب المرفق ان شاء الله يفي بالغرض activecell (2).rar رابط هذا التعليق شارك More sharing options...
ناصراا قام بنشر مارس 8, 2013 الكاتب مشاركة قام بنشر مارس 8, 2013 الله يجزاك خير ويرحم والديك شكرا لك من كل قلبي ما أجمل هذا المنتدى بأعضائه الكرام رابط هذا التعليق شارك More sharing options...
ناصراا قام بنشر مارس 10, 2013 الكاتب مشاركة قام بنشر مارس 10, 2013 جرب المرفق ان شاء الله يفي بالغرض الكود ممتاز مع الإدخالات اليدوية لكنه مع جلب البيانات عبر النت لم يتغير ولم يسجل أي رقم هل لآن قيمة الخلية رابط لا يتغير ؟ رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر مارس 10, 2013 مشاركة قام بنشر مارس 10, 2013 (معدل) الاخ / ناصرارفق الملف الذي يتم جلب البيانات منها لاضافة الكود المناسب له ليعمل علي التحدبث التلقائي المرفق به مثال لعله يكون المقصود activecell (3).rar تم تعديل مارس 10, 2013 بواسطه حسين العصلوجى رابط هذا التعليق شارك More sharing options...
ناصراا قام بنشر مارس 10, 2013 الكاتب مشاركة قام بنشر مارس 10, 2013 لا اعرف كيف اشكرك على اهتمامك سوى الدعاء لك ولوالديك مرفق ملف كمثال يحتاج اتصال انترنت والبيانات تحدث كل خمس دقائق فتتغير الأرقام أرجوك جربه بين الساعة 11 والساعة 3:30 بتوقيت السعودية الغريب أنه يخرج لك نتيجة أو اثنتين من بين 150 صف اكرر شكري وتقديري activecell (3).rar رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر مارس 10, 2013 مشاركة قام بنشر مارس 10, 2013 جرب هذا المرفق ولو في ملاحظات عرفني activecell (3).rar رابط هذا التعليق شارك More sharing options...
ناصراا قام بنشر مارس 12, 2013 الكاتب مشاركة قام بنشر مارس 12, 2013 (معدل) جرب هذا المرفق ولو في ملاحظات عرفني ممتاز جدا معلم والله استاذي لو تكرمت علي بعض الأسئلة حاولت أن أجتهد فأضفت هذا الكود فأين الخطأ يقول اذا كان الأعلى اعلى من الرقم الذي سجله (رقم عالي جديد ) يسجله في الخلية المجاورة 46 Private Sub Worksheet_Change(ByVal Target As Range) If Not IsEmpty(Target) Then For x = 13 To 290 If Cells(x, 41) > Cells(x, 40) And Cells(x, 44) = "" Then Cells(x, 44) = Cells(x, 41) Cells(x, 45) = Format(Now, ("HH:MM:SS")) If Cells(x, 41) > Cells(x, 44) And Cells(x, 46) = "" Then Cells(x, 46) = Cells(x, 41) Cells(x, 47) = Format(Now, ("HH:MM:SS")) End If Next End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub جزاك الله خيرا تم تعديل مارس 12, 2013 بواسطه ناصراا رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسين العصلوجى قام بنشر مارس 12, 2013 أفضل إجابة مشاركة قام بنشر مارس 12, 2013 (معدل) تصحيح الكود كالتالى Private Sub Worksheet_Change(ByVal Target As Range) If Not IsEmpty(Target) Then For x = 13 To 290 If Cells(x, 41) > Cells(x, 40) And Cells(x, 44) = "" Then Cells(x, 44) = Cells(x, 41) Cells(x, 45) = Format(Now, ("HH:MM:SS")) End If If Cells(x, 41) > Cells(x, 44) And Not Cells(x, 44) = "" And Cells(x, 46) = "" Then Cells(x, 46) = Cells(x, 41) Cells(x, 47) = Format(Now, ("HH:MM:SS")) End If Next End If End Sub الملف المرفق عملت لك فيه ان الكود لايعمل مادام السوق مغلق حتي لايخرج نتائج علي بيانات اليوم السابق فتكون خاطئة وكذلك عند فتح الملف يحذف الارتفاعات القديمة H-activecell (3).rar تم تعديل مارس 12, 2013 بواسطه حسين العصلوجى 2 رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر مارس 12, 2013 مشاركة قام بنشر مارس 12, 2013 السلام عليكم استاذ حسين اكواد غاية في الدقةوالخبرة بارك الله فيك وزادك علما رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر مارس 12, 2013 مشاركة قام بنشر مارس 12, 2013 بارك الله لك يا اخي خالد علي هذه الكلمات الطيبة رابط هذا التعليق شارك More sharing options...
ناصراا قام بنشر مارس 12, 2013 الكاتب مشاركة قام بنشر مارس 12, 2013 تصحيح الكود كالتالى Private Sub Worksheet_Change(ByVal Target As Range) If Not IsEmpty(Target) Then For x = 13 To 290 If Cells(x, 41) > Cells(x, 40) And Cells(x, 44) = "" Then Cells(x, 44) = Cells(x, 41) Cells(x, 45) = Format(Now, ("HH:MM:SS")) End If If Cells(x, 41) > Cells(x, 44) And Not Cells(x, 44) = "" And Cells(x, 46) = "" Then Cells(x, 46) = Cells(x, 41) Cells(x, 47) = Format(Now, ("HH:MM:SS")) End If Next End If End Sub الملف المرفق عملت لك فيه ان الكود لايعمل مادام السوق مغلق حتي لايخرج نتائج علي بيانات اليوم السابق فتكون خاطئة وكذلك عند فتح الملف يحذف الارتفاعات القديمة ياه .. ما أجملك واجمل ابداعك استاذنا الكريم اشكرك على الوقت والجهد الذي منحتني اياه وعلى الفائدة التي استفدتها منك .. فأنت مدرسة بفكرك وطبعك تقبل شكري وثنائي رابط هذا التعليق شارك More sharing options...
ناصراا قام بنشر مارس 12, 2013 الكاتب مشاركة قام بنشر مارس 12, 2013 السلام عليكم استاذ حسين اكواد غاية في الدقةوالخبرة بارك الله فيك وزادك علما شرفتني اطلالتك اخي الكريم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 12, 2013 مشاركة قام بنشر مارس 12, 2013 اخي العزيز / حسين العصلوجي رااائع وفعلا بجد اصبحت ابحث عن ردودك لانها تثير اعجابي جدا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ناصراا قام بنشر مارس 15, 2013 الكاتب مشاركة قام بنشر مارس 15, 2013 اخي العزيز / حسين العصلوجي رااائع وفعلا بجد اصبحت ابحث عن ردودك لانها تثير اعجابي جدا جزاك الله خيرا أهلا بك أخي حمادة وشكرا لك فالأستاذ حسين يستحق كل ثناء رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر نوفمبر 8, 2014 مشاركة قام بنشر نوفمبر 8, 2014 تصحيح الكود كالتالى Private Sub Worksheet_Change(ByVal Target As Range) If Not IsEmpty(Target) Then For x = 13 To 290 If Cells(x, 41) > Cells(x, 40) And Cells(x, 44) = "" Then Cells(x, 44) = Cells(x, 41) Cells(x, 45) = Format(Now, ("HH:MM:SS")) End If If Cells(x, 41) > Cells(x, 44) And Not Cells(x, 44) = "" And Cells(x, 46) = "" Then Cells(x, 46) = Cells(x, 41) Cells(x, 47) = Format(Now, ("HH:MM:SS")) End If Next End If End Sub الملف المرفق عملت لك فيه ان الكود لايعمل مادام السوق مغلق حتي لايخرج نتائج علي بيانات اليوم السابق فتكون خاطئة وكذلك عند فتح الملف يحذف الارتفاعات القديمة ما شاء الله ممتاز كنت ابحث عن مثل هذا الجواب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان