Giúp code hoặc công thức đếm bao nhiêu chữ HOA và chữ thường (1 người xem)

hondacrv2019 · 19/10/19

Ví dụ ô A1 có Text "ABCD 123 ef +-*/" thì có 4 chữ Hoa và 2 chữ thường ( không đếm số và các ký tự đặc biệt )

snow25 · 19/10/19

hondacrv2019 đã viết:
Ví dụ ô A1 có Text "ABCD 123 ef +-*/" thì có 4 chữ Hoa và 2 chữ thường ( không đếm số và các ký tự đặc biệt )

Thử hàm này xem được không.

Mã:

Function demso(ByVal dk As String, ByVal cach As Boolean) As Long
         Dim i As Long, arr
         With CreateObject("VBScript.RegExp")
                .Global = True
               If cach = True Then
                  .Pattern = "[^A-Z]"
               Else
                  .Pattern = "[^a-z]"
               End If
                arr = .Replace(dk, "")
                demso = Len(arr)
         End With
End Function

Mã:

=demso(A1,0)

Mã:

=demso(A1,1)

Phuocam · 19/10/19

Tiếng Việt có dấu rắc rối lắm! :giveup:

HieuCD · 19/10/19

hondacrv2019 đã viết:
Ví dụ ô A1 có Text "ABCD 123 ef +-*/" thì có 4 chữ Hoa và 2 chữ thường ( không đếm số và các ký tự đặc biệt )

Mã:

Function DemKyTu(ByVal iStr$, Optional ByVal ChuIn As Boolean = True) As Long
  Dim N&, i&, k&, tmp$, iChr$
  N = Len(iStr)
  tmp = UCase(iStr)
  For i = 1 To N
    iChr = Mid(tmp, i, 1)
    If LCase(iChr) <> iChr Then
      If (Mid(iStr, i, 1) = iChr) = ChuIn Then k = k + 1
    End If
  Next i
  DemKyTu = k
End Function

Đếm chữ thường
=DemKyTu(A1,0)
Đếm chữ in
=DemKyTu(A1,1)
=DemKyTu(A1)

nguyenthuy13388 · 19/10/19

phuocam đã viết:
Tiếng Việt có dấu rắc rối lắm!

Tiếng việt unicode thì dùng hàm này anh:

Mã:

Function dem_kt(Rng As Range, a As Boolean) As Long
Dim Arr1 As String, Arr2 As String, i As Long

Arr1 = "AÂBCDEÊGHIKLMNOÔPQRSTUVXYJWZF" & ChrW(249) & ChrW(263) & ChrW(407) & ChrW(422)
Arr2 = "aâbcdeêghiklmnoôpqrstuvxyjwzf" & ChrW(250) & ChrW(264) & ChrW(408) & ChrW(423)
For i = 1 To Len(Rng.Value)
If a = False Then
    If InStr(Arr1, Mid(Rng.Value, i, 1)) <> 0 Then dem_kt = dem_kt + 1
Else
    If InStr(Arr2, Mid(Rng.Value, i, 1)) <> 0 Then dem_kt = dem_kt + 1
End If
Next

End Function

Mã:

=dem_kt(A1,0) 'Đếm chữ hoa'
=dem_kt(A1,1) 'Đếm chữ thường'

befaint · 19/10/19

nguyenthuy13388 đã viết:
Tiếng việt unicode

A Ả Ã Ạ À Á
Ă Ẳ Ẵ Ặ Ằ Ắ
Â Ẩ Ẫ Ậ Ầ Ấ
... (Mỗi nguyên âm có 6 ký tự).

Function dem_kt(Rng As Range, a As Boolean) As Long
Đầu vào là chuỗi thì khai báo tham số là chuỗi luôn, nên dùng dạng truyền tham số ByVal.

dazkangel · 19/10/19

Làm hàm chơi, file không dành cho tiếng Việt, còn công thức đưa ra là áp dụng cho tiếng Việt nhấn Ctrl+Shift+Enter:
Chữ hoa:

Mã:

