تحليل Excel و VBA

Quote:

---

Originally Posted by ;

مرحبا. أنا آسف لأني أشعر بالألم ولكن هناك إجابة سهلة لهذه المشكلة. في أول مشاركة لي علىcavemantradingوأنا لست متأكدا من حيث يجب أن نشرها .... وأود أن تصدير البيانات الأسبوعية السابقة لحوالي 6 أزواج على التفوق. قد يبدو شيء من هذا القبيل .... Wc Open Close ارتفاع منخفض GBPAUD EURUSD الخ الخ في الوقت الحالي أنا فقط أريد البيانات للأسبوع الماضي ولكن أريد ذلك على ورقة إكسل واحدة لمزيد من التحليل .... ل توفير الوقت وتجنب الخطأ البشري في نقل زوج البيانات عن طريق الزوج. آمل أن يساعدني شخص ما أو يشير لي في الاتجاه الصحيح ....

---

مرحبا عوز ، لست متأكدا ما هو بالضبط كنت تبحث عنه. ولكن لنفترض أن الشموع D ، h4 ، h1 من الأسبوع الماضي؟ من السهل جدا بالنسبة لأولئك الذين لديهم ميتاتريدر ، ببساطة اضغط ctrl s بينما على الرسم البياني وسوف ينقذ نفسك timeserie في شكل * .csv. لقد تحدثنا هنا عن التصدير المباشر إلى ورقة التفوق هنا: [QUOTE= ؛] اقتباس أحد الأشخاص الذين قمت بنشر رابط لامتلاك القدرة على تصدير البيانات التاريخية في كل علامة. لذلك هو أساسا بيانات حية بالإضافة إلى التاريخ. لقد جمعت بعض منصات التداول على نطاق واسع جدا في Excel مع هذه الطريقة. لا حاجة لمحاولة التقاط البيانات عبر DDE. لكن DDE مفيد لالتقاط اقتباسات حية دون حتى القيام بأي شيء أكثر تفصيلاً.

Quote:

---

Originally Posted by ;

حسنا ، لقد قمت بها. كان كل شيء في هذا الشيء الصغير. إذا كنت ترغب في تحويل ترتيب النص إلى التاريخ ، فإن تنسيق xls الافتراضي هو yyyy-mm-dd. يعني إذا كان الخام مثلي ، فأنت ببساطة بطريقة ما تجبره على القيام به وفعله! لذلك تم اختبار هذا 1 وظيفة ، على تصدير 0anda MT4 الشهرية والأسبوعية واليومية.cavemantradingلن تسمح لي بتحميل .xlsm هنا ، لذلك أصف كيف يعمل. يمكنك إنشاء ورقة إكسل بأربع قوائم ، تسمى أيضًا Data_crushed Data_final والبيانات. مرة واحدة في مخطط MT4 ، اضغط على ctrl s وانسخ * .csv. نسخ البيانات من * .csv إلى قائمة البيانات. تشغيل الماكرو. وسوف سحق التواريخ ...

---

هذا يمكن أن يكون من JR على نفس الموضوع بالضبط ، يبدو واعدًا جدًا ، ولكن كما كان مفيدًا ، لم أجد وقتًا للتحقق من ذلك: [QUOTE=؛] عفواً لم أعود إليك في وقت أقرب. كنت خارج المدينة. في الأساس ، هناك نوعان من أنماط متميزة ل VBA. واحد هو رمز الماكرو الخاص بك. آخر هو إصدار الكائن. نموذج الكائن أكثر تشابهًا مع Visual Basic 6. نموذج الكائن هو منظف كثير ، وأسهل في التعامل معه ، وليس عرضة للأخطاء التي تتلقاها مع مسجل الماكرو الذي يعتمد على أشياء مثل الورقة النشطة ، والمحمول النشط ، الطريقة البسيطة لتتذكر هيكل النموذج البسيط هو أنه هرمي. Workbook.Worksheet.Range (column_cell: column_cell) .properties فيما يلي بعض ...

مرحبا. أنا آسف لأني أشعر بألم ولكن هناك رد بسيط على هذه المسألة. في أول مشاركة لي علىcavemantradingوأنا لست متأكدا من حيث أحتاج لنشر ذلك .... أود أن تصدير البيانات الأسبوعية السابقة لحوالي 6 أزواج في توهج. سيبدو شيء من هذا القبيل .... Wc فتح إغلاق ارتفاع منخفض GBPAUD EURUSD الخ الخ في اللحظة التي أحتاج فقط إلى المعلومات للأسبوع الماضي ولكني بحاجة إليها على ورقة إكسل واحدة لمزيد من التحليل .... في لتوفير الوقت وتجنب الخطأ البشري في نقل زوج المعلومات عن طريق الزوج. آمل أن يتمكن شخص ما من المساعدة أو الإشارة لي في الاتجاه المثالي. شكر.

1 مرفق (ق) مرحبا يا سيدي ، شكرا. . في السابق ، ما زلت لا أفهم جيدا حول رمز تصدير إلى CSV .... أريد أن تصدير إلى CSV إلى CSV ، ولكن البرنامج النصي أو indior ، والتي اعتدت على حدة لكل زوج .... أرفق وثيقة ، على أمل مساعدة شخص ما في csv. هذا هو برنامج نصي لتصدير OHLC الأسبوعية في 5 أشرطة .... ما إذا كان يمكن أن يكون modif إلى 3 أطر زمنية (يومية وأسبوعية وشهرية) ، وهكذا CSV واحد؟
https://www.cavemantrading.com/attac...1835201690.mq4

Quote:

---

Originally Posted by ;

أقتبس أتفق معك على تلك النقطة JR '. لقد واجهت الكثير من المشاكل مع DDE عناء ذلك. أجد أنه أكثر كفاءة وموثوقية لأداء ما أحتاجه في MT4 ، اكتبه إلى ملف وقم بتحميله إلى Excel كبيانات نص خارجية.

---

اهلا يا دودى! لحظة ممتدة. مجرد fyi ، لقد تم إيقاف من التداول لفترة من الوقت وليس متأكدا عندما سأعود إلى التداول حقا. ومع ذلك ، لقد كان لدي الكثير من الأفكار وكانت تفعل الكثير من البرمجة والبرمجة. راقب.
https://www.cavemantrading.com/attac...1530385769.jpg

كنت أريد أن أذكر. يعد استخدام Excel لإنشاء قوالب التخطيط بعناصر مثل المستويات المحورية المخصصة أو أي شيء آخر تحتاج إليه في المخطط أمرًا بسيطًا. لدي جدول بيانات لأداء الكثير مما يمكنني نشره إذا تمكنت من العثور عليه. حول كيفية تنفيذ ذلك ، إذا لم يكن كذلك ، سأقوم بنشر بعض المقتطفات. مجرد استخدام Excel منذ آلة حاسبة في حد ذاتها والتصدير إلى الملف. من حين إلى آخر ، أنشأت برنامجًا نصيًا MT4 لاستيراد البيانات من ملف csv. استخدمتها في رسم خطوط عمودية وأفقية ولدت من Excel. سأقوم بنشر ذلك إذا كان بإمكاني تحديد موقعه واستخدام جدول بيانات Excel لإنشاء المستندات التي يمكن أن يستوردها البرنامج النصي.

Quote:

---

Originally Posted by ;

اقتبس مرحبا الابن سأقدم المحاولة. لذلك فقط للتأكد من أن لدي طريقة العمل: النص (التي قدمتها indior) ch البيانات لأنها تنشأ وتأليفها في وثيقة (أليس كذلك؟) إذا كانت الإجابة بنعم ، فهي إجراء دفعة (لا؟) ثم تحتاج إلى التعامل مع إجراء لتقول متى تنتهي (حدود أبعادقيودتكرار التحديث؟) وتغيير إلى وثيقة جديدة؟ (اسمه مع شيء مثل yyyymmddhhmmss) ثم هل من الأفضلممكن للحصول على هذا المحفوظة تحت CSA بفواصل محددة؟ او اخرى ؟ (ماذا تنصح بالخبرة؟) ملاحظة: أنا لست بحاجة إلى تحديث كل نانو ثانية ، ...

---

محول الفترة المحسّن indior I المرتبط به يمكن أن ينشر التاريخالوقتO/HLCV لجميع الحانات على مخطط MT4 وهو مرتبط بملف csv الخاص بك. من الممكن تحديد عدد المرات في المعلمات الأساسية. يسمى ملف الإخراج الأداة والإطار الزمني. على سبيل المثال للحصول على يوميا. لمدة 15 دقيقة. الحانات. كان استخدامي الأصلي لأداء الإطارات الزمنية الفردية على سبيل المثال 2 و 4 دقائق. الرسوم البيانية. يستبدل indior المستند في كل مرة. بالنسبة لبرامج تداول Excel المخصصة مع التخطيط الذي قمت بإنشائه ، كان لدي جهاز توقيت لتحديث استيراد البيانات كل 15 دقيقة. ثم كان DDE reside لعرض بيانات الشريط الحالي. لا حاجة للقيام بأي وثيقة إدارة. نقطة فقط Excel إلى مجلد ملفات MT4. لقد استخدمت أيضًا مكتبة تخطيطات تقرأ ملفات .csv مباشرةً ، ثم تقوم بتحديث OHLC مع إحصائيات مباشرة تأتي في DDE. كان القيام بهذه الطريقة أوتوماتيكيًا إلى حد كبير دون الحاجة إلى جهاز توقيت منذ أن بدأت في طرح MT4 جديدة كل 5 دقائق. لبلدي 15 دقيقة. الرسم البياني. في بعض الأحيان ، يجد توهج بلدي وحسابات الشمعة الحالية قليلا من المزامنة ، ولكن لا شيء متطرف. (مدير مخطط google إذا كنت مهتمًا بهذه المكتبة) فمن الممكن استخدام VBA I المنشورة مسبقًا للحصول على البيانات الموجودة في الملف لاستيرادها إلى جدول البيانات الذي تعمل منه. لقد حصلت على نهج قوي جدًا يمكنني استخدامه لاستيراد أزواج متعددة ويمكن أن يكون إطار عمل لأداء الواجبات الداخلية المخصصة وما ليس في VBA مقابل إجراء العمليات الحسابية في الخلايا. القيام بهذه الطريقة في الواقع يوفر على معالجة وثقل هذه الورقة. لديه بعض لينغ heaving جميلة باستخدام وحدات فئة VBA ، وطرق فئة ، وما ليس إلى حد كبير درسا هائلا في برمجة Excel بدلا من مقتطفات صغيرة فقط من VBA لأداء القليل ماكرو نسخلصقتنسيق الأشياء. امل ان يساعد. أقوم بجمع سلسلة من الدروس حول كيفية القيام بكل ذلك ، لكن ذلك سيستغرق بعض الوقت.

Quote:

---

Originally Posted by ;

اقتبس واحد من هؤلاء indiors أنا قدمت رابط لديه القدرة على تصدير المعلومات التاريخية في كل علامة. لذلك هو أساسا بيانات حية بالإضافة إلى التاريخية. لقد قمت ببناء منصات تداول كبيرة الحجم في Excel لهذا الأسلوب. ليس من الضروري محاولة التقاط المعلومات عبر DDE. ولكن نعم ، DDE رائعة لالتقاط عروض حية دون القيام بأي شيء خيالي.

---

مرحبا الابن سأقدم المحاولة. لذلك فقط للتأكد من أنني حصلت على طريقة العمل: البرنامج النصي (الذي قام بنشره الموظف الذي قام بنشره) معلومات عند ظهورها وقم بتكوينها في ملف (صحيح؟) إذا كانت الإجابة بنعم ، فهذا إجراء دفعة (لا!) ثم تحتاج إلى إدارة الإجراء ليقول متى تنتهي (حدود حجمقيودتحديث تردد؟) وتغيير إلى ملف جديد؟ (يمكن تسميته بشيء مثل yyyymmddhhmmss) ، فهل من الأفضلالممكن أن يكون ذلك مخزَّنًا أسفل فاصلة CSV محددة؟ او اخرى ؟ (ماذا تنصح بالتجربة؟) ملاحظة: أنا حقا لا تحتاج إلى تحديث كل نانو ثانية ، وأنا لست في HFT: - RRB- ثم من xlsm أرسم فقط زر صغير لطيف والانضمام إلى البرنامج النصي VBE للملف أعلاه تخزينها في الصفوف. حق ؟ (أو VBA لتخزين في MS Access) أعتقد أن أفضل طريقة هي أن يكون لديك مجلدين: newdata (الحصول على ملفات جديدة تم إنشاؤها بواسطة برنامج MT4 النصي و VBE يتحقق هناك مع جهاز توقيت لمعرفة ما إذا كان هناك أي شيء جديد لتحميل) ومعالجتها (لنقل الملفات هناك بعد تحميل) هذا يحتاج إلى أي أوامر MS DOS لنقل الملف بعد ذلك لا تستخدم؟ مثل استدعاء scriptname.bat (لا؟) في حال كان لديك برنامج نصي MT4 استعداد لاستخراج المواقع (فتحمعلقالتاريخ) وإرسالها إلى ملف يمكنني استخدام xlsm لتحميل ، سأكون أكثر من سعداء ل العب مع! وهذا من شأنه تسريع عملي الحالي باستخدام دليل نسخ لصق عبارات html إلى xlsm. لطيفة جئت عبر هذا الحوار الابن .. وشكرا لتوم لبدء!

