ناصراا

اعتذر عن ازعاجكم استاذي الكريم 

لكني حذفت الأوفيس كاملا وأعدت تحميله ولا زالت المشكلة قائمة 

يعمل الزر الأيمن في بعض الأماكن فلو ضغطت على تعليق موجود في الورقة يعمل مباشرة 

أما على الخلايا فلا يعمل الإ اذا ضغطت على الخلية دبل كليك وبدأ داخلها المؤشر فيعمل الزر الأيمن حينها 

ألم يبق لي إلا أن أفرمت الجهاز ؟

يبدو انك لا تستخدم الاصدار الاخير جرب البحث عن

 

 

 

book.x*
 

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

لا يوجد أي book وبأي امتداد 

وملفات الإكسل عندي امتدادها xlsx

بعد أن أعدت تشغيل الجهاز وفتحت الملف الذي فيه الكود 

Sub reset_cellcommand()

Application.CommandBars("Cell").reset

End Sub 

بدأ اعدادات تكوين ثم توقف عند الخطوط ولم يقبل أن يستمر 

جرب الاتي

 

ابحث عن الملف

 

   

book.xlt

او

book.xltm

 

و قم بتغيير اسمه الي اي اسم اخر

ثم قم بتشغيل الاكسيل

للأسف كلا الملفين غير موجودين في القرص c

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

هي فرصة لأشكر فضلك في ادارة الموقع بما يحوي من كنوز معرفية مهمة 

استاذي الكريم

لم أعرف كيف اعمل على الكود 

والمجلد XLSTART عندي فارغ لا يوجد به ملفات

وحاولت أن أجد طريقة من لرابط المصدر في الموضوع 

To fix, close Excel and open regedit. Go to HKCU\Software\Microsoft\12.0\Excel and rename the Options key to Options.old. Open Excel

بلا فائدة

هل اعيد تحميل الأفيس ؟؟

أو هل توجد طريقة لإستعادة افتراضيات اوفيس ؟؟

لأن المشكلة أتعبتني 

شكرا لك

أتوقع أخي الحبيب انه يتوجب عليك تحميل هذا الملف إلى مسار ملف الاكسيل في داريف سي ( c )

شكرا لك على الإهتمام 

نعم هذا ما فعلت بدون فائدة 

استبدلت ملف MyBasicExcel_11.reg

الذي في جهازي بالملف المرفق 

نصف العمل على اكسل يعتمد على الزر الأيمن 

الغريب أنه يعمل مثلا في خانة fx

وفي كل مكان إلا داخل الورقة فلا يعمل 

السلام عليكم

اخي

اذاكنت تستعمل اكسل 2003

افتح الملف Excel_10 الموجود في المرفق و حمل ما بداخله

اذاكنت تستعمل اكسل 2007

افتح الملف Excel_11 الموجود في المرفق و حمل ما بداخله

للأسف لم ينجح معي 

هل من طريقة أخرى 

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

استاذي الكريم 

نفس الكود وضعته في ورقة عندي فنجح جدا

 

ووضعته في ورقة اخرى لفرز قائمة أخرى لكنه جلب لي القائمة الأولى 

 

أين المشكلة وكيف التعديل حفظك الله تعالى

المشكلة كانت مع الإسم 

مع اني غيرت اسم (list)  في كامل المعادلة يدويا بدون فائدة

ثم جربت النسخ من ملفك المرفق واللصق 

فطلب مني تغيير الإسم فغيرته ونجحت 

لا أجد إلا أن أثني على عطائك وأشكر سعة صدرك أستاذي الفاضل

تقبل دعواتي وفائق احتراماتي

استاذي الكريم 

نفس الكود وضعته في ورقة عندي فنجح جدا

ووضعته في ورقة اخرى لفرز قائمة أخرى لكنه جلب لي القائمة الأولى 

أين المشكلة وكيف التعديل حفظك الله تعالى

يبدو أن طلبي غير واضح ...

أخى الحبيب ( ناصر ) أليك المرفق بعد تطبيق معادلتك علية هذا أولا

أما ثانيا وهذا الأهم إن المعادلة الموجودة لعمل الفلترة معادلة ( صفيف ) أى بعد الإنتهاء من كتابتها داخل الخلية عيك الوقوف فى نهايتها والضغط على ( ctrl+shift+enter ) معا لكى تخقق المعادلة العمل بشكل سليم

