Copy paster công thức (1 người xem)

Liên hệ QC

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

Tôi tuân thủ nội quy khi đăng bài

vova2209

Thành viên tích cực
Tham gia
5/4/17
Bài viết
835
Được thích
112
Giới tính
Nam
Nghề nghiệp
Đường bộ
Chào anh chị! có cách nào paste công thức vào khoảng trống đã chọn nhanh.
N10=J9*F10
N11=J9*F11
...
N14=J9*F1
Đoạn tiếp theo
N16=J15*F16
N17=J15*F17
...
N21=J15*F21
Nếu khóa $J$9 thì chỗ công thức N16 không chạy xuống J15
Anh chị có cách nào giúp em ạ, vì bảng tính tận mấy nghìn dòng sửa tay thì lâu quá
Capture.JPG
 

File đính kèm

Ô N10 thử công thức này.
Mã:
=LOOKUP(2,1/ISNUMBER($J$8:J9),$J$8:J9)*$F10
Sau đó chọn ô N10 nhấn Ctrl+C, quét chọn vùng N11:N58, bấm Ctrl+G, nháy nút Special, nháy chọn Blanks và nháy OK, tiếp theo bấm Ctrl+V.
 
Lần chỉnh sửa cuối:
Ô N10 thử công thức này.
Mã:
=LOOKUP(2,1/ISNUMBER($J$8:J9),$J$8:J9)*$F10
Sau đó chọn ô N10 nhấn Ctrl+C, quét chọn vùng N11:N58, bấm Ctrl+G, nháy nút Special, nháy chọn Blanks và nháy OK, tiếp theo bấm Ctrl+V.
cảm ơn bạn chạy ok. Có thao tác nào sử lý để giữ lại nguyên hàm không bạn nhỉ.
 
Có thao tác nào sử lý để giữ lại nguyên hàm không bạn nhỉ.
Cách của nông dân. Bạn nhớ làm thật chính xác các bước nhé. Để dễ mô tả tôi giả sử dòng cuối của bạn là dòng 1000.
1. Nhập công thức sau vào ô CA9
Mã:
=IF(J9="",LEFT(CA8,10)&"*F"&ROW(),"="&CELL("address",J9)&REPT(" ",10)&"|")
2. Copy công thức CA9 cho cả vùng CA9:CA1000
3. Copy paste value để chuyển CA9:CA1000 thành giá trị
4. Dùng Find and Replace thay thế vùng CA9:CA1000 với Find what là *|, Replace with bỏ trống
5. Copy CA9:CA1000, paste special vào ô N9 với tùy chọn Value và Skip blank
6. Dùng Find and Replace thay thế vùng N9:N1000 với Find what là 1 khoảng trắng, Replace with bỏ trống
 
Cách của nông dân. Bạn nhớ làm thật chính xác các bước nhé. Để dễ mô tả tôi giả sử dòng cuối của bạn là dòng 1000.
1. Nhập công thức sau vào ô CA9
Mã:
=IF(J9="",LEFT(CA8,10)&"*F"&ROW(),"="&CELL("address",J9)&REPT(" ",10)&"|")
2. Copy công thức CA9 cho cả vùng CA9:CA1000
3. Copy paste value để chuyển CA9:CA1000 thành giá trị
4. Dùng Find and Replace thay thế vùng CA9:CA1000 với Find what là *|, Replace with bỏ trống
5. Copy CA9:CA1000, paste special vào ô N9 với tùy chọn Value và Skip blank
6. Dùng Find and Replace thay thế vùng N9:N1000 với Find what là 1 khoảng trắng, Replace with bỏ trống
Vâng để e thử. Đúng là em muốn lấy địa chỉ theo cách nông dân.
 
Xổ cha nó cái cột Khói lượng thi công xuống thì mọi việc sẽ đơn giản. (Dùng conditional formatting để xem giống như chưa xổ)
Không làm được thì:
Lập một cột phụ, dùng hàm truy vắn "Khối lượng". Ẩn cột (đặt tên cột là KL xổ xuống chẳng hạn)
=IF($J10, $J10, $'KL xổ xuống'9)
Công thức cột N:
=IF($C10="", $'KL xổ xuống'10*F10, "xx")

Bảng tính gì nhìn bắt bịnh. Tự dưng Khối lượng có 3 lẻ thập phân trong khi mọi con số khác đều có 2 thập phân

Thớt: cần xem kỹ lại ví dụ ở bài #1. Có một vài ví dụ mà cũng sai tét bét.
 
Xổ cha nó cái cột Khói lượng thi công xuống thì mọi việc sẽ đơn giản. (Dùng conditional formatting để xem giống như chưa xổ)
Không làm được thì:
Lập một cột phụ, dùng hàm truy vắn "Khối lượng". Ẩn cột (đặt tên cột là KL xổ xuống chẳng hạn)
=IF($J10, $J10, $'KL xổ xuống'9)
Công thức cột N:
=IF($C10="", $'KL xổ xuống'10*F10, "xx")

Bảng tính gì nhìn bắt bịnh. Tự dưng Khối lượng có 3 lẻ thập phân trong khi mọi con số khác đều có 2 thập phân

Thớt: cần xem kỹ lại ví dụ ở bài #1. Có một vài ví dụ mà cũng sai tét bét.
Chỗ mình bọn phòng quản lý chất lượng nó hành ghê lắm, phải làm đúng theo ý bọn nó, nghĩa là links thu công từng số 1 nó mới chấp nhận. công nghệ, hàm không biết để làm gì
 
1690315724150.png
mình muốn lập 1 phép tính này trong excel nhờ các bạn hướng dẫn ạ
 
Chào anh chị! có cách nào paste công thức vào khoảng trống đã chọn nhanh.
N10=J9*F10
N11=J9*F11
...
N14=J9*F1
Đoạn tiếp theo
N16=J15*F16
N17=J15*F17
...
N21=J15*F21
Nếu khóa $J$9 thì chỗ công thức N16 không chạy xuống J15
Anh chị có cách nào giúp em ạ, vì bảng tính tận mấy nghìn dòng sửa tay thì lâu quá
Câu chuyện của bạn là phải chuẩn hóa lại cách bóc vật tư. Không ai đi bóc vật tư kiểu như bạn cả.
 
Không hiểu biểu mẫu này do Ban QLDA nghĩ ra, hay do bạn tự sáng tạo, nhưng phải nói thật là cho dù "bù giá trực tiếp" thì cũng không nên làm như thế!
Thường thường người ta đổ lỗi cho BQL cứng nhắc.
Trên thực tế, BQL bắt buộc phải cứng nhắc bởi vì nếu không thì mấy thằng dưới nó làm loạn lên hết.

Nếu người làm việc nắm vững thiết kế bảng tính, nắm vững cơ cấu công việc thì BQT sẽ không khó khăn.
Rất tiếc là họ chỉ biết đổ thừa, kỹ năng giao tiếp không đủ để thuyết phục BQT.

Chỗ mình bọn phòng quản lý chất lượng nó hành ghê lắm, phải làm đúng theo ý bọn nó, nghĩa là links thu công từng số 1 nó mới chấp nhận. công nghệ, hàm không biết để làm gì
Bọn tư vấn tụi tôi cũng vậy. Cỡ mấy cái công thức khủng ở GPE là bị hạch sách hết. Chúng tôi buộc người dùng phải cam đoan mình hiểu công thức và bảo đảm không còn cách nào rõ rệt hơn.

VBA thì phải cam đoan đúng với quy trình. Cái vụ bấm một phát cho nhanh thì quên đi.

Nhưng chúng tôi làm việc có quy củ. Xem CV của người phụ trách cẩn thận. Nếu công việc ngoài khả năng người làm thì chúng tôi có ghi trong báo cáo và đề nghị cho đi học thêm.

Chú thích: nói thì bạn tự ái chứ cái kiểu ví dụ lăng quăng như bài #1, và cái tiêu đề như trên thì bọn QL chất lượng chúng làm khó là phải rồi. Phòng bạn làm việc cẩu thả quá.
 
Không hiểu biểu mẫu này do Ban QLDA nghĩ ra, hay do bạn tự sáng tạo, nhưng phải nói thật là cho dù "bù giá trực tiếp" thì cũng không nên làm như thế!
Cho mình xin mẫu của bạn tham khảo.
Bài đã được tự động gộp:

