Gán biến vào Cell (1 người xem)

[cuchuoi2005]

Chào các bạn

Tôi chỉ làm 1 thao tác đơn giản là gán 1 biến A và B vào ô có hàng 1 và 2 ở cột 1 tại Sheet1 rồi lấy kết quả tính toán tại ô Cells(3,1) tại Sheet2 nhưng không hiểu sao code đơn giản này đang bị lỗi

Public Function Cong(A As Double, B As Double) As Double


Worksheets("sheet2").Cells(1, 1) = CStr(A)
Worksheets("sheet2").Cells(2, 1) = B
Cong = Worksheets("sheet2").Cells(3, 1)
End Function

Mong các bạn giúp đỡ xem có vấn đề gì với code này.
File cụ thể như trong tệp đính kèm.

Cheers
Cucchuoi

 

[Vô danh Tiểu tốt]

Ý tưởng của bạn như thế này:

Worksheets("sheet2").Cells(1, 1) = CStr(A)
Worksheets("sheet2").Cells(2, 1) = B
Cong = Worksheets("sheet2").Cells(3, 1)

Cả 3 dòng code của bạn sau khi dùng trong công thức bên sheet sẽ thành "lấy nó rồi lại gán chính nó"

Còn ý tưởng của mình sẽ như thế này:

Public Function Cong(A As Double, B As Double) As Double
Cong = A + B
End Function

Dựa vào giá trị truyền vào trả về kết quả. Đây là cách thực hiện 1 hàm tính toán thuần túy.

 

[cuchuoi2005]

Hi bạn
Cảm ơn bạn đã đọc và comment.

Thực tế là toán mình đưa ra là khá phức tạp và quan trọng hơn là đã có nguời hoàn thành bài toán này trên 1 worksheet. Mình muốn tận dụng worksheet này cho nhiều điểm tính toán với 1 vòng lặp for, tại mỗi lần lặp mình muốn gán 2 inputs mới và lấy 1 output từ sheet2 ra như trên tuy nhiên khi dùng step info kiểm tra thì thấy gán không thành công mà không rõ lý do.

nếu có thể mong bạn giúp đỡ sửa cái sai của function Cong mà đơn thuần là việc gán và lấy kết quả ra thay vì giải quyết thuật toán.
Xin cảm ơn

 

[giaiphap]

Hi bạn
Cảm ơn bạn đã đọc và comment.

Thực tế là toán mình đưa ra là khá phức tạp và quan trọng hơn là đã có nguời hoàn thành bài toán này trên 1 worksheet. Mình muốn tận dụng worksheet này cho nhiều điểm tính toán với 1 vòng lặp for, tại mỗi lần lặp mình muốn gán 2 inputs mới và lấy 1 output từ sheet2 ra như trên tuy nhiên khi dùng step info kiểm tra thì thấy gán không thành công mà không rõ lý do.

nếu có thể mong bạn giúp đỡ sửa cái sai của function Cong mà đơn thuần là việc gán và lấy kết quả ra thay vì giải quyết thuật toán.
Xin cảm ơn

Bạn muốn làm gì thì đưa file thực tế lên đây, chứ hàm của bạn là sai hòa toàn, không đúng dòng nào cả. Hàm bạn nên viết như #2 thì hợp lý hơn.

 

[SA_DQ]

Hình như bạn đang lẫn giữa hàm & Sub
Vậy bạn thử điền số liệu vô cột [A:A] từ [A1: A35] & cho Code sau chạy:

Option Explicit
Sub GPE()
 Dim Cls As Range
 
 For Each Cls In [A9].CurrentRegion
    Cls.Offset(, 2).Value = Cong(Cls.Value, Cls.Offset(1).Value)
 Next Cls
End Sub

Public Function Cong(A As Double, B As Double) As Double
    Cong = A + B
End Function