ขอช่วยเรื่องการจัดระบบฐานข้อมูลที่ถูกต้องค่ะ

[suka]

เรียนอาจารย์ค่ะ Code ด้านล่างนี้ Copy ข้อมูลจากไฟล์ PoBookShare มาไว้ที่ไฟล์ AR.Form ชีท Database
ก่อนที่จะ Copy ข้อมูลได้ต้องเปิดไฟล์ต้นทางก่อน เอา Code ให้เปิดไฟล์ใส่ตามนี้ได้ไหมคะ

Code: Select all

Sub CopyDt_Click()
    Workbooks.Open Filename:= _
        "E:\My Project.xls\PS.BookShare\PO\PoBookShare.xlsx"
    ActiveWorkbook.Save
    Windows("PoBookShare.xlsx").Activate
    Cells.Select
    Range("A:AD").Activate
    Selection.Copy
    Windows("AR.Form.xlsm").Activate
    Sheets("Database").Range("A1").Select
    ActiveSheet.Paste
End Sub

[snasui]

ไม่ทราบว่า Code ที่เขียนมานี้ติดปัญหาใดอีกหรือไม่ครับ

[suka]

ลองทดสอบ Code ใหม่อีกรอบแล้วผลใช้ได้แล้วค่ะ

ขออภัยนะคะอาจารย์ รอบแรกทดสอบ Code ติดตรงเปิดไฟล์ไม่ได้ค่ะ

[suka]

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

Sub CopyDt_Click()
Workbooks.Open Filename:= _
"E:\My Project.xls\PS.BookShare\PO\PoBookShare.xlsx"
ActiveWorkbook.Save
Windows("PoBookShare.xlsx").Activate
Cells.Select
Range("A:AD").Activate
Selection.Copy
Windows("AR.Form.xlsm").Activate
Sheets("Database").Range("A1").Select
ActiveSheet.Paste
End Sub

[snasui]

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

Code: Select all

Sub CopyDt_Click()
    Dim wbOpen As Boolean
    Dim wb As Workbook
    For Each wb In Workbooks
        If wb.Name = "PoBookShare.xlsx" Then
            wbOpen = True
        End If
    Next wb
    If Not wbOpen Then
        Workbooks.Open Filename:= _
        "E:\My Project.xls\PS.BookShare\PO\PoBookShare.xlsx"
    End If
    ActiveWorkbook.Save
    Windows("PoBookShare.xlsx").Activate
    Cells.Select
    Range("A:AD").Activate
    Selection.Copy
    Windows("AR.Form.xlsm").Activate
    Sheets("Database").Range("A1").Select
    ActiveSheet.Paste
End Sub

[suka]

ขอบคุณค่ะอาจารย์ ได้ตรงตามต้องการแล้วค่ะ

[suka]

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

Code: Select all

Sub CopyDt_Click()
Dim wbOpen As Boolean
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = "PoBookShare.xlsx" Then
wbOpen = True
End If
Next wb
If Not wbOpen Then
Workbooks.Open Filename:= _
"E:\My Project.xls\PS.BookShare\PO\PoBookShare.xlsx"
End If
ActiveWorkbook.Save
Windows("PoBookShare.xlsx").Activate
Cells.Select
Range("A:AD").Activate
Selection.Copy
Windows("AR.Form.xlsm").Activate
Sheets("Database").Range("A1").Select
ActiveSheet.Paste
End Sub

อาจารย์คะ ขอรบกวนเพิ่ม Code ด้านบนนี้ ให้ไฟล์ PoBookShare เมื่อเปิดพร้อมกับ Minimize
Code ได้จากการบันทึก Macro ตามล่างค่ะ ขอบคุณค่ะ

Code: Select all

Sub Macro6()
'
' Macro6 แมโคร
'

'
    ActiveWindow.WindowState = xlMinimized
    
End Sub

[snasui]

เพิ่มบรรทัดนี้เข้าไปก่อนที่จะ Minimize ครับ

Windows("PoBookShare.xlsx").Activate

[suka]

ขอบคุณค่ะอาจารย์ ใช้ได้ตรงตามต้องการแล้วค่ะ

หากนำไปใช้กับ Workbook ต้องเพิ่มบรรทัดนี้ก่อนด้วยไหมคะ

เพิ่มบรรทัดนี้เข้าไปก่อนที่จะ Minimize ครับ

Windows("PoBookShare.xlsx").Activate

ลองตามตัวอย่างด้านล่างนี้ Minimize ได้ค่ะ แต่เกรงจะมีผลกระทบกับไฟล์งานหรือไม่ค่ะ ขอบคุณค่ะ

Code: Select all

Private Sub Workbook_Open()
    Workbooks.Open Filename:= _
        "\\Server\DATA (E)\My P S  Project.xls\PS.BookShare\AR\ArBookShare.xlsx"
        ActiveWindow.WindowState = xlMinimized
