Tự động kẻ khung cho ô dữ liệu trong excel bằng code VBA

Tạo một module có nội dung:

Sub ConditionalFormattingExample()
    'Khai bao vung dinh dang co dieu kien
    Dim MyRange As Range
    Set MyRange = Range("A1:B10")
    'Xoa dinh dang co dieu kien hien co
    MyRange.FormatConditions.Delete
 
    'Ap dung dinh dang co dieu kien
    MyRange.FormatConditions.Add Type:=xlExpression, Formula1:="=COUNTA(A1)>0"
    MyRange.FormatConditions(MyRange.FormatConditions.Count).SetFirstPriority
    With MyRange.FormatConditions(1).Borders()
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

Thay A1:B10 bằng vùng muốn tự động kẻ khung cho ô có dữ liệu.

Các thủ thuật In ấn trong Excel

Hướng dẫn in ấn trong excel đầy đủ và chi tiết nhất với các thủ thuật và mẹo in ấn hàng đầu bạn cần biết. Nội dung bài học:

1. Tạo Nút Print Preview And Print 

2. Chọn Máy In 

3. In 1 Sheet, 1 File Hoặc 1 Vùng Được Chọn 

4. In 1 Số Trang Nhất Định 

5. Chọn Chiều Ngang Hoặc Dọc Khi In 

6. Hiển Thị Lề Trang In (Show Margins) 

7. Thay Đổi Kích Thước Từ Inches Về Centimet 

8. Thay Đổi Lề Trang In 

9. Tự Căn Chỉnh Vào 1 Trang In 

10. In Giữa Trang Giấy 

11. Tạo Header Và Footer Khi In 

12. Page Break Preview 

13. Bỏ Line Page Break 

14. In Grid Line 

15. Cố Định Tiêu Đề Trang In 

16. Tạo Vùng In Ấn 

17. Chèn Ngắt Trang 

18. Bỏ Vùng In Ấn

Hướng dẫn in 2 mặt không cần đảo giấy

Thêm nút Minimize vào userform - VBA excel

Bạn có một UserForm và bạn muốn cho phép người dùng có thể thu nhỏ như họ có thể làm với hầu hết các ứng dụng.
Cách làm như sau:
- Mở trình soạn thảo VBA của excel.
- Tạo một module bằng cách vào insert > Module
- paste đoạn code dưới đây vào module mới tạo.

Private Declare Function FindWindowA Lib "USER32" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLongA Lib "USER32" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "USER32" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Option Explicit

Sub FormatUserForm(UserFormCaption As String)

Dim hWnd As Long
Dim exLong As Long

    hWnd = FindWindowA(vbNullString, UserFormCaption)
    exLong = GetWindowLongA(hWnd, -16)
    If (exLong And &H20000) = 0 Then
        SetWindowLongA hWnd, -16, exLong Or &H20000
        Else
    End If
End Sub

- Trong userform đặt đoạn code sau vào:

Private Sub UserForm_Initialize()
    Call FormatUserForm(Me.Caption)
end sub

Chúc thành công!

Cách tạo file ghost và ghost trực tiếp từ ổ cứng

Hướng dẫn cách ghost win máy tính từ ổ cứng hdd không cần đĩa, không cần usb đầy đủ chi tiết.
Thực hành ghost trực tiếp từ ổ cứng hdd không cần đĩa, không cần usb….rất tiện lợi và nhanh chóng với 3 công cụ rất hay là:
1. USB-hdd-boot
2. Norton Ghost 11.5.1 On HDD
3. Easy BCD