=COUNT(FIND(IF(MMULT(1-ISNUMBER(FIND(MID(A2,ROW($1:$20),1),IF({1,0},UPPER(A2),LOWER(A2)))),{1;1}),MID(A2,ROW($1:$20),1)),UPPER(A2)))

Chữ thường:

Mã:

=COUNT(FIND(IF(MMULT(1-ISNUMBER(FIND(MID(A2,ROW($1:$20),1),IF({1,0},UPPER(A2),LOWER(A2)))),{1;1}),MID(A2,ROW($1:$20),1)),LOWER(A2)))

nguyenthuy13388 · 19/10/19

befaint đã viết:
A Ả Ã Ạ À Á
Ă Ẳ Ẵ Ặ Ằ Ắ
Â Ẩ Ẫ Ậ Ầ Ấ
... (Mỗi nguyên âm có 6 ký tự).

Function dem_kt(Rng As Range, a As Boolean) As Long
Đầu vào là chuỗi thì khai báo tham số là chuỗi luôn, nên dùng dạng truyền tham số ByVal.

Dạ vâng em ghi nhớ ạ, em cảm ơn anh

hondacrv2019 · 19/10/19

snow25 đã viết:

Thử hàm này xem được không.

Mã:

Function demso(ByVal dk As String, ByVal cach As Boolean) As Long
         Dim i As Long, arr
         With CreateObject("VBScript.RegExp")
                .Global = True
               If cach = True Then
                  .Pattern = "[^A-Z]"
               Else
                  .Pattern = "[^a-z]"
               End If
                arr = .Replace(dk, "")
                demso = Len(arr)
         End With
End Function

Mã:

=demso(A1,0)

Mã:

=demso(A1,1)

Cảm ơn bác code chạy ok. Còn trường hợp 1 text làm sao biết bao nhiêu số từ 0 đến 9 thì làm sao bác. Ví dụ "ABC1234" Thì gồm 3 chử và 4 số

VetMini · 19/10/19

Dùng Regex thì dùng 4 mẫu:
[A-Z]
[a-z]
[0-9]
(nếu muốn, thêm mẫu thứ tư, cộng 3 mẫu kia lại thêm dấu ^, tức là các ký tự đặc biệt)
Không phải ri pơ lết pơ lọt gì hết. Excecute và xét Count thì biết có bao nhiêu lần match.

Loại hàm này thì cũng chả cần flag để lựa loại trả về. Cứ việc cho nó Excecute lần lượt các mẫu, và cho kết quả vào một mảng. Hàm sẽ trả về một mảng 3 (hoặc 4 phần tử). Trong bảng tính, dùng hàm Index để lấy đúng phần tử cần.

hocexcel_1991 · 21/10/19

Góp vui tí

Mã:

Chữ Hoa=SUMPRODUCT(N(NOT(EXACT(MID(A2,ROW($1:$100),1),LOWER(MID(A2,ROW($1:$100),1))))))
Chữ thường=SUMPRODUCT(N(NOT(EXACT(MID(A2,ROW($1:$100),1),UPPER(MID(A2,ROW($1:$100),1))))))

VetMini · 21/10/19

VBA Regexp:

Mã:

Function CountCharTypes(ByVal s As String) As Variant
' returns an array showing count of each character type within string 2
' array indices: 1st = alphabetic capital; 2nd = alpahbetic noncapital; 3rd = digit; 4th = others
Static rx As Object
If rx Is Nothing Then
    Set rx = CreateObject("vbscript.regexp")
    rx.Global = True
End If
Dim CountChar(0 To 3) As Integer, i As Integer
rx.Pattern = "([A-Z])|([a-z])|([0-9])" ' alphabetic, capital, non-capital (need to add more if Vietnamese), and digits
For Each mat In rx.Execute(s)
    For i = 0 To mat.submatches.count - 1
        If Not IsEmpty(mat.submatches(i)) Then CountChar(i) = CountChar(i) + 1
    Next i
