Snasui Excel Forum

Posted: **Tue Aug 06, 2019 8:57 pm**

บันทึก Marcoแล้ว ทำการ Breaklink data แต่ระบบ marco ไม่ Breaklink ให้ตามที่บันทึกต้องปรับ code vba อย่างไรคะ

Sub Gen_data()

' Gen_data Macro

    Sheets("Sum").Select
    Sheets("Sum").Copy

    ActiveWorkbook.SaveAs Filename:="D:\Gen_save.xlsx", FileFormat:= _      xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.BreakLink Name:="D:\Test2.xlsm", Type:=xlExcelLinks
    Range("M5").Select
    Application.Left = 320.5
    Application.Top = 118
    Windows("Test2.xlsm").Activate

End Sub

Posted: **Tue Aug 06, 2019 9:21 pm**

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Gen_data()
'
' Gen_data Macro
'

'
    Sheets("Sum").Select
    Sheets("Sum").Copy
    ActiveWorkbook.ActiveSheet.UsedRange.Value = ActiveWorkbook.ActiveSheet.UsedRange.Value
    ActiveWorkbook.SaveAs Filename:="D:\Gen_save.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
'    ActiveWorkbook.BreakLink Name:="D:\Test2.xlsm", Type:=xlExcelLinks
    Range("M5").Select
    ActiveWindow.Application.WindowState = xlNormal
    ActiveWindow.Application.Left = 320.5
    ActiveWindow.Application.Top = 118
    Windows("Test2.xlsm").Activate
End Sub

Posted: **Wed Aug 07, 2019 8:28 am**

ได้แล้วค่ะอาจารย์ แต่สงสัยว่าทำไมเวลา record marco ไม่ได้ตามที่ต้องการ ต้องมาปรับแก้เองด้วยล่ะค่ะ

Posted: **Wed Aug 07, 2019 4:04 pm**

อยากให้เอาเฉพาะ Breaklink ที่ sheet sum ออก แต่เอาสูตรยังคงไว้อยู่ ยกตัวอย่างเช่น สูตร sum ที่ cell B17: I17 และ B23:I23 สูตรควรจะยังอยู่ด้วยค่ะ

Posted: **Wed Aug 07, 2019 4:28 pm**

ปรับตามนี้ดูครับ

Code: Select all

Sub Gen_data2()
'
' Gen_data Macro
'

'
    Sheets("Sum").Select
    Sheets("Sum").Copy
    ActiveWorkbook.ActiveSheet.UsedRange.Value = ActiveWorkbook.ActiveSheet.UsedRange.Value
    Range("B17:I17").Select
    Selection.FormulaR1C1 = "=SUM(R[-12]C:R[-1]C)"
        Range("B23:I23").Select
    Selection.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
    ActiveWorkbook.SaveAs Filename:="D:\Gen_save.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
'    ActiveWorkbook.BreakLink Name:="D:\Test2.xlsm", Type:=xlExcelLinks
    Range("M5").Select
    ActiveWindow.Application.WindowState = xlNormal
    ActiveWindow.Application.Left = 320.5
    ActiveWindow.Application.Top = 118
    Windows("Test2.xlsm").Activate
End Sub

Posted: **Wed Aug 07, 2019 5:08 pm**

ค่ะ แต่การทำงานจริง มีสูตรformula เยอะเยอะเลยค่ะ ที่เป็นรายการ sum นั้นเป็นการยกตัวอย่างสมมุติ คือจริงๆ อยากให้เอา breaklink ที่ link เท่านั้น แต่อยากให้เอาแต่สูตรยังคงไว้น่ะค่ะ

Posted: **Wed Aug 07, 2019 8:14 pm**

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Gen_data2()
'
' Gen_data Macro
'

'
    Dim wb As Workbook
    Dim lks As Variant
    Dim i As Integer
    Sheets("Sum").Select
    Sheets("Sum").Copy
    Set wb = ActiveWorkbook
    lks = wb.LinkSources(Type:=xlExcelLinks)
    With wb
        .SaveAs Filename:="D:\Gen_save.xlsx", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False
        For i = LBound(lks) To UBound(lks)
            .BreakLink Name:=lks(i), Type:=xlExcelLinks
        Next i
    End With
    Range("M5").Select
    ActiveWindow.Application.WindowState = xlNormal
    ActiveWindow.Application.Left = 320.5
    ActiveWindow.Application.Top = 118
    Windows("Test2.xlsm").Activate
End Sub

Posted: **Wed Aug 07, 2019 9:19 pm**

ได้แล้วค่ะ ช่วยอธิบาย code ได้ไหมค่ะ แล้วทำไมเวลาเรา record marco แล้ว breaklink ใช้ไม่ได้ ต้องไปปรับแก้เองใน code อีกค่ะ ตอนบันทึก marco ก็ทำได้ แต่พอใช้งานจริงกลับทำไม่ได้แล้ว มีอย่างอย่างยังงงๆกับระบบ vba ค่ะ

Posted: **Wed Aug 07, 2019 9:23 pm**

มันเป็นปกติที่จะเป็นเช่นนั้น สามารถพบได้บ่อยครั้งครับ

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

Posted: **Wed Aug 07, 2019 9:37 pm**

ค่ะ ตรงcode นี้ แปลว่าอะไรคะ

Code: Select all

With wb
        .SaveAs Filename:="D:\Gen_save.xlsx", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False
        For i = LBound(lks) To UBound(lks)
            .BreakLink Name:=lks(i), Type:=xlExcelLinks
        Next i
    End With

และ code นี้

Code: Select all

 ActiveWindow.Application.WindowState = xlNormal

งงกับ code เหล่านี้ค่ะ

Posted: **Wed Aug 07, 2019 9:52 pm**

Code ด้านบนส่วนที่เป็น Save As คงจะเข้าใจได้ ไม่ขออธิบาย ส่วนใน Loop ของ For เป็นการ Loop ไปยัง Link ทีละตัวเพื่อจะ Break ทิ้งครับ

ActiveWindow.Application.WindowState = xlNormal เป็นการย่อหน้าต่าง Excel เสียก่อน ไม่เช่นนั้นอาจจะ Error เมือมีการจัดให้อยู่ ณ ตำแหน่งใด ๆ ครับ

Posted: **Wed Aug 07, 2019 10:08 pm**

ค่ะ ขอบคุณอาจารย์มากค่ะ

Snasui Excel Forum

Breaklink marco แล้วไม่ได้

Breaklink marco แล้วไม่ได้

Re: Breaklink marco แล้วไม่ได้

Re: Breaklink marco แล้วไม่ได้

Re: Breaklink marco แล้วไม่ได้

Re: Breaklink marco แล้วไม่ได้

Re: Breaklink marco แล้วไม่ได้

Re: Breaklink marco แล้วไม่ได้

Re: Breaklink marco แล้วไม่ได้

Re: Breaklink marco แล้วไม่ได้

Re: Breaklink marco แล้วไม่ได้

Re: Breaklink marco แล้วไม่ได้

Re: Breaklink marco แล้วไม่ได้