Page 1 of 1
ผมผิดตรงไหน ทำไม debug ตลอดเลย
Posted: Sat Dec 13, 2014 5:52 am
by 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 ตลอดเลย ช่วยดูให้ทีครับ
Re: ผมผิดตรงไหน ทำไม debug ตลอดเลย
Posted: Sat Dec 13, 2014 7:16 am
by snasui
แนบไฟล์ตัวอย่างมาด้วยจะได้ช่วยดูให้ได้ครับ
Re: ผมผิดตรงไหน ทำไม debug ตลอดเลย
Posted: Sat Dec 13, 2014 1:42 pm
by nutpochan
ไฟล์นี้นะครับ
Re: ผมผิดตรงไหน ทำไม debug ตลอดเลย
Posted: Sat Dec 13, 2014 1:44 pm
by snasui
ไม่พบว่ามี Code ในไฟล์ที่แนบมา ให้แนบ Code มาพร้อมไฟล์ด้วยครับ
Re: ผมผิดตรงไหน ทำไม debug ตลอดเลย
Posted: Sat Dec 13, 2014 2:49 pm
by nutpochan
โทษทีครับ รีบไปหน่อยเลยลืมเช็ค
Re: ผมผิดตรงไหน ทำไม debug ตลอดเลย
Posted: Sat Dec 13, 2014 3:13 pm
by snasui
ปรับ Code เป็นตามด้านล่างครับ
Code: Select all
ActiveCell.Value = "=IF(MID(A1,1,6)=""HDRINF"", MID(A1,7,15),IF(MID(A1,1,6)=""LINDTL"",""""))"
Re: ผมผิดตรงไหน ทำไม debug ตลอดเลย
Posted: Sat Dec 13, 2014 3:21 pm
by nutpochan
ถามเป็นความรู้ ตรงที่ข้อความเราต้องใส่ "" สองอันค้อมใช่ไหมครับ
Re: ผมผิดตรงไหน ทำไม debug ตลอดเลย
Posted: Sat Dec 13, 2014 3:35 pm
by snasui
ถูกต้องครับ