Next mat
CountChar(3) = Len(s) - CountChar(0) - CountChar(1) - CountChar(2) ' other characters
CountCharTypes = CountChar
End Function

Đây là hàm trả về 1 mảng. Cách dùng:
Tính 1 lần: chọn 4 ô liên tiếp trên bảng tính, nhập hàm =CountCharTypes("ABC, 123 ab"), và Ctrl+Shift+Enter
Kết quả sẽ là 3 2 3 4 (3 dấu cách và 1 dấu phẩy)
Lưu ý đây là mảng 1 dòng. Nếu chọn cột dọc thì phải dùng hàm Transpose.
Tính nhiều lần: =Index(CountCharTypes("ABC, 123 ab"),1) là đếm số ký tự viết hoa. Kết quả là 3

Cách khác:
rx.Pattern = "[A-Z]"
CountChar(0) = rx.Execute(s).Count
rx.Pattern = "[a-z]"
CountChar(1) = rx.Execute(s).Count
...

dazkangel · 21/10/19

hocexcel_1991 đã viết:
Góp vui tí

Mã:

Chữ Hoa=SUMPRODUCT(N(NOT(EXACT(MID(A2,ROW($1:$100),1),LOWER(MID(A2,ROW($1:$100),1)))))) Chữ thường=SUMPRODUCT(N(NOT(EXACT(MID(A2,ROW($1:$100),1),UPPER(MID(A2,ROW($1:$100),1))))))

Kết quả ổn không, tôi không ngồi máy nhưng ngắn là thích rồi haha. Bạn thử các từ có dấu chưa.

hocexcel_1991 · 21/10/19

dazkangel đã viết:
Kết quả ổn không, tôi không ngồi máy nhưng ngắn là thích rồi haha. Bạn thử các từ có dấu chưa.

Công thức này chỉ áp dụng cho chuỗi chữ cái không dấu hihi

VetMini · 21/10/19

Lại VBA regex:
Nới rộng thêm một chút, bao gồm trường hợp bài #2 và #4.

Mã:

Function CountCharTypes(ByVal s As String, Optional Byval As Integer typ = 0) As Variant
  ' returns count of a type of characters in string s.
  ' Type specified as typ:
  ' 1: alphabetic, capital
  ' 2: alphabetic, noncapital
  ' 3: digit
  ' 4: none of the above, ie other characters
  ' Otherwise
  ' returns an array showing count of each character type within string
  ' array indices: 1st = alphabetic capital; 2nd = alpahbetic noncapital; 3rd = digit; 4th = others
Static rx As Object
Static cPattern(1 To 3) As String
Dim CountChar(1 To 4) As Integer
If rx Is Nothing Then
  Set rx = CreateObject("vbscript.regexp")
  rx.Global = True
End If
If cPattern(1) = "" Then
  cPattern(1) = "[A-Z]" ' add Vietnamese characters here
  cPattern(2) = "[a-z]"
  cPattern(3) = "[0-9]"
End If
Select Case typ
Case 1, 2, 3, 4 ' only one type specified
  If typ = 4 Then ' characters outside all three patterns above
    rx.Pattern = Repace(Replace(Join(cPattern, ""), "][", ""), "[", "[^")
  Else
    rx.Pattern = cPattern(typ)
  End If
  CountCharTypes = rx.Execute(s).Count
Case Else ' count each type separately
  For typ = 1 To 3
    rx.Pattern = cPattern(typ)
    CountChar(typ) = rx.Execute(s).Count
  Next i
  CountChar(4) = Len(s) - CountChar(1) - CountChar(2) - CountChar(3) ' other characters
  CountCharTypes = CountChar
End Select
End Function

Phan Thế Hiệp · 22/10/19

hocexcel_1991 đã viết:
Công thức này chỉ áp dụng cho chuỗi chữ cái không dấu hihi

Không chịu thử lại, nên trả lời trật lất rồi em.

Công thức em tạo bất chấp chữ nguyên âm VN có hay không có dấu.
Có thể rút gọn 1 chút:

Mã:

