Sử dụng Hàm Unique Cho Các Phiên Bản trước Office 2016

Hàm Unique dành cho những phiên bản office thấp như là office 2007, 2010, 2013, 2016

nhấn phím tắt Alt + F11 để gọi chương trình Micosoft Visual Basic Applications.

Vào Insert - Module

Dán code bên dưới vào khung soạn thảo

Function UNIQUES(rng As Range) As Variant()

Dim list As New Collection
Dim Ulist() As Variant
On Error Resume Next
For Each Value In rng
List.Add CStr(Value), CStr(Value)
Next
On Error GoTo 0
ReDim Ulist(list.Count - 1, 0)
For i = 0 To list.Count - 1
Ulist(i, 0) = list(i + 1)
Next
UNIQUES = Ulist
End Function

Quay lại file excel lúc nãy, các bạn gõ vào ô C2  là =UNIQUES

=UNIQUE(array, by_col, occurs_once)

array: Là một vùng, cột hoặc hàng mà bạn cần lọc ra những giá trị duy nhất.

Chú Ý
Nếu các bạn sử dụng phiên bản office từ 2016 trở về trước thì bạn phải bôi chọn các ô mà bạn muốn kết quả hiển thị lên đó trước sau đó mới nhập công thức và kết thúc bằng phím CTRL+SHIFT+ENTER thì công thức mới hoạt động, cụ thể ở ví dụ trên các bạn bôi chọn từ ô C2 đến ô C7 sau đó nhấn F2 và gõ công thức sau đó nhấn CTRL+SHIFT+ENTER để kết thúc, bạn cũng có thể chọn nhiều ô hơn và nếu kết quả trả về là #N/A nghĩa là giá trị duy nhất là những kết quả có ở phía trên, nếu không hiển thị #N/A thì các bạn có thể chọn nhiều ô hơn để khỏi bị sót.

Tự Động Tô Màu Dòng Cột Theo Con Trỏ Chuột

Đầu tiên bạn bôi đen vùng dữ liệu sau đó kích vào Home chọn Conditional Formating -> Chọn New Rule.

Tiếp theo cửa sổ mới hiện ra bạn chọn dòng Use a formula to determine which cells to format trong ô Format bạn nhập =Row()=Cell("Row") -> chọn Format -> cửa sổ mới hiện ra bạn chọn Fill chọn màu -> ok.

Bây giờ màu đã được tô theo một dòng nhưng khi bạn kích vào dòng khác thì nó chưa nhảy theo bạn có thể bấm F9 để nó chuyển đến nhưng tốn nhiều thời gian để làm tự động nhảy theo con trỏ chuột ta tiếp tục.

Kích chuột phải vào phía dưới Sheet -> chọn view code cửa sổ hiện lên bạn copy phần code bên dưới bỏ vào. Như vậy bây giờ bạn kích đến hàng nào thì hàng ấy đã đổi màu.

Code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

Tô màu chọn theo cột

Để tô màu theo cột bạn cũng làm như tô màu theo hàng chỉ cần thay công thức. Đầu tiên bạn cũng vào Home chọn Conditional Formating -> Chọn New Rule. Cửa sổ mới hiện ra bạn chọn dòng Use a formula to determine which cells to format trong ô Format bạn nhập =Column()=Cell("col") -> chọn Format -> cửa sổ mới hiện ra bạn chọn Fill chọn màu -> ok.

Như vậy bây giờ bạn kích tới đau thì cột và dòng được tô màu đến đó.

Tô màu theo ô

Bây giờ mình tô màu ô nữa là hoàn thành Đầu tiên bạn cũng vào Home chọn Conditional Formating -> Chọn New Rule. Cửa sổ mới hiện ra bạn chọn dòng Use a formula to determine which cells to format trong ô Format bạn nhập =and(Row()=Cell("Row"),Column()=Cell("col")) -> chọn Format -> cửa sổ mới hiện ra bạn chọn Fill chọn màu -> ok.

Như vậy bây giờ bạn kích vào ô nào thì màu của ô, hàng và cột để đổi màu rất trực quan cho bạn quản lý.

Xóa Các Ô dữ liệu Trong Excel

Áp Dụng Một Nút Để Xóa Nội Dung Ô Cụ Thể Bằng Mã VBA