Quote:

---

Originally Posted by ;

اقتباس .... لا حاجة لمحاولة التقاط المعلومات عبر DDE.

---

أنا أتفق معك هناك JR '. لقد واجهت الكثير من المشاكل مع DDE لإزعاج أكثر من ذلك. أجد أنه أكثر كفاءة وموثوقية لأداء ما أحتاجه في MT4 ، اكتبه إلى الملف ثم حمله إلى Excel كمعلومات نص خارجية.

Quote:

---

Originally Posted by ;

اقتبس عزيزي JR ، بينما العرض لا يزال على المنضدة ، أريد أن أسألك شيئين
https://www.cavemantrading.com/attac...1530385768.png. أولا ، هل من الممكن أيضا أن يكون لديك برنامج نصي mql لتصدير أسعار الصفقات المفتوحة ، لذلك لا أحتاج إلى كتابة م مباشرة في جدول المحفظة كما هو الحال في العصور الوسطى؟
https://www.cavemantrading.com/attac...1530385768.pngوثانيا ، كيف يمكنك إدراج نافذة جميلة مع رمز؟ مقالات كود بلدي هي الفوضى الحقيقية وأريد بنشر أكثر قليلة. تشك ، تي

---

نعم فعلا. أستطيع أن السوط جنبا إلى جنب مع النصي mql لتصدير التجارة المفتوحة بالإضافة إلى معدلات. قد يكون لدي حتى واحد وتحتاج فقط إلى تغيير. للصق شفرتك في نافذة صغيرة رائعة ، إلى أقصى اليمين ، هناك علامة lt؛gt؛ الزر الذي يجب أيضًا تمييز الرمز. استخدام هذا. يشبه نافذة علامات الاقتباس لكنه لا يحصد بعد x كمية من الخطوط.

Quote:

---

Originally Posted by ;