Xổ cha nó cái cột Khói lượng thi công xuống thì mọi việc sẽ đơn giản. (Dùng conditional formatting để xem giống như chưa xổ)
Không làm được thì:
Lập một cột phụ, dùng hàm truy vắn "Khối lượng". Ẩn cột (đặt tên cột là KL xổ xuống chẳng hạn)
=IF($J10, $J10, $'KL xổ xuống'9)
Công thức cột N:
=IF($C10="", $'KL xổ xuống'10*F10, "xx")

Bảng tính gì nhìn bắt bịnh. Tự dưng Khối lượng có 3 lẻ thập phân trong khi mọi con số khác đều có 2 thập phân

Thớt: cần xem kỹ lại ví dụ ở bài #1. Có một vài ví dụ mà cũng sai tét bét.
Xổ phát KL như này nhanh gọn lẹ nhể :v Untitled.jpg
 
Cho mình xin mẫu của bạn tham khảo.
Bạn làm theo hướng dẫn sau:

Bước 1: Lập 1 sheet tên là Vattu hoặc VT hoặc gì tùy bạn
Bước 2: Lọc tất cả các vật tư được bù giá trong sheet PTVT (Goc) của bạn ném nó vào sheet vừa tạo. Lưu ý là phải lọc lấy chính xác tên theo phân tích đơn giá, vì ở đây mình không nhìn thấy mã vật tư
Bước 3: Tại sheet PTVT (Goc) bạn chỉ cần tạo 1 cột là Bóc vật tư. Lấy công thức như bạn đã làm (cách paste công thức như nào thì mình không bàn)
Bước 4: Dùng Sumif() ở sheet VT để cộng khối lượng vật tư bóc tách theo tên vật tư.
Bước 5:...... làm gì tiếp thì bạn biết rồi.

Trường hợp bù giá Nhiên liệu: cần lập 1 sheet Camay, lọc tất cả các thiết bị sử dụng nhiên liệu được bù giá, ném nó vào sheet này, rồi sumif() nó lại ở sheet Camay. Trên cơ sở số ca máy và danh mục máy, lúc đó mới ném tiếp định mức nhiên liệu của từng loại máy vào đó, tính ra số lít nhiên liệu, rồi ... làm gì thì bạn biết rồi đó.

Làm như thế nó mới khoa học, còn cách làm như bạn mà lỡ nó có 1000 loại vật tư thì trình bày vào đâu cho đủ được, mà nhìn nó thủ công lắm.
 
Lần chỉnh sửa cuối:
Em lấy được địa chỉ links thủ công. Nhưng hơi mất công vì phải copy valure và ấn (F2+enter, F2+enter, F2+enter, F2+enter... n lần)
Anh chị có cách nào để khi copy valure xong làm thế nào để công thức chạy được luôn, không phải ấn F2+enter...n lần
1.JPG2.JPG
 

File đính kèm

Biết code dùng code cho rồi.
Trước em cũng làm với 1 Ban QL mà các bác ấy thích phong cách "can trôn móc" khi kiểm tra file, nên các loại công thức loằng ngoằng là "không vừa ý các bác", em đành phải chạy code để đặt công thức.
 
Trước em cũng làm với 1 Ban QL mà các bác ấy thích phong cách "can trôn móc" khi kiểm tra file, nên các loại công thức loằng ngoằng là "không vừa ý các bác", em đành phải chạy code để đặt công thức.
Cái này cũng khó trách họ, vì khi họ chưa hiểu công thức rồi sau biết nó hoạt động có hiệu quả hay không hay công thức vô tình trúng rùa một vài trường hợp thôi. Họ là xếp thì được quyền chon theo cách vận hành thế nào thôi, còn nếu mình có cách diễn giải tốt để cho họ chấp nhận mới hay.
 
Trước em cũng làm với 1 Ban QL mà các bác ấy thích phong cách "can trôn móc" khi kiểm tra file, nên các loại công thức loằng ngoằng là "không vừa ý các bác", em đành phải chạy code để đặt công thức.
Công thức lằng ngoằng không chịu mà lại chịu code à? cũng lạ.