SỬ DỤNG DẤU PHÂN CÁCH TRONG WORD

Bước 1: Kiểm tra định dạng dấu chấm, dấu phẩy trong Control Panel > Region > Additional settings…

Code

Sub PrintAllSheetsToPDF()
'SUBROUTINE: PrintAllSheetsToPDF
'DEVELOPER: Ryan Wells
'DESCRIPTION: Combine all your worksheets into one PDF
Dim strSheets() As String
Dim strfile As String
Dim sh As Worksheet
Dim icount As Integer
Dim myfile As Variant
'Save Chart Sheet names to an Array
For Each sh In ActiveWorkbook.Worksheets
If sh.Visible = xlSheetVisible Then
ReDim Preserve strSheets(icount)
strSheets(icount) = sh.Name
icount = icount + 1
End If
Next sh
If icount = 0 Then 'No charts found. Punch error
MsgBox "A PDF cannot be created because no sheets were found.", , "No Sheets Found"
Exit Sub
End If
'Prompt for save location
strfile = "Sheets" & "_" _
& Format(Now(), "yyyymmdd_hhmmss") _
& ".pdf"
strfile = ThisWorkbook.Path & "\" & strfile
myfile = Application.GetSaveAsFilename _
(InitialFileName:=strfile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and File Name to Save as PDF")
If myfile <> "False" Then 'save as PDF
ThisWorkbook.Sheets(strSheets).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
myfile, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
MsgBox "No File Selected. PDF will not be saved", vbOKOnly, "No File Selected"
End If
End Sub

1. Nhấn phím Windows + R, gõ vào chữ services.msc trong hộp thoại Run, nhấn Enter
2. Với từng dịch vụ được liệt kê bên dưới, bạn tìm nó, nhấn phải chuột và chọn > Properties, sau đó thiết lập chế độ khởi động Startup Type thành Automatic (Delayed Start) > rồi nhấn Apply để áp dụng
   • Computer Browser (Browser)
   • Function Discovery Provider Host (FDPHost)
   • Function Discovery Resource Publication (FDResPub)
   • Network Connections (NetMan)
   • UPnP Device Host (UPnPHost)
   • Peer Name Resolution Protocol (PNRPSvc)
   • Peer Networking Grouping (P2PSvc)
   • Peer Networking Identity Manager (P2PIMSvc)
3. Khởi động lại máy tính để thay đổi có hiệu lực

Cách chuyển số thành chữ trong Excel cực kỳ đơn giản (khuyên dùng)

Cách này khá đơn giản và đọc được cả font chữ Unicode và VNI nha các bạn. Và với cách làm này thì số sẽ chuyển thành chữ như thế này. Ví dụ:

Ví dụ:Số tiền: 3.050.050Thành chữ: Ba triệu không trăm năm mươi nghìn không trăm năm mươi đồng 

Thực hiện

+ Bước 1: Bạn tải Add-in này về trước https://drive.google.com/file/d/1oX2x2ym466Kg2EULJ5cB9MOpxD8jbpPk/view?usp=sharing.

+ Bước 2: Giờ chúng ta sẽ thêm Add-in này vào Excel trước đã. Bạn vào File

Sau đó chọn Options như hình bên dưới.

+ Bước 3: Bạn chọn vào mục Add-ins => và nhấn vào nút Go...

Tiếp theo nhấn chọn Browse.... và tìm đến file Add-in chuyển số thành chữ mà bạn đã tải ở Bước 1 ý.

Đây, bạn nhấn chọn => và nhấn OK để đồng ý.

+ Bước 4: Nhấn OK để đồng ý thêm Add-in vào Excel.

+ Bước 5: Okey, giờ chúng ta sẽ đi vào thực hành thử nào, rất dễ thôi 😛

Công thức, ta có 2 công thức đó là:

• =UNI(Số_Tiền): Sử dụng khi bạn sử dụng Font chữ Unicode
• =VNI(Số Tiền): Sử dụng công thức này khi bạn dùng Font chữ VNI

Ví dụ cụ thể như sau, mình muốn chuyển số 3.050.050 (hiện đang ở ô B4 về dạng chữ) mình dùng công thức sau:

=UNI(B4)

Vâng, ngay sau khi nhấn Enter thì số đã được tự động chuyển về dạng chữ như hình bên dưới rồi đấy 

Kết quả: