ผมผิดตรงไหน ทำไม debug ตลอดเลย

[nutpochan]

Code: Select all

Range("e1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
mytotalrange = "f1:" & ActiveCell.Address(False, False)
Range("f1").Select
ActiveCell.Value = "=IF(MID(A1,1,6)=HDRINF, MID(A1,7,15),IF(MID(A1,1,6)=LINDTL,""))"
Selection.AutoFill Destination:=Range(mytotalrange), Type:=xlFillDefault
Range(mytotalrange).Select
Selection.NumberFormat = "#,##0"

ในสูตร

Code: Select all

 ActiveCell.Value = "=IF(MID(A1,1,6)=HDRINF, MID(A1,7,15),IF(MID(A1,1,6)=LINDTL,""))"

เป็นแถบสีเหลืองขึ้น debug ตลอดเลย ช่วยดูให้ทีครับ

[snasui]

แนบไฟล์ตัวอย่างมาด้วยจะได้ช่วยดูให้ได้ครับ

[nutpochan]

ไฟล์นี้นะครับ

[snasui]

ไม่พบว่ามี Code ในไฟล์ที่แนบมา ให้แนบ Code มาพร้อมไฟล์ด้วยครับ

[nutpochan]

โทษทีครับ รีบไปหน่อยเลยลืมเช็ค

[snasui]

ปรับ Code เป็นตามด้านล่างครับ

Code: Select all

ActiveCell.Value = "=IF(MID(A1,1,6)=""HDRINF"", MID(A1,7,15),IF(MID(A1,1,6)=""LINDTL"",""""))"

[nutpochan]

ถามเป็นความรู้ ตรงที่ข้อความเราต้องใส่ "" สองอันค้อมใช่ไหมครับ

[snasui]

ถูกต้องครับ