[ومع ذلك ، للإندي الحية في XLS ، هذه هي مادة أخرى. . ستحتاج إلى تخزين الإحصائيات المباشرة عند قدومها واستخدام المعلومات السابقة ، اعتمادًا على المدى الذي تتبعه في تتبع الأسعار حتى تعمل الأشياء الخاصة بك. لذلك ، إذا كنت بحاجة إلى الإحصائيات فقط ، فإن DDE على ما يرام ، ولكن إذا كنت بحاجة إلى قاعدة بيانات الأسعار لتحليل السوق ، فهذا شيء آخر.

---

واحد من هؤلاء المسنين الذين قمت بنشر رابط لهم لديه القدرة على تصدير المعلومات التاريخية في كل علامة. لذلك أساسا البيانات بالإضافة إلى التاريخ. لقد قمت بتجميع منصات تداول كبيرة الحجم في Excel باستخدام هذه التقنية. ليس من الضروري محاولة التقاط المعلومات عبر DDE. لكن نعم ، DDE جيد لالتقاط عروض الأسعار الحية دون حتى القيام بأي شيء خيالي.

Quote:

---

Originally Posted by ;

اقتبس شكرا توم ، من حين لآخر فإن الحالتين معقدة للغاية لحسابها في Excel.

---

فرز الذي تريد ، يأخذ لحظة. أتوقع
https://www.cavemantrading.com/attac...1530385768.png. إذا تعذّر تشغيل عناصر التحكم في الخلية ، يمكنك كتابة الماكرو VBA بدون أي مشكلة.

Quote:

---

Originally Posted by ;

quote Hi Tigre ، لماذا لا تكتب ببساطة indiors في * .xls؟ فقط سعر التصدير و Excel فيل القيام بالباقي وإدراج indiors. تي

---

شكرا توم ، حسنا في بعض الأحيان معقدة للغاية لحسابه في إكسل ... [QUOTE= ؛] نعم. لم أستخدمها أبداً ولكن هناك ما يلي:
https://www.mql5.com/en/code/12015

Quote:

---

Originally Posted by ;

quote Hey Tom، I have a solution for It. ما أفعله هو تنشيط DDE (أدواتخياراتالخادمتنشيط خادم DDE). يتم تنشيط هذا المعدل المباشر للتنشيط في xls rfom الذي يمكنك من خلاله استخدام الصيغة إلى c ، مثل قناة bberg.

---

سوف أعطيها لقطة ، شكرا. الآن كيفية تصدير تلك الصفقات المفتوحة. . وأنا على استعداد جميع لدحر بمعدل أسرع. لا يمكنك تخيل مقدار الوقت الذي أتعرض فيه لكتابة الكميات. وكتابة nonscence على FF
https://www.cavemantrading.com/attac...1530385768.png

مرحبًا ، أود إرسال أمر الأوامر من excel إلى mt4. اكتشفت أن أداة RTD fxblue يمكن أن تفعل ذلك لكنني غير قادر على بدء الماكرو أن بناء الجملة هو Sub ordine1 () Set cmd = CreateObject (”fxbluelabs.ExcelCommand”) strResult = cmd.SendCommand (”156734” ، ” BUY ”، sEURUSD | v = 10000، 5) 'strResult = cmd.SendCommand (نطاق (I2) .Value) End Sub ولكن الخطأ createobject يوفر الخطأ. أي اقتراح أو إجراءات أخرى؟ شكرا جزيلا اريك

مرحبًا JR97 أنا أبحث عن المساعدة في برمجة الأشكال. هل من الممكن أن تعطيني أي اقتراحات؟

Quote:

---

Originally Posted by ;

سأفرض التاريخ على الشكل في العامل ، ثم مرة أخرى في الرمز الذي يحدث فيه البحث. أعتقد أن المشكلة قد تكون في بيان الحدث. أنا حقا لا تستخدم بيان الحالة لتركيبها. أستخدم Find (). هنا كيف سأحث تنسيق التاريخ لمجرد التأكد. أنا أيضا متجر التواريخ كسلسلة بدلا من التمور منذ إكسل يمكن أن يكون صعب مع التواريخ: LoDate = تنسيق (datevalue (MenuWs.cells (9،3)) ، YYYY.MM.DD) العب مع هذا للقيام بحث (). Dim targetRow as Range Dim LoDate as String'Get the range which matches the LoDate Set targetRow ...

---

الابن ، هذا هو! إنها تعمل! Inserted Code LoDate = format (datevalue (MenuWs.cells (9،3))، YYYY.MM.DD)
https://www.cavemantrading.com/attac...1530385741.jpghttps://www.cavemantrading.com/attac...1530385741.jpghttps://www.cavemantrading.com/attac...1530385742.jpg. يا رجل أنت متعاون معي شخصياً شكرا جزيلا. انظر ، أنا أحاول معرفة الترميز من الروايات ، على أية حال beeing analphabet ، أجد نفسي عالقاً في بعض القضايا الغبية ، والتي ستكون حتمية بسبب عدم استيعابنا للمبادئ الأساسية التي تعمل بها أجهزة الكمبيوتر. لذلك يقول الكتاب شيئا - حمله من المكتبة أو احتفظ به في أي شيء - وأنا ضائع. لقد ساعدتني كثيرا شكرا. سوف تقدم مع رمز VBA ذروة هذا. Whopee.

سأفرض التاريخ على التنسيق في العامل ، ثم مرة أخرى في الرمز الذي يحدث عنده البحث. أعتقد أن المشكلة قد تكون في بيان الحالة. بيان الحالة لا يستخدمه لي للمطابقة. أستخدم Find (). إليك كيف أحث تنسيق التاريخ على التأكد فقط. أنا أيضا متجر التواريخ كسلسلة بدلا من التواريخ لأن إكسل يمكن أن يكون صعب مع التواريخ: Inserted Code LoDate = format (datevalue (MenuWs.cells (9،3)) ، YYYY.MM.DD) العب مع هذا لأداء بحث ( ). Inserted Code Dim targetRow as Range Dim LoDate as String'Get the range that matches with the LoDate Place targetRow = Range (A: A) .Find (LoDate) 'write to to target cell Range (H: targetRow.Row) .Value = LoPrice

Quote:

---

Originally Posted by ;

لوضع التعليمات البرمجية ، استخدم علامات التعليمات البرمجية. في الجزء العلوي الأيسر من قائمة الرد الجديدة ، هناك علامة lt؛gt؛ مفتاح كهربائي. انقر فوق ذلك ووضع التعليمات البرمجية الخاصة بك داخل العلامات. مثله

---

تشك كثيرا لظهور. الرمز المدرج Whopee لا يعمل إلا على ذلك ، ولكن أفضل ما أقوم به حاليًا هو النص القديم الذي قمت بتصغيره إلى أجزاء ، أو كتابة بتات في جوال - الأمر الذي يجعل خاصية ”تاريخ النسخ”. مريض ، أنا أعلم. هل megaslow. . ولكن من ناحية أخرى سوف أقوم بتحميل هذه Csvs في كثير من الأحيان. إذا نجحت في ذلك ، فقد أتمكن من تقييم الرسوم البيانية h1 ، والتي يمكن أن تكون باردة. الآن أعمل بشكل كبير مع D1 فيما يتعلق بهذا الامتياز ، حيث أن مواردي بطيئة جدًا في تحليل أطر زمنية أقصر خلال اليوم.

استخدام التواريخ من mt4 ثم في Excel يمكن أن يكون مشكلة. أنا أفضل الاحتفاظ بالتواريخ كنص في تنسيق mt4 الافتراضي. بالنسبة لمشروع حالي قمت به لشخص ما ، اضطررت لتحويل تنسيق التاريخ Mt4 إلى تنسيق تاريخ Excel. سأقوم بنشر بعض التعليمات البرمجية في وقت لاحق. يمكنني استخدام فئة كائن مخصص ودورة مخصصة تعيين لجلب البيانات الخارجية في Excel ثم وضع الأداء لتنسيق التاريخ في الفئة. يبدو أنها امتثلت ، لكنها ليست كذلك. ثم يمكنني استخدام هذا الفصل لأي جدول أو مشروع آخر تقريبًا بدون الاضطرار إلى كتابته جميعًا من الصفر مرة أخرى.

لنشر التعليمات البرمجية ، استخدم علامات التعليمات البرمجية. في الجزء العلوي الأيسر من قائمة الرد الجديدة ، هناك علامة lt؛gt؛ مفتاح كهربائي. انقر فوق ذلك ووضع التعليمات البرمجية الخاصة بك داخل العلامات. كود مدرج تماما مثل هذا

3 المرفق (الاقتباس)

Quote:

---

Originally Posted by ؛

أقتبس لا أستطيع أن أضمن مساعدة واضحة وضوح الشمس عزيزي توم ولكن أشرح لي من خلال رئيس الوزراء ما لديك وماذا تريد أن تفعل ، واسمحوا لي أن أفحص لفترة من الوقت. الجدول الزمني الخاص بي مشغول بالفعل ولكن سأحاول دون وعود قاسية.
https://www.cavemantrading.com/attac...1530385738.jpg

---

أيها الشريك ، أتقدم ببطء مع البرنامج. لقد استخدمت الرمز من JR أدناه لتحميل .csv المصدرة من Metatrader إلى Excel دون أن تضطر إلى بدء تشغيل csv ، في حين يقوم البرنامج بتقطيعه في وقت واحد إلى أعمدة. سهل جدا.

Quote:

---

Originally Posted by ;

.... Sub OpenCSV () خافت sourceWb كمصنف خافت targetWb كمصنف خافت sourceWs كصنف عمل ورقة Dim targetWs As Worksheet Dim sourceRng ....

---

اليوم مع مجموعة البيانات التي تم تحميلها ، Excel يتصرف kinda غريبة. إذا قمت بإنشاء المخطط من المعلومات ، فإنه يعترف بالتواريخ. ومع ذلك ، إذا قمت بكتابة ماكرو بسيط جدًا لفحص التواريخ ، فيمكن أن يرى Excel بعض التواريخ والبعض الآخر لا. يمكن الوثوق بشخص ما وأنا صغيرًا وضعه بشكل مستقيم. هذا الكود ليس سوى بداية لرمز VBA أكبر من المفترض القيام بذلك: 1) تعيين معلمات التحميل من شاشة القائمة. لذا قمت بضبط سعر منخفضمرتفعتاريخ. - أجد هذه الأرقام في مخطط MT4 الخاص بي - أريد أن أتحرى في الوقت الحالي بحث اقتراح الاتحاد الأوروبي منذ 13.3. انخفاض 1،04617 وقياس متانة الأمواج. لذا أضع بداية منخفضة عالية اليمين في القائمة والجزء الأول من البرنامج يقوم بتحميلها. 2) تواريخ البحث في timeserie إذا كانت تناسبها محددة منخفضة وعالية. إذا كانت اللعبة - فقط قم بكتابة أعمدة قليلة إلى اليمين وبدء تشغيل CreateRow للحصول على البحث عن موقع البحث عن الموقع. لسبب ما ، هذا الجزء من البرنامج ، مهما كان سهلاً ، لا يعمل. الرمز هو نفسه. لقد قمت بتحليل أوامر if و Case بوت ، ولكن هذا يعترف 13.3.2015 كما غير تاريخ (لوديت) ، على الرغم من أنه ليس لديه أي مشكلة في رؤية 26.3.2015 كما HiDate. من فضلك ، حتى لو قمت بتحديد ما تفعل بالضبط خطأ ، سيكون محل تقدير كبير جدا مساعدة. سيشارك Ofc الرمز الكامل مرة واحدة جاهزة. راجع للشغل ، إذا كان شخص ما يعرف كيف أقوم بإدخال هذه النافذة على المواد حتى رموز أنظف من فضلك قل لي. T Sub HiLoPF () Dim Wb As Workbook Dim MenuWs، DataWs، PFWs As Worksheet Dim PFStart، b، rng، rng2 As Range Dim LoPrice، HiPrice، z، w As Dual Dim LoDate، HiDate As Date Dim Store، LastRow، FirstRow، WaveID ، I ، n As Integer '1) تعيين المعلمات Set Wb = ActiveWorkbook Set MenuWs = Wb.Worksheets (قائمة) Set DataWs = Wb.Worksheets (Info) LastRow = DataWs.Range (A1) .CurrentRegion. Rows.Count LoDate = MenuWs.Cells (9، 3) HiDate = MenuWs.Cells (10، 3) LoPrice = MenuWs.Cells (9، 4) HiPrice = MenuWs.Cells (10، 4) '2) مسح Peakfinder Hiالنطاق المستهدف Lo DataWs.Activate النطاق (خلايا (2 ، 8) ، خلايا (LastRow ، 8)). ClearContents '4) تعيين نطاق البحث البداية تعيين rng = DataWs.Range (خلايا (2 ، 1) ، خلايا (LastRow ، 1)) لكل حالة b في rng اختر الحالة b حالة LoDate b.Offset (0، 7) = حالة LoPrice هي HiDate b.Offset (0، 7) = HiPrice FirstRow = b.Row one Set rng = Range (b) .Offset (FirstRow، 4)، b.Offset (LastRow، 4)) Exit For End حدد التالي End Sub
https://www.cavemantrading.com/attac...7639309347.jpg
https://www.cavemantrading.com/attac...2047856795.png
https://www.cavemantrading.com/attac...2786351117.png

