Cố định độ rộng của dòng và cột trong excel ?

  • Thread starter Thread starter henny
  • Ngày gửi Ngày gửi
Liên hệ QC

henny

Thành viên mới
Tham gia
11/6/10
Bài viết
3
Được thích
0
Mình có thiết kế một cái form dùng để in hoá đơn, các dòng và cột trong form đã được định dạng phù hợp với khổ giấy cần in. Tuy nhiên mình muốn người khác có thể chỉnh sửa dữ liệu trong form, nhưng không thể thay đổi format (độ dài, độ rộng, số dòng, số cột, ...) của form đó thì phải làm thế nào?
Có ai biết vấn đề này giúp mình với.

Cảm ơn rất nhiều.
 
Lần chỉnh sửa cuối:
Mình có thiết kế một cái form dùng để in hoá đơn, các dòng và cột trong form đã được định dạng phù hợp với khổ giấy cần in. Tuy nhiên mình muốn người khác có thể chỉnh sửa dữ liệu trong form, nhưng không thể thay đổi format (độ dài, độ rộng, số dòng, sốt cột, ...) của form đó thì phải làm thế nào?
Có ai biết vấn đề này giúp mình với.

Cảm ơn rất nhiều.
Tạm thời thôi thì được, chứ tôi chưa biết cách nào để khóa tuyệt đối.
Tôi vẫn thường làm như vầy: Ẩn hết các tiêu đề dòng, cột, nghĩa là nhìn vào bảng tính chả thấy cột A, cột B hay dòng 1, dòng 2 ở đâu nữa hết.
 
Một cách cũ chuối nước, như sau

Ghi hết các kích cỡ của dòng & cột trong form vô 1 macro;
Trước khi in thì chạy nó.

Nếu dùng bộ thu thì sau khi thu cần xóa hay gộp các lệnh trùng lắp hay không cần thiết.


Còn cách khác nữa là đem qua word làm form mà in; Tuy kỳ công nhưng đẹp hết sẩy!
 
Cảm ơn cách chữa cháy tạm thời của BNTT, nhưng theo cách này thì khi để con trỏ vào cột dữ liệu, rồi double click thì nó cũng tự điều chỉnh cho phù hợp chứ không fix được :-(.
 
Cảm ơn bác SA_DQ nhiều, nhưng bác có thể chỉ cụ thể hơn cách "Ghi hết các kích cỡ của dòng & cột trong form vô 1 macro; Trước khi in thì chạy nó" là làm thế nào được không ạ?
Còn cách làm bên word thì mình cũng đã thường làm và dùng mail merge nhưng thấy bất tiện hơn bên excel.
 
Bạn thử chạy macro sau trên 1 trang tính giả lập xem sao

PHP:
Sub DinhCoDongVaCot()
    Rows("2:2").RowHeight = 29
    Columns("A:A").ColumnWidth = 4
    Columns("B:B").ColumnWidth = 13
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").ColumnWidth = 13
    Rows("3:8").RowHeight = 18
    Range("C10:D10").Select
    With Selection
        .HorizontalAlignment = xlCenter
    End With
End Sub
 
Web KT

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

Back
Top Bottom