Cái này cũng khó trách họ, vì khi họ chưa hiểu công thức rồi sau biết nó hoạt động có hiệu quả hay không hay công thức vô tình trúng rùa một vài trường hợp thôi. Họ là xếp thì được quyền chon theo cách vận hành thế nào thôi, còn nếu mình có cách diễn giải tốt để cho họ chấp nhận mới hay.
Vấn đề không hẳn ở chỗ "hiệu quả hay không", mà vốn ở chỗ chưa chắc người phụ trách bảng tính nhìn ra chỗ sai, nếu có.
Điển hình ở đây, bài #1 đưa ví dụ sai. Tôi nhắc hai lượt mà thớt làm ngơ.
Làm việc như vậy rồi than phiền KS Chất Lượng chúng hạch sách. Nhiệm vụ của họ mà. Chỗ sai ai chịu trách nhiệm?
 
Code sử lý cho links hoạt động sau khi copy valuer dc ko ạ
Thử cái code vui này xem có được không nhé!
Mã:
Const Vung As String = "N9:N58"

Public Sub ChenCongThuc()
    Dim Rng As Range, aCell As Range, i As Integer
    
    With Sheet1
        On Error Resume Next
        .Range(Vung).SpecialCells(xlCellTypeFormulas, 5).ClearContents
        Err.Clear
        On Error GoTo Nghi_Cho_Khoe
        Set Rng = .Range(Vung).SpecialCells(xlCellTypeBlanks)
        i = 0
        For Each aCell In Rng
            If aCell.Offset(-1, -4).Value <> "" Then
                i = 1
            Else
                i = i + 1
            End If
            aCell.FormulaR1C1 = "=R[" & -i & "]C[-4]*RC[-8]"
        Next aCell
    End With
Nghi_Cho_Khoe:
End Sub
Bài đã được tự động gộp:

Điển hình ở đây, bài #1 đưa ví dụ sai. Tôi nhắc hai lượt mà thớt làm ngơ.
Làm việc như vậy rồi than phiền KS Chất Lượng chúng hạch sách. Nhiệm vụ của họ mà. Chỗ sai ai chịu trách nhiệm?
Cái vụ ví dụ sai em cũng thấy ngay từ đâu, nhưng nghỉ chủ thớt không cẩn thận. Tính viết code sai một vài chổ cho chủ thớt kiểm tra cho cẩn thận hơn.
 
Công thức lằng ngoằng không chịu mà lại chịu code à? cũng lạ.
Bác hiểu nhầm ý em ạ! Ý em là thay vì dùng công thức loằng ngoằng thì em dùng công thức đơn giản nhất, trực tiếp, cơ mà đặt bằng ấy công thức thì nó mất thời gian nên em dùng code để đặt cho nhanh!! Chỉ là thay thế thao tác thôi ạ!
 
Bác hiểu nhầm ý em ạ! Ý em là thay vì dùng công thức loằng ngoằng thì em dùng công thức đơn giản nhất, trực tiếp, cơ mà đặt bằng ấy công thức thì nó mất thời gian nên em dùng code để đặt cho nhanh!! Chỉ là thay thế thao tác thôi ạ!
Không, tôi nói địa vị của sếp đấy chứ. Đối với sếp, VBA nguy hiểm hơn công thức lằng ngoằng
 
Bác hiểu nhầm ý em ạ! Ý em là thay vì dùng công thức loằng ngoằng thì em dùng công thức đơn giản nhất, trực tiếp, cơ mà đặt bằng ấy công thức thì nó mất thời gian nên em dùng code để đặt cho nhanh!! Chỉ là thay thế thao tác thôi ạ!
ý bạn này là đưa code để sử lý ra thành phép tính thành hàm excel ý, chứ không phải dùng code sử lý phép tính thành số valure
 
ý bạn này là đưa code để sử lý ra thành phép tính thành hàm excel ý, chứ không phải dùng code sử lý phép tính thành số valure
Đúng rồi bạn! Cho nó 1 vòng for next, tìm các điều kiện để ra tham số cho chỉ số hàng của các ô, đặt công thức trực tiếp luôn. Lưu ý là dùng đoạn code chuyển chế độ tính toán về manual và tắt chế độ screen upadate
 

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

Back
Top Bottom