[اقتباس] ؛ 8104068] اقتباس يا توم ، لدي حل لهذا. ما أفعله حقا هو تشغيل DDE (أدواتخياراتالخادممشغل DDE الزناد). يتغذى هذا المعدل المباشر المشغول على صيغة لتشخيص تغذية بيانات OHLC ، مثل القناة. ابحث في C: \ Program Files \ Meta Trader ، هناك DDE-Sample. Xls من الحزمة. داخل هناك لديك الصيغة الأساسية لمعدلات الإقامة. ثم انقر فوق رؤوس منظور محفوظات حسابك (CTRL T لعرض طريقة العرض Terminal) ، وحدد كل المحفوظات والإنقاذ باستخدام تنسيق التقرير (وليس التفصيل). من هناك بالضبط ما أفعله هو أنني نسخ ولصق البيانات في ورقة إكسل و VBE أداء المهمة لتنظيفه ووضع كل ما عندي من مواقف مفتوحةمعلقةمغلقة حيث أحتاج. ثم تنضم إلى وضعك المفتوح إلى مادة DDE وستنتهي. استخدم المعدل المباشر وسيناريو البناء. ولكن بالنسبة للعيش في XLS ، هذه مادة أخرى. . ستحتاج إلى تخزين الإحصائيات عند قدومها واستخدام البيانات السابقة ، اعتمادًا على مدى تتبع الأسعار لجعل الأشياء تعمل. لذلك في حال كنت تريد فقط الإحصائيات الحية ، DDE على ما يرام ، ولكن إذا كنت تحتاج إلى قاعدة بيانات الأسعار لتحليل السوق ، فهذه مادة أخرى.

Quote:

---

Originally Posted by ;

هذا العرض ليس على الطاولة إلى الأبد ، لذا استفد من هذا الأمر في أي وقت.
https://www.cavemantrading.com/attac...1529227533.png

---

عزيزي ج. ر. ، في حين أن العرض لا يزال مطروحاً على الطاولة ، أحتاج أن أسألك شيئين فقط
https://www.cavemantrading.com/attac...1529227533.png. أولا ، هل من الممكن أيضا أن يكون لديك برنامج نصي ل mql لتصدير أسعار الصفقات المفتوحة ، بحيث لا أحتاج إلى فرز em مباشرة في جدول المحافظات مثل في العصور الوسطى؟
https://www.cavemantrading.com/attac...1529227533.pngوثانيا ، كيف يمكنك إدراج تلك النافذة الجميلة؟ مقالات التعليمات البرمجية الخاصة بي هي الفوضى حقيقية وأنا wan na t نشر بضع المزيد. تشك ، تي

Quote:

---

Originally Posted by ;

آسف ، لم أعد إليكم في وقت سابق.

---

لا تقلق الابن ، أنا بطيئة جدا. شكرا جزيلا لعرض ووصف الاشياء. أريد بعض الوقت لمضغه ودراسة تلك الرموز. قبض يا وقت لاحق. وتشك كثيرا! تي

Quote:

---

Originally Posted by ;

