สอบถามโค้ด Excel VBA เขียนโค้ด Userform เพื่อบันทึกข้อมูลลงในตาราง excel

[oh_ae]

อาจารย์ขอสอบถามต่อจากหัวข้อนี้นะครับ
http://www.snasui.com/viewtopic.php?f=3&t=8533
มือใหม่หัดเขียนครับ
อยากถามอาจารย์ว่า การเขียน VBA ใน EXCEL ต้องมีโค้ดเชื่อมต่อไหมครับ แล้วการระบุแถวกับคอลัมระบุยังไงครับ
ผมต้องการบันทึกข้อมูล จาก Form Company ลงใน EXCEL
โค้ดนี้ก๊อปข้าบนมาครับ งงมาก

Code: Select all

Private Sub Cboproject_Change()
Dim Rw As Range
If Me.Cboproject.ListIndex < 0 Then Exit Sub
 With MyRange.Cells(1).Offset(Cboproject.ListIndex)
    txtCompony.Value = .Offset(, 0).Value
    txtAddress.Value = .Offset(, 1).Value
    txtTelephone.Value = .Offset(, 2).Value
    txtEmail.Value = .Offset(, 3).Value
    txtWebsite.Value = .Offset(, 4).Value
    End With
For Each Rw In Range(Cboproject.RowSource)
        If Cboproject.Value = Rw Then
            txtProducer.Value = Rw.Next.Next.Next.Next
         
         End If
         Next Rw
End Sub
Private Sub cmbSave_Click()
 Dim lo As Range
    Set lo = Range(ActiveSheet.ListObjects(cboTables.Value))
     If Me.Cboproject.ListIndex < 0 Then Exit Sub
     With lo.Cells(1).Offset(Cboproject.ListIndex)
     .Offset(, 0).Value = txtCompony
    .Offset(, 1).Value = txtAddress
    .Offset(, 2).Value = txtTelephone
    .Offset(, 3).Value = txtEmail
    .Offset(, 4).Value = txtWebsite
    End With
End Sub

[snasui]

หากเป็นการต่อในเรื่องเดียวกันให้ถามในกระทู้เดิม และจำเป็นต้องปรับ Code เดิมมาเองตามความต้องการใหม่ ติดตรงไหนแล้วถามกันต่อ ไม่ใช่ยกของเดิมที่ยังไม่ได้ปรับมาถามกัน

การระบุแถวคอลัมน์ก็ต้องแจ้งมาว่าต้องการระบุลักษณะใดจึงจะสามารถตอบได้ตรงประเด็นครับ

[oh_ae]

พอจะรู้เรื่อง vb6 มาบางครับ แต่ที่เคยเขียนใช้ vb6 เชื่อมต่อกับ access แต่ก็เขียนมานานแล้วครับ
พอมาเขียน vba เลยงงมากครับ
งงที่ 1 การที่จะบันทึกข้อมูลจาก userform ลงใน excel ต้องมีตัวเชื่อมไหมครับอย่างเช่น code SQL
งานที่ผมอยากเขียน คือต้องการบันทึกข้อมูลจาก textBox หน้าบริษัท ลงใน Excel ให้ตรงคอลัมน์ครับ
งงที่ 2 การจะระบุแถวกับคอลัมถ้าไม่มีตัวเชื่อมต่อจะต้องระบุยังไงครับ

วันนี้นั่งอ่านของเก่าทั่งวันก็ยังไม่รู้เรื่องลองปรับแล้วก็ไม่รู้จะเริ่มยังไง ก็เลยตัดสินใจส่งข้อมูลมาถามอาจารย์นี้แหละครับ

[snasui]

ใน Excel อ้างถึงเซลล์ได้เลย หรือหาตำแหน่งเซลล์ด้วยวิธีการต่าง ๆ

การอ้างถึงเซลล์จะต้องอ้างผ่าน Parent เช่น Sheets(1).Cells(1,4) หมายถึง ชีทลำดับที่ 1 เซลล์บรรทัดที่ 1 คอลัมน์ที่ 4 หรือคือ D1 นั่นเอง

ด้านบนแค่ตัวอย่างหนึ่งเท่านั้น การอ้างถึงเซลล์มีหลายวิธีครับ

[oh_ae]

ขอบคุณมากครับอาจารย์ มีข้อมูลให้ศึกษาไหมครับ

[snasui]

ดูที่นี่เป็นตัวอย่างครับ Refer to range