ไม่สามารถบันทึกข้อมูลที่ทำการคีย์ได้ครับ

[ryuchin]

เขียนสูตรแล้วไม่สามารถบันทึกข้อความลงใน Cell ได้ครับ

Code: Select all

Dim intRows As Integer

Private Sub btnAdd_Click()
        
        
        Cells(intRows, 3).Value = txtCode.Text
        Cells(intRows, 4).Value = txtName.Text
        Cells(intRows, 5).Value = txtGdescription.Text
        Cells(intRows, 6).Value = txtTcargoes.Text
        Cells(intRows, 7).Value = "K." + txtContact1.Text
        Cells(intRows, 8).Value = txtPhone1.Text
        Cells(intRows, 9).Value = "K." + txtContact2.Text
        Cells(intRows, 10).Value = txtPhone2.Text
        Cells(intRows, 11).Value = "K." + txtContact3.Text
        Cells(intRows, 12).Value = txtPhone3.Text
                
        Range(Cells(intRows, 3), Cells(intRows, 4), Cells(intRows, 5), Cells(intRows, 6), Cells(intRows, 7), Cells(intRows, 8), Cells(intRows, 9), Cells(intRows, 10), Cells(intRows, 11), Cells(intRows, 12)).Font.Name = "Angsana New"
        Range(Cells(intRows, 3), Cells(intRows, 4), Cells(intRows, 5), Cells(intRows, 6), Cells(intRows, 7), Cells(intRows, 8), Cells(intRows, 9), Cells(intRows, 10), Cells(intRows, 11), Cells(intRows, 12)).Font.Size = 12
        Range(Cells(intRows, 3), Cells(intRows, 4), Cells(intRows, 5), Cells(intRows, 6), Cells(intRows, 7), Cells(intRows, 8), Cells(intRows, 9), Cells(intRows, 10), Cells(intRows, 11), Cells(intRows, 12)).Font.Bold = True
        
        Range(Cells(intRows, 3), Cells(intRows, 4), Cells(intRows, 5), Cells(intRows, 6), Cells(intRows, 7), Cells(intRows, 8), Cells(intRows, 9), Cells(intRows, 10), Cells(intRows, 11), Cells(intRows, 12)).Borders.LineStyle = xlContinuous
        Range(Cells(intRows, 3), Cells(intRows, 4), Cells(intRows, 5), Cells(intRows, 6), Cells(intRows, 7), Cells(intRows, 8), Cells(intRows, 9), Cells(intRows, 10), Cells(intRows, 11), Cells(intRows, 12)).Borders.Weight = xlThin
        
        Range(Cells(intRows, 3), Cells(intRows, 4), Cells(intRows, 5), Cells(intRows, 6), Cells(intRows, 7), Cells(intRows, 8), Cells(intRows, 9), Cells(intRows, 10), Cells(intRows, 11), Cells(intRows, 12)).HorizontalAlignment = xlHAlignCenter
        
        LstData.AddItem (txtCode.Text + txtName.Text + txtGdescription.Text + txtTcargoes.Text + "K." + txtContact1 + txtPhone1.Text + "K." + txtContact2 + txtPhone2.Text + "K." + txtContact3 + txtPhone3.Text)
        
        intRows = intRows + 1
        txtCode.Text = ""
        txtName.Text = ""
        txtGdescription.Text = ""
        txtTcargoes.Text = ""
        txtContact1.Text = ""
        txtPhone1.Text = ""
        txtContact2.Text = ""
        txtPhone2.Text = ""
        txtContact3.Text = ""
        txtPhone3.Text = ""
            
End Sub

Private Sub btnClose_Click()
        frmCustomer.Hide
End Sub

Private Sub btnSetsheet_Click()
                
        intRows = 1
        Range("A1:J1").Merge
        Cells(intRows, 1).Value = "ÃÒª×èÍÅÙ¡¤éÒ"
        Cells(intRows, 1).Interior.Color = vbGreen
        
        intRows = intRows + 1
        Cells(intRows, 1).Value = "ÃËÑÊÅÙ¡¤éÒ"
        Cells(intRows, 1).Interior.Color = vbYellow
        Cells(intRows, 2).Value = "ª×èÍÅÙ¡¤éÒ"
        Cells(intRows, 2).Interior.Color = vbYellow
        Cells(intRows, 3).Value = "ÃÒÂÅÐàÍÕ´ÊÔ¹¤éÒ"
        Cells(intRows, 3).Interior.Color = vbYellow
        Cells(intRows, 4).Value = "»ÃÐàÀ·ÊÔ¹¤éÒ"
        Cells(intRows, 4).Interior.Color = vbYellow
        Cells(intRows, 5).Value = "ª×èͼÙéµÔ´µèÍ (1)"
        Cells(intRows, 5).Interior.Color = vbYellow
        Cells(intRows, 6).Value = "àºÍÃìµÔ´µèÍ (1)"
        Cells(intRows, 6).Interior.Color = vbYellow
        Cells(intRows, 7).Value = "ª×èͼÙéµÔ´µèÍ (2)"
        Cells(intRows, 7).Interior.Color = vbYellow
        Cells(intRows, 8).Value = "àºÍÃìµÔ´µèÍ (2)"
        Cells(intRows, 8).Interior.Color = vbYellow
        Cells(intRows, 9).Value = "ª×èͼÙéµÔ´µèÍ (3)"
        Cells(intRows, 9).Interior.Color = vbYellow
        Cells(intRows, 10).Value = "àºÍÃìµÔ´µèÍ (3)"
        Cells(intRows, 10).Interior.Color = vbYellow
        
        Range("A1:J1").Font.Name = "Angsana New"
        Range("A1:J1").Font.Size = 18
        Range("A1:J1").Font.Bold = True
        Range("A2:J2").Font.Name = "Angsana New"
        Range("A2:J2").Font.Size = 14
        Range("A2:J2").Font.Bold = True
        
        Range("A1:J1").Borders.LineStyle = xlContinuous
        Range("A1:J1").Borders.Weight = xlThin
        Range("A2:J2").Borders.LineStyle = xlContinuous
        Range("A2:J2").Borders.Weight = xlThin
        
        Range("A1:J1").HorizontalAlignment = xlHAlignCenter
        Range("A2:J2").HorizontalAlignment = xlHAlignCenter
        
        intRows = intRows + 1