ثالثا - بعد كتابة المعادلة فى الخلية الأولى للعمود النراد فلترتة علم على المدى الذى ستظهر به النتيجة ( العمود المراد فلترتة ) ثم قف على نهاية المعدلة الأولى أو الموجودة فى الخلية الأولى ثم إضغط ( ctrl+shift+enter )

سيظهر لك المدى المفلتر

لله درك 

قدمت لي الملف مع شرح لأعرف مكان خطأئي 

وخطأي كان عدم الضغط على كنترول شيف انتر

ما اجملك وأجمل سمتك أخي محمود

حفظك الله وحفظ لك كل من تحب وجمعك بهم في جنات الخلد

استاذي الكريم 

جربت معادلة قائمة مفلترة من عمود واحد وبدون فراغات.

حيث لدي عمود مكون من 120 خلية تحوي أرقاما فقط وفراغات 

رتبت  لي 15 خلية فقط 

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

حاولت ان اعدل على المعادلة لكني لم استطع 

هل يمكن أن ترفقها لي بهذا الطلب 

شاكرا ومقدرا جهدك 

هذا المرفق يبين الطلب المبني على معادلتك 

قائمة مفلترة من عمود واحد وبدون فراغات.rar

السلام عليكم 

أعاني من مشكلة عند جلب بيانات من الإنترنت 

ولأن  رابط البيانات طويل فلا يمكنني تقصيره 

مثال هذا الرابط وأريد جلب بيانات الجدول الأوسط الكبير فيه على ملف الإكسل 

http://www.tadawul.com.sa/wps/portal/!ut/p/c1/lZDRboIwFIafhSc4p5WCXiIxCJqiKxDLzVIdUxOhBInK2486LzYSZ5bTpKf9_i8nOZBDX5W6HPeqPepKnWADufPO0c_eQptiQCYEw4VYT1LqUYzcnssfPJ7H457PnJR7CQl895c9oMIe2MEqYxjaS0HFKhphSP81GwVDY2eJvwxGiPjCFqoBPtdlARJy92lyyiAxW7mBRHPvdFmrqhNdudUno0J-fvSEknukVdu4-Sia_sc8u4fZdnWhP8-FanYHgyTIP8fWZZpurpyzy_dhnmV9Ab_KQlU!/dl2/d1/L3dJMjIyQSEhL3dQRUJGUUJnTlFCaGpRQmhyUUJoSFFCZ1BRQmdBQSEhL1lJNXcvN19OMENWUkk0MjBHMTkxMElLU1E5VTJBMjBCNQ!!/?symbol=1210&tabOrder=2&chart_type=chart_oneDay

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

ويعطيني رسالة خطأ  

تأكد من ان اسم الملف أو المسار لا يحتويان أكثر من 128 حرفا 

فما الحل حفظكم الله 

وطلب آخر :

عندي 150 شركة وكلها في نفس الرابط كالتالي ماعدا اللون الأحمر فقط وهو رقم الشركة 

ht tp://www.tadawul.com.sa/wps/portal/!ut/p/c1/lZDRboIwFIafhSc4p5WCXiIxCJqiKxDLzVIdUxOhBInK2486LzYSZ5bTpKf9_i8nOZBDX5W6HPeqPepKnWADufPO0c_eQptiQCYEw4VYT1LqUYzcnssfPJ7H457PnJR7CQl895c9oMIe2MEqYxjaS0HFKhphSP81GwVDY2eJvwxGiPjCFqoBPtdlARJy92lyyiAxW7mBRHPvdFmrqhNdudUno0J-fvSEknukVdu4-Sia_sc8u4fZdnWhP8-FanYHgyTIP8fWZZpurpyzy_dhnmV9Ab_KQlU!/dl2/d1/L3dJMjIyQSEhL3dQRUJGUUJnTlFCaGpRQmhyUUJoSFFCZ1BRQmdBQSEhL1lJNXcvN19OMENWUkk0MjBHMTkxMElLU1E5VTJBMjBCNQ!!/?symbol=1210&tabOrder=2&chart_type=chart_oneDay

هل يوجد طريقة بحيث أضع ارقام الشركات في ورقة 

