Tôi tự học máy tính và kiến thức là do tự mò học mà có chứ không đến trường học vi tính ngày nào và cũng không có đến bằng A, vì vậy cách hiểu của tôi có thể sai lệch.
Không phải anh ạ! 8,1 inch sao be vậy ạ?
Em đã để mặc định là cm anh ạ! nhưng 8,1 cm nhỏ quá vậy sao anh?
Vậy đơn vị độ rộng cột 8,1 là đơn vị gì vậy anh HeSanbi
Tôi đã trả lời rồi, bạn định hỏi đến bao giờ vậy.
Vâng, em thấy rồi ạ!
Anh ơi, code bị lỗi khi sử dụng 02 hàm :
Nhờ bác giải thích giúp em mới!
Thầy be09 có thể giúp em hàm mà tính được tổng độ rộng hoặc cao của vùng.
Sub TinhChieuCao()
Dim i, Lr, ChCao, Total As Integer
Lr = Sheet2.Range("B" & Rows.Count).End(xlUp).Row
With Sheet2
For i = 2 To Lr
ChCao = .Range("B" & i).EntireRow.Height
Total = Total + ChCao
Next i
End With
MsgBox "Tong chieu cao la: " & Total
End SubBạn copy bị thiếu một phần Code để vào Worksheet chứa cell có các hàm đó
Bạn đọc lại các bài tôi đã đăng, có nói đến các đơn vị tính trong một Cell
Bạn nhớ rằng đơn vị đo bề ngang (độ rộng cột) và bề cao (chiều cao) trong excel hoàn toàn khác nhau
Xin cảm ơn anh!
Ai đã nói "bề rộng cột mặc định là Picas" vậy bạn?
Vâng, vậy như hình em đo bề rộng cột là 11,67 như hình sau, thì đơn vị của 11,67 là gì anh?
Đơn vị độ rộng để tính toán của cột trong VBA chắc chắn 100% là Points mình đồng ý!
hic, em nhờ anh giúp em: bài toán
Chẳng nhẽ tôi phải viết cả một bài viết để giải thích cho các bạn đây.
Tôi đã có hướng dẫn ở #8 rồi
Em cứ tính bằng máy tính nên nó cứ lệch anh ạ! Không ra được một số gọi là hệ số tỷ lệ!
Bạn sang bài viết này đọc từ #34
#If VBA7 Then
Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hDC As LongPtr, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As LongPtr, ByVal hDC As LongPtr) As Long
#Else
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
#End If
Public PixelsPerX!, PixelsPerY!, PointsPerX!, PointsPerY!
Sub GetPerPointsAndPerPixels()
If PixelsPerX <> 0 Then Exit Sub
Const POINTSPERINCH = 72, LOGPIXELSX = 88, LOGPIXELSY = 90
#If VBA7 Then
Dim hDC^, SngX!, SngY!
#Else
Dim hDC&, SngX!, SngY!
#End If
hDC = GetDC(0)
SngX = GetDeviceCaps(hDC, LOGPIXELSX): SngY = GetDeviceCaps(hDC, LOGPIXELSY)
PixelsPerX = SngX / POINTSPERINCH: PixelsPerY = SngY / POINTSPERINCH 'Pixels = POINTS * PixelsPer
PointsPerX = POINTSPERINCH / SngX: PointsPerY = POINTSPERINCH / SngY 'Points = PIXELS * PointsPer
ReleaseDC 0, hDC
End Sub
'Sửa lại hàm sau:
'Với đối số IsPoints = True thì hàm trả về giá trị với đơn vị Points
'Với đối số IsPoints = False thì hàm trả về giá trị với đơn vị Pica
'Phương thức [A1].EntireColumn.ColumnWidth nhận giá trị phải là Pica
'1 Pica = 12 Point - Phụ thuộc thông số window mà giá trị này thay đổi
'Ví dụ:
'Trong giãn Cột: 1 Pica = 16 Pixel
'nhưng: 10 Pica = 97 Pixel, 100 Pica = 907 Pixel
Function RangeWidth!(ByVal Rng As Range, Optional ByVal IsPoints As Boolean = True)
If IsPoints Then
RangeWidth = Rng.EntireColumn.Width
Else
Dim I&
For I = 1 To Rng.Columns.Count
RangeWidth = RangeWidth + Rng(1, I).EntireColumn.ColumnWidth
Next I
End If
End FunctionCột A em đo được bề rộng là 48 points em muốn chuyển đổi về đơn vị.
Bạn thử thực hiện thế này xem sao:
Public Sub Test()
Dim Tmp!, TiLe!, Characters!, Points!
'---------------------------------'
Application.ScreenUpdating = False
Tmp = Columns(1).ColumnWidth
Columns(1).ColumnWidth = 10
TiLe = Columns(1).Width / 9 - 1
Columns(1).ColumnWidth = Tmp
Application.ScreenUpdating = True
'---------------------------------'
Characters = 10
Points = (Characters - 1) * TiLe + 9
Characters = (Points - 9) / TiLe + 1
Debug.Print TiLe, Points, Characters
Points = [A1:C1].EntireColumn.Width
[D1].EntireColumn.ColumnWidth = (Points - 9) / TiLe + 1
End SubCám ơn anh, anh cho em hỏi:
