Gộp nhiều command vào 1 form trong vbs (1 người xem)

[giatthang]

Các bro cho mình hỏi chút.
Mình có file excel, muốn chỉnh các kích vỡ column và set Page setup khi trước khi in.
Mình search được các lệnh như dưới.
Mình muốn gộp 2 lệnh trong 1 module thì làm thế nào các bạn nhỉ? Nhờ các bạn giúp với

'Chỉnh kích cỡ column'
Sub sbChangeColumnWidthMulti()
Columns("A:A").ColumnWidth = 5,43
Columns("B:B").ColumnWidth = 16,29
Columns("C:C").ColumnWidth = 18,71
Columns("C:C").ColumnWidth = 13,29
Columns("E:AI").ColumnWidth = 4
Columns("AJ:BC").ColumnWidth = 4
End Sub
'Chỉnh pagesetup'
PageSetup.TopMargin = 2,5
PageSetup.HeaderMargin = 1,3
PageSetup.RightMargin = 1,9
PageSetup.LeftMargin = 2,3
PageSetup.BottomMargin = 2,5
PageSetup.FooterMargin = 1,3
PageSetup.Zoom = 54%
PageSetup.LeftMargin = 2,3
PageSetup.PaperSize = xlPaperA3
PageSetup.Orientation = xlLandscape

 

[befaint]

vbs

https://vi.wikipedia.org/wiki/VBScript

 

[ndu96081631]

Các bro cho mình hỏi chút.
Mình có file excel, muốn chỉnh các kích vỡ column và set Page setup khi trước khi in.
Mình search được các lệnh như dưới.
Mình muốn gộp 2 lệnh trong 1 module thì làm thế nào các bạn nhỉ? Nhờ các bạn giúp với

'Chỉnh kích cỡ column'
Sub sbChangeColumnWidthMulti()
Columns("A:A").ColumnWidth = 5,43
Columns("B:B").ColumnWidth = 16,29
Columns("C:C").ColumnWidth = 18,71
Columns("C:C").ColumnWidth = 13,29
Columns("E:AI").ColumnWidth = 4
Columns("AJ:BC").ColumnWidth = 4
End Sub
'Chỉnh pagesetup'
PageSetup.TopMargin = 2,5
PageSetup.HeaderMargin = 1,3
PageSetup.RightMargin = 1,9
PageSetup.LeftMargin = 2,3
PageSetup.BottomMargin = 2,5
PageSetup.FooterMargin = 1,3
PageSetup.Zoom = 54%
PageSetup.LeftMargin = 2,3
PageSetup.PaperSize = xlPaperA3
PageSetup.Orientation = xlLandscape

Muốn gộp thì bạn cứ việc copy lệnh bên dưới, dán vào dòng dưới cùng của lệnh phía trên là được mà!
Hoặc tạo 1 Sub khác gọi 2 sub kia

 

[giatthang]

Muốn gộp thì bạn cứ việc copy lệnh bên dưới, dán vào dòng dưới cùng của lệnh phía trên là được mà!
Hoặc tạo 1 Sub khác gọi 2 sub kia

Bạn có thể nói rõ hơn được không, vì mình ko phải dân coder nên không rõ lắm.

Sub sbChangeColumnWidthMulti()
Columns("A:A").ColumnWidth = 5,43
Columns("B:B").ColumnWidth = 16,29
Columns("C:C").ColumnWidth = 18,71
Columns("C:C").ColumnWidth = 13,29
Columns("E:AI").ColumnWidth = 4
Columns("AJ:BC").ColumnWidth = 4
End Sub
'Chỉnh pagesetup'
PageSetup.TopMargin = 2,5
PageSetup.HeaderMargin = 1,3
PageSetup.RightMargin = 1,9
PageSetup.LeftMargin = 2,3
PageSetup.BottomMargin = 2,5
PageSetup.FooterMargin = 1,3
PageSetup.Zoom = 54%
PageSetup.LeftMargin = 2,3
PageSetup.PaperSize = xlPaperA3
PageSetup.Orientation = xlLandscape

 

