Snasui Excel Forum

1. ที่ชีn Order เซลล์ G3 คีย์สูตร
   =TEXT(IF(OrderDetail!C3="",1,LOOKUP(CHAR(255),OrderDetail!C:C)+1),"000")
   Enter
2. ปรับ Code เป็นด้านล่าง

   Code: Select all

   Sub SaveData()
       Dim a As Range
       Dim b As Range
       Dim c As Range
       Dim d As Range
       Dim e As Range
       Dim f As Range
       Dim g As Range
       Dim dc As Range
       Dim vat As Range
       Dim i As Integer
       Dim r As Range
       
       Dim tg1 As Range
       Dim tg2 As Range
       Dim tg3 As Range
       Dim tg4 As Range
       Dim tg5 As Range
       Dim tg6 As Range
       Dim tg7 As Range
       
       Set a = Worksheets("Order").Range("g2")
       Set b = Worksheets("Order").Range("g3")
       Set c = Worksheets("Order").Range("c4")
       Set d = Worksheets("Order").Range("d4")
       Set e = Worksheets("Order").Range("c5")
       i = Application.Count(Worksheets("Order").Range("b7:b12"))
       Set f = Worksheets("Order").Range("d7:g12").Resize(i)
       Set dc = Worksheets("Order").Range("f14")
       Set vat = Worksheets("Order").Range("f15")
       
       Set tg1 = Worksheets("OrderDetail").Range("b" & Rows.Count) _
           .End(xlUp).Offset(1, 0).Resize(i, 1)
       Set tg2 = tg1.Offset(0, 1)
       Set tg3 = tg1.Offset(0, 2)
       Set tg4 = tg1.Offset(0, 3)
       Set tg5 = tg1.Offset(0, 4)
       Set tg6 = tg1.Offset(0, 5)
       Set tg7 = tg1.Offset(0, 9)
       
       a.Copy
       tg1.PasteSpecial xlPasteValues
       b.Copy
       tg2.PasteSpecial xlPasteValues
       c.Copy
       tg3.PasteSpecial xlPasteValues
       d.Copy
       tg4.PasteSpecial xlPasteValues
       e.Copy
       tg5.PasteSpecial xlPasteValues
       f.Copy
       tg6.PasteSpecial xlPasteValues
       
       For Each r In tg7
           r = r.Offset(0, -1) * dc.Value / 100
           r.Offset(0, 1) = r.Offset(0, -1) * vat.Value / 100
       Next r
       
       c = Clear
       Application.CutCopyMode = False
       
   End Sub
   

1. คลิกขวาลงในเซลล์ > Format Cells > แถบ Number เลือก General > OK
2. คีย์สูตรตามที่แนะนำ

nattanan wrote:1.อยากให้ เคอร์เซอร์ อยู่ตำแหน่งเริ่มต้นที่ C4

Range("C4").Select

nattanan wrote:2.ถ้าเรากด enter หรือ tab ให้เคอร์เซอร์ ย้ายจาก C4 ไป C7 ไป E7 ไป C8 และ E8 จนถึง F15 (ตามช่องสีแดง) คือให้เคอร์เซอร์อยู่เฉพาะที่ต้องกรอกข้อมูล
ต้องใช้ VBA อย่างไรครับ

1. เลือกเซลล์ทั้งหมดที่ต้องการให้ Cursor สามารถวางลงในเซลล์ได้
2. คลิกขวา > Format Cells > แถบ Protection ปลดเครื่องหมายที่ Locked > OK
3. คลิกขวาที่แถบชีท > Protect sheet > ทำเครืองหมายเฉพาะ Select unlocked cells > OK