وهل هناك طريقة لتصدير المعلومات من الفروع المتعلقة ببعض الرسومات (MAs، Stochs، ...) إلى csv؟ شكر

---

مرحبا تيجري ، لماذا لا مجرد كتابة الهنود في. XLS؟ فقط سعر التصدير و Excel فيل تفعل ما تبقى وإضافة indiors. تي

1 مرفق (مرفقات)

Quote:

---

Originally Posted by ؛

هذه ورقة إكسل سهلة الاستخدام للتعامل مع الإتحاد الأوروبي و UJ. انها مجرد وسيلة واحدة
https://www.cavemantrading.com/attac...1529227533.pngولكن يمكنك تكييفها إذا كنت ترغب في ذلك. إذا اكتشفت بعض الأخطاء ، فيرجى الإبلاغ عنها. المبالغ هي ofc وهمية ، بالإضافة إلى هذه المداخل. وثيقة

---

لقد قمت بتحديث اتجاه محفظة *. XLS ، لذلك هنا يذهب. يبقى 1 بطريقة ، آسف
https://www.cavemantrading.com/attac...1529227533.pngومع ذلك ، أعتقد أنه يمكنك تعديله ليصبح انحيازًا من اختيارك. تم تعيين الجدول الكامل للحصول على عملة افتراضية هي beeing USD. تعتبر الأعمدة الأولى التي يتم احتسابها من قائمة كل قائمة (EU و UJ و GJ و ...) هي العملة الأساسية. لذا إذا كنت ترغب في تغيير اتجاه الجدول ، ما عليك سوى تغيير الأعمدة للعملة الأساسية. وينطبق الشيء نفسه إذا كان حسابك مقومًا بشيء آخر غير الدولار الأمريكي - ولكن مرة أخرى يأخذ بعض التغيير في عدد العملات الأساسية. لعملات متقاطعة ، يجب عليك تحديد سعر مكان لتعديله على عملتك الأساسية - قم فقط بكتابته على رأس قائمة المحافظ (راجع قوائم محفظة EG و GJ للرجوع إليها). إذا وجدت أي تقرير bugsplease. جميع المبالغ ofc مزيفة. الحب ، توم
https://www.cavemantrading.com/attac...585869840.xlsx

Quote:

---

Originally Posted by ;

وهل هناك طريقة لتصدير البيانات من indiors المتعلقة ببعض المخططات (MAs، Stochs، ...) إلى csv؟ شكر

---

بلى. لم استخدمها أبداً ولكن هناك ما يلي:
https://www.mql5.com/en/code/12015

وهل هناك طريقة لتصدير المعلومات من الفروع المتعلقة ببعض الرسومات (MAs، Stochs، ...) إلى csv؟ بسبب

Quote:

---

Originally Posted by ;

شكرا لك و. كيف تبدو الشفرة عندما أحتاج فقط إلى استخراج OHLC الحالي من MT4 دون فتح ملف CSV أو إنشاؤه؟ (الرجاء إخبارنا إذا كنت تعيق رسالتي للطباعة ، لقد قمت بمنع رسائلي دون أي دافع)

---

نعم ، استخدم خلاصة DDE خارج MT4. يقدم ملف التعليمات التفاصيل. باستثناء هذا ، يمكنك استخدام Named Pipes. أو هناك بعض الأدوات المساعدة من نوع العجلة الثالثة التي تستخدم .dll.

Quote:

---

Originally Posted by ;

مرحبا ، السيد توم ، والسيد ..... إذا كان من الممكن تصدير إطار زمني البيانات ، وزوج ...؟ مثل بيانات التصدير EURUSD في الإطار الزمني M5 ، M15 ، قبل W1 ...؟

---

خارج MT4؟ نعم فعلا. استخدم هذا:
https://www.mql5.com/en/code/7673ضع معلمة تصدير csv إلى 1 أو 2 حسب ذوقك. اترك مضاعف الفترة في 1 ما لم تكن تريد إطارًا زمنيًا مقارنًا بالواحد المرتبط به. إنشاء مخطط وإرفاق indior إلى أي المخطط والإطار الزمني الذي تريد تصديره. سوف يقوم البائع الأصلي بتصدير ملف جديد في أي مرحلة تحددها. 0 هو الوقت الحقيقي أي كل علامة. انها سريعة جدا على أساس قوة جهاز الكمبيوتر الشخصي الخاص بك.

مرحبا ، السيد توم ، والسيد JR97 .... إذا كان من الممكن لتصدير إطار زمني البيانات ، وزوج ...؟ مثل بيانات التصدير EURUSD في الإطار الزمني M5 ، M15 ، حتى W1 ...؟

شكرا ل و JR97. كيف تبدو الشفرة إذا كنت ببساطة بحاجة إلى استخراج OHLC الحالي من MT4 دون فتح أو ربما إنتاج ملف CSV؟ (الرجاء إخبارنا إذا كنت تعيق رسالتي للطباعة ، لقد قمت دائماً بحظر رسائلي بدون أي دافع)