End Sub

Private Sub lblHeader_Click()

End Sub

Private Sub UserForm_Click()

End Sub

[snasui]

ที่เขียนมานี้เรียกว่า Code ไม่ใช่สูตรครับ

ไม่ทราบว่าที่บันทึกไม่ได้นั้นโปรแกรมแจ้งว่าอย่างไรบ้างครับ

ตัวแปร intRows มีค่าเริ่มต้นด้วยค่าใด ดูได้จากไหนครับ

[ryuchin]

แนบไฟล์มาให้ด้วยครับ ลองตัดเหลือ 2 รายการ ข้อมูลบันทึกได้ครับ แต่ถ้าตาม Form ที่แนบไปข้อมูลที่ต้องการบันทึกมี 10 รายการครับ

[ryuchin]

untitled.JPG

ขึ้นข้อความแบบนี้ครับ และข้อมูลที่ต้องการบันทึกให้บันทึกไล่ลงทีละบรรทัดลงไปครับ

[ryuchin]

ตัวแปร intRows ผมใส่ไว้ที่ (General) >>>> (Declarations) ครับ เรื่องตัวแปรผมยังไม่ค่อยเข้าใจเท่าไหร่ครับ เพิ่งลองหัดเขียน Code ใช้งานครับ ลองทำตามดูหนังสือแล้วลองเขียนดูครับ

[snasui]

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

Code: Select all

Private Sub btnAdd_Click()
        
        intRows = Sheets("ข้อมูลลูกค้า").Range("a" & Rows.Count).End(xlUp).Row + 1
        Cells(intRows, 1).Value = txtCode.Text
        Cells(intRows, 2).Value = txtName.Text
        Cells(intRows, 3).Value = txtGdescription.Text
        Cells(intRows, 4).Value = txtTcargoes.Text
        Cells(intRows, 5).Value = "K." + txtContact1.Text
        Cells(intRows, 6).Value = txtPhone1.Text
        Cells(intRows, 7).Value = "K." + txtContact2.Text
        Cells(intRows, 8).Value = txtPhone2.Text
        Cells(intRows, 9).Value = "K." + txtContact3.Text
        Cells(intRows, 10).Value = txtPhone3.Text
        
        With Cells(intRows, 1).Resize(, 10)
            .Font.Name = "Angsana New"
            .Font.Size = 12
            .Font.Bold = True
            .Borders.LineStyle = xlContinuous
            .Borders.Weight = xlThin
            .HorizontalAlignment = xlHAlignCenter
        End With
        
        LstData.AddItem (txtCode.Text + txtName.Text + txtGdescription.Text + txtTcargoes.Text + "K." + txtContact1 + txtPhone1.Text + "K." + txtContact2 + txtPhone2.Text + "K." + txtContact3 + txtPhone3.Text)
        
'        intRows = intRows + 1
        txtCode.Text = ""
        txtName.Text = ""
        txtGdescription.Text = ""
        txtTcargoes.Text = ""
        txtContact1.Text = ""
        txtPhone1.Text = ""
        txtContact2.Text = ""
        txtPhone2.Text = ""
        txtContact3.Text = ""
        txtPhone3.Text = ""
            
End Sub

[ryuchin]

สำเร็จแล้วครับ อ.คนควน ได้ลองปรับ Code ตามที่แนะนำมา และเพิ่มเติมและปรับเปลี่ยนตำแหน่งที่บันทึกลงใน Cell ที่ต้องการ อีกทั้งได้ความรู้เพิ่มเติมในการนำ Code " With " มาใช้ร่วม ทำให้เขียน Code สั้นลง ขอบคุณ อ.คนควน อีกครั้งครับที่ได้คำแนะนำดี ๆ ทำให้เป็นก้าวแรกในการศึกษาและจะนำไปต่อยอดต่อไปครับ