Giúp tôi cách sử dụng hàm nào để lấy kết quả mong muốn (1 người xem)

[objectvn]

Chào các bác, tôi chỉ biết sử dụng excel cơ bản thôi tức là sử dụng sẵn các hàm có sẵn của excel chứ chưa bao giờ tự viết được hàm cả. Hôm nay tôi có một vấn đề muốn các bác giúp xem dùng hàm nào (hay phải viết đoạn code như thế nào) để có được kết quả mong muốn.
Tôi có gửi kèm theo file ví dụ (file thực tế nó phức tạp hơn nhiều, có nhiều thông số và nhiều giá trị nhưng nó cũng theo qui luật như dạng file test tôi gửi ở đây). Trong file Test này có 3 sheet đó là:"KQ tong hop", "Tinh toan", "Du lieu". Sheet "Tinh toan" sẽ tính toán các dữ liệu được lấy từ sheet "Du lieu", sheet "KQ tong hop" sẽ đưa ra kết quả cuối cùng tương ứng với các dữ liệu trong sheet "Du lieu". Tôi không biết dùng hàm nào để làm việc này, các bạn giúp tôi với.

Xin chân thành cảm ơn.

 

[Ba Tê]

Chào các bác, tôi chỉ biết sử dụng excel cơ bản thôi tức là sử dụng sẵn các hàm có sẵn của excel chứ chưa bao giờ tự viết được hàm cả. Hôm nay tôi có một vấn đề muốn các bác giúp xem dùng hàm nào (hay phải viết đoạn code như thế nào) để có được kết quả mong muốn.
Tôi có gửi kèm theo file ví dụ (file thực tế nó phức tạp hơn nhiều, có nhiều thông số và nhiều giá trị nhưng nó cũng theo qui luật như dạng file test tôi gửi ở đây). Trong file Test này có 3 sheet đó là:"KQ tong hop", "Tinh toan", "Du lieu". Sheet "Tinh toan" sẽ tính toán các dữ liệu được lấy từ sheet "Du lieu", sheet "KQ tong hop" sẽ đưa ra kết quả cuối cùng tương ứng với các dữ liệu trong sheet "Du lieu". Tôi không biết dùng hàm nào để làm việc này, các bạn giúp tôi với.

Xin chân thành cảm ơn.

Bạn kiểm tra kết quả trong sheet KQ tong hop, nếu đúng thì bàn tiếp cách giải quyết nó.

 

[n0thing1988]

Sao bạn không điền 1 chút kết quả vào sheet KQ tong hop nhỉ?
Đoán bừa điều bạn muốn
Sheet KQ tong hop B2='Du lieu'!A2*'Du lieu'!B2-'Du lieu'!C2

 

[objectvn]

Sao bạn không điền 1 chút kết quả vào sheet KQ tong hop nhỉ?
Đoán bừa điều bạn muốn
Sheet KQ tong hop B2='Du lieu'!A2*'Du lieu'!B2-'Du lieu'!C2

Cám ơn bạn đã trả lời, nhưng bạn ơi file thực tế công thức nó phức tạp hơn rất nhiều nên nếu làm theo cách của bạn tôi phải viết hết tất cả các công thức rất phức tạp

 

[objectvn]

Bạn kiểm tra kết quả trong sheet KQ tong hop, nếu đúng thì bàn tiếp cách giải quyết nó.

Bác làm thế nào ạ. Bác hướng dẫn tôi với

 

[Ba Tê]

Bác làm thế nào ạ. Bác hướng dẫn tôi với