Sorry I didn't get back to you earlier. I was out of town. Basically, there are two different fashions to VBA. One is your macro code. Another is the object version. The object model is much more akin to Visual Basic 6. The object model is a lot cleaner, easier to manipulate, and less prone to the errors you get using the macro recorder that depends on matters such as active sheet, active cell, etc.. The simple way to remember the basic model structure is the fact that it is hierarchical. Workbook.Worksheet.Range(column_cell:column_cell). properties Below is a few fundamental VBA to replie the Date, Time, O,H,C,V from an MT4 csv data file. The main thing to know with variables and objects is that objects have to be created or instantiated using place. Factors initialized using . By employing explicit descriptions of these objects to be used and manipulated, there's no need to record what workbook,worksheet,cell, etc. has to be highlighted or busy. It's all specified by declaring which object to mention. The code is a lot cleaner and may be re-used in other larger patterns. I call the sample below from a different routine that processes several .csv files in 1 go using some for loops. The trendy thing with placing Range objects is it is simpler to copy/paste. You'd just say: sourceRangeName.copy afterward Range(A1).paste Which is a lot simpler than attempting to record highlighting a range, copying, and pasting. Inserted Code Sub OpenCSV() Dim sourceWb As Workbook Dim targetWb As Workbook Dim sourceWs As Worksheet Dim targetWs As Worksheet Dim sourceRng As Range Dim targetRng As Range Dim fPath As String Dim fName As String Dim lastCell As Integer 'Set target workbook, worksheet, and range. Set targetWb = ActiveWorkbook Set targetWs = targetWb.Worksheets(Mt4)'Set file path and file name fPath = C:\MetaQuotes\MQL4\Documents \ fName = [email protected]'set sourceWb object to file to open Set sourceWb = Workbooks.Open(fPath fName, False, True)'set the source range into the neighboring region from A1 and find the final row variety Set sourceRng = sourceWb.Worksheets(1). Range(A1).CurrentRegion 'sourceRng.Copy lastCell = sourceRng.Rows.Count Debug.Print lastCell 'Clear existing data targetWs.Range(A1).CurrentRegion. Clear'Header Row targetWs.Range(A1) = DATE targetWs.Range(B1) = TIME targetWs.Range(C1) = OPEN targetWs.Range(D1) = HIGH targetWs.Range(E1) = LOW targetWs.Range(F1) = CLOSE targetWs.Range(G1) = VOLUME targetWs.Range(H1) = fName'set the target range values into the origin range values then shut the. Csv file targetWs.Range(A2:G lastCell 1).Value = sourceRng.Value sourceWb.Close False End Sub There are a few different techniques to acquire info from the csv files without opening them. You can certainly do a file query. That's one of the very few recorded macros that's in fact quite helpful. The other way is to an ADODB connection object and then use normal SQL (Select * from blah blah blah) to find the information into a recordset stored in memory. This method is a little slower, but allows you to find aggregate data should you desire instead of read in each of the data along with the aggregate. Or use a where clause if you want to be selective.

Quote:

---

Originally Posted by ;

يا توم ، يبدو أنك تستخدم الكثير من vba الماكرو المسجل. عليك فقط أن تضع في اعتبارك أنه يمكن إهمال vba الموثق لأن الخليةالورقةالخ مشغول هي نسبة إلى أي شيء نشط في وقت التسجيل إلا إذا اخترت تحديدًا خلية نشطة معينة. من الأفضل استخدام نموذج عنصر المصنفورقة العملنطاق Excel وتفويض الأمور بشكل صريح للعوامل وعناصر النطاق. إنها استراتيجية أكثر دقة وقابلة للتطوير. لقد تم وضع بعض التعليمات البرمجية للعمل مع إخراج MT4 سأقوم بنشرها إذا كنت مهتمًا. هل لديك أي خبرة في تطوير ...

---

مرحبا JR .. شكرا لك على الظهور. الرجاء ابلاغي عن كيفية استخدام الفئات والكائنات
https://www.cavemantrading.com/attac...1529227533.png. لقد استخدمت وحدات الماكرو المسجلة للفرز الأول من البيانات إلى الأعمدة. انظر ، ولهذا السبب لدي هذه الأوامر: range.activate - بحيث أختار النطاق المناسب لإجراء هذا الماكرو المسجل. ولكني أعلم أن اختيار البيانات يبطئ البرنامج ، وأنه يمكنني فقط تسجيله في مكان ما والقيام بعمل كامل دون اختيار الخلايا. لكن لا أفهم كيف. تي

راجع للشغل ، إذا كان أي شخص لديه excel يسأل ، نشرها. أنا مبرمج VBA متقدمة إلى حد ما ، وقمت بتجميع بعض برامج رسم قوية إلى حد ما في Excel. لن أبني لك تطبيقًا ولكن يمكنني تقديم المساعدة في أي أسئلةمهام متعلقة بـ vba. لا أستطيع أن أعدكم بالتحول السريع ، لكن ... أنت تحصل على شيء بدون أي تكلفة. هذه الصفقة ليست على الطاولة إلى الأبد ، لذا استفد منها في أي وقت.
https://www.cavemantrading.com/attac...1529227533.png

يا توم ، يبدو أنك تستخدم الكثير من vba الماكرو المسجلة. فقط كن على دراية بأن vba المسجلة يمكن أن تفشل حيث أن الخليةالورقةالخ مشغول تكون نسبة إلى أي شيء مشغول في وقت التسجيل إلا إذا قمت باختيار خلية نشطة محددة. من الأفضل استخدام نموذج كائن المصنفورقة العملنطاق Excel وتعيين المسائل بشكل خاص للمتغيرات وكائنات النطاق. هو نهج أكثر دقة وقابلة للتطوير. لقد تم وضع رمز للعمل مع إخراج MT4 سأقوم بنشرها إذا كنت فضوليا. هل لديك أي خبرة في تطوير العمل مع الأشياء والدروس؟

2 مرفق (ق) فيما يلي مسلسلك ، ما هو مثير للاهتمام هو أن التصور للشكل الذي شكله العرض حالما تأتي الحصة للاستقرار الكامل.
https://www.cavemantrading.com/attac...584174451.xlsx
https://www.cavemantrading.com/forex...ing-style.html