وتجلب البيانات مع تغيير في الرابط فقط 

يعني استبدال  1210 بارقام أخرى في ورقة 

بدلا من كتابتها يدويا

الله يجزاكم كل خير ويوسع لكم في ارزاقكم

اخي العزيز / حسين العصلوجي

رااائع وفعلا بجد اصبحت ابحث عن ردودك لانها تثير اعجابي جدا

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

أهلا بك أخي حمادة 

وشكرا لك 

فالأستاذ حسين يستحق كل ثناء 

السلام عليكم

استاذ حسين

اكواد غاية في الدقةوالخبرة

بارك الله فيك وزادك علما

شرفتني اطلالتك اخي الكريم

تصحيح الكود كالتالى

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

 

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

وكذلك عند فتح الملف يحذف الارتفاعات القديمة

ياه  .. ما أجملك واجمل ابداعك استاذنا الكريم

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

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

تقبل شكري وثنائي

جرب هذا المرفق

ولو في ملاحظات عرفني

ممتاز جدا 

معلم والله 

استاذي لو تكرمت علي بعض الأسئلة 

حاولت أن أجتهد  

فأضفت هذا الكود  فأين الخطأ 

يقول اذا كان الأعلى اعلى من الرقم الذي سجله (رقم عالي جديد ) يسجله في الخلية المجاورة 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

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

لا اعرف كيف اشكرك على اهتمامك سوى الدعاء لك ولوالديك 

مرفق ملف كمثال 

يحتاج اتصال انترنت 

والبيانات تحدث كل خمس دقائق 

فتتغير الأرقام

أرجوك جربه بين الساعة 11 والساعة 3:30 بتوقيت السعودية 

الغريب أنه يخرج لك نتيجة أو اثنتين من بين 150 صف 

اكرر شكري  وتقديري

activecell (3).rar

جرب المرفق ان شاء الله يفي بالغرض

الكود ممتاز مع الإدخالات اليدوية 

لكنه مع جلب البيانات عبر النت لم يتغير ولم يسجل أي رقم 

هل لآن قيمة الخلية رابط لا يتغير ؟

الله يجزاك خير ويرحم والديك 

شكرا لك من كل قلبي 

ما أجمل هذا المنتدى بأعضائه الكرام

ما شاء الله لا قوة إلا بالله 

مخك يوزن بلد أخي حسين 

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

فهل يمكن تنفيذها بمعادلات فهو أنسب لي ؟؟

عودا على الملف 

لاحظت أنه سوف يضع كل حركة تغير مع وقتها حتى AZ

الطريقة ممتازة سانفذها في فكرة أخرى 

دعني أشرح طلبي أكثر 

هو سعره 10 ارتفع فقط (وليس نزل) صار 11 الساعة 12 ظهرا

يعني عندي سعر أولي هو اساس الشرط اذا ارتفع عنه عطني قيمة الإرتفاع ووقتها 

ستواجهني مشكلة أخي 

أن ملف الإكسل عندي يجلب من السوق مباشرة 

وهذه الخلية (الأساس ) دائما فيها رقم  (سعر الأمس أو صفر قبل بداية السوق  أو سعر تداول وقت افتتاح السوق )

الساعة 10 صباحا إلى 11 تصفر جميع الخلايا تلقئيا 

ثم بيدأ السوق الساعة 11 

في الملف المرفق مزيدا من الشرح لطلبي 

شاكرا لكم حسن الضيافة 

activecell.rar

السلام عليكم

عضو جديد بينكم أتمنى ان تقبلوني 

وعندي طلب بحثت عنه كثيرا 

عندي جلب بيانات تداول اسهم مباشر 

أريد في خلية b2 تعطيني أول قيمة لخلية a2

وفي خلية b3 تعطيني الوقت لهذه القيمة الجديد 

علما أن خلية a2  ترتفع وتنزل (وهي تمثل سعر السهم)

يعني سهم سعره 10  ارتفع وصار 11 الساعة 12 ظهرا ثم ارتفع وصار 15 الساعة الواحدة ظهرا 

المفترض تكون النتيجة في خلية b2  هي 11 وفي خلية الوقت 12 ظهرا

أريد ضبط هذه الخلايا بدون ماكرو 

ولكم مني الدعوات