Làm thế nào để chỉnh độ rộng cột bằng với độ rộng dòng (tạo thành ô vuông) ?

[huong_pham]

Mình đang sử dụng excel 2003 nhưng không biết làm cách nào để chỉnh độ rộng cột và dòng bằng nhau, bạn nào biết, xin vui lòng chỉ giúp. Rất cám ơn !

 

[ndu96081631]

Mình đang sử dụng excel 2003 nhưng không biết làm cách nào để chỉnh độ rộng cột và dòng bằng nhau, bạn nào biết, xin vui lòng chỉ giúp. Rất cám ơn !

Để ý 2 chỉ số Pixel của chiều rộng và dài bằng nhau thì cell sẽ vuông

 

[huong_pham]

Để ý 2 chỉ số Pixel của chiều rộng và dài bằng nhau thì cell sẽ vuông

Mình đã thử rồi, chọn độ rộng cột và dòng cùng một thông số nhưng không được.

 

[Ếch Xanh]

Mình đã thử rồi, chọn độ rộng cột và dòng cùng một thông số nhưng không được.

Làm sao mà không được, với hình dưới đây, tôi kéo dài 115 pixels, cao115 pixels, bạn xem và làm theo thôi.

 

[sealand]

Các bạn cũng nên nhìn thấy cái khó của vấn đề này: Nếu chỉ cần chỉnh 1 ô thì ta chỉ cần nhấn và giữ chuột trái tại các Handle Row, Column là sẽ có Tooltip hiện ra cho ta biết chỉ số. Nhưng khi điều chỉnh bằng Code hoặc nhập vào dialog thì bạn tính sao. Cái đơn vị đo RowHeight và ColumnWidth là khác nhau (Và vì vậy mà bạn nhập thông số bằng nhau trong Dialog là không được):

-1 đơn vị RowHeight gần bằng 1,33333 Pixels
-Thằng ColumnWidth thì chẳng giống ai

1DV=12 Picels
10DV=75 Picels
100 DV=705 Picels
​

Vậy cái khó ở đây là phải chuyển đổi ColumnWidth sang Picels, hình như có lần anh Tuân đã viết hàm chuyển đổi này (Sử dụng hàm API và cơ số đếm là bao nhiêu đó) giờ không tìm thấy.
Không biết có lý do gì Excel lại làm khó vậy.

 

[ndu96081631]

Các bạn cũng nên nhìn thấy cái khó của vấn đề này: Nếu chỉ cần chỉnh 1 ô thì ta chỉ cần nhấn và giữ chuột trái tại các Handle Row, Column là sẽ có Tooltip hiện ra cho ta biết chỉ số. Nhưng khi điều chỉnh bằng Code thì bạn tính sao. Cái đơn vị đo RowHeight và ColumnWidth là khác nhau:

-1 đơn vị RowHeight gần bằng 1,33333 Pixels
-Thằng ColumnWidth thì chẳng giống ai

1DV=12 Picels
10DV=75 Picels
100 DV=705 Picels
​

Vậy cái khó ở đây là phải chuyển đổi ColumnWidth sang Picels, hình như có lần anh Tuân đã viết hàm chuyển đổi này (Sử dụng hàm API và cơ số đếm là bao nhiêu đó) giờ không tìm thấy.
Không biết có lý do gì Excel lại làm khó vậy.

Rất đơn giản anh à:

Sub Test()
  With ActiveCell
    .RowHeight = .Width
  End With
End Sub

 

[sealand]

1/Code thì vậy OK đi (Vì mình test không được, Ndu xem lại giùm)



2/Giờ mở dialog biết columnwidth rồi thì nhập Dialog rowheight sao đây cho vuông (Và đây mới là điều cần của tác giả Topic)

 

[ndu96081631]

Code thì vậy OK, giờ mở dialog biết columnwidth rồi thì nhập Dialog rowheight sao đây cho vuông (Và đây mới là điều cần của tác giả Topic)

Anh gõ chỉ số ColumnWidth thôi, còn RowHeight thì tự nó phải tính theo thằng ColumnWidth kia chứ
Ví du

Sub SquareCells()
  Dim Rng As Range, Size As Double
  On Error Resume Next
  Set Rng = Application.InputBox(Prompt:="Chon vung", Type:=8)
  Size = Application.InputBox(Prompt:="Go do dai vao day!", Type:=1)
  With Rng
    .ColumnWidth = Size
    .RowHeight = Rng(1).Width
  End With
End Sub

Nếu cần thì thêm em MsgBox để biết RowHeight có kết quả = bao nhiêu (đương nhiên với hình vuông thì ta chỉ cần 1 thông số duy nhất)