3 المرفق (الاقتباس)أيها الشريك ، أتقدم ببطء مع البرنامج. لقد استخدمت الرمز من JR أدناه لتحميل .csv المصدرة من Metatrader إلى Excel دون أن تضطر إلى بدء تشغيل csv ، في حين يقوم البرنامج بتقطيعه في وقت واحد إلى أعمدة. سهل جدا.Quote:
Originally Posted by ؛
اليوم مع مجموعة البيانات التي تم تحميلها ، 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 SubQuote:
Originally Posted by ;
https://www.cavemantrading.com/attac...7639309347.jpg
https://www.cavemantrading.com/attac...2047856795.png
https://www.cavemantrading.com/attac...2786351117.png
