Tạo Hàm Vba Chuyển Chuỗi Thành Mã ASCII | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Tạo hàm vba chuyển chuỗi thành Mã ASCII

• Thread starter trongtrung1504
• Ngày gửi 26/2/16

trongtrung1504

Thành viên chính thức

Tham gia 26/1/12 Bài viết 98 Được thích 38 Chào tất cả mọi người, hiện tại mình đang gặp vấn đề như thế này. Mình có 1 chuỗi gồm cả chữ và số, mình đã tách được kí tự với số ra riêng rồi. Yêu cầu là lấy từng ký tự ấy sẽ chuyển sang mã ASCII và ghép nó với số (vd a1 =651,A1 =971...). Mình làm công thức excel thì ra rồi, nhưng giờ mình muốn chuyển qua vba tạo 1 hàm MaASCII dùng hàm Select case để xét độ dài chuỗi kí tự ấy theo điều kiện sau: * Nếu chuỗi chữ 0, thì chỉ lấy chuỗi số * Nếu chuỗi chữ 1, thì lấy code(kitu)& chuỗi số * Nếu chuỗi chữ 2, thì lấy code(left(kitu,1)& code(right(kitu,1) & chuỗi số ... Nhờ các thầy, các anh chị xem giúp

File đính kèm

• ChuyenMaASCII.xlsm 14.8 KB · Đọc: 67

Sắp xếp theo thời gian sắp xếp theo bầu chọn

Phuocam

Thành viên mới

Tham gia 16/5/13 Bài viết 4,707 Được thích 7,706

trongtrung1504 đã viết: Chào tất cả mọi người, hiện tại mình đang gặp vấn đề như thế này. Mình có 1 chuỗi gồm cả chữ và số, mình đã tách được kí tự với số ra riêng rồi. Yêu cầu là lấy từng ký tự ấy sẽ chuyển sang mã ASCII và ghép nó với số (vd a1 =651,A1 =971...). Mình làm công thức excel thì ra rồi, nhưng giờ mình muốn chuyển qua vba tạo 1 hàm MaASCII dùng hàm Select case để xét độ dài chuỗi kí tự ấy theo điều kiện sau: * Nếu chuỗi chữ 0, thì chỉ lấy chuỗi số * Nếu chuỗi chữ 1, thì lấy code(kitu)& chuỗi số * Nếu chuỗi chữ 2, thì lấy code(left(kitu,1)& code(right(kitu,1) & chuỗi số ... Nhờ các thầy, các anh chị xem giúp Nhấp chuột vào đây để mở rộng...

Xem thử cách này có đúng ý không: Mã:Sao chép. Public Function ChuyenMaASCII(Chuoi As String) As String Dim i As Long For i = 1 To Len(Chuoi) Step 1 If IsNumeric(Mid(Chuoi, i, 1)) Then ChuyenMaASCII = ChuyenMaASCII & Mid(Chuoi, i, 1) Else ChuyenMaASCII = ChuyenMaASCII & AscW(Mid(Chuoi, i, 1)) End If Next End Function Upvote 0 A

anhtuanle123

Thành viên thường trực

Tham gia 8/6/09 Bài viết 387 Được thích 249 ký tự số cũng có mã asc đó bạn ! 0->9 : 48-57 a->z : 97-122 A->Z : 65-90 if kytu>=48 and kytu<=57 thì lấy số. else lấy mã asc end if ^^ Upvote 0

trongtrung1504

Thành viên chính thức

Tham gia 26/1/12 Bài viết 98 Được thích 38 yêu cầu về mã bên mình chỉ phân biệt chữ hoa/chữ thường thôi, còn số thì mỗi mã có 1 số riêng rồi Upvote 0

trongtrung1504

Thành viên chính thức

Tham gia 26/1/12 Bài viết 98 Được thích 38 tks bạn. đúng yêu cầu mình rồi...Thân Upvote 0 V

VetMini

Ăn cùng góc phố

Tham gia 21/12/12 Bài viết 17,663 Được thích 24,477

trongtrung1504 đã viết: tks bạn. đúng yêu cầu mình rồi...Thân Nhấp chuột vào đây để mở rộng...

Đúng sao được. Theo yêu cầu là ký tự chữ phải đổi hoa thành thường và ngược lại trước khi tính mã ascii.

trongtrung1504 đã viết: Chào tất cả mọi người, hiện tại mình đang gặp vấn đề như thế này. Mình có 1 chuỗi gồm cả chữ và số, mình đã tách được kí tự với số ra riêng rồi. Yêu cầu là lấy từng ký tự ấy sẽ chuyển sang mã ASCII và ghép nó với số (vd a1 =651,A1 =971...). ... Nhấp chuột vào đây để mở rộng...

Upvote 0

trongtrung1504

Thành viên chính thức

Tham gia 26/1/12 Bài viết 98 Được thích 38

VetMini đã viết: Đúng sao được. Theo yêu cầu là ký tự chữ phải đổi hoa thành thường và ngược lại trước khi tính mã ascii. Nhấp chuột vào đây để mở rộng...

bạn mới hiểu sai ý mình đó. ko cần phải chuyển đổi chữ hoa chữ thuong gi cả. nó chi phan biet chu hoa chữ thường thôi Upvote 0

SA_DQ

/(hông là gì!

Thành viên danh dự Tham gia 8/6/06 Bài viết 14,547 Được thích 22,828 Nghề nghiệp U80

Bạn mới hiểu sai ý mình đó. ko cần phải chuyển đổi chữ hoa chữ thuong gi cả. nó chi phan biet chu hoa chữ thường thôi Nhấp chuột vào đây để mở rộng...

Thật ra í bạn nêu là sai rành rành ra rồi! Hay bạn không rõ rằng ?asc("A") trong cửa sổ Immediate sẽ là 65? Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

• Question

Xóa dòng trùng.

• DMQ
• Thứ tư lúc 21:16
• Lập Trình với Excel

Trả lời 14 Đọc 305 Hôm nay lúc 19:44 HUONGHCKT H H nhờ mọi người giúp

• • 

• Huy Đặng
• Hôm nay lúc 15:20
• Hỏi đáp những vấn đề khác

Trả lời 2 Đọc 53 Hôm nay lúc 17:29 Huy Đặng H Y Xin giúp đỡ của mọi người về cách sắp sếp file và hàm

• yeunghelayeutien
• Hôm nay lúc 15:50
• Hàm và công thức Excel

Trả lời 1 Đọc 54 Hôm nay lúc 17:20 hvnhpro H T (Góc nhờ vả) Xin tư vấn hàm tìm theo mã khách và cột phụ

• tusedo
• Hôm nay lúc 15:26
• Hàm và công thức Excel

Trả lời 2 Đọc 65 Hôm nay lúc 17:06 tusedo T

• Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

• • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

12 13 14 Trả lời 267 Đọc 16K Hôm nay lúc 15:54 ongke0711

• Question

Tìm hiểu về việc tạo note bằng vba

• test1986
• Hôm nay lúc 11:09
• Lập Trình với Excel

Trả lời 3 Đọc 115 Hôm nay lúc 14:56 Nguyễn Duy Tuân Nhờ giúp: Nhận vùng giữ liệu theo số biên bản nghiệm thu

• Nguyễn Hậu LK
• Thứ tư lúc 16:18
• Hỏi đáp những vấn đề khác

Trả lời 2 Đọc 113 Hôm nay lúc 14:53 hvnhpro H Nhờ hướng dẫn các xử lý hiển thị

• noisy
• Thứ bảy lúc 09:19
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 3 Đọc 182 Hôm nay lúc 13:29 noisy B

• Question

Windows Form Làm thế nào để định vị cột và dòng nhập dữ liệu

• binhtv69
• 22/11/24
• Lập Trình với Excel

2 3 Trả lời 43 Đọc 1K Hôm nay lúc 13:26 test1986 N Định mức nguyên vật liệu

• nghiemcongdien
• 9/11/24
• Google Spreadsheets

2 Trả lời 37 Đọc 1K Hôm nay lúc 12:31 yeudoi Giúp về xử lý số liệu trong excel!

• heocondethuong1235
• Hôm qua, lúc 13:45
• Những vấn đề chung

Trả lời 7 Đọc 178 Hôm nay lúc 11:37 ngocbaovu T Ký tự đặc biệt đại diện cho các ký tự khác trong vba là gì

• tueyennhi
• 4/11/24
• VBA trong Excel – Cải thiện và tăng tốc

Trả lời 8 Đọc 356 Hôm nay lúc 10:51 tueyennhi T K Tự động nhập dữ liệu tăng ca

• Ks.longvandinh1988
• Hôm qua, lúc 14:17
• Excel và Kế Toán

Trả lời 3 Đọc 106 Hôm nay lúc 10:51 Ks.longvandinh1988 K 0 anh chị giúp em chỉnh file excel 2016

• 0377853935
• Hôm nay lúc 10:50
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 0 Đọc 43 Hôm nay lúc 10:50 0377853935 0 Trích xuất file *.xml sang Excel cho hóa đơn điện tử áp dụng nghị định 123/2020

• • 
  • 
  • 

• hoamattroicoi
• 12/3/22
• Excel và Kế Toán

5 6 7 Trả lời 120 Đọc 30K Hôm nay lúc 10:40 _sworm_ S T Cách gán ảnh cố định vào ô trong excel

• todesgott
• 29/3/10
• Định dạng, trình bày, in ấn bảng tính

2 Trả lời 32 Đọc 138K Hôm nay lúc 10:26 0377853935 0 J Hàm tách dữ liệu ra nhiều cột

• jusend
• Thứ tư lúc 16:43
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 6 Đọc 213 Hôm nay lúc 09:25 vanthuan986 V L lập công thức cho lịch làm và ngày nghỉ tự động thay đổi theo từng tháng

• Lan Ny
• Hôm qua, lúc 11:55
• Hàm và công thức Excel

Trả lời 2 Đọc 110 Hôm nay lúc 08:06 Lan Ny L L Chuyển 600 câu hỏi trắc nghiệm sang excel theo mẫu

• linhxinhthat
• Thứ tư lúc 15:52
• Hàm và công thức Excel

Trả lời 5 Đọc 215 Hôm nay lúc 08:05 huuthang_bd Hướng dẫn lập trình với Google Sheets và Excel Online bằng Excel VBA và Add-in A-Tools v10

• • 

• Nguyễn Duy Tuân
• Hôm qua, lúc 09:21
• BLUESOFTS: A-Excel, A-Tools

Trả lời 2 Đọc 150 Hôm nay lúc 07:54 Nguyễn Duy Tuân Xem thêm… Chia sẻ: Facebook X (Twitter) Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Hoàng Tuấn 868 152
• ptm0412 81
• VetMini 47
• ongke0711 44
• HUONGHCKT 43
• hoangtuaotrang_hp_vn 35
• SA_DQ 34
• befaint 33
• Tuấn Bụng Bự 31
• bebo021999 31
• BuiQuangThuan 28
• HeSanbi 25
• huuthang_bd 25
• HieuCD 18
• DeTong 17
• huhumalu 17
• CHAOQUAY 16
• Nguyễn Diêu Hiền 15
• hvnhpro 15
• Duy Tùng 9x 14

Thành viên có điểm tương tác cao nhất tháng

• Hoàng Tuấn 868 131
• ptm0412 79
• HUONGHCKT 77
• VetMini 66
• HeSanbi 63
• ongke0711 60
• HieuCD 44
• SA_DQ 44
• BuiQuangThuan 42
• befaint 41
• huuthang_bd 40
• GPE-Trợ Lý 36
• bebo021999 32
• hoangtuaotrang_hp_vn 32
• DeTong 19
• Phuocam 19
• huhumalu 15
• Duy Tùng 9x 14
• PhanTuHuong 13
• phuongnam366377 12

• Trang chủ
• Diễn đàn
• Lập Trình với Excel
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom