Lấy dữ liệu trong hàm

[vu_tuan_manh_linh]

Em đang cần 1 hàm VBA với yêu cầu như sau:
tại 1 ô em dùng hàm: =round((123*233+847-847*756)*1,2;2)
ô bên cạnh em muốn 1 hàm (VD tên hàm là =tach(00_tham_chiếu) )trích các giá trị (123*233+847-847*756)*1,2
hoặc ngược lại:
tại 1 ô em điền (123*233+847-847*756)*1,2
và ô bên cạnh dung hàm =tinh(ô_tham_chiếu) tính ra giá trị tương đương hàm =round((123*233+847-847*756)*1,2;2)
Mong mọi người chỉ giúp.

 

[dat_butmuc]

Em đang cần 1 hàm VBA với yêu cầu như sau:
tại 1 ô em dùng hàm: =round((123*233+847-847*756)*1,2;2)
ô bên cạnh em muốn 1 hàm (VD tên hàm là =tach(00_tham_chiếu) )trích các giá trị (123*233+847-847*756)*1,2
hoặc ngược lại:
tại 1 ô em điền (123*233+847-847*756)*1,2
và ô bên cạnh dung hàm =tinh(ô_tham_chiếu) tính ra giá trị tương đương hàm =round((123*233+847-847*756)*1,2;2)
Mong mọi người chỉ giúp.

Dùng tạm Name với Evaluate
Xem file

 

[concogia]

Em đang cần 1 hàm VBA với yêu cầu như sau:
tại 1 ô em dùng hàm: =round((123*233+847-847*756)*1,2;2)
ô bên cạnh em muốn 1 hàm (VD tên hàm là =tach(00_tham_chiếu) )trích các giá trị (123*233+847-847*756)*1,2
hoặc ngược lại:
tại 1 ô em điền (123*233+847-847*756)*1,2
và ô bên cạnh dung hàm =tinh(ô_tham_chiếu) tính ra giá trị tương đương hàm =round((123*233+847-847*756)*1,2;2)
Mong mọi người chỉ giúp.

Chắc cái này làm để một mình bạn xài cho bài này quá

Public Function tach(Vung)
    Dim Tam, I
        Tam = Vung.Formula
            I = InStr(1, Tam, "(")
        Tam = Left(Tam, Len(Tam) - 3)
    Tam = Right(Tam, Len(Tam) - I)
tach = Tam
End Function

Public Function tinh(Vung)
    tinh = Evaluate(Vung.Value)
End Function

 

[hoangminhtien]

tại 1 ô em dùng hàm: =round((123*233+847-847*756)*1,2;2)
ô bên cạnh em muốn 1 hàm (VD tên hàm là =tach(00_tham_chiếu) )trích các giá trị (123*233+847-847*756)*1,2

Bạn chọn 1 ô dòng 1, vào name (Ctr+F3), bạn chọn tên là Ct, vùng Refers to bạn nhập công thức

=GET.CELL(6,Sheet1!$A1)

tại 1 ô em điền (123*233+847-847*756)*1,2
và ô bên cạnh dung hàm =tinh(ô_tham_chiếu) tính ra giá trị tương đương hàm =round((123*233+847-847*756)*1,2;2)

Bạn chọn 1 ô dòng 1, vào Name, đặt tên là Kq, vùng Refers to bạn nhập công thức

=ROUND(EVALUATE(Sheet1!$A1),2)

mượn File bác concogia. bạn xem trong file nhé!