End Sub

[snasui]

การนำไปใช้กับ Workbook ที่ว่านั้น ใช้อย่างไรครับ

การที่ให้เพิ่ม Code นั้นก่อนก็เพื่อที่จะให้มั่นใจว่า Workbook ไหนที่ต้องการย่อก็ให้ Active ขึ้นมาก่อน จะได้ย่อไม่ผิด Workbook

สำหรับการย่อหน้าจอไม่ควรจะทำให้เกิดปัญหาใด ๆ แม้แต่ปัญหาเดียว เว้นแต่เรื่องของการมองเห็นเท่านั้น ซึ่งที่จริงแล้วก็ไม่ควรจะเป็นปัญหาเพราะตั้งใจที่จะย่อเองครับ

[suka]

การที่ให้เพิ่ม Code นั้นก่อนก็เพื่อที่จะให้มั่นใจว่า Workbook ไหนที่ต้องการย่อก็ให้ Active ขึ้นมาก่อน จะได้ย่อไม่ผิด Workbook

เข้าใจแล้วค่ะนำไปใช้กับ Workbook ถึงได้ Error ค่ะ ขอบพระคุณค่ะอาจารย์

[suka]

Code ด้านล่างนี้บันทึกข้อมูลไปที่ Sheet1 ไฟล์ PoBookShare ต้องการเพิ่ม Code ให้บันทึกได้ 2 ที่พร้อมกันโดยบันทึกไปที่ชีท Database ไฟล์ PO.Form ด้วยค่ะ

Code: Select all

Sub PasteData()
Dim wbShare As Workbook
Dim formBook As Workbook
Dim i As Integer
Dim rs As Range
Dim rt As Range
Set formBook = ThisWorkbook
Set wbShare = Workbooks("PoBookShare.xlsx")
    Application.ScreenUpdating = False
    With formBook
    i = Worksheets("Enterthedata").Range("C225")
    End With
    With Worksheets("Template")
        Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
    End With
    Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    If Worksheets("Enterthedata").Range("C225") = True Then
        MsgBox "Please check your data. This transaction already recorded."
        Exit Sub
    End If
    If Worksheets("Enterthedata").Range("B204") = "" Then
        MsgBox "Your data is empty. Fill your data and click record button again."
        Exit Sub
    End If
    rs.Copy: rt.PasteSpecial xlPasteValues

    Application.CutCopyMode = False
    Sheets("Enterthedata").Range("D2,B204:B220,D204:D220,L204:L220,D222, E204:F220").ClearContents
    With Worksheets("Enterthedata")
    If Len(.Range("M2")) = 6 Then
        .Range("M2") = Left(.Range("M2"), 2) & Right(.Range("M2"), 4) + 1
    ElseIf Len(.Range("M2")) = 7 Then
        .Range("M2") = Left(.Range("M2"), 1) & Right(.Range("M2"), 6) + 1
    ElseIf Len(.Range("M2")) = 8 Then
        .Range("M2") = Left(.Range("M2"), 1) & Right(.Range("M2"), 7) + 1
    Else
    .Range("M2") = .Range("M2") + 1
    End If
    End With
    Application.ScreenUpdating = True
    Windows("PO.Form.xlsm").Activate
    ActiveWorkbook.Save
    Windows("PoBookShare.xlsx").Activate
    ActiveWorkbook.Save
    End Sub

พอแทรก Code ด้านล่างนี้เข้าไป กลับบันทึกข้อมูลไปยังที่ชีท Database ไฟล์ PO.Form ได้ที่เดียวเท่านั้นค่ะ

ขอรบกวนช่วยปรับให้บันทีกได้ทั้งชีท Sheet1 ไฟล์ PoBookShare และ ชีท Database ไฟล์ PO.Form พร้อมกันทั้งสองที่ค่ะ
ขอบคุณค่ะ

Code: Select all

Set rt = Worksheets("Database").Range("A1048576").End(xlUp).Offset(1, 0)
    If Worksheets("Enterthedata").Range("C225") = True Then
        MsgBox "Please check your data. This transaction already recorded."
        Exit Sub
    End If

[suka]

เรียนอาจารย์และท่านผู้รู้ช่วย
ช่วยเรื่องการปรับ Code ด้านล่างเพื่อบันทึกข้อมูล 2 ที่ ไปที่ชีท Sheet1 ไฟล์ PoBookShare และ ชีท Database ไฟล์ PO.Form
Code ด้านล่างนีบันทึกได้แค่ชีท Database ไฟล์ PO.Form เท่านั้นไม่สามารถบันทีกข้ามไฟล์ไปที่ชีท Sheet1 ไฟล์ PoBookShare ค่ะ

Code: Select all

