Excel Forum

ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/

บันทึกข้อมูล

http://snasui.com/viewtopic.php?t=12469

Page 1 of 3

บันทึกข้อมูล

Posted: Thu Nov 09, 2017 8:17 pm
by Benmore
ขอสอบถามหน่อยค่ะ พอดีตอนนี้ติดปัญหาในการบันทึกข้อมูลค่ะ
เมื่อบันทึกข้อมูลลงไป ข้อมูลจะถูกบันทึกลงในชีท excel แทนที่กันไปเรื่อยๆไม่บันทึกลงมาเรื่อยๆค่ะ ต้องแก้ตรงไหนค่ะ

Code: Select all

'Save
Private Sub btsave_Click()
On Error Resume Next
Dim emptyRow As Integer
Dim strTb1 As Variant
Dim strTb3 As Variant
emptyRow = WorksheetFunction.Count("A3:A10000") + 1
If emptyRow = 0 Then
    emptyRow = 2
Else
   emptyRow = emptyRow + 2
   Sheet9.Activate
   strTb1 = Split(TextBox1.Text, vbCrLf)
strTb3 = TextBox3.Text & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = Split(strTb3, vbCrLf)
Cells(emptyRow, 1).Value = VBA.Mid(strTb1(0), InStr(strTb1(0), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 2).Value = VBA.Mid(strTb1(1), InStr(strTb1(1), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 3).Value = VBA.Mid(strTb1(2), InStr(strTb1(2), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 4).Value = VBA.Mid(strTb1(3), InStr(strTb1(3), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 6).Value = strTb3(0) & "," & strTb3(1) & "," & strTb3(2) & vbCrLf & strTb3(3) & "," & strTb3(4) & "," & strTb3(5) 'TextBox3.Value
Cells(emptyRow, 7).Value = VBA.Mid(strTb3(6), InStr(strTb3(6), ":") + 1) & vbCrLf & VBA.Mid(strTb3(7), InStr(strTb3(7), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 5).Value = comday.Value & "/" & commonth.Value & "/" & comyear.Value
   MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว"
     Unload Me
     Sheet1.Activate
End If
End Sub

Re: บันทึกข้อมูล

Posted: Fri Nov 10, 2017 6:47 am
by snasui
:D ช่วยกลับไปแจ้งผลในกระทู้เหล่านี้ก่อนครับ search.php?keywords=&terms=all&author=B ... mit=Search

Re: บันทึกข้อมูล

Posted: Sun Nov 12, 2017 9:56 am
by Benmore
Benmore wrote:ขอสอบถามหน่อยค่ะ พอดีตอนนี้ติดปัญหาในการบันทึกข้อมูลค่ะ
เมื่อบันทึกข้อมูลลงไป ข้อมูลจะถูกบันทึกลงในชีท excel แทนที่กันไปเรื่อยๆไม่บันทึกลงมาเรื่อยๆค่ะ ต้องแก้ตรงไหนค่ะ

Code: Select all

'Save
Private Sub btsave_Click()
On Error Resume Next
Dim emptyRow As Integer
Dim strTb1 As Variant
Dim strTb3 As Variant
emptyRow = WorksheetFunction.Count("A3:A10000") + 1
If emptyRow = 0 Then
    emptyRow = 2
Else
   emptyRow = emptyRow + 2
   Sheet9.Activate
   strTb1 = Split(TextBox1.Text, vbCrLf)
strTb3 = TextBox3.Text & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = Split(strTb3, vbCrLf)
Cells(emptyRow, 1).Value = VBA.Mid(strTb1(0), InStr(strTb1(0), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 2).Value = VBA.Mid(strTb1(1), InStr(strTb1(1), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 3).Value = VBA.Mid(strTb1(2), InStr(strTb1(2), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 4).Value = VBA.Mid(strTb1(3), InStr(strTb1(3), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 6).Value = strTb3(0) & "," & strTb3(1) & "," & strTb3(2) & vbCrLf & strTb3(3) & "," & strTb3(4) & "," & strTb3(5) 'TextBox3.Value
Cells(emptyRow, 7).Value = VBA.Mid(strTb3(6), InStr(strTb3(6), ":") + 1) & vbCrLf & VBA.Mid(strTb3(7), InStr(strTb3(7), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 5).Value = comday.Value & "/" & commonth.Value & "/" & comyear.Value
   MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว"
     Unload Me
     Sheet1.Activate
End If
End Sub
รบกวนขอผู้รู้ช่วยหน่อยค่ะ

Re: บันทึกข้อมูล

Posted: Sun Nov 12, 2017 3:53 pm
by snasui
:D ตัวอย่างการปรับ Code ครับ emptyRow = WorksheetFunction.CountA(Sheet9.Range("A3:A10000")) + 1

Re: บันทึกข้อมูล

Posted: Mon Nov 13, 2017 9:03 am
by Benmore
snasui wrote::D ตัวอย่างการปรับ Code ครับ emptyRow = WorksheetFunction.CountA(Sheet9.Range("A3:A10000")) + 1
ตรงบันทึกทำได้แล้วขอบคุณมากค่ะ (ติดตรงนี้มานานมากกกกกกก55555)
ขอสอบถามเพิ่มเติ่มค่ะ
ถ้าต้องการให้เลือกข้อมูลในวงกลมแล้วไม่ให้ข้อมูลแสดงใน textbox3 แต่เมื่อบันทึกข้อมูลลงไปให้ข้อมูลถูกบันทึกในชีทตามที่กำหนดต้องแก้โค้ดเพิ่มตรงไหนบ้างค่ะ
รูป.png

Re: บันทึกข้อมูล

Posted: Mon Nov 13, 2017 7:53 pm
by snasui
:D ได้กลับไปแจ้งผลตามที่ผมแจ้งไปในความเห็น #2 แล้วหรือไม่ ผมพบว่ามีการแจ้งแค่ไม่กี่กระทู้จากกระทู้ทั้งหมด

กรณีติดขัดตรงไหน อย่างไร หรือรอทดสอบ หรือเปลี่ยนวิธีการ หรือด้วยเหตุอื่น กรุณาแจ้งเอาไว้ด้วยจะได้ทราบว่ากำลังดำเนินการครับ

Re: บันทึกข้อมูล

Posted: Tue Nov 14, 2017 12:41 pm
by Benmore
Benmore wrote:
snasui wrote::D ตัวอย่างการปรับ Code ครับ emptyRow = WorksheetFunction.CountA(Sheet9.Range("A3:A10000")) + 1
ตรงบันทึกทำได้แล้วขอบคุณมากค่ะ (ติดตรงนี้มานานมากกกกกกก55555)
ขอสอบถามเพิ่มเติ่มค่ะ
ถ้าต้องการให้เลือกข้อมูลในวงกลมแล้วไม่ให้ข้อมูลแสดงใน textbox3 แต่เมื่อบันทึกข้อมูลลงไปให้ข้อมูลถูกบันทึกในชีทตามที่กำหนดต้องแก้โค้ดเพิ่มตรงไหนบ้างค่ะ
รูป.png
รบกวนขอผู้รู้ช่วยหน่อยค่ะ

Re: บันทึกข้อมูล

Posted: Tue Nov 14, 2017 8:32 pm
by kio2002
กระทู้ของคุณ benmore เยอะมากครับ ผมตามไม่ทันเลย
Project ของคุณ benmore ที่กำลังทำอยู่ ถือว่าค่อนข้างซับซ้อนครับ ต้องมีพื้นฐานและความเข้าใจและชำนาญเกี่ยวกับ VBA เป็นอย่างมาก
ก่อนหน้านี้ ผมมี Project ยากๆที่ผมเคยลองดันตัวเองแล้ว1ครั้ง แต่ไปไม่รอด เพราะยังมีความเข้าใจเกี่ยวกับ VBA น้อย

Re: บันทึกข้อมูล

Posted: Tue Nov 14, 2017 10:10 pm
by Benmore
kio2002 wrote:กระทู้ของคุณ benmore เยอะมากครับ ผมตามไม่ทันเลย
Project ของคุณ benmore ที่กำลังทำอยู่ ถือว่าค่อนข้างซับซ้อนครับ ต้องมีพื้นฐานและความเข้าใจและชำนาญเกี่ยวกับ VBA เป็นอย่างมาก
ก่อนหน้านี้ ผมมี Project ยากๆที่ผมเคยลองดันตัวเองแล้ว1ครั้ง แต่ไปไม่รอด เพราะยังมีความเข้าใจเกี่ยวกับ VBA น้อย
พอดีว่ากระทู้อื่นทำได้หมดแล้วค่ะ เลยรายงานผลให้ผู้ที่ตอบให้ค่ะว่าทำได้แล้วค่ะ

Re: บันทึกข้อมูล

Posted: Wed Nov 15, 2017 6:37 am
by snasui
Benmore wrote:
snasui wrote::D ตัวอย่างการปรับ Code ครับ emptyRow = WorksheetFunction.CountA(Sheet9.Range("A3:A10000")) + 1
ตรงบันทึกทำได้แล้วขอบคุณมากค่ะ (ติดตรงนี้มานานมากกกกกกก55555)
ขอสอบถามเพิ่มเติ่มค่ะ
ถ้าต้องการให้เลือกข้อมูลในวงกลมแล้วไม่ให้ข้อมูลแสดงใน textbox3 แต่เมื่อบันทึกข้อมูลลงไปให้ข้อมูลถูกบันทึกในชีทตามที่กำหนดต้องแก้โค้ดเพิ่มตรงไหนบ้างค่ะ
รูป.png
:D ขั้นตอนการเลือกแล้วไม่เพิ่มใน Textbox3 ไม่ควรจะเป็นปัญหาเพราะไปยกเลิก Change Event เมื่อเลือกไม่ให้ดำเนินการใด ๆ ได้ ปัญหาน่าจะอยู่ที่การบันทักข้อมูลลงในชีตแล้วให้ข้อมูลใน Control เหล่าสนั้นนำไปวางด้วย ได้เขียนการทำงานส่วนนี้เพิ่มเข้าไปแล้วหรือไม่ ติดขัดบรรทัดใด หากยังไม่เขียน กุณาเขียนมาเองก่อน ถามเฉพาะที่ติดปัญหา แจ้งตัวอย่างผลลัพธ์ที่ต้องการเอาไว้ด้วยว่าหากบันทึกถูกต้องจะแสดงรายการที่ชีตใด เซลล์ใด ด้วยค่าเท่าใด จะได้สะดวกในการทดสอบครับ

Re: บันทึกข้อมูล

Posted: Wed Nov 15, 2017 4:21 pm
by Benmore

Code: Select all

'Save
Private Sub btsave_Click()
On Error Resume Next
 If TextBox1 = "" Or TextBox3 = "" Then
                MsgBox "กรุณากรอกข้อมูลให้ครบถ้วน"
        Exit Sub
    End If
Dim emptyRow As Integer
Dim strTb1 As Variant
Dim strTb3 As Variant
emptyRow = WorksheetFunction.CountA(Sheet9.Range("A3:A10000")) + 1
'emptyRow = WorksheetFunction.Count("A3:A10000") + 1
If emptyRow = 0 Then
    emptyRow = 2
Else
   emptyRow = emptyRow + 2
   Sheet9.Activate
   strTb1 = Split(TextBox1.Text, vbCrLf)
strTb3 = TextBox3.Text & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = Split(strTb3, vbCrLf)
Cells(emptyRow, 1).Value = VBA.Mid(strTb1(0), InStr(strTb1(0), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 2).Value = VBA.Mid(strTb1(1), InStr(strTb1(1), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 3).Value = VBA.Mid(strTb1(2), InStr(strTb1(2), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 4).Value = VBA.Mid(strTb1(3), InStr(strTb1(3), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 6).Value = strTb3(0) & "," & strTb3(1) & "," & strTb3(2) & vbCrLf & strTb3(3) & "," & strTb3(4) & "," & strTb3(5) 'TextBox3.Value
Cells(emptyRow, 7).Value = OptionButton
'Cells(emptyRow, 7).Value = VBA.Mid(strTb3(6), InStr(strTb3(6), ":") + 1) & vbCrLf & VBA.Mid(strTb3(7), InStr(strTb3(7), ":") + 1) 'TextBox1.Value
 'Cells(emptyRow, 8).Value = VBA.Mid(strTb3(8), InStr(strTb3(8), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 5).Value = comday.Value & "/" & commonth.Value & "/" & comyear.Value
   MsgBox "บันทึกข้อมูลเรียบร้อย"
     Unload Me
   UserForm1.Show
End If
Sheet1.Activate
End Sub
ลองแก้โค้ดเองแล้วค่ะก็ยังทำไม่ได้ค่ะ รบกวนสอบถามว่าต้องแก้ไขตรงไหนเพิ่มค่ะ
Uniform_EGAS(Ex).xlsm

Re: บันทึกข้อมูล

Posted: Thu Nov 16, 2017 5:40 am
by snasui
:D ตัวอย่างการ Loop Option Button ทีมีการเลือกแล้ววางลงในชีตครับ

Code: Select all

'Other code
dim ct as object
'Other code
For Each ct In Me.Frame2.Controls
    If VBA.Left(ct.Name, 3) = "Opt" And ct.Value = True Then
        Debug.Print ct.Name
        Cells(emptyRow, 7).Value = ct.Caption
        Exit For
    End If
Next ct
ปรับให้ใช้ได้กับ Option Button ตัวสุดท้ายที่เป็นตัวเลือกอื่น ๆ ที่ไม่ได้นำ Caption ของ Option Button มาใช้แต่เป็นการตำค่าใน TextBox ที่ผู้ใช้งานคีย์เข้าไปเองมาใช้แทนครับ

Re: บันทึกข้อมูล

Posted: Thu Nov 16, 2017 8:54 am
by Benmore
snasui wrote::D ตัวอย่างการ Loop Option Button ทีมีการเลือกแล้ววางลงในชีตครับ

Code: Select all

'Other code
dim ct as object
'Other code
For Each ct In Me.Frame2.Controls
    If VBA.Left(ct.Name, 3) = "Opt" And ct.Value = True Then
        Debug.Print ct.Name
        Cells(emptyRow, 7).Value = ct.Caption
        Exit For
    End If
Next ct
ปรับให้ใช้ได้กับ Option Button ตัวสุดท้ายที่เป็นตัวเลือกอื่น ๆ ที่ไม่ได้นำ Caption ของ Option Button มาใช้แต่เป็นการตำค่าใน TextBox ที่ผู้ใช้งานคีย์เข้าไปเองมาใช้แทนครับ

Code: Select all

[/'Save
Private Sub btsave_Click()
On Error Resume Next
 If TextBox1 = "" Or TextBox3 = "" Then
                MsgBox "กรุณากรอกข้อมูลให้ครบถ้วน"
        Exit Sub
    End If
Dim emptyRow As Integer
Dim ct As Object
Dim strTb1 As Variant
Dim strTb3 As Variant

For Each ct In Me.Frame2.Controls
    If VBA.Left(ct.Name, 3) = "Opt" And ct.Value = True Then
        Debug.Print ct.Name
        Cells(emptyRow, 7).Value = ct.Caption
        Exit For
    End If
Next ct
For Each ct In Me.Frame5.Controls
    If VBA.Left(ct.Name, 4) = "Opt" And ct.Value = True Then
        Debug.Print ct.Name
        Cells(emptyRow, 8).Value = ct.Caption
        Exit For
    End If
Next ct
emptyRow = WorksheetFunction.CountA(Sheet9.Range("A3:A10000")) + 1
'emptyRow = WorksheetFunction.Count("A3:A10000") + 1
If emptyRow = 0 Then
    emptyRow = 2
Else
   emptyRow = emptyRow + 2
   Sheet9.Activate
   strTb1 = Split(TextBox1.Text, vbCrLf)
strTb3 = TextBox3.Text & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = Split(strTb3, vbCrLf)
Cells(emptyRow, 1).Value = VBA.Mid(strTb1(0), InStr(strTb1(0), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 2).Value = VBA.Mid(strTb1(1), InStr(strTb1(1), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 3).Value = VBA.Mid(strTb1(2), InStr(strTb1(2), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 4).Value = VBA.Mid(strTb1(3), InStr(strTb1(3), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 6).Value = strTb3(0) & "," & strTb3(1) & "," & strTb3(2) & vbCrLf & strTb3(3) & "," & strTb3(4) & "," & strTb3(5) 'TextBox3.Value
'Cells(emptyRow, 7).Value = OptionButton
'Cells(emptyRow, 7).Value = VBA.Mid(strTb3(6), InStr(strTb3(6), ":") + 1) & vbCrLf & VBA.Mid(strTb3(7), InStr(strTb3(7), ":") + 1) 'TextBox1.Value
 'Cells(emptyRow, 8).Value = VBA.Mid(strTb3(8), InStr(strTb3(8), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 5).Value = comday.Value & "/" & commonth.Value & "/" & comyear.Value
   MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว"
     Unload Me
   UserForm1.Show
End If
Sheet1.Activate
End Sub{code]
ปรับโค้ดแล้วก็ยังไม่ได้ค้ะ ต้องปรับตรงไหนเพิ่มค่ะ

Re: บันทึกข้อมูล

Posted: Thu Nov 16, 2017 9:03 am
by snasui
:D โพสต์ Code ให้แสดงเป็น Code แนบไฟล์เฉพาะที่เกี่ยวข้องกับปัญหานี้มาด้วย ไม่จำเป็นต้องแนบส่วนที่ไม่เกี่ยวข้อง แจ้งตัวอย่างข้อมูลทดสอบ ระบุคำตอบปลายทางที่ต้องการ จะได้สะดวกต้องการเข้าถึงปัญหาครับ

Re: บันทึกข้อมูล

Posted: Thu Nov 16, 2017 9:53 am
by Benmore

Code: Select all

'Save
Private Sub btsave_Click()
On Error Resume Next
 If TextBox1 = "" Or TextBox3 = "" Then
 MsgBox "กรุณากรอกข้อมูลให้ครบถ้วน"
Exit Sub
 End If
Dim emptyRow As Integer
Dim ct As Object
Dim strTb1 As Variant
Dim strTb3 As Variant

For Each ct In Me.Frame2.Controls
 If VBA.Left(ct.Name, 3) = "Opt" And ct.Value = True Then
 Debug.Print ct.Name
 Cells(emptyRow, 7).Value = ct.Caption
 Exit For
 End If
Next ct
For Each ct In Me.Frame5.Controls
 If VBA.Left(ct.Name, 4) = "Opt" And ct.Value = True Then
 Debug.Print ct.Name
 Cells(emptyRow, 8).Value = ct.Caption
 Exit For
 End If
Next ct
emptyRow = WorksheetFunction.CountA(Sheet9.Range("A3:A10000")) + 1
'emptyRow = WorksheetFunction.Count("A3:A10000") + 1
If emptyRow = 0 Then
 emptyRow = 2
Else
 emptyRow = emptyRow + 2
 Sheet9.Activate
 strTb1 = Split(TextBox1.Text, vbCrLf)
strTb3 = TextBox3.Text & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = Split(strTb3, vbCrLf)
Cells(emptyRow, 1).Value = VBA.Mid(strTb1(0), InStr(strTb1(0), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 2).Value = VBA.Mid(strTb1(1), InStr(strTb1(1), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 3).Value = VBA.Mid(strTb1(2), InStr(strTb1(2), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 4).Value = VBA.Mid(strTb1(3), InStr(strTb1(3), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 6).Value = strTb3(0) & "," & strTb3(1) & "," & strTb3(2) & vbCrLf & strTb3(3) & "," & strTb3(4) & "," & strTb3(5) 'TextBox3.Value
'Cells(emptyRow, 7).Value = OptionButton
Cells(emptyRow, 5).Value = comday.Value & "/" & commonth.Value & "/" & comyear.Value
 MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว"
Unload Me
 UserForm1.Show
End If
Sheet1.Activate
End Sub
ตัวอย่างโค้ดค่ะ

Re: บันทึกข้อมูล

Posted: Thu Nov 16, 2017 10:04 am
by snasui
:D กรุณาอ่านที่ผมโพสต์และแจ้งมาตามนั้นให้ครบถ้วนทุกข้อความที่ผมเขียนแจ้งไป โดยเขียนมาในช่องความเห็นนี้ด้วยครับ

Re: บันทึกข้อมูล

Posted: Thu Nov 16, 2017 10:16 am
by Benmore
snasui wrote::D กรุณาอ่านที่ผมโพสต์และแจ้งมาตามนั้นให้ครบถ้วนทุกข้อความที่ผมเขียนแจ้งไป โดยเขียนมาในช่องความเห็นนี้ด้วยครับ
:arrow: ให้เลือกข้อมูลใน option button แล้วข้อมูลที่เราเลือกก็จะถูกบันทึกลงในชีทการเบิกในคอลลัมตามที่เราต้องการค่ะ

Re: บันทึกข้อมูล

Posted: Thu Nov 16, 2017 10:56 am
by snasui
:D อ่านโพสต์ #14 ซ้ำอีกรอบแล้วตอบมาให้ครบตามที่ผมแจ้งไปครับ

Re: บันทึกข้อมูล

Posted: Thu Nov 16, 2017 11:14 am
by Benmore
snasui wrote::D กรุณาอ่านที่ผมโพสต์และแจ้งมาตามนั้นให้ครบถ้วนทุกข้อความที่ผมเขียนแจ้งไป โดยเขียนมาในช่องความเห็นนี้ด้วยครับ

Code: Select all

Private Sub btsave_Click()
On Error Resume Next
 If TextBox1 = "" Or TextBox3 = "" Then
 MsgBox "กรุณากรอกข้อมูลให้ครบถ้วน"
Exit Sub
 End If
Dim emptyRow As Integer
Dim ct As Object
Dim strTb1 As Variant
Dim strTb3 As Variant

For Each ct In Me.Frame2.Controls
 If VBA.Left(ct.Name, 3) = "Opt" And ct.Value = True Then
 Debug.Print ct.Name
 Cells(emptyRow, 7).Value = ct.Caption
 Exit For
 End If
Next ct
For Each ct In Me.Frame5.Controls
 If VBA.Left(ct.Name, 4) = "Opt" And ct.Value = True Then
 Debug.Print ct.Name
 Cells(emptyRow, 8).Value = ct.Caption
 Exit For
 End If
Next ct
emptyRow = WorksheetFunction.CountA(Sheet9.Range("A3:A10000")) + 1
'emptyRow = WorksheetFunction.Count("A3:A10000") + 1
If emptyRow = 0 Then
 emptyRow = 2
Else
 emptyRow = emptyRow + 2
 Sheet9.Activate
 strTb1 = Split(TextBox1.Text, vbCrLf)
strTb3 = TextBox3.Text & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = Split(strTb3, vbCrLf)
Cells(emptyRow, 1).Value = VBA.Mid(strTb1(0), InStr(strTb1(0), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 2).Value = VBA.Mid(strTb1(1), InStr(strTb1(1), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 3).Value = VBA.Mid(strTb1(2), InStr(strTb1(2), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 4).Value = VBA.Mid(strTb1(3), InStr(strTb1(3), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 6).Value = strTb3(0) & "," & strTb3(1) & "," & strTb3(2) & vbCrLf & strTb3(3) & "," & strTb3(4) & "," & strTb3(5) 'TextBox3.Value
'Cells(emptyRow, 7).Value = OptionButton
Cells(emptyRow, 5).Value = comday.Value & "/" & commonth.Value & "/" & comyear.Value
 MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว"
Unload Me
 UserForm1.Show
End If
Sheet1.Activate
End Sub
:arrow: เมื่อเลือกข้อมูลใน option button ในส่วนของ Reason แล้วพอกดปุ่มบันทึกให้ข้อมูลถูกบันทึกลงในคอลลัมน์ Reason ในชีทการเบิกค่ะ
:arrow: เมื่อเลือกข้อมูลใน option button ในส่วนของ Status แล้วพอกดปุ่มบันทึกให้ข้อมูลถูกบันทึกลงในคอลลัมน์ Status ในชีทการเบิกค่ะ
:ard:
ปัญหาที่แจ้งอยู่ที่ UserForm1 ค่ะ
:aru:

Re: บันทึกข้อมูล

Posted: Thu Nov 16, 2017 11:20 am
by snasui
:D ไฟล์ที่แนบมายังไม่มีการปรับ Code ที่ผมตอบไปด้านบน ปรับมาก่อนแล้วแนบมาใหม่ครับ
All times are UTC+07:00
Page 1 of 3

Powered by phpBB® Forum Software © phpBB Limited