TRONG EXCEL KHÔNG CÓ SẴN TÍNH NĂNG ĐỐI CHỖ HAI HÀNG MÀ NGƯỜI DÙNG...

29. Trong Excel không có sẵn tính năng đối chỗ hai hàng mà người dùng phải sử

dụng Macro , cách thức tiến hành như sau

• Mở Excel

• Bấm tổ hợp phím Alt-F11 , xuất hiện cửa sổ MS Visual Basic

• Bấm chọn menu Insert , chọn Module và bạn Copy nội dung toàn bộ dưới đây

Mã:

Sub swapRows()

Dim xlong As Long

If Selection.Areas.Count <> 2 Then

MsgBox "Phai co chinh xac hai vung the doi cho." & Chr(10) _

& "Ban co " & Selection.Areas.Count & " vung."

Exit Sub

End If

If Selection.Areas(1).Columns.Count <> Cells.Columns.Count Or _

Selection.Areas(2).Columns.Count <> Cells.Columns.Count Then

MsgBox "Must select entire Rows, insufficient columns"

Dim areaSwap1 As Range, areaSwap2 As Range, onepast2 As Range

If Selection.Areas(1)(1).Row > Selection.Areas(2)(1).Row Then

Range(Selection.Areas(2).Address & "," & Selection.Areas(1).Address).Select

Selection.Areas(2).Activate

Set areaSwap1 = Selection.Areas(1)

Set areaSwap2 = Selection.Areas(2)

Set onepast2 = areaSwap2.Offset(areaSwap2.Rows.Count, 0).EntireRow

areaSwap2.Cut

areaSwap1.Resize(1).EntireRow.Insert Shift:=xlShiftDown

areaSwap1.Cut

onepast2.Resize(1).EntireRow.Insert Shift:=xlShiftDown

Range(areaSwap1.Address & "," & areaSwap2.Address).Select

xlong = ActiveSheet.UsedRange.Columns.Count 'correct lastcell

End Sub

• Quay trở lại Excel và đánh dấu chọn 02 hàng dữ liệu cần chuyển . Chú ý phải

đánh dấu tất cả hàng

• Chạy Macro có tên là swapRows

Làm thế nào từ ngày tháng năm có thể xác định được thứ trong tuần không ?

Từ ngày tháng năm trong Excel để xác định thứ trong tuần bạn sử dụng hàm

WEEKDAY và ngày trong tuần được hiển thị bằng con số . Nếu bạn muốn xác

định theo kiểu từ Thứ hai cho tới Chủ nhật thì bạn làm như sau

Ô A1 là ngày . Ví dụ 04/09/2008

Ô B1 sẽ xác định theo công thức như sau

=CHOOSE(WEEKDAY(A1),"Chủ nhật","Thứ hai","Thứ ba","Thứ tư","Thứ

năm","Thứ sáu","Thứ bảy")