[huuthang_bd]

Muốn gộp thì bạn cứ việc copy lệnh bên dưới, dán vào dòng dưới cùng của lệnh phía trên là được mà!
Hoặc tạo 1 Sub khác gọi 2 sub kia

Một số trường hợp dùng cách thứ 1 không ổn đâu anh. Như biến trùng tên, bẫy lỗi, Exit, ...

 

[giatthang]

Một số trường hợp dùng cách thứ 1 không ổn đâu anh. Như biến trùng tên, bẫy lỗi, Exit, ...

Có bác nào giúp em với

 

[ndu96081631]

Có bác nào giúp em với

Gộp vầy nè.. đại ca:

Sub sbChangeColumnWidthMulti()
  Columns("A:A").ColumnWidth = 5.43
  Columns("B:B").ColumnWidth = 16.29
  Columns("C:C").ColumnWidth = 18.71
  Columns("C:C").ColumnWidth = 13.29
  Columns("E:AI").ColumnWidth = 4
  Columns("AJ:BC").ColumnWidth = 4

  With ActiveSheet
    .PageSetup.TopMargin = 2.5
    .PageSetup.HeaderMargin = 1.3
    .PageSetup.RightMargin = 1.9
    .PageSetup.LeftMargin = 2.3
    .PageSetup.BottomMargin = 2.5
    .PageSetup.FooterMargin = 1.3
    .PageSetup.Zoom = 54
    .PageSetup.LeftMargin = 2.3
    .PageSetup.PaperSize = xlPaperA3
    .PageSetup.Orientation = xlLandscape
  End With
End Sub

 

[giatthang]

Gộp vầy nè.. đại ca:

Sub sbChangeColumnWidthMulti()
  Columns("A:A").ColumnWidth = 5.43
  Columns("B:B").ColumnWidth = 16.29
  Columns("C:C").ColumnWidth = 18.71
  Columns("C:C").ColumnWidth = 13.29
  Columns("E:AI").ColumnWidth = 4
  Columns("AJ:BC").ColumnWidth = 4

  With ActiveSheet
    .PageSetup.TopMargin = 2.5
    .PageSetup.HeaderMargin = 1.3
    .PageSetup.RightMargin = 1.9
    .PageSetup.LeftMargin = 2.3
    .PageSetup.BottomMargin = 2.5
    .PageSetup.FooterMargin = 1.3
    .PageSetup.Zoom = 54
    .PageSetup.LeftMargin = 2.3
    .PageSetup.PaperSize = xlPaperA3
    .PageSetup.Orientation = xlLandscape
  End With
End Sub

Mình hỏi thêm một trường hợp câu hỏi nữa.

Mình có 2 command
Command 1:
Sub sbChangeRowHeightMulti()
'Changing the 3rd-25the row Height
Rows("3:25").RowHeight = 25
End Sub
Command 2:
Sub sbChangeColumnWidth()
Columns("B").ColumnWidth = 25
End Sub

Muốn gộp 2 command đó vào làm 1 thì làm thế nào bạn nhỉ? Trường hợp bạn làm ở trên mình google cũng ra command tương tự như bạn, tuy nhiên với cả collumn và row mình chưa biết lam.

 

[giatthang]

Mình hỏi thêm một trường hợp câu hỏi nữa.

Mình có 2 command
Command 1:
Sub sbChangeRowHeightMulti()
'Changing the 3rd-25the row Height
Rows("3:25").RowHeight = 25
End Sub
Command 2:
Sub sbChangeColumnWidth()
Columns("B").ColumnWidth = 25
End Sub

Muốn gộp 2 command đó vào làm 1 thì làm thế nào bạn nhỉ? Trường hợp bạn làm ở trên mình google cũng ra command tương tự như bạn, tuy nhiên với cả collumn và row mình chưa biết lam.

Thử gom chạy ngon, Thank you all

Sub sbChangeRowHeightMulti()
'Changing the 3rd-25the row Height
Rows("3:25").RowHeight = 25
Columns("B").ColumnWidth = 25
End Sub