Chào bạn có 1 số yêu cầu thứ tự số 4+6+7+12 trong bài tập chương 2

Chào bạn có 1 số yêu cầu thứ tự số 4+6+7+12 trong bài tập chương 2_record

Chào bạn, có 1 số yêu cầu thứ tự số 4+6+7+12 trong bài tập chương 2_record macro trong bài giảng mình không thấy có hướng dẫn nên cũng không hiểu cách làm như thế nào mong bạn hướng dẫn, mình gửi code ghi cho các yêu cầu còn lại bạn check giúp mình xem đã đúng theo yêu cầu của đề bài chưa nhé, vì có những yêu cầu ghi macro trong bài giảng không có mình tự làm thui ạ. cảm ơn bạn nhiều,Sub Macro1()

' Macro1 Macro

''ke khung cho 1 vung o''

Range("A1:I14").Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

End Sub

Sub Macro2()

' Macro2 Macro

''thao tac chinh do rong dong, cot''

Columns("A:I").Select

Selection.Columns.AutoFit

Rows("1:14").Select

Sheets("Sheet3").Select

Selection.Rows.AutoFit

End Sub

Sub Macro3()

' Macro3 Macro

'' dinh dang 1 dong voi cell style la total"

Range("A14:I14").Select

Selection.Style = "Total"

End Sub

Sub Macro5()

' Macro5 Macro

'' thao tac loc auto filter'

ActiveWindow.SmallScroll Down:=-27

Range("A1:I14").Select

Selection.AutoFilter

End Sub

Sub Macro8()

' Macro8 Macro

''xoa du lieu trung"

Range("A1:A14").Select

ActiveSheet.Range("$A$1:$A$14").RemoveDuplicates Columns:=1, Header:=xlNo

End Sub

Sub Macro10()

' Macro10 Macro

''thiet lap vung in"

Range("A1:I14").Select

ActiveWindow.View = xlPageBreakPreview

End Sub

Sub Macro11()

' Macro11 Macro

''khóa sheet"

ActiveWindow.SmallScroll Down:=-3

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Range("F13").Select

End Sub

Sub mosheet()

' mosheet Macro

ActiveSheet.Unprotect

End Sub

4 câu trả lời

108 lượt xem

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Chào bạn có 1 số yêu cầu thứ tự số 4+6+7+12 trong bài tập chương 2_record

Câu hỏi liên quan