Tự học Excel part 22

Strip off cents from remainder to convert. MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 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 = "" End If Count = Count + 1 Loop Clean up dollars. Select Case Dollars Case "" Dollars = "khong Nghin" Case "One" Dollars = "Mot Nghin"...
Nội dung trích xuất từ tài liệu:
Tự học Excel part 22 Strip off cents from remainder to convert.MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))End IfCount = 1Do While MyNumber Convert last 3 digits of MyNumber to English dollars.Temp = ConvertHundreds(Right(MyNumber, 3))If Temp Then Dollars = Temp & Place(Count) & DollarsIf Len(MyNumber) > 3 Then Remove last 3 converted digits from MyNumber.MyNumber = Left(MyNumber, Len(MyNumber) - 3)ElseMyNumber = End IfCount = Count + 1Loop Clean up dollars.Select Case DollarsCase Dollars = khong NghinCase OneDollars = Mot NghinCase ElseDollars = Dollars & NghinEnd Select Clean up cents.Select Case CentsCase Cents = va khong DongCase OneCents = va mot DongCase ElseCents = va & Cents & DongEnd SelectConvertCurrencyToVietnamese = Dollars & CentsEnd FunctionPrivate 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 ThenResult = ConvertDigit(Left(MyNumber, 1)) & Tram End If Do we have a tens place digit to convert?If Mid(MyNumber, 2, 1) 0 ThenResult = Result & ConvertTens(Mid(MyNumber, 2))Else If not, then convert the ones place digit.Result = Result & ConvertDigit(Mid(MyNumber, 3))End IfConvertHundreds = Trim(Result)End FunctionPrivate Function ConvertTens(ByVal MyTens)Dim Result As String Is value between 10 and 19?If Val(Left(MyTens, 1)) = 1 ThenSelect Case Val(MyTens)Case 10: Result = MuoiCase 11: Result = Muoi motCase 12: Result = Muoi haiCase 13: Result = Muoi baCase 14: Result = Muoi bonCase 15: Result = Muoi lamCase 16: Result = Moi sauCase 17: Result = Muoi bayCase 18: Result = Muoi tamCase 19: Result = Muoi chinCase ElseEnd SelectElse .. otherwise it’s between 20 and 99.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 ElseEnd Select Convert ones place digit.Result = Result & ConvertDigit(Right(MyTens, 1))End IfConvertTens = ResultEnd FunctionPrivate Function ConvertDigit(ByVal MyDigit)Select Case Val(MyDigit)Case 1: ConvertDigit = MotCase 2: ConvertDigit = HaiCase 3: ConvertDigit = BaCase 4: ConvertDigit = BonCase 5: ConvertDigit = NamCase 6: ConvertDigit = SauCase 7: ConvertDigit = BayCase 8: ConvertDigit = Tam Case 9: ConvertDigit = Chin Case Else: ConvertDigit = End Select End FunctionBướ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à MotTram Hai muoi Ba Nghin Bon Tram Nam muoi Sau Nghin va khong Dong 2. Giấu bảng tính Excel chuyên nghiệpTrong công việc văn phòng, nếu bạn cần giấu một bảng tính trong tài liệu Excel mà khôngmuốn người khác dùng lệnh Format > Sheet > Unhide để xem bảng tính, mà theo cách thôngthường khi bạn dùng lệnh Format > Sheet > Hide để giấu các bảng tính (nếu không được bảovệ bằng mật khẩu) thì chỉ cần người không chuyên thôi cũng đã có thể dùng lệnh Format >Sheet > UnHide để làm cho nó hiện ra bảng tính rồi.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ựachon 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ạnhãy nhấn ALT+F11 để mở cửa sổ Microsoft Visual Basic ra. Trong cửa sổ Project - VBAProject, nhắp đúp vào VBA Project, tiếp tục nhắp đúp vào Microsoft Excel Objects để mở cácbả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ùychọn Visible bạn nhắp vào dấu tam giác chọn 2-xlSheetVeryHidden, cuối cùng đóng MicrosoftVisual 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ứcChiêu này giúp bạn cho phép người khác thay đ i các ô có chứa dữ liệu, nhưng cấm họ thayđ i các ô chứa công thức. Bạn cũng có thể bảo vệ các ô có chứa công thức mà không cầnphải bảo vệ toàn bộ trang tính của bạn.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ảngtí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àonhữ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ứadữ 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ứcTheo 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ácdụ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 Protectcho 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ủacộ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 Prote ...