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")