Sub PasteData()
Dim wbShare As Workbook
Dim formBook As Workbook
Dim i As Integer
Dim rs As Range
Dim rt As Range
Set formBook = ThisWorkbook
Set wbShare = Workbooks("PoBookShare.xlsx")
    Application.ScreenUpdating = False
    With formBook
    i = Worksheets("Enterthedata").Range("C225")
    End With
    With Worksheets("Template")
        Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
    End With
    Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    If Worksheets("Enterthedata").Range("C225") = True Then
    End If
    With formBook
    i = Worksheets("Enterthedata").Range("C225")
    End With
    With Worksheets("Template")
        Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
    End With
    Set rt = Worksheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    If Worksheets("Enterthedata").Range("C225") = True Then
        MsgBox "Please check your data. This transaction already recorded."
        Exit Sub
    End If
    If Worksheets("Enterthedata").Range("B204") = "" Then
        MsgBox "Your data is empty. Fill your data and click record button again."
        Exit Sub
    End If
    rs.Copy: rt.PasteSpecial xlPasteValues

    Application.CutCopyMode = False
    Sheets("Enterthedata").Range("D2,B204:B220,D204:D220,L204:L220,D222, E204:F220").ClearContents
    With Worksheets("Enterthedata")
    If Len(.Range("M2")) = 6 Then
        .Range("M2") = Left(.Range("M2"), 2) & Right(.Range("M2"), 4) + 1
    ElseIf Len(.Range("M2")) = 7 Then
        .Range("M2") = Left(.Range("M2"), 1) & Right(.Range("M2"), 6) + 1
    ElseIf Len(.Range("M2")) = 8 Then
        .Range("M2") = Left(.Range("M2"), 1) & Right(.Range("M2"), 7) + 1
    Else
    .Range("M2") = .Range("M2") + 1
    End If
    End With
    Application.ScreenUpdating = True
    Windows("PO.Form.xlsm").Activate
    ActiveWorkbook.Save
    Windows("PoBookShare.xlsx").Activate
    ActiveWorkbook.Save
    End Sub

[snasui]

เนื่องจากมีการกำหนดค่าตัวแปรมีการซ้ำกัน จาก Code ด้านล่าง

Code: Select all

    With Worksheets("Template")
        Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
    End With
    Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    If Worksheets("Enterthedata").Range("C225") = True Then
    End If
    With formBook
    i = Worksheets("Enterthedata").Range("C225")
    End With
    With Worksheets("Template")
        Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
    End With
    Set rt = Worksheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

จะเห็นว่าตัวแปร rt ถูกกำหนดให้กับ 2 พื้นที่คือ

Code: Select all

Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

และ

Code: Select all

Set rt = Worksheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

ซึ่งการกำหนดเช่นนี้จะทำให้ตัวแปร rt มีค่าเท่ากับ

Code: Select all

Set rt = Worksheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

เท่านั้น เนื่องจากมีการกำหนดทีหลัง

หากต้องการจะวางหลายที่ก็ต้องกำหนดตัวแปรปลายทางให้ต่างกันครับ

[suka]

อาจารย์คะ Code ด้านล่างนี้ได้กำหนดตัวแปรปลายทางแล้วค่ะ แต่กลับบันทึกไปที่ชีท Sheet1 ไฟล์ PoBookShare ที่เดียวค่ะ ไม่บันทึกไปที่ชีท Database ไฟล์ PO.Form

Code: Select all

Sub PasteData()
Dim wbShare As Workbook
Dim formBook As Workbook
Dim i As Integer
Dim rs As Range
Dim rt As Range
Dim rd As Range
Set formBook = ThisWorkbook
Set wbShare = Workbooks("PoBookShare.xlsx")
    Application.ScreenUpdating = False
    With formBook
    i = Worksheets("Enterthedata").Range("C225")
    End With
    With Worksheets("Template")
        Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
    End With
    Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    If Worksheets("Enterthedata").Range("C225") = True Then
    End If
    With formBook
        i = Worksheets("Enterthedata").Range("C225")
    End With
    With Worksheets("Template")
        Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
    End With
    Set rd = Worksheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    If Worksheets("Enterthedata").Range("C225") = True Then
        MsgBox "Please check your data. This transaction already recorded."
        Exit Sub
    End If
    If Worksheets("Enterthedata").Range("B204") = "" Then
        MsgBox "Your data is empty. Fill your data and click record button again."
        Exit Sub
    End If
    rs.Copy: rt.PasteSpecial xlPasteValues

    Application.CutCopyMode = False
    Sheets("Enterthedata").Range("D2,B204:B220,D204:D220,L204:L220,D222, E204:F220").ClearContents
    With Worksheets("Enterthedata")
    If Len(.Range("M2")) = 6 Then
        .Range("M2") = Left(.Range("M2"), 2) & Right(.Range("M2"), 4) + 1
    ElseIf Len(.Range("M2")) = 7 Then
        .Range("M2") = Left(.Range("M2"), 1) & Right(.Range("M2"), 6) + 1
    ElseIf Len(.Range("M2")) = 8 Then
        .Range("M2") = Left(.Range("M2"), 1) & Right(.Range("M2"), 7) + 1
    Else
    .Range("M2") = .Range("M2") + 1
    End If
    End With
    Application.ScreenUpdating = True
    Windows("PO.Form.xlsm").Activate
    ActiveWorkbook.Save
    Windows("PoBookShare.xlsx").Activate
    ActiveWorkbook.Save
    End Sub