Chữ hoa=SUMPRODUCT(1-EXACT(MID(A1,ROW($1:$100),1),LOWER(MID(A1,ROW($1:$100),1))))
Chữ thường=SUMPRODUCT(1-EXACT(MID(A1,ROW($1:$100),1),UPPER(MID(A1,ROW($1:$100),1))))
Đếm số=SUMPRODUCT(ISNUMBER(--MID(A2,ROW($1:$100),1))*1)

Enter, fill xuống.

Nhưng, nhớ không lầm đây là Box Lập trình mà 2 em @dazkangel và @hocexcel_1991!!!???

Thân

dazkangel · 22/10/19

Phan Thế Hiệp đã viết:
Không chịu thử lại, nên trả lời trật lất rồi em.

Công thức em tạo bất chấp chữ nguyên âm VN có hay không có dấu.
Có thể rút gọn 1 chút:

Mã:

Chữ hoa=SUMPRODUCT(1-EXACT(MID(A1,ROW($1:$100),1),LOWER(MID(A1,ROW($1:$100),1)))) Chữ thường=SUMPRODUCT(1-EXACT(MID(A1,ROW($1:$100),1),UPPER(MID(A1,ROW($1:$100),1)))) Đếm số=SUMPRODUCT(ISNUMBER(--MID(A2,ROW($1:$100),1))*1)

Enter, fill xuống.

Nhưng, nhớ không lầm đây là Box Lập trình mà 2 em @dazkangel và @hocexcel_1991!!!???

Thân

Giúp code hoặc công thức anh, nên em làm thử

VetMini · 22/10/19

Cái này nếu công thức không quá khủng thì nên dùng công thức.

Tôi ở đây chỉ hiến kế mọi ngừoi cách dùng regex. Hai điểm ít thấy sử dụng trên GPE:
1. thay nhiều pattern khác nhau để tìm nhiều lần. Hồi nào giờ trên GPE ngừoi ta quen là chỉ dùng 1 pattern.
2. đếm số lần xuất hiện của pattern (bài #12, #15). Hồi nào giờ trên nGPE ngừoi ta quen dùng Replace chứ ít dùng tới Execute.

Thêm một phần phụ về cách dùng hàm UDF trả về mảng (bài #12).

HeSanbi · 24/10/19

Bạn thử sử dụng code dưới đây với 50000 từ xem.

Hoa: LenCharSpecial("chuỗi", 1)
Thường: LenCharSpecial("chuỗi")
Đếm số: LenNumberChar("Chuỗi 123")

PHP:

Function LenCharSpecial(ByVal Text As String, Optional ByVal iU As Boolean = False) As Long
  With CreateObject("VBScript.RegExp")
    .Global = True
    .IgnoreCase = False
    .Pattern = "[\\\?\+\*\[\]\$\^\=\-\{\}\(\)\:\.\|]"
    Text = .Replace(Text, "")
    If iU Then .Pattern = "[^" & LCase(Text) & "]" Else .Pattern = "[^" & UCase(Text) & "]"
    LenCharSpecial = .Execute(Text).Count
  End With
End Function

Function LenNumberChar(ByVal Text As String) As Long
  With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "[\d]"
    LenNumberChar= .Execute(Text).Count
  End With
End Function

'Xu hướng lập trình xử lý dữ liệu lớn:'
'+ Phương hướng 1: Thay vì là một Function hãy đưa code thẳng vào Thủ tục chính.'
'+ Phương hướng 2: Khởi tạo một lần duy nhất'
'Static RE As Object'
'If RE Is Nothing Then Set RE = CreateObject("VBScript.RegExp")'
'With RE'
'Thay vì sử dụng IIf hãy sử dụng If'
'End With'

batman1 · 24/10/19

HeSanbi đã viết:

Bạn thử sử dụng code dưới đây với 50000 từ xem.

Hoa: LenCharSpecial("chuỗi", 1)
Thường: LenCharSpecial("chuỗi")
Đếm số: LenNumberChar("Chuỗi 123")

PHP:

Function LenCharSpecial(ByVal Text As String, Optional ByVal iU As Boolean = False) As Long
  Dim Tmp1$, Tmp2$, L$, U$
  #If VBA7 Then
    L = LCase$(Text): U = UCase$(Text)
  #Else
    L = LCase(Text): U = UCase(Text)
  #End If
  With CreateObject("VBScript.RegExp")
    .Global = True
    .IgnoreCase = False
    .Pattern = "[^" & IIf(iU, L, U) & "]"
    Tmp1 = .Replace(Text, "")
    .Pattern = "[^" & IIf(iU, U, L) & "]"
    Tmp2 = .Replace(Text, "")
    .Pattern = "[" & Tmp1 & "]"
    LenCharSpecial = Len(.Replace(Tmp2, ""))
  End With
End Function

Function LenNumberChar(ByVal Text As String) As Long
  With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "[^\d]"
    LenNumberChar= Len(.Replace(Text, ""))
  End With
End Function

Trích

Ví dụ ô A1 có Text "ABCD 123 ef +-*/" thì có 4 chữ Hoa và 2 chữ thường ( không đếm số và các ký tự đặc biệt )

Bạn thử chạy code với A1 = "ABCD 123 ef +-*/" xem sao

HeSanbi · 24/10/19

batman1 đã viết:
Trích

Bạn thử chạy code với A1 = "ABCD 123 ef +-*/" xem sao

Một nhầm lẩn nho nhỏ, sai soát khi chưa loại bỏ cú pháp của Biểu thức chính quy.
đã sửa lỗi, Bác @batman1 xem lại.

batman1 · 24/10/19

HeSanbi đã viết:
Một nhầm lẩn nho nhỏ, sai soát khi chưa loại bỏ cú pháp của Biểu thức chính quy.
đã sửa lỗi, Bác @batman1 xem lại.

Tôi thích cái Pattern của bạn. Và tôi nghĩ là code của bạn phục vụ mọi ký tự "đặc biệt".

Nếu ký tự "đặc biệt" chỉ là những ký tự "bình thường" trên bàn phím có mã >= 32 và <= 127 thì tôi đề nghị code sau. Bạn thử test xem.

Mã:

Function CountCharSpecial(ByVal Text As String, Optional ByVal thuong As Boolean = False) As Long
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[\x20-\x40\x5B-\x60\x7B-\x7E]"
        Text = .Replace(Text, "")
        .Pattern = "[^" & IIf(thuong, UCase(Text), LCase(Text)) & "]"
        CountCharSpecial = .Execute(Text).Count
    End With
End Function

Text chứa các ký tự chữ và các ký tự trong "!"#$%&'()+-*/0123456789:;<=>?@[\]^{|}"

HeSanbi · 24/10/19

batman1 đã viết:
Tôi thích cái Pattern của bạn. Và tôi nghĩ là code của bạn phục vụ mọi ký tự "đặc biệt".
Nếu ký tự "đặc biệt" chỉ là những ký tự "bình thường" trên bàn phím có mã >= 32 và <= 127 thì tôi đề nghị code sau. Bạn thử test xem.

Đúng là phải dùng kiểu pattern Unicode để loại ký tự dấu của Bác @batman1
Trong quá trình viết code để giúp chủ topic cho nhanh chóng, cũng bởi cái tính lười nên không xem bảng mã Unicode.
Cũng may sao là có giải thuật đúng đắng để giải quyết vấn đề.

Miccpro · 27/10/19

Nhân tiện có người hỏi hàm đếm chữ HOA và chữ thường, em xin hỏi các anh chị có thể viết được hàm tính tổng độ dài của chuỗi không (Không phải hàm Len mà là hàm tính độ dài (rộng) của chuỗi như kiểu độ rộng của cột trong excel)

snow25 · 27/10/19

Miccpro đã viết:
Nhân tiện có người hỏi hàm đếm chữ HOA và chữ thường, em xin hỏi các anh chị có thể viết được hàm tính tổng độ dài của chuỗi không (Không phải hàm Len mà là hàm tính độ dài (rộng) của chuỗi như kiểu độ rộng của cột trong excel)

Bạn cho cái ví dụ cụ thể xem nào.

befaint · 27/10/19

snow25 đã viết:
Bạn cho cái ví dụ cụ thể xem nào.

Ví dụ cái gì nữa. Người ta cần xem một chuỗi ký tự dài bao nhiêu đơn vị chiều dài đó.

Thứ nhất, mục đích oái ăm.
Thứ hai, quá phức tạp. Bởi nó (kích thước chiều dài) phụ thuộc quá nhiều thứ:
- Font type, font size, bảng mã. (Bạn đã từng thiết kế font chữ sẽ hiểu cái này).
- Kiểu format: trái/ phải/ giữa/ đều hai phía (nảy sinh khoảng cách giữa các ký tự biến động theo độ rộng cột và số lượng ký tự), củ chuối nhất là khi Shrink to fit. Tìm được cái tỉ lệ của nó cũng xong cuộc đời rồi.

snow25 · 27/10/19

befaint đã viết:
Ví dụ cái gì nữa. Người ta cần xem một chuỗi ký tự dài bao nhiêu đơn vị chiều dài đó.

Thứ nhất, mục đích oái ăm.
Thứ hai, quá phức tạp. Bởi nó (kích thước chiều dài) phụ thuộc quá nhiều thứ:
- Font type, font size, bảng mã
- Kiểu format: trái/ phải/ giữa/ đều hai phía (nảy sinh khoảng cách giữa các ký tự biến động theo độ rộng cột và số lượng tự ký), củ chuối nhất là khi Shrink to fit. Tìm được cái tỉ lệ của nó cũng xong cuộc đời rồi.

Thế em mới bảo bạn đó đưa ví dụ.

HeSanbi · 27/10/19

Miccpro đã viết:
Nhân tiện có người hỏi hàm đếm chữ HOA và chữ thường, em xin hỏi các anh chị có thể viết được hàm tính tổng độ dài của chuỗi không (Không phải hàm Len mà là hàm tính độ dài (rộng) của chuỗi như kiểu độ rộng của cột trong excel)

100% là viết được, vì Font nằm trong System, bạn có thể lấy thông tin từ file Font
chiều cao, chiều rộng, với ký tự và dấu. Tạo các hàm phân tích tỉ lệ dựa trên Pixel, và dựa vào các hàm WinApi để thực hiện.

Và trên Google đã có, nên không phải bỏ công sức để viết lại, bạn nên bỏ ít công sức để tìm kiếm.

befaint · 27/10/19

Mỗi ký tự trong một kiểu font được vẽ ở dạng vector (curve), không phải điểm ảnh.
Pixel phụ thuộc vào Zoom (10% - 400%), cái người ta cần là giá trị độ dài khi in ra giấy trắng mực đen ứng với tỉ lệ 1:1.

batman1 · 28/10/19

befaint đã viết:
Mỗi ký tự trong một kiểu font được vẽ ở dạng vector (curve), không phải điểm ảnh.

Ý người ta có thể nói về cái khác. Dù glyph thế nào thì cuối cùng cũng là in ra màn hình, lên giấy. Cái in ra đó nó có độ dài và độ cao trong bất cứ device context nào. Có thể người ta nói tới những API kiểu GetTextExtentPoint32 ̣(+ CreateFont, GetDeviceCaps ...).

Tôi không hiểu chủ thớt muốn gì *** nhưng tôi có thể thử đoán là HeSanbi đã hiểu như thế nào (có thể hiểu sai ý chủ thớt), và nói về giải pháp nào.

***: Với kiểu nói chung chung, không ví dụ, không nói về "bối cảnh" cụ thể, tức định dùng vào việc gì, thì thánh cũng không hiểu chứ nói gì tới batman1.
Chẳng hạn tôi muốn vẽ một hình chữ nhật 200 x 300 pixel trên màn hình. Tùy độ phân dải của màn hình mà nó to hay nhỏ - kích thước bằng mm là lớn hay nhỏ. Nhưng tính bằng pixel thì vẫn là 200 x 300. Bây giờ tôi muốn "in" một đoạn text "Ngày mai em đi. Biển nhớ tên em gọi về" bằng phông chữ Times New Roman kích thước 12 chữ thường (không đậm, nghiêng ...) và tôi muốn biết đoạn chữ đó dài bao nhiêu, có nằm trong khung hay không. Đấy là bối cảnh cụ thể. Và trong trường hợp này có thể tính được bằng cách dùng API.

Miccpro · 28/10/19

batman1 đã viết:
Ý người ta có thể nói về cái khác. Dù glyph thế nào thì cuối cùng cũng là in ra màn hình, lên giấy. Cái in ra đó nó có độ dài và độ cao trong bất cứ device context nào. Có thể người ta nói tới những API kiểu GetTextExtentPoint32 ̣(+ CreateFont, GetDeviceCaps ...).

Tôi không hiểu chủ thớt muốn gì *** nhưng tôi có thể thử đoán là HeSanbi đã hiểu như thế nào (có thể hiểu sai ý chủ thớt), và nói về giải pháp nào.

***: Với kiểu nói chung chung, không ví dụ, không nói về "bối cảnh" cụ thể, tức định dùng vào việc gì, thì thánh cũng không hiểu chứ nói gì tới batman1.
Chẳng hạn tôi muốn vẽ một hình chữ nhật 200 x 300 pixel trên màn hình. Tùy độ phân dải của màn hình mà nó to hay nhỏ - kích thước bằng mm là lớn hay nhỏ. Nhưng tính bằng pixel thì vẫn là 200 x 300. Bây giờ tôi muốn "in" một đoạn text "Ngày mai em đi. Biển nhớ tên em gọi về" bằng phông chữ Times New Roman kích thước 12 chữ thường (không đậm, nghiêng ...) và tôi muốn biết đoạn chữ đó dài bao nhiêu, có nằm trong khung hay không. Đấy là bối cảnh cụ thể. Và trong trường hợp này có thể tính được bằng cách dùng API.

Lúc đầu em tưởng khó làm nhưng sau khi bác HeSanbi gợi ý, em cũng đã tìm được 1 hàm trên Google.
Em thử ứng dụng hàm này như sau:
Giả sử các cột tư C->AA đang là Merge, nếu dùng hàm tính toán độ rộng và cao của chuỗi (ở file đính kèm) thì có thể biết được lúc nào nó cần dãn dòng và dãn bao nhiêu không ạ? Em chưa hiểu nên chưa quy đổi được đơn vị từ Pixel sang đơn vị cột trong excel. Test cho một số trường hợp thì nó không ra quy luật. Mong các anh chị giúp đỡ!

befaint · 28/10/19

batman1 đã viết:
Tôi không hiểu chủ thớt muốn gì

Em hay nhớ thành viên trước kia đang hỏi vấn đề gì. Anh chàng kia vẫn loay hoay cái vụ chỉnh biên bản để in (dãn dòng/ cột).
---
Vụ đó có cách là tham chiếu vào một cell 'chuẩn' rồi tính chiều cao/rộng và dãn dòng/ cột cái mình muốn, và đã có bài làm rồi.

Miccpro · 28/10/19

Đúng là

Anh chàng kia vẫn loay hoay cái vụ chỉnh biên bản để in (dãn dòng/ cột)

và

Vụ đó có cách là tham chiếu vào một cell 'chuẩn' rồi tính chiều cao/rộng và dãn dòng/ cột cái mình muốn, và đã có bài làm rồi.

anh ạ.
Đó cũng là vì sao em không lập thêm topic mới để hỏi về vấn đề này nữa (sẽ loãng diễn đàn). Mà chỉ khi đọc topic này thấy có liên quan đến xử lý ký tự nên em mới hỏi "ké" mong các anh/chị giúp.
P/s: Vụ dãn dòng/ cột em vẫn đang làm theo hướng dẫn trước kia và ổn ạ, nhưng vẫn muốn tìm xem có cách không ?

. Hơi tham lam anh nhỉ?

HeSanbi · 28/10/19

befaint đã viết:
Mỗi ký tự trong một kiểu font được vẽ ở dạng vector (curve), không phải điểm ảnh.
Pixel phụ thuộc vào Zoom (10% - 400%), cái người ta cần là giá trị độ dài khi in ra giấy trắng mực đen ứng với tỉ lệ 1:1.

Sao anh befaint đây đọc không hiểu đoạn:
"Tạo các hàm phân tích tỉ lệ dựa trên Pixel"
Nó có 2 từ "dựa trên", có nói font cao bao nhiêu Pixel thì "phản bát" có vẻ hợp lý.

Dựa trên Pixel ta còn dễ dàng tính thêm được cho Resolution của Card đồ họa, lúc đó ta có thể căn chỉnh hợp lý khi chuyển sang một Resolution khác.

Giống như File Excel từ card Full HD mở sang HQ hay HD / Ultra HD / QHD.

befaint · 28/10/19

HeSanbi đã viết:
Dựa trên Pixel ta còn dễ dàng tính thêm được cho Resolution của Card đồ họa, lúc đó ta có thể căn chỉnh hợp lý khi chuyển sang một Resolution khác.

Hiển thị trên màn hình là bao nhiêu không cần làm, cái thành viên kia cần là giá trị đó tương quan như nào với giá trị đo được ở bản in trên giấy.
Bạn xem bài #33 đó.

HeSanbi · 28/10/19

befaint đã viết:
Hiển thị trên màn hình là bao nhiêu không cần làm, cái thành viên kia cần là giá trị đó tương quan như nào với giá trị đo được ở bản in trên giấy.
Bạn xem bài #33 đó.

Hiển thị trên màn hình mà không cần thì có gì để bàn đâu "làm đại làm lụi"
Tương quan giữa màn hình và giấy in khác nhau rất nhiều.
Đa số người in, phải in hỏng đôi trăm tờ rồi qua lại màn hình tưởng tượng lại và chỉnh sửa.
thử làm Excel trên 1 trên Iphone 1 trên Galaxy Note, rồi mang đi in. "chắc là giống nhau"

Miccpro đã viết:
Em chưa hiểu nên chưa quy đổi được đơn vị từ Pixel sang đơn vị cột trong excel

Đã hỏi Google mà không hỏi ổng luôn câu này.

Đơn vị trên Excel Tính là Points
1 pixels =0.75 points
points = pixels / 96 * 72
96 là đơn vị dpi mặc định trên window.
Tùy Resolution của Card đồ họa: Mà tỉ lệ này thay đổi.

Google "dpi" là gì xem sao?

HeSanbi · 29/10/19

befaint đã viết:
Hiển thị trên màn hình là bao nhiêu không cần làm, cái thành viên kia cần là giá trị đó tương quan như nào với giá trị đo được ở bản in trên giấy.
Bạn xem bài #33 đó.

Nói có sách mách có chứng chứ không người ta nói mình nói bừa.

dpi-and-device-independent-pixels

Giúp code hoặc công thức đếm bao nhiêu chữ HOA và chữ thường (1 người xem)

Người dùng đang xem chủ đề này

Thành viên bị đình chỉ hoạt động

Thành viên gạo cội

Thành viên mới

Chuyên gia GPE

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

|||||||||||||

<New Horizons>

File đính kèm

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

Thành viên bị đình chỉ hoạt động

Đang đi tìm hòn đá

Bắt đầu học Excel

Đang đi tìm hòn đá

<New Horizons>

Bắt đầu học Excel

Đang đi tìm hòn đá

-⍟-

File đính kèm

<New Horizons>

Đang đi tìm hòn đá

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên gạo cội

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên gạo cội

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

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

Thành viên gạo cội

|||||||||||||

Thành viên gạo cội

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

|||||||||||||

Thành viên gạo cội

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

File đính kèm

|||||||||||||

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

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

|||||||||||||

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thời gian đếm ngược.