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

Benmore · #1

ขอสอบถามหน่อยค่ะ พอดีตอนนี้ติดปัญหาในการบันทึกข้อมูลค่ะ
เมื่อบันทึกข้อมูลลงไป ข้อมูลจะถูกบันทึกลงในชีท 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

snasui · #2

ช่วยกลับไปแจ้งผลในกระทู้เหล่านี้ก่อนครับ search.php?keywords=&terms=all&author=B ... mit=Search

Benmore · #3

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

รบกวนขอผู้รู้ช่วยหน่อยค่ะ

snasui · #4

ตัวอย่างการปรับ Code ครับ emptyRow = WorksheetFunction.CountA(Sheet9.Range("A3:A10000")) + 1

Benmore · #5

snasui wrote: ตัวอย่างการปรับ Code ครับ emptyRow = WorksheetFunction.CountA(Sheet9.Range("A3:A10000")) + 1

ตรงบันทึกทำได้แล้วขอบคุณมากค่ะ (ติดตรงนี้มานานมากกกกกกก55555)
ขอสอบถามเพิ่มเติ่มค่ะ
ถ้าต้องการให้เลือกข้อมูลในวงกลมแล้วไม่ให้ข้อมูลแสดงใน textbox3 แต่เมื่อบันทึกข้อมูลลงไปให้ข้อมูลถูกบันทึกในชีทตามที่กำหนดต้องแก้โค้ดเพิ่มตรงไหนบ้างค่ะ

รูป.png

snasui · #6

ได้กลับไปแจ้งผลตามที่ผมแจ้งไปในความเห็น #2 แล้วหรือไม่ ผมพบว่ามีการแจ้งแค่ไม่กี่กระทู้จากกระทู้ทั้งหมด

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

Benmore · #7

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

รบกวนขอผู้รู้ช่วยหน่อยค่ะ

kio2002 · #8

กระทู้ของคุณ benmore เยอะมากครับ ผมตามไม่ทันเลย
Project ของคุณ benmore ที่กำลังทำอยู่ ถือว่าค่อนข้างซับซ้อนครับ ต้องมีพื้นฐานและความเข้าใจและชำนาญเกี่ยวกับ VBA เป็นอย่างมาก
ก่อนหน้านี้ ผมมี Project ยากๆที่ผมเคยลองดันตัวเองแล้ว1ครั้ง แต่ไปไม่รอด เพราะยังมีความเข้าใจเกี่ยวกับ VBA น้อย

Benmore · #9

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

พอดีว่ากระทู้อื่นทำได้หมดแล้วค่ะ เลยรายงานผลให้ผู้ที่ตอบให้ค่ะว่าทำได้แล้วค่ะ

snasui · #10

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

ขั้นตอนการเลือกแล้วไม่เพิ่มใน Textbox3 ไม่ควรจะเป็นปัญหาเพราะไปยกเลิก Change Event เมื่อเลือกไม่ให้ดำเนินการใด ๆ ได้ ปัญหาน่าจะอยู่ที่การบันทักข้อมูลลงในชีตแล้วให้ข้อมูลใน Control เหล่าสนั้นนำไปวางด้วย ได้เขียนการทำงานส่วนนี้เพิ่มเข้าไปแล้วหรือไม่ ติดขัดบรรทัดใด หากยังไม่เขียน กุณาเขียนมาเองก่อน ถามเฉพาะที่ติดปัญหา แจ้งตัวอย่างผลลัพธ์ที่ต้องการเอาไว้ด้วยว่าหากบันทึกถูกต้องจะแสดงรายการที่ชีตใด เซลล์ใด ด้วยค่าเท่าใด จะได้สะดวกในการทดสอบครับ

Benmore · #11

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

snasui · #12

ตัวอย่างการ 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 ที่ผู้ใช้งานคีย์เข้าไปเองมาใช้แทนครับ

Benmore · #13

snasui wrote: ตัวอย่างการ 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]
ปรับโค้ดแล้วก็ยังไม่ได้ค้ะ ต้องปรับตรงไหนเพิ่มค่ะ

snasui · #14

โพสต์ Code ให้แสดงเป็น Code แนบไฟล์เฉพาะที่เกี่ยวข้องกับปัญหานี้มาด้วย ไม่จำเป็นต้องแนบส่วนที่ไม่เกี่ยวข้อง แจ้งตัวอย่างข้อมูลทดสอบ ระบุคำตอบปลายทางที่ต้องการ จะได้สะดวกต้องการเข้าถึงปัญหาครับ

Benmore · #15

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

ตัวอย่างโค้ดค่ะ

snasui · #16

กรุณาอ่านที่ผมโพสต์และแจ้งมาตามนั้นให้ครบถ้วนทุกข้อความที่ผมเขียนแจ้งไป โดยเขียนมาในช่องความเห็นนี้ด้วยครับ

Benmore · #17

snasui wrote: กรุณาอ่านที่ผมโพสต์และแจ้งมาตามนั้นให้ครบถ้วนทุกข้อความที่ผมเขียนแจ้งไป โดยเขียนมาในช่องความเห็นนี้ด้วยครับ

ให้เลือกข้อมูลใน option button แล้วข้อมูลที่เราเลือกก็จะถูกบันทึกลงในชีทการเบิกในคอลลัมตามที่เราต้องการค่ะ

snasui · #18

อ่านโพสต์ #14 ซ้ำอีกรอบแล้วตอบมาให้ครบตามที่ผมแจ้งไปครับ

Benmore · #19

snasui wrote: กรุณาอ่านที่ผมโพสต์และแจ้งมาตามนั้นให้ครบถ้วนทุกข้อความที่ผมเขียนแจ้งไป โดยเขียนมาในช่องความเห็นนี้ด้วยครับ

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

เมื่อเลือกข้อมูลใน option button ในส่วนของ Reason แล้วพอกดปุ่มบันทึกให้ข้อมูลถูกบันทึกลงในคอลลัมน์ Reason ในชีทการเบิกค่ะ

เมื่อเลือกข้อมูลใน option button ในส่วนของ Status แล้วพอกดปุ่มบันทึกให้ข้อมูลถูกบันทึกลงในคอลลัมน์ Status ในชีทการเบิกค่ะ

ปัญหาที่แจ้งอยู่ที่ UserForm1 ค่ะ

snasui · #20

ไฟล์ที่แนบมายังไม่มีการปรับ Code ที่ผมตอบไปด้านบน ปรับมาก่อนแล้วแนบมาใหม่ครับ

Snasui Excel Forum

File Anatomy Add-in: แก้ปัญหาไฟล์ Excel ช้า แฮงก์ และไม่เสถียร อย่างมืออาชีพ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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