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ả:

Nhập file Excel vào Google Sheets

Bước 1: Trên thanh công cụ của Google Sheets chúng ta nhấn chọn File rồi chọn Import để nhập file Excel.

Bước 2: Trong giao diện tải dữ liệu lên Google Sheets, người dùng nhấn chọn vào tab Upload rồi tải file Excel có sẵn trên máy tính.

Bước 3: Sau đó trong giao diện Import file tích chọn vào Creat new spreahsheet để mở 1 bảng tính mới rồi nhấn vào Import.

Bước 4: Chờ quá trình nhập file Excel vào Google Sheets thành công rồi bạn nhấn chọn Open now để mở.

Khi mở dữ liệu Excel trên Google Sheets bạn sẽ thấy mọi định dạng dữ liệu vẫn được giữ nguyên như hình.

Với cách bên trên, bạn đã có thêm thủ thuật để mở dữ liệu, sao chép dữ liệu Excel sang Google Sheets mà vẫn giữ nguyên được định dạng nội dung. Từ định dạng chữ, màu sắc, bảng tính,... sẽ không thay đổi mà vẫn như khi làm việc trên Excel. Tùy theo sự thuận tiện khi sử dụng mà chúng ta lựa chọn cách tải file Excel lên Google Drive để mở trong Google Sheets, hoặc mở ngay file Excel trong giao diện Google Sheets.

Chúc các bạn thực hiện thành công!

Hướng dẫn tách sheet trên Excel riêng biệt

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
 xWs.Copy
 Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls"
 Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub