Trang 1/3 1 2 3 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 30
  1. #1
    Tham gia ngày
    02 2007
    Nơi Cư Ngụ
    TP-Sóc Trăng
    Bài gởi
    2,078
    Cảm ơn
    1,092
    Được cảm ơn 2,034 lần trong 910 bài viết

    Thumbs down Để chuyển chữ thường sang chữ hoa

    Để chuyển chữ thường sang chữ hoa , bạn cắt dán theo nội dung dưới đây
    Sub MakeProper()
    Dim rngSrc As Range
    Dim lMax As Long, lCtr As Long

    Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)
    lMax = rngSrc.Cells.Count

    For lCtr = 1 To lMax
    If Not rngSrc.Cells(lCtr).HasFormula Then
    rngSrc.Cells(lCtr) = Application.Proper(rngSrc.Cells(lCtr))
    End If
    Next lCtr
    End Sub

  2. Thành viên sau cảm ơn ongtrungducmx25 về bài viết này:


  3. #2
    Tham gia ngày
    06 2006
    Nơi Cư Ngụ
    BacNinh
    Bài gởi
    415
    Cảm ơn
    851
    Được cảm ơn 261 lần trong 114 bài viết
    đánh như thế nào để chuyển đổi đc hả bạn ơi? mình đã copy và past vào modul rồi. sori vì mình ko hiểu vba, nhưng thích nghịch nó để thấy cái hay thì áp dụng.

  4. #3
    Tham gia ngày
    02 2007
    Nơi Cư Ngụ
    TP-Sóc Trăng
    Bài gởi
    2,078
    Cảm ơn
    1,092
    Được cảm ơn 2,034 lần trong 910 bài viết
    để minh thử tạo một nút nào đó để chuyển cho gọn nhẹ khổi mất công gõ công thức cho đở mệt hiện giờ mình chưa biết nhé! thông cảm. hêhhehehhehe

  5. #4
    Tham gia ngày
    08 2006
    Nơi Cư Ngụ
    TP.HCM
    Bài gởi
    1,873
    Cảm ơn
    2,120
    Được cảm ơn 2,357 lần trong 1,115 bài viết
    Trong Excel cũng có hàm UPPER(text) để chuyển chữ thường thành chữ hoa

  6. Thành viên sau cảm ơn tedaynui về bài viết này:


  7. #5
    Tham gia ngày
    01 2007
    Bài gởi
    121
    Cảm ơn
    103
    Được cảm ơn 64 lần trong 47 bài viết
    Trích Nguyên văn bởi ongtrungducmx25
    để minh thử tạo một nút nào đó để chuyển cho gọn nhẹ khổi mất công gõ công thức cho đở mệt hiện giờ mình chưa biết nhé! thông cảm. hêhhehehhehe
    Bạn vẽ đại một cái gì đấy sau đó assign macro vào là xong mà.
    Tập tin đính kèm Tập tin đính kèm

  8. Có 4 thành viên cảm ơn Lam_A0 về bài viết này:


  9. #6
    Tham gia ngày
    08 2006
    Nơi Cư Ngụ
    TPHCM
    Bài gởi
    600
    Cảm ơn
    2,209
    Được cảm ơn 2,515 lần trong 594 bài viết
    Việc chuyển đổi chữ trong excel đã có sẵn các hàm Upper, Proper, Lower, ...
    Yahoo Messenger: ngocv_hr // Skype: humanresourcemanagement // vungochuman@gmail.com
    ---------------------------------------------------
    Gieo suy nghĩ - sẽ gặt hành vi.
    Gieo hành vi - sẽ gặt thói quen.
    Gieo thói quen - sẽ gặt tính cách.
    Gieo tính cách - sẽ gặt số phận.

  10. Thành viên sau cảm ơn vungoc về bài viết này:


  11. #7
    Tham gia ngày
    01 2007
    Bài gởi
    121
    Cảm ơn
    103
    Được cảm ơn 64 lần trong 47 bài viết
    Trích Nguyên văn bởi tedaynui
    Trong Excel cũng có hàm UPPER(text) để chuyển chữ thường thành chữ hoa
    Hàm UPPER(text) chuyển toàn bộ text thành chữ hoa, còn Sub của bạn ongtrungducmx25 chỉ chuyển chữ cái đầu thôi.
    Thân!

  12. #8
    Tham gia ngày
    08 2006
    Nơi Cư Ngụ
    TPHCM
    Bài gởi
    600
    Cảm ơn
    2,209
    Được cảm ơn 2,515 lần trong 594 bài viết
    Trích Nguyên văn bởi Lam_A0
    Hàm UPPER(text) chuyển toàn bộ text thành chữ hoa, còn Sub của bạn ongtrungducmx25 chỉ chuyển chữ cái đầu thôi.
    Thân!
    Bạn dùng hàm Proper có sẵn của excel cũng làm được việc này - khỏe re !
    Yahoo Messenger: ngocv_hr // Skype: humanresourcemanagement // vungochuman@gmail.com
    ---------------------------------------------------
    Gieo suy nghĩ - sẽ gặt hành vi.
    Gieo hành vi - sẽ gặt thói quen.
    Gieo thói quen - sẽ gặt tính cách.
    Gieo tính cách - sẽ gặt số phận.

  13. Thành viên sau cảm ơn vungoc về bài viết này:


  14. #9
    Tham gia ngày
    12 2006
    Nơi Cư Ngụ
    Đồng Tháp
    Bài gởi
    924
    Cảm ơn
    1,233
    Được cảm ơn 2,238 lần trong 662 bài viết
    Các bạn có thể dùng hàm này để chuyển chữ thường thành chữ hoa cho Unicode
    Code:
    Function ProperUni(uni) As String
    uni = " " & LCase(uni)
    For n = 2 To Len(uni)
    kytu = Mid(uni, n, 1)
    If Mid(uni, n - 1, 1) = " " Then
    If AscW(kytu) < 256 Then
    kytu = UCase(kytu)
    Else
    kytu = ChrW(AscW(kytu) - 1)
    End If
    End If
    puni = puni & kytu
    Next
    ProperUni = puni
    End Function
    pham_duy_long@yahoo.com
    DĐ: 0918 975 460

  15. Thành viên sau cảm ơn phamduylong về bài viết này:


  16. #10
    Tham gia ngày
    06 2006
    Nơi Cư Ngụ
    BacNinh
    Bài gởi
    415
    Cảm ơn
    851
    Được cảm ơn 261 lần trong 114 bài viết
    Trích Nguyên văn bởi phamduylong
    Các bạn có thể dùng hàm này để chuyển chữ thường thành chữ hoa cho Unicode
    Code:
    Function ProperUni(uni) As String
    uni = " " & LCase(uni)
    For n = 2 To Len(uni)
    kytu = Mid(uni, n, 1)
    If Mid(uni, n - 1, 1) = " " Then
    If AscW(kytu) < 256 Then
    kytu = UCase(kytu)
    Else
    kytu = ChrW(AscW(kytu) - 1)
    End If
    End If
    puni = puni & kytu
    Next
    ProperUni = puni
    End Function
    mình chuyển từ .vntime font ABC sang Unicode không được. Có cách nào một văn bản chuyển từ .VNtime sang font Unicode VD Arial dc không bạn? vì có những văn bản (sẵn có) phải chuyển cho người việt ở nước ngoài thì họ không đọc được font vntime.mà họ chỉ có time new romance và arial thì ok.

