Snasui Excel Forum

ขอบคุณครับอาจารย์ เยี่ยมเลยครับ

ข้อสำคัญนะครับ ผมเขียนไม่เป็นครับ แต่เอา VBA dollar text มาแก้เป็น Euro text ครับ
สำหรับ Add-ins Euroconvert ที่กล่าวถึงนั้นมีลักษณะเป็นอย่างไรครับ
คือ อยากให้อ่าน ตัวเลข เช่น 7000.90 EUR เป็นตัวหนังสือภาษาอังกฤษว่า Seventy Thousand and ninety only
แบบนี้ได้ไหมครับ

เรียน คนควนครับ

ไม่ทราบว่าเราพอจะเขียนadd in Euroconvert ได้ไหมครับ หรือว่าอาจาย์พอจะมี Add in ให้ไหม่ครับ

คือผมเข้าใจว่า excel มีแถวแค่ แถว IV ครับ ถ้าใช้งานเต็มแล้วจะแทรกได้อีกเหรอครับ

ขอบคุณครับ ขอถามอีกข้อนะครับ

ถ้าหากว่าผมแทร แทวจนเต็มถึง แถว IV แล้วแต่ยังจำเป็นต้องใช้ Sheet นี่อยู่ต้องทำไงครับ

Selection.AutoFill Destination:=Range("B4:B700")
Range("B4:B700").Select

บรรทัดนี่อะครับ ผมสามารถแก้ให้มันเป็นแทรกทั้ง Columns ได้ไหมครับ
คือว่าผมไม่ได้เขียนอะครับ ใช้วิธีให้มันจดจำเอา ทำแบบง่ายๆนะครับ ทำเป็นเรื่องเป็นราวไม่เป็น ไม่ทราบว่ารับสอนใหม่ครับ แฮะๆ

ขอบคุณมากพี่หลวง เดียวผมวาง code ให้ รบกวนแก้ให้สมบูรณ์ทีครับ
Sub price()

Worksheets("PRICE ").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = _
"=IF(R2C-1='RATE '!R1C1,VLOOKUP(RC1,'RATE '!R4C1:R4000C6,6,0))"
Selection.AutoFill Destination:=Range("B4:B700")
Range("B4:B700").Select
Columns("B:B ...

เรียน คนควน

รบกวนแก้ไข vba ให้สมบูรณ์หน่อยครับ ผมใช้มันแล้วไม่สามารถแทกรแถวได้ครับ ฟ้อง error ตลอด
error ที่ฟ้องคือ To prevent possible loss of data, Excel cannot shift nonblank cell off of the worksheet. Select another location in which to insert new cells, or deletedate. If you do not have data ...