Tôi chỉ mới định hướng cách giải quyết (giống như bài #3) với cấu trúc dữ liệu cụ thể của file trên. Nhưng bạn nói trên bài #4 là "nhưng bạn ơi file thực tế công thức nó phức tạp hơn rất nhiều".
Vậy bạn đưa file thực tế lên đi, vài chục dòng "như thật" là đủ.

 

[objectvn]

Tôi chỉ mới định hướng cách giải quyết (giống như bài #3) với cấu trúc dữ liệu cụ thể của file trên. Nhưng bạn nói trên bài #4 là "nhưng bạn ơi file thực tế công thức nó phức tạp hơn rất nhiều".
Vậy bạn đưa file thực tế lên đi, vài chục dòng "như thật" là đủ.

Vâng, tôi xin gửi kèm theo file thực tế (như đính kèm). Thực tế sheet "Data" của tôi còn lớn hơn nữa (gần 100 điểm point), nhưng với số liệu trong file tôi nghĩ là đã đủ để tính toán. Sheet "Results" sẽ lấy kết quả "Distance" và "Bearing" từ sheet "inverse".
Bác giúp tôi cách làm với.

 

[Ba Tê]

Vâng, tôi xin gửi kèm theo file thực tế (như đính kèm). Thực tế sheet "Data" của tôi còn lớn hơn nữa (gần 100 điểm point), nhưng với số liệu trong file tôi nghĩ là đã đủ để tính toán. Sheet "Results" sẽ lấy kết quả "Distance" và "Bearing" từ sheet "inverse".
Bác giúp tôi cách làm với.

File "thực tế" của bạn quả thật chẳng giống gì với file ban đầu.
Giải quyết chuyện này phải dùng VBA thôi.

Public Sub GPE()
Dim sArr(), dArr1(1 To 2, 1 To 4), dArr2(1 To 2, 1 To 4), I As Long, J As Long, K As Long, KQ()
With Sheets("Data")
    sArr = .Range("A2", .Range("A2").End(xlDown)).Resize(, 9).Value
    ReDim KQ(1 To UBound(sArr), 1 To 3)
End With
For I = 1 To UBound(sArr) - 1
    K = K + 1
    KQ(K, 1) = sArr(I, 1) & " - " & sArr(I + 1, 1)
    For J = 2 To 5
        dArr1(1, J - 1) = sArr(I, J)
        dArr1(2, J - 1) = sArr(I, J + 4)
        dArr2(1, J - 1) = sArr(I + 1, J)
        dArr2(2, J - 1) = sArr(I + 1, J + 4)
    Next J
    With Sheets("Inverse")
        .Range("D7").Resize(2, 4) = dArr1
        .Range("D10").Resize(2, 4) = dArr2
        KQ(K, 2) = .Range("D14").Value
        KQ(K, 3) = .Range("B15").Value
    End With
Next I
Sheets("Results").Range("A2").Resize(K, 3) = KQ
End Sub

Bạn Enable Macros khi mở file, bấm nút GPE trong sheet Results, kiểm tra kết quả xem thế nào rồi cho biết dòng nào đúng, dòng nào sai.

 

[objectvn]

File "thực tế" của bạn quả thật chẳng giống gì với file ban đầu.
Giải quyết chuyện này phải dùng VBA thôi.

Public Sub GPE()
Dim sArr(), dArr1(1 To 2, 1 To 4), dArr2(1 To 2, 1 To 4), I As Long, J As Long, K As Long, KQ()
With Sheets("Data")
    sArr = .Range("A2", .Range("A2").End(xlDown)).Resize(, 9).Value
    ReDim KQ(1 To UBound(sArr), 1 To 3)
End With
For I = 1 To UBound(sArr) - 1
    K = K + 1
    KQ(K, 1) = sArr(I, 1) & " - " & sArr(I + 1, 1)
    For J = 2 To 5
        dArr1(1, J - 1) = sArr(I, J)
        dArr1(2, J - 1) = sArr(I, J + 4)
        dArr2(1, J - 1) = sArr(I + 1, J)
        dArr2(2, J - 1) = sArr(I + 1, J + 4)
    Next J
    With Sheets("Inverse")
        .Range("D7").Resize(2, 4) = dArr1
        .Range("D10").Resize(2, 4) = dArr2
        KQ(K, 2) = .Range("D14").Value
        KQ(K, 3) = .Range("B15").Value
    End With
Next I
Sheets("Results").Range("A2").Resize(K, 3) = KQ
End Sub

Bạn Enable Macros khi mở file, bấm nút GPE trong sheet Results, kiểm tra kết quả xem thế nào rồi cho biết dòng nào đúng, dòng nào sai.

Cám ơn Ba Tê rất nhiều, kết quả đều đúng hết. Bạn có thể hướng dẫn tôi cách viết code cho file này được không (hoặc bạn có thể giải thích chi tiết các câu lệnh bạn viết bằng VBA), vì sheet "Data" của tôi thực tế dữ liệu có thể nhiều hơn rất nhiều dữ liệu ở file này, khi đó tôi phải thay đổi tham số nào trong các câu lệnh của bạn/ hoặc tôi có thể lấy thêm các kết quả khác ngoài 2 kết quả "Distance" và "Bearing".
Rất mong bạn giúp đỡ

 

[Ba Tê]

Cám ơn Ba Tê rất nhiều, kết quả đều đúng hết. Bạn có thể hướng dẫn tôi cách viết code cho file này được không (hoặc bạn có thể giải thích chi tiết các câu lệnh bạn viết bằng VBA), vì sheet "Data" của tôi thực tế dữ liệu có thể nhiều hơn rất nhiều dữ liệu ở file này, khi đó tôi phải thay đổi tham số nào trong các câu lệnh của bạn/ hoặc tôi có thể lấy thêm các kết quả khác ngoài 2 kết quả "Distance" và "Bearing".
Rất mong bạn giúp đỡ

- Dữ liệu nhiều (sheet Data) không hề gì, code vẫn chạy.
- Lấy thêm chỗ nào thì .... thấy mới làm được.
- Giải thích thì ... hổng biết, vì tôi chỉ "học lóm" VBA trên GPE này thôi.
(Trước khi tham gia GPE - tháng 5/2009 - tôi là con "Vịt đực" VBA, người đầu tiên dụ tôi vào VBA là "Sư Tỷ" HYen17 đó)
Không qua trường lớp cũng không rành lý thuyết nên tôi không diễn đạt được ý nghĩa các dòng lệnh đâu.