Thủ thuật Dịch số tiền về chữ (Chuyển số thành chữ)

8.2 Thủ thuật

1. Dịch số tiền về chữ (Chuyển số thành chữ)

Function ConvertCurrencyToVietnamese(ByVal MyNumber)

Dim Temp

Dim Dollars, Cents

Dim DecimalPlace, Count

ReDim Place(9) As String

Place(2) = " Nghin "

Place(3) = " Trieu "

Place(4) = " Ty "

Place(5) = " Ngan ty "

' Convert MyNumber to a string, trimming extra spaces.

MyNumber = Trim(Str(MyNumber))

' Find decimal place.

DecimalPlace = InStr(MyNumber, ".")

' If we find decimal place…

If DecimalPlace > 0 Then

' Convert cents

Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)

Cents = ConvertTens(Temp)

' Strip off cents from remainder to convert.

MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

End If

Do While MyNumber <> ""

' Convert last 3 digits of MyNumber to English dollars.

Temp = ConvertHundreds(Right(MyNumber, 3))

If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars

If Len(MyNumber) > 3 Then

' Remove last 3 converted digits from MyNumber.

MyNumber = Left(MyNumber, Len(MyNumber) - 3)

Else

MyNumber = ""

Count = Count + 1

Loop

' Clean up dollars.

Case ""

Case "One"

Dollars = "Mot Nghin"

Case Else

Dollars = Dollars & " Nghin"

End Select

' Clean up cents.

Select Case Cents

Case ""

Cents = " va khong Dong"

Cents = " va mot Dong"

Case Else

Cents = " va " & Cents & " Dong"

End Select

ConvertCurrencyToVietnamese = Dollars & Cents

End Function

Private Function ConvertHundreds(ByVal MyNumber)

Dim Result As String

' Exit if there is nothing to convert.

If Val(MyNumber) = 0 Then Exit Function

' Append leading zeros to number.

MyNumber = Right("000" & MyNumber, 3)

' Do we have a hundreds place digit to convert?

If Left(MyNumber, 1) <> "0" Then

Result = ConvertDigit(Left(MyNumber, 1)) & " Tram "

End If

' Do we have a tens place digit to convert?

Result = Result & ConvertTens(Mid(MyNumber, 2))

Else

' If not, then convert the ones place digit.

End If

End Function

Private Function ConvertTens(ByVal MyTens)

Dim Result As String

' Is value between 10 and 19?

If Val(Left(MyTens, 1)) = 1 Then

Select Case Val(MyTens)

Case 10: Result = "Muoi"

Case 11: Result = "Muoi mot"

Case 12: Result = "Muoi hai"

Case 13: Result = "Muoi ba"

Case 14: Result = "Muoi bon"

Case 15: Result = "Muoi lam"

Case 16: Result = "Moi sau"

Case 17: Result = "Muoi bay"

Case 18: Result = "Muoi tam"

Case 19: Result = "Muoi chin"

Case Else

End Select

Else

Select Case Val(Left(MyTens, 1))

Case 2: Result = "Hai muoi "

Case 3: Result = "Ba muoi "

Case 4: Result = "Bon muoi "

Case 5: Result = "Nam muoi "

Case 6: Result = "Sau muoi "

Case 7: Result = "Bay muoi "

Case 8: Result = "Tam muoi "

Case 9: Result = "Chin muoi "

Case Else

End Select

' Convert ones place digit.

Result = Result & ConvertDigit(Right(MyTens, 1))

End If

ConvertTens = Result

Private Function ConvertDigit(ByVal MyDigit)

Select Case Val(MyDigit)

Case 1: ConvertDigit = "Mot"

Case 2: ConvertDigit = "Hai"

Case 3: ConvertDigit = "Ba"

Case 4: ConvertDigit = "Bon"

Case 5: ConvertDigit = "Nam"

Case 6: ConvertDigit = "Sau"

Case 7: ConvertDigit = "Bay"

Case 8: ConvertDigit = "Tam"

Case 9: ConvertDigit = "Chin"

Case Else: ConvertDigit = ""

End Select

End Function

Bước 3. Nhấn phím Alt + F11 một lần nữa và nhấn Ctrl + S để save lại toàn bộ tài liệu.

Bước 4. Đến đây, bạn có thể sử dụng công thức =ConvertCurrencyToVietnamese(B3) để chuyển đổi tiền tệ từ số về chữ (với B3 là số tiền bằng chữ số)

Ví dụ: B3 có giá trị là: 123456 thì kết quả =ConvertCurrencyToVietnamese(B3) trả về là Mot Tram Hai muoi Ba Nghin Bon Tram Nam muoi Sau Nghin va khong Dong

2. Giấu bảng tính Excel chuyên nghiệp

Nhưng khi bạn áp dụng thủ thuật này thì bảng tính của bạn sẽ được an toàn hơn rất nhiều và đây cũng là một "phương án" mới để các bạn đọc tham khảo và có thêm được nhiều sự lựa chon trong công việc của mình Các thực hiện như sau: Trong bảng tính cần được bảo mật, bạn hãy nhấn ALT+F11 để mở cửa sổ Microsoft Visual Basic ra. Trong cửa sổ Project - VBA Project, nhắp đúp vào VBA Project, tiếp tục nhắp đúp vào Microsoft Excel Objects để mở các bảng tính trong tài liệu sau đó rồi chọn bảng tính mà bạn muốn giấu -> rồi nhấn F4. Trong tùy chọn Visible bạn nhắp vào dấu tam giác chọn 2-xlSheetVeryHidden, cuối cùng đóng Microsoft Visual Basic này lại và xem kết quả thế nào Khi nào muốn bảng tính hiện ra trở lại, thì bạn chỉ cần thực hiện lại các thao tác trên và chọn -1-xlSheetVisible là được.

3. 
   Khóa và bảo vệ những ô có chứa công thức
   

Khi tạo một bảng tính, thường chúng ta sẽ phải dùng đến một số công thức, và khi chia sẻ bảng tính cho mọi người, có thể bạn muốn rằng, không ai có thể can thiệp (xóa, sửa...) những vào những ô có chứa công thức. Cách dễ nhất là cũng phổ biến nhất là Protect (bảo vệ) bảng tính. Tuy nhiên, Protect bảng tính không chỉ ngăn không cho can thiệp vào các ô chứa công thức, mà nó không cho can thiệp vào tất cả, nghĩa là không ai có thể làm gì bảng tính của bạn. Đôi khi, bạn lại không muốn như vậy, bạn chỉ muốn bảo vệ các ô chứa công thức thôi, còn những ô chứa dữ liệu thì không.

Có ba giải pháp để thực hiện điều này: Khóa những ô chứa công thức, sử dụng chức năng Data-validation cho các ô chứa công thức, và tự động bật tắt chức năng bảo vệ.

Khóa các ô chứa công thức

Theo mặc định, tất cả các ô trong bảng tính đều được khóa (locked), tuy nhiên, nó chẳng có tác dụng gì trừ phi bạn áp dụng lệnh Protect bảng tính. Đây là cách dễ nhất để áp dụng lệnh Protect cho bảng tính, nhưng chỉ những ô chứa công thức thì mới bị khóa, và được bảo vệ:

Chọn toàn bộ bảng tính, bằng cách nhấn Ctrl+A, hoặc nhấn vào cái ô vuông nằm ở giao điểm của cột A và hàng 1. Rồi nhấn nút phải chuột và chọn Format Cells, rồi trong tab Protection, bỏ đánh dấu ở tùy chọn Locked, rồi nhấn OK:



Mở khóa (Unlock) toàn bộ bảng tính bằng cách bỏ tùy chọn Locked

Sau đó, bạn chọn đại một ô nào đó, chọn Home ➝ Find & Select ➝ Go To Special; hoặc nhấn Ctrl+G hay F5 rồi nhấn vào nút Special.... Hộp thoại sau đây sẽ mở ra:

Trong hộp thoại đó, bạn nhấn vào tùy chọn Formulas, và nếu cần thiết thì chọn hoặc không chọn thêm 4 ô nhỏ ở dưới (liệt kê các loại công thức, mặc định thì cả 4 ô này đều được chọn), và nhấn OK. Sau đó, bạn mở lại hộp thoại Format Cells đã nói ở trên, nhưng lần này thì bạn đánh dấu vào tùy chọn Locked, và nếu bạn thích ẩn luôn công thức (không cho thấy) thì đánh dấu vào tùy chọn Hidden, nhấn OK.

Việc cuối cùng là Protect bảng tính: Chọn Home trên Ribbon, nhấn vào Format trong nhóm Cells, rồi nhấn vào Protect Sheet...; hoặc chọn Review trên Ribbon, rồi nhấn vào Protect Sheet [E2003: Tools | Protection | Protect Worksheet]:



Chọn Protect Sheet từ Home



Chọn Protect Sheet từ Review

Trong hộp thoại Protect Sheet, bỏ đánh dấu ở tùy chọn Select locked cells, chỉ cho phép Select unlocked cells (chọn những ô không khóa), và nhập vào một password, nếu cần thiết:

Vậy là xong. Từ bây giờ, những ô chứa công thức của bạn sẽ được bảo vệ, có thể không xem thấy được nếu bạn đã chọn Hidden, bạn không lo những công thức này bị can thiệp nữa.

Sử dụng Data-validation, chỉ là đơn giản không cho ghi đè vào những ô có chứa công thức, nghĩa là không cho sửa công thức. Tuy nhiên, phương pháp này chỉ phòng ngừa cho chính bạn, nghĩa là tránh việc táy máy sửa lại cái gì đó trong những ô chứa công thức, chứ thật ra, mặc dù đã được "Validation", bạn vẫn có thể xóa công thức, hoặc dán vào những ô đó bất kỳ dữ liệu nào bạn thích... Nói chung nó không bảo vệ được gì nhiều. Nhưng cũng xin nói sơ qua về phương pháp này:

Để thực hiện, bạn hãy chọn những ô chứa ô công thức bằng chức năng Go To Specials mà tôi đã nói ở trên. Rồi, với những ô chứa công thức đang được chọn, bạn gọi Data Validation từ menu Data trên Ribbon [E2003: Data | Validation]. Trong hộp thoại này, chọn tab Settings, chọn Custom cho khung Allow, và nhập công thức này: =" " vào khung Formula, rồi nhấn OK, như hình sau:



Sử dụng Data Validation để bảo vệ những ô chứa công thức

Kể từ đây, mỗi khi bạn nhập bất kỳ thứ gì vào trong những ô chứa công thức, hoặc bạn muốn sửa lại công thức, sẽ có một cảnh báo xuất hiện, ngăn không cho bạn nhập vào. Xin nhắc lại, phương pháp này không cấm việc xóa hẳn công thức, cũng như dán đè thứ gì đó vào những ô chứa công thức.

Phương pháp này, sẽ tự động bật chức năng bảo vệ bảng tính (Protect) mỗi khi bạn chọn một ô đã được khóa (locked), nhưng nó cũng sẽ tự động tắt chức năng bảo vệ khi bạn chọn một ô không bị khóa.

Để bắt đầu, bạn hãy chắc chắn rằng những ô bạn muốn bảo vệ (ô chứa công thức) đã được khóa, còn những ô không cần bảo vệ thì không bị khóa, như tôi đã trình bày ở phương pháp thứ nhất. Sau đó, bạn nhấn Alt+F11, nhấn vào Sheet mà bạn muốn bảo vệ các ô đã khóa ở trong đó, rồi nhập vào trong khung soạn thảo đoạn code sau đây:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Locked = True Then

Me.Protect Password:="Secret"

Else

Me.Unprotect Password:="Secret"

End Sub 

Nếu bạn lo rằng người ta có thể vào trong khung soạn thảo VBA để xem password, bạn có thể bảo vệ các code này (không cho xem) bằng cách chọn Tools ➝ VBAProject Properties, chọn tab Properties, chọn Lock Project for Viewing, và nhập vào một password.

Tuy nhiên, phương pháp này cũng không hoạt động hoàn hảo, mặc dù nó cũng giúp bạn được phần nào việc bảo vệ các công thức. Từ khóa Target được sử dụng trong đoạn code sẽ chỉ để tham chiếu đến ô đang "active" ngay tại thời điểm nó được chọn (xin nói thêm, cho dù bạn chọn một dãy, nhưng trong dãy đó, chỉ có một ô "active" mà thôi, là ô đang có màu khác với những ô còn lại). Vì lý do này, nếu một người nào đó chọn một dãy các ô (với ô "active" không bị khóa), thì người đó có thể xóa toàn bộ dãy ô này, bởi vì khi đó thì chức năng Unprotect đã được tự động bật!

4. 
   
   Каталог: UpLoadFiles
   UpLoadFiles -> HỒ SƠ MỜi thầu xây lắp gói thầu số 07: Toàn bộ phần chi phí xây lắp công trình
   UpLoadFiles -> CỘng hòa xã HỘi chủ nghĩa việt nam độc lập – Tự do- hạnh phúc
   UpLoadFiles -> QUẢn lý nuôi trồng thủy sản dựa vào cộng đỒNG
   UpLoadFiles -> Trung tâm Chăm sóc sức khỏe sinh sản tỉnh Thừa Thiên Huế tổ chức tập huấn Chăm sóc skss tuổi mãn kinh và sàng lọc ung thư cổ tử cung
   UpLoadFiles -> Ban chấp hành trung ưƠng đẢng cộng sản việt nam
   UpLoadFiles -> CỘng hoà XÃ HỘi chủ nghĩa việt nam sở giáo dục và ĐÀo tạO Độc lập Tự do Hạnh phúc
   UpLoadFiles -> SỞ TƯ pháp số: 507/tb-stp cộng hòa xã HỘi chủ nghĩa việt nam
   UpLoadFiles -> Ubnd tỉnh thừa thiên huế
   UpLoadFiles -> Ủy ban nhân dân cộng hòa xã HỘi chủ nghĩa việt nam huyện nam đÔng độc lập Tự do Hạnh phúc
   UpLoadFiles -> THÔng báo về nội dung Hội nghị liên tịch chuẩn bị Kỳ họp thứ 2 Hội đồng nhân dân huyện khóa VI, sáu tháng đầu năm 2016
   
   
   
   tải về 1.02 Mb.
   
   Chia sẻ với bạn bè của bạn: