Làm sao Lưu lại và chạy lại Kích thước dòng và cột trong 1 vùng

[congnguyen88]

Cho 1 vùng A1:C3 ( tất nhiên vùng này thay đổi được trong code ) . giờ làm sao tạo 2 sub
1. Code Lưu lại giá trị kích thước của dòng và cột ( Lưu kích thước dòng vào ô E5, Lưu kích thước cột vào ô F5 ) Tất nhiên ô E5,F5 tùy chỉnh ô khác được
2. Code Chạy lại đúng kích thước khi từ giá trị của ô E5,F5
Mục đích của bài này:
Do trong quá trình làm việc kế toán của em, em thường copy các báo cáo của Sếp gửi qua File của em. thì chiều cao và chiều rộng em đều chỉnh thủ công nên rất là mất thời gian. File công ty của em đa số là tầm 200 dòng và khoảng 20 cột . Mong mọi người giúp đở. em cảm ơn các thầy , anh chị

 

[VetMini]

Mục đích của bài này:
Do trong quá trình làm việc kế toán của em, ...

Tôi có cảm tưởng là kế toán công ty bạn làm việc 10% với dữ liệu kế toán, và 90% với files.

 

[befaint]

Đừng có bao giờ ấn Ctrl + V là được. Điều đại kị khi dùng Excel.

Chỉ dán giá trị thôi (paste value).

 

[be_09]

Cho 1 vùng A1:C3 ( tất nhiên vùng này thay đổi được trong code ) . giờ làm sao tạo 2 sub
1. Code Lưu lại giá trị kích thước của dòng và cột ( Lưu kích thước dòng vào ô E5, Lưu kích thước cột vào ô F5 ) Tất nhiên ô E5,F5 tùy chỉnh ô khác được
2. Code Chạy lại đúng kích thước khi từ giá trị của ô E5,F5
Mục đích của bài này:
Do trong quá trình làm việc kế toán của em, em thường copy các báo cáo của Sếp gửi qua File của em. thì chiều cao và chiều rộng em đều chỉnh thủ công nên rất là mất thời gian. File công ty của em đa số là tầm 200 dòng và khoảng 20 cột . Mong mọi người giúp đở. em cảm ơn các thầy , anh chị

1/ Trình độ cao quá nên giải thích tôi chẳng hiểu được Tọa độ A1: C3 là cái gì?.
2/ Sau khi đọc xong nội dung bài 1 thì tôi hiểu mù mờ thế này "Kích thước cột là tự canh và sẽ cố định nó theo thiết lập trang in, còn lại thì tự động co giản dòng theo dữ liệu được gán vào A1: C3".
3/ Nếu thực sự muốn co giản dòng thì đọc ở Link sau: Co giản dòng

 

[congnguyen88]

1/ Trình độ cao quá nên giải thích tôi chẳng hiểu được Tọa độ A1: C3 là cái gì?.
2/ Sau khi đọc xong nội dung bài 1 thì tôi hiểu mù mờ thế này "Kích thước cột là tự canh và sẽ cố định nó theo thiết lập trang in, còn lại thì tự động co giản dòng theo dữ liệu được gán vào A1: C3".
3/ Nếu thực sự muốn co giản dòng thì đọc ở Link sau: Co giản dòng

thí dụ bây giờ có 1 file báo cáo có vùng in là A1: H200, Vùng đó đã chỉnh sửa chuẩn đúng theo kích thước dòng và cột. Giờ bác copy vùng đó sang file khác thì chỉ được dữ liệu thôi, Còn kích thước chiều cao và chiều rộng nó đâu có đúng ạ
Cái co dãn tự động em biết. Nhưng ở đây cần chính xác kích thước của File gốc bác ạ. nó còn áp dụng nhiều vấn để khác chứ không phải mổi để print

Bài đã được tự động gộp: 26/3/20

Tôi có cảm tưởng là kế toán công ty bạn làm việc 10% với dữ liệu kế toán, và 90% với files.

ý em là do em thường xuyên copy dữ liệu từ file này sang file khác. nên sau khi mỗi lần copy em đểu chỉnh sữa lại thủ công sao cho giống như kích thước file gốc. Do việc này lặp đi lặp hoài nên em mới nhờ mọi người viết code cho nhanh
Ví dụ đây là 1 file gốc

Ví dụ 1 file gốc có vùng dữ liệu em cần cope A1:G10 : Em cần copy chính xác kích thước dòng và cột sang 1 Sheet khác hoặc 1 file khác mà không dùng phương thức copy Sheet thì em phải làm sao . Hiện em tự kích vào từ dòng và cột xem kích thước trước sau đó tự chỉnh thủ công ở mục này

 

[PacificPR]

ý em là do em thường xuyên copy dữ liệu từ file này sang file khác. nên sau khi mỗi lần copy em đểu chỉnh sữa lại thủ công sao cho giống như kích thước file gốc. Do việc này lặp đi lặp hoài nên em mới nhờ mọi người viết code cho nhanh

Nếu chỉ có copy thì Bạn thử em Ma cà rồng này xem

Sub CopyData()
    Dim CopyFrom As Range, CopyTo As Range
    Dim CopyFromCount As Long, r As Long
    On Error GoTo Thoat
    Set CopyFrom = Application.InputBox(Prompt:= _
            "Chon pham vi cua ban de sao chep ", Title:="Chon du lieu", Type:=8)
    Set CopyTo = Application.InputBox(Prompt:= _
            "Chon mot o de gan du lieu ", Title:="Ket qua", Type:=8)
    Application.ScreenUpdating = False
    CopyFromCount = CopyFrom.Rows.Count
    With CopyTo
        CopyFrom.Copy
        .PasteSpecial xlPasteColumnWidths
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
    End With
    With CopyFrom
        For r = 1 To CopyFromCount
            CopyTo.Rows(r).RowHeight = .Rows(r).RowHeight
        Next r
    End With
    Application.CutCopyMode = False
Thoat:
    Application.ScreenUpdating = True
End Sub

 

[congnguyen88]

Đừng có bao giờ ấn Ctrl + V là được. Điều đại kị khi dùng Excel.

Chỉ dán giá trị thôi (paste value).

dạ em cảm ơn thầy. Nhưng kích thước Dòng và cột em muốn giống như file gốc

Bài đã được tự động gộp: 26/3/20

Nếu chỉ có copy thì Bạn thử em Ma cà rồng này xem

Sub CopyData()
    Dim CopyFrom As Range, CopyTo As Range
    Dim CopyFromCount As Long, r As Long
    On Error GoTo Thoat
    Set CopyFrom = Application.InputBox(Prompt:= _
            "Chon pham vi cua ban de sao chep ", Title:="Chon du lieu", Type:=8)
    Set CopyTo = Application.InputBox(Prompt:= _
            "Chon mot o de gan du lieu ", Title:="Ket qua", Type:=8)
    Application.ScreenUpdating = False
    CopyFromCount = CopyFrom.Rows.Count
    With CopyTo
        CopyFrom.Copy
        CopyTo(1, 1).PasteSpecial xlPasteColumnWidths
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
    End With
    With CopyFrom
        For r = 1 To CopyFromCount
            CopyTo.Rows(r).RowHeight = .Rows(r).RowHeight
        Next r
    End With
    Application.CutCopyMode = False
Thoat:
    Application.ScreenUpdating = True
End Sub

Đó chuẩn theo ý mình rồi đó. Nhưng có điều chỉ làm được trên 1 file đang hoạt động. em muốn paste được sang file khác. Ví dụ em mở 1 file a và 1 file b. Em muốn chọn Vùng A1:G100 file a, Và chọn vùng passte trên file B thì không được. Nhờ cô giáo sữa lại cho chạy trên file khác là ok

 

[PacificPR]

dạ em cảm ơn thầy. Nhưng kích thước Dòng và cột em muốn giống như file gốc

Bài đã được tự động gộp: 26/3/20

Đó chuẩn theo ý mình rồi đó. Nhưng có điều chỉ làm được trên 1 file đang hoạt động. em muốn paste được sang file khác. Ví dụ em mở 1 file a và 1 file b. Em muốn chọn Vùng A1:G100 file a, Và chọn vùng passte trên file B thì không được. Nhờ cô giáo sữa lại cho chạy trên file khác là ok

Ơ ơ mình không phải là cô giáo và mình cũng không có "sữa" nhé
Máy mình nó vẫn chạy ầm ầm đấy này

 

[congnguyen88]

Ơ ơ mình không phải là cô giáo nhé
Máy mình nó vẫn chạy ầm ầm đấy này

ak của mình office 2010 nó hơi khác tí. Cảm ơn cô giáo nhiều

 

[batman1]

Ơ ơ mình không phải là cô giáo và mình cũng không có "sữa" nhé

Không có file, à quên, không có "hiện vật" nên đoán mò: hoặc là máy hút sữa nhái, hoặc không biết sử dụng, hoặc không có bé, hoặc "ai đó" cố tình nấu cơm cữ "đơn giản".