Tham chiếu tới công thức trong ô excel

Liên hệ QC

nguyenhuuthanhx3c

Thành viên mới
Tham gia
2/8/09
Bài viết
16
Được thích
1
Chào mọi người. Mình có một bài toán như thế này.
Mình làm bên xây dựng nên lúc diễn giải công thức cho phần quyết toán sẽ phải show ra số liệu cho bên chủ đầu tư biết.
Giả sử mình đặt tên công việc theo code. Và muốn link công thức cho mỗi code đó thì phải làm như thế nào?
Nhờ mọi người giúp đỡ , nội dung cụ thể ở trong file đính kèm
 

File đính kèm

Chào mọi người. Mình có một bài toán như thế này.
Mình làm bên xây dựng nên lúc diễn giải công thức cho phần quyết toán sẽ phải show ra số liệu cho bên chủ đầu tư biết.
Giả sử mình đặt tên công việc theo code. Và muốn link công thức cho mỗi code đó thì phải làm như thế nào?
Nhờ mọi người giúp đỡ , nội dung cụ thể ở trong file đính kèm
Không rõ có phải thế này:
E12=VLOOKUP(A12,$A$5:$E$8,5,0)
 
Chào mọi người. Mình có một bài toán như thế này.
Mình làm bên xây dựng nên lúc diễn giải công thức cho phần quyết toán sẽ phải show ra số liệu cho bên chủ đầu tư biết.
Giả sử mình đặt tên công việc theo code. Và muốn link công thức cho mỗi code đó thì phải làm như thế nào?
Nhờ mọi người giúp đỡ , nội dung cụ thể ở trong file đính kèm
Bạn tìm hiểu hàm Vlookup() nha.
https://support.office.com/vi-vn/article/hàm-vlookup-0bbc8083-26fe-4963-8ab8-93a18ad188a1
Thân.
 
Dear all
Mình muốn tham chiếu công thức chứ không phải tham chiếu giá trị.
Các bạn coi lại dùm nhé
 
Chẳng hạn khi mình đánh số vào cột B12: 5 , C12: 6, D12: 7 thì kết quả sẽ trả về giống công thức code B2 là: =5x6x7
 
Chẳng hạn khi mình đánh số vào cột B12: 5 , C12: 6, D12: 7 thì kết quả sẽ trả về giống công thức code B2 là: =5x6x7
Bạn chạy thử code này:
PHP:
Private Sub Worksheet_change(ByVal Target As Range)
Dim rng As Range, cell As Range
If Not Intersect(Target, [a12:a1000]) Is Nothing Then
    Set rng = Range("A5:A" & [a5].End(xlDown).Row)
    Set cell = rng.Find(Target, LookIn:=xlValues)
    If Not cell Is Nothing Then
        cell.Offset(, 4).Copy
        Target.Offset(, 4).PasteSpecial xlPasteFormulas
    End If
End If
Application.CutCopyMode = False
End Sub
 
Chạy như thế nào bạn nhỉ. Mình ko thạo macro lắm
 
Chào mọi người. Mình có một bài toán như thế này.
Mình làm bên xây dựng nên lúc diễn giải công thức cho phần quyết toán sẽ phải show ra số liệu cho bên chủ đầu tư biết.
Giả sử mình đặt tên công việc theo code. Và muốn link công thức cho mỗi code đó thì phải làm như thế nào?
Nhờ mọi người giúp đỡ , nội dung cụ thể ở trong file đính kèm
Khó hiểu nhỉ
Có phải như vầy không?
E12=FORMULATEXT(OFFSET($E$4,MATCH(A12,$A$5:$A$8,0),0,1,1))
 

File đính kèm

Dear bạn.
Cảm ơn bạn rất nhiều. Nhưng thú thực là mình ko biết quá trình chạy code như thế nào cả. Chỉ là tải file của bạn xuống xài thì ok.
Mình có phát triển file thêm chút xíu nữa bạn có thể hỗ trợ mình được ko. Bạn xem file đính kèm
Thứ nhất, giả sử ở sheet "diến giải" (trong file đính kèm) nếu mình chèn thêm cột thì code VBA của bạn có chạy được hay không?
Thứ 2, mình thêm các hạng mục khác và code công việc khác thì VBA có chạy hay ko?
Thanks
 

File đính kèm

Dear bạn.
Cảm ơn bạn rất nhiều. Nhưng thú thực là mình ko biết quá trình chạy code như thế nào cả. Chỉ là tải file của bạn xuống xài thì ok.
Mình có phát triển file thêm chút xíu nữa bạn có thể hỗ trợ mình được ko. Bạn xem file đính kèm
Thứ nhất, giả sử ở sheet "diến giải" (trong file đính kèm) nếu mình chèn thêm cột thì code VBA của bạn có chạy được hay không?
Thứ 2, mình thêm các hạng mục khác và code công việc khác thì VBA có chạy hay ko?
Cảm ơn
Tôi làm lại theo file mới của bạn, để xem code bạn bấm Alt+F11.
- Chèn thêm cộ thì hên xui
- Thêm hạng mục khác và code công việc khác thì code vẫn chạy được
 

File đính kèm

Tôi làm lại theo file mới của bạn, để xem code bạn bấm Alt+F11.
- Chèn thêm cộ thì hên xui
- Thêm hạng mục khác và code công việc khác thì code vẫn chạy được
Mình vừa kiểm tra xong, ví dụ mình đặt code là VS2 và S2 thì khi tìm công thức S2 nó sẽ bị lộn qua VS2. Nghĩa là nó tìm chưa chính xác 100% nếu code chứa ký tự giống nhau. Ko biết bạn có xử lý được vấn đề này không?
 

File đính kèm

Web KT

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

Back
Top Bottom