حسنا ، لقد تم ذلك من قبلي. كان في هذا thingie. إذا كنت ترغب في تحويل ترتيب النص إلى التاريخ ، فسيكون تنسيق xls الافتراضي هو yyyy-mm-dd. يعني إذا بدائية مثلي ، أنت فقط بطريقة ما لحثها على القيام بذلك! لذلك تم اختبار هذا العمل واحد ، على 0and MT4 الصادرات الشهرية والأسبوعية واليومية.cavemantradingلن تسمح لي بتحميل .xlsm هنا ، لذلك أصف كيف يعمل. يمكنك إنشاء ورقة إكسل باستخدام أربع قوائم ، تسمى أيضًا Data_crushed Data_final والبيانات. مرة واحدة في مخطط MT4 ، اضغط على ctrl s وانسخ * .csv. نسخ البيانات من .csv إلى قائمة المعلومات. تشغيل الماكرو. سوف يسحق التواريخ لتنسيق وتحديد إغلاق فقط ، لذلك فمن الممكن كسب الرسم البياني بسرعة. ورقة البيانات سحق يحتوي على كل OHLC والكمية ، ورقة إغلاق فقط تلك العصي. تتمتع ، T. Sub datecrushMT4Daily () 'أوراق إعادة تشغيل crushed و Last Appliion.DisplayAlerts = أوراق عمل False (Data_crushed) .Delete Worksheets.Add.Name = أوراق عمل Data_crushed (Data_crushed) .Move بعد: = أوراق عمل (بيانات) أوراق العمل (Data_final). حذف Worksheets.Add.Name = أوراق عمل Data_final (Data_final) .Move بعد: = أوراق العمل (قائمة) Appliion.DisplayAlerts = Authentic Appliion.ScreenUpdating = False 'سحق تاريخ - أوراق عمل MT4 يومية (بيانات). تنشيط نطاق (خلايا (1 ، 1 ) ، خلايا (1 ، 7) .End (xlDown)) نسخ أوراق العمل (Data_crushed). تنشيط أعمدة ActiveSheet.Paste (A: A). تحديد Selection.TextToColumns الوجهة: = نطاق (A1) ، DataType: = xlDelimited ، _ TextQualifier: = xlNone، ConsecutiveDelimiter: = False، Tab: = True، Semicolon _: = False، Comma: = True، Space: = False، Other: = False، FieldInfo: = Array (_ Array (1، 4)، Array (2 ، 4) ، صفيف (3 ، 1) ، صفيف (4 ، 1) ، صفيف (5 ، 1) ، صفيف (6 ، 1) ، صفيف (7 ، 1)) ، _ DecimalSeparator: =. ، TrailingMinusNumbers: = True Selection.NumberFormat = [$ -F800] dddd، mmmm dd، yyyy 'datecrush Set rng = Range (Cells (1، 1)، Cells (1، 1) .End (xlDown)) For each b In rng b.Offset (0، 7) .Value = (Left (b.Value، 4) - Mid (b.Value، 6، 2) - Correct (b.Value، two)) next rng.NumberFormat = [$ - F800] dddd، mmmm dd، yyyy'rng.NumberFormat = dmyyyy For Each b in rng b.Value = b.Offset (0، 7). القيمة ”الأعمدة المرئية التالية (B). حذف أعمدة (جرام) .ClearContents الصفوف (1: 1) .إدراج Shift: = xlDown ، CopyOrigin: = xlFormatFromLeftOrAbove Range (A1) .FormulaR1C1 = النطاق الزمني (b1) .FormulaR1C1 = فتح نطاق (c1). .FormulaR1C1 = نطاق مرتفع (d1). .FormulaR1C1 = نطاق منخفض (e1). .FormulaR1C1 = إغلاق نطاق (f1). .FormulaR1C1 = حجم الصوت ”المتابعة إلى إغلاق النطاق (A: A، E: E) .Copy Worksheets (Data_final) ) .Activate Sheets (Data_final). حدد ActiveSheet.Paste End Sub

1 مرفق (مرفقات) هذه ورقة تفوق سهلة من MM لإدارة تعاملات الاتحاد الأوروبي و UJ. انها مجرد طريقة واحدة
https://www.cavemantrading.com/attac...1529227532.pngومع ذلك ، يمكنك تكييفها إذا كنت ترغب في ذلك. إذا اكتشفت بعض الأخطاء ، فيرجى الإبلاغ عنها. الأرقام هي ofc وهمية ، إلى جانب تلك المداخل.
https://www.cavemantrading.com/attac...352376108.xlsx

لذلك أول رمز صغير أحتاج لتخزينه. لقد جعلت هذا كوز في بعض الأحيان عندما أقوم بتنزيل timeserie ، لدى الأمم المختلفة تنسيقات مختلفة للوقت والتاريخ ولا يمكن excel تصفح التاريخ. هو فقط لإيجاد فكرة ساخنة هيك تغيير كل تلك التواريخ الخاطئة. 'datecrush Set rng = Range (Cells (1، 1)، Cells (1، 1) .End (xlDown)) For each b in rng b.Offset (0، 7) .Value = (Left (b.Value، 4 ) - منتصف (b.Value ، 6 ، 2) - تصحيح (b.Value ، 2)) التالي لكل B في rng b.Value = b.Offset (0، 7). القيمة rng.NumberFormat = d.m.yyyy الثاني هو في الحقيقة حالة من الفوضى. سيكون هذا الرمز لسحق المعلومات التي تم تصديرها بتنسيق * .csv ومن ثم تغييرها إلى timeserie مقروء مع إغلاق وتواريخ فقط. تم اختبارها على معلومات يومية الاتحاد الأوروبي Oanda من MT4. هناك خطأ طفيف في التواريخ ، والذي يمكن إصلاحه الآن - بالرمز no1. نعتقد أن جميع صادرات MT4 يجب أن تكون هي نفسها. datecrushMT4Daily () 'أوراق إعادة المهزوم و Last Appliion.DisplayAlerts = أوراق عمل False (Data_crushed) .Delete Worksheets.Add.Name = أوراق عمل Data_crushed (Data_crushed) .Move بعد: = أوراق عمل (إحصائيات) أوراق العمل (Data_final) .Delete Worksheets.Add .Name = Data_final Workshe (Data_final) .Move After: = Workshe (Menu) Appliion.DisplayAlerts = Authentic Appliion.ScreenUpdating = False 'Crush Date - MT4 Daily Worksheets (Data) .Activate Range (Cells (1، 1)، Cells ( 1 ، 7) .End (xlDown)) نسخ أوراق العمل (Data_crushed). تنشيط ActiveSheet.Paste ”أعمدة منفصلة أعمدة (A: A). حدد التحديد. TextToColumns الوجهة: = نطاق (A1) ، DataType: = xlDelimited ، _ TextQualifier : = xlDoubleQuote، ConsecutiveDelimiter: = False، Tab: = True، _ Semicolon: = False، Comma: = True، Space: = False، Other: = False، FieldInfo _: = Array (Array (1، 4)، Array ( 2، 4)، Array (3، 1)، Array (4، 1)، Array (5، 1)، Array (6، 1)، Array (7، 1))، DecimalSeparator: =. ، TrailingMinusNumbers: = Actual Range (G14). حدد ”الأعمدة المرئية (B). حذف أعمدة (g) .ClearContents Rows (1: 1) .إدراج Shift: = xlDown ، CopyOrigin: = xlFormatFromLeftOrAbove Range (A1) .FormulaR1C1 = Date نطاق (b1). .FormulaR1C1 = فتح نطاق (c1). .FormulaR1C1 = نطاق مرتفع (d1). .FormulaR1C1 = نطاق منخفض (e1) .FormulaR1C1 = إغلاق نطاق (f1) .FormulaR1C1 = مستوى الصوت 'الانتقال إلى إغلاق نطاق السجل (A: A E: E) .Copy Workshe (Data_final) .Activate Sheets (Data_final). حدد ActiveSheet.Paste End Sub