- สิงหาคม 30, 2018
- โพสโดย: ทีมงาน Forex Wiki
- หมวดหมู่: ระบบการซื้อขายฟอเร็กซ์
ยินดีต้อนรับ,
ฉันอุทิศหัวข้อนี้เพื่อวิวัฒนาการของแผ่นงาน Excel ของเรา.
ฉันอยากให้ที่นี่เป็นสวรรค์แห่งการวิเคราะห์ และพร้อมที่จะอยู่ที่นี่ตามลำพังพร้อมกับวิวัฒนาการเล็กๆ น้อยๆ ของฉัน. คุณสามารถดูได้บ่อยๆ, as I'm going to be posting my VBA scripts hoping some skilled will present up and right me. Throughout my buying and selling profession, I've many occasions wanted to investigate some timeserie, and typically needed to have a look at it from some unusual perspective. Sadly am IT analphabet. So I've discovered to code VBA fundamentals, coded it like a pig, however in some way it labored and I obtained what I wanted.
For some purpose, I imagine a few of you have been, or are, in the identical scenario and I imagine if we share our VBA codes and excel combos, we are able to make fairly good stuff.
I'm even be utilizing this discussion board as a retailer for codes, so they're at one place. I encourage you to assist me with evolution of these. In the event you obtained any concept the way it could possibly be improved please say so.
ข้อจำกัดความรับผิดชอบ: These are actually foolish codes. In the event you plan to make use of them, be sure to perceive what they do and save your information first, earlier than operating macro. All codes have been written in VBA Excel 2010.
Gotta add one thread rule:
Please attempt to stick it to Excel and VBA analysis. Additionally AC/DC welcome.
So first little code I would like to save lots of. I ve made this coz typically once I obtain timeserie, completely different international locations have completely different time and date codecs and excel cant learn the date. It's simply to get concept scorching the heck change all these incorrect dates.
'datecrush
Set rng = Vary(Cells(1, 1), Cells(1, 1).Finish(xlDown))
For Every b In rng
b.Offset(0, 7).Worth = (ซ้าย(b.Worth, 4) & "-" & Mid(b.Worth, 6, 2) & "-" & Proper(b.Worth, 2))
ภายหลัง
For Every b In rng
b.Worth = b.Offset(0, 7).คุณค่า
ภายหลัง
rng.NumberFormat = "d.m.yyyy"
Second one is mostly a mess. This code is to crush information exported in *.csv format and change it to readable timeserie with solely closes and dates. Has been examined on every day EU Oanda information from MT4. There's a minor bug with dates, which am fixing now - utilizing code no1. Suppose all MT4 exports must be the identical.
Sub datecrushMT4Daily()
'restart sheets crushed and closing
Software.DisplayAlerts = False
Worksheets("Data_crushed").ลบ
Worksheets.Add.Identify = "Data_crushed"
Worksheets("Data_crushed").Transfer After:=Worksheets("ข้อมูล")
Worksheets("Data_final").ลบ
Worksheets.Add.Identify = "Data_final"
Worksheets("Data_final").Transfer After:=Worksheets("Menu")
Software.DisplayAlerts = True
Software.ScreenUpdating = False
'Date crush - MT4 Each day
Worksheets("ข้อมูล").เปิดใช้งาน
ต่างกันไป(Cells(1, 1), Cells(1, 7).Finish(xlDown)).Copy
Worksheets("Data_crushed").เปิดใช้งาน
ActiveSheet.Paste
'Columns separate
Columns("ก:ก").เลือก
Choice.TextToColumns Vacation spot:=Vary("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, House:=False, Different:=False, FieldInfo _
:=Array(อาร์เรย์(1, 4), อาร์เรย์(2, 4), อาร์เรย์(3, 1), อาร์เรย์(4, 1), อาร์เรย์(5, 1), อาร์เรย์(6, 1), _
อาร์เรย์(7, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True
ต่างกันไป("G14").เลือก
'visible
Columns("ข").ลบ
Columns("ช").ClearContents
Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ต่างกันไป("A1").FormulaR1C1 = "วันที่"
ต่างกันไป("b1").FormulaR1C1 = "เปิด"
ต่างกันไป("c1").FormulaR1C1 = "Excessive"
ต่างกันไป("d1").FormulaR1C1 = "ต่ำ"
ต่างกันไป("e1").FormulaR1C1 = "ปิด"
ต่างกันไป("f1").FormulaR1C1 = "ปริมาณ"
'transfer to closing record
ต่างกันไป("ก:ก,อี:อี").Copy
Worksheets("Data_final").เปิดใช้งาน
Sheets("Data_final").เลือก
ActiveSheet.Paste
Finish Sub
however you possibly can adapt it if you want. In the event you discover some bug please report. Numbers are ofc pretend, aside from these entries.