[snasui]

ช่วยชี้ให้เห็นว่า Code บรรทัดใดที่เป็นการกำหนดตัวแปรให้ต่างกัน และบรรทัดใดเป็นการนำข้อมูลไปวางใน Database ของไฟล์ PO.Form

จาก Code

Code: Select all

With formBook
    i = Worksheets("Enterthedata").Range("C225")
End With

ควรเป็น

Code: Select all

With formBook
    i = .Worksheets("Enterthedata").Range("C225")
End With

สังเกตว่ามี . นำหน้า Worksheets ด้วย

[suka]

เรียนอาจารย์ Code ตามนี้ค่ะ

Code: Select all

Sub PasteData()
Dim wbShare As Workbook
Dim formBook As Workbook
Dim i As Integer
Dim rs As Range
Dim rt As Range
Dim rd As Range
Set formBook = ThisWorkbook
Set wbShare = Workbooks("PoBookShare.xlsx")
    Application.ScreenUpdating = False
    With formBook
    i = Worksheets("Enterthedata").Range("C225")
    End With
    With Worksheets("Template")
        Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
    End With
    Set rt = wbShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    If Worksheets("Enterthedata").Range("C225") = True Then
    End If
    With formBook
        i = formBook.Sheets("Enterthedata").Range("C225")
    End With
    With formBook.Sheets("Template")
        Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
    End With
    Set rd = formBook.Sheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    If Worksheets("Enterthedata").Range("C225") = True Then
        MsgBox "Please check your data. This transaction already recorded."
        Exit Sub
    End If
    If Worksheets("Enterthedata").Range("B204") = "" Then
        MsgBox "Your data is empty. Fill your data and click record button again."
        Exit Sub
    End If
    rs.Copy: rt.PasteSpecial xlPasteValues

    Application.CutCopyMode = False
    Sheets("Enterthedata").Range("D2,B204:B220,D204:D220,L204:L220,D222, E204:F220").ClearContents
    With Worksheets("Enterthedata")
    If Len(.Range("M2")) = 6 Then
        .Range("M2") = Left(.Range("M2"), 2) & Right(.Range("M2"), 4) + 1
    ElseIf Len(.Range("M2")) = 7 Then
        .Range("M2") = Left(.Range("M2"), 1) & Right(.Range("M2"), 6) + 1
    ElseIf Len(.Range("M2")) = 8 Then
        .Range("M2") = Left(.Range("M2"), 1) & Right(.Range("M2"), 7) + 1
    Else
    .Range("M2") = .Range("M2") + 1
    End If
    End With
    Application.ScreenUpdating = True
    Windows("PO.Form.xlsm").Activate
    ActiveWorkbook.Save
    Windows("PoBookShare.xlsx").Activate
    ActiveWorkbook.Save
    End Sub

Code ต้องการให้นำข้อมูลไปวางใน Database ของไฟล์ PO.Form

Code: Select all

With formBook
        i = formBook.Sheets("Enterthedata").Range("C225")
    End With
    With formBook.Sheets("Template")
        Set rs = .Range(.Range("A2"), .Range("AC" & i + 1))
    End With
    Set rd = formBook.Sheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    If Worksheets("Enterthedata").Range("C225") = True Then

และต่อด้วย

Code: Select all

End If

ตามนี้ค่ะ ข้อมูลบันทึกไปที่ชีท Sheet1 ไฟล์ PoBookShare ได้ที่เดียวค่ะ ขอบคุณค่ะ

[snasui]

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

การกำหนดค่าให้กับตัวแปรควรจะมีแค่บรรทัดเดียว การนำข้อมูลไปวางในชีท Database ของไฟล์ PO.Form ก็มีแค่บรรทัดเดียวเช่นกันครับ

[suka]

ค่ะอาจารย์ กำหนดค่าให้กับตัวแปรตามนี้ค่ะ

Code: Select all

Dim rd As Range

[suka]

อาจารย์คะ รบกวนแนะการกำหนดค่าให้กับตัวแปรนี้ ควรต้องปรับตรงจุดไหนบ้างคะ

Code: Select all

 Set rd = formBook.Sheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)