Trang 1/3 1 2 3 cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 2 người đang xem đề tài này. (0 thành viên và 2 khách)

Đề tài tương tự

  1. Có cách gì chuyển nền mờ sang trắng tinh, các nét vẽ sang 100% màu đen?
    Viết bởi LinDan trong chuyên mục Ứng dụng đa phương tiện nghe nhìn, (âm thanh, hình ảnh, phim)
    Trả lời: 21
    Bài mới gởi: 28-03-14, 12:05 PM
  2. Hỏi về lệnh tắt chuyển từ từ điển anh việt sang việt anh của lạc việt.
    Viết bởi babyvoim5 trong chuyên mục Những trình ứng dụng và vấn đề tin học văn phòng khác
    Trả lời: 0
    Bài mới gởi: 04-01-12, 02:05 PM
  3. Chuyển từ dạng công thức sang sang số
    Viết bởi loanthuongqt trong chuyên mục Hàm và công thức Excel
    Trả lời: 3
    Bài mới gởi: 08-08-11, 02:34 PM
  4. Không chạy đươc Macro copy dữ liệu sang file khác sau khi chuyển XLS sang exe
    Viết bởi phamxuyenp171 trong chuyên mục Các Add-ins cho excel
    Trả lời: 1
    Bài mới gởi: 02-07-11, 10:07 AM
  5. Chuyển dữ liệu từ ô A sang ô B, cần giúp đõ gấp!!!
    Viết bởi ngochungtaybac trong chuyên mục Hàm và công thức Excel
    Trả lời: 5
    Bài mới gởi: 27-08-10, 08:36 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]