Tính toán giá trị biến đổi theo cột

phangtuyet · 5/9/21

Em xin chào tất cả các anh (chị) trên diễn đàn GPE. Hiện tại em có một vấn đề nghĩ mãi vẫn chưa thể đưa ra được kết quả bằng công thức hoặc viết một Function VBA.
Cụ thể: Em có dữ liệu nhập vào trong vùng E8:N12 và Tại F8: N8 nhập điều kiện biên là các số và có "NONE" hoặc không có NONE mà chỉ có các số.
Kết quả mong muốn: Tính toán kết quả tại F13: N13 và F14: N14
Ví dụ: Trong trường hợp F8: N8 nhập toàn số mà không có NONE thì được kết quả ví dụ như bảng F16:N22.
Chi tiết em gửi file như đính kèm nhờ cả nhà giúp đỡ ạ. Em chân thành cảm ơn!

phangtuyet · 6/9/21

Các bác xem giúp em với ạ!
}}}}}

concogia · 6/9/21

phangtuyet đã viết:
Các bác xem giúp em với ạ!

Bạn thử cái này, làm ở sheet Data, nhập hoặc xoá NONE rồi bấm vào con mèo
"NONE" nằm hàng 16, chỉ được xuất hiện 1 lần, hơn nữa tui..."tèo"
Hên xui nhé, trúng thì tốt, trật nhờ các bạn khác làm nhé
Thân

phangtuyet · 6/9/21

concogia đã viết:
Bạn thử cái này, làm ở sheet Data, nhập hoặc xoá NONE rồi bấm vào con mèo
"NONE" nằm hàng 16, chỉ được xuất hiện 1 lần, hơn nữa tui..."tèo"
Hên xui nhé, trúng thì tốt, trật nhờ các bạn khác làm nhé
Thân

Cháu cảm ơn bác nhiều. Bác đã làm chuẩn trường hợp khi dãy chỉ xuất hiện 1 lần NONE rồi ạ. Nhưng khi xuất hiện hai lần trở lên thì đang chưa giải quyết được. Cháu lại chờ tiếp ạ!

phangtuyet · 8/9/21

Hàng ngày vẫn lên xem chủ đề hi vọng có bác ghế qua xem chủ đề mà vẫn chưa bắt gặp. Hix! (@$%@

SA_DQ · 8/9/21

Chắc là mọi người không hiểu hết những gì bạn viết, nên đành chịu.

concogia · 8/9/21

phangtuyet đã viết:
Hàng ngày vẫn lên xem chủ đề hi vọng có bác ghế qua xem chủ đề mà vẫn chưa bắt gặp. Hix!

Hôm qua Việt Nam thua, buồn quá nên chơi 3 lon, suy nghĩ bài giải "hổng" có ra
Hỏi bạn cái này, thí dụ file trong bài #3, dòng đầu là [F16:N16] thì:
1) Thằng NONE có xuất hiện ở đầu dòng không ( [F16]) ?
2) Thằng NONE có xuất hiện ở cuối dòng không ( [N16]) ?
3) Có 2 thằng NONE xuất hiện kế nhau hông ( cái này mà có là.....bỏ chạy luôn)
Dữ liệu thật có bao nhiêu cột?
Hỏi thôi chứ chưa chắc làm được, bài này hại não lắm, Híc
Thân

phangtuyet · 8/9/21

concogia đã viết:
Hôm qua Việt Nam thua, buồn quá nên chơi 3 lon, suy nghĩ bài giải "hổng" có ra
Hỏi bạn cái này, thí dụ file trong bài #3, dòng đầu là [F16:N16] thì:
1) Thằng NONE có xuất hiện ở đầu dòng không ( [F16]) ?
2) Thằng NONE có xuất hiện ở cuối dòng không ( [N16]) ?
3) Có 2 thằng NONE xuất hiện kế nhau hông ( cái này mà có là.....bỏ chạy luôn)
Dữ liệu thật có bao nhiêu cột?
Hỏi thôi chứ chưa chắc làm được, bài này hại não lắm, Híc
Thân

Dạ con xin trả lời mấy câu bác hỏi như sau:
1) Thằng NONE có xuất hiện ở đầu dòng không ( [F16]) ? -> Dạ có bác ạ
2) Thằng NONE có xuất hiện ở cuối dòng không ( [N16]) ? --> Nếu trường hợp NONE cuối dòng mà khó quá thì bỏ qua cũng được bác ạ. Con sẽ khống chế đầu vào.
3) Có 2 thằng NONE xuất hiện kế nhau hông ( cái này mà có là.....bỏ chạy luôn) --> Thực tế thì vẫn có hai thằng NONE kề nhau. Nhưng nếu khó quá thì con sẽ khống chế đầu vào yêu cầu chỉ có 1 NONE cũng được bác ạ.
Dữ liệu thật có bao nhiêu cột? - Số cột dữ liệu thì tối đa là số cột con đã kẻ trong bảng ạ (9 cột ạ).
Con nghĩ mãi vẫn chưa viết được ra các Function ra kết quả như móng muốn ạ. Mong các bác ghé qua giúp con!

Bài đã được tự động gộp: 8/9/21

Xin sửa lại file ví dụ như đính kèm ạ,
Chân thành cảm ơn!

HieuCD · 9/9/21

phangtuyet đã viết:
Dạ con xin trả lời mấy câu bác hỏi như sau:
1) Thằng NONE có xuất hiện ở đầu dòng không ( [F16]) ? -> Dạ có bác ạ
2) Thằng NONE có xuất hiện ở cuối dòng không ( [N16]) ? --> Nếu trường hợp NONE cuối dòng mà khó quá thì bỏ qua cũng được bác ạ. Con sẽ khống chế đầu vào.
3) Có 2 thằng NONE xuất hiện kế nhau hông ( cái này mà có là.....bỏ chạy luôn) --> Thực tế thì vẫn có hai thằng NONE kề nhau. Nhưng nếu khó quá thì con sẽ khống chế đầu vào yêu cầu chỉ có 1 NONE cũng được bác ạ.
Dữ liệu thật có bao nhiêu cột? - Số cột dữ liệu thì tối đa là số cột con đã kẻ trong bảng ạ (9 cột ạ).
Con nghĩ mãi vẫn chưa viết được ra các Function ra kết quả như móng muốn ạ. Mong các bác ghé qua giúp con!

Bài đã được tự động gộp: 8/9/21

Xin sửa lại file ví dụ như đính kèm ạ,
Chân thành cảm ơn!

Dùng function Ketqua cho 2 dòng
Dòng 1

Mã:

F13 =KetQua($F$8:$N$11,F8,1)

Dòng 2

Mã:

F14 =KetQua($F$8:$N$11,F8,2)

Mã:

Function KetQua(ByVal rng As Range, ByVal rngCol As Range, Optional ByVal iR& = 1)
  Dim jCol&, j&, t#, H#
  If UCase(rngCol.Value) = "NONE" Then
    KetQua = "NONE"
  Else
    jCol = rngCol.Column - rng.Column + 1
    For j = 1 To rng.Columns.Count
      If UCase(rng(1, j)) = "NONE" Then
        If j < jCol Then t = 0: H = 0 Else Exit For
      Else
        t = t + rng(3, j)
        If rng(4, j) <> Empty Then H = H + rng(4, j)
      End If
    Next j
    If iR = 1 Then KetQua = t Else KetQua = (t * 100) ^ 2 / H
  End If
End Function

concogia · 9/9/21

HieuCD đã viết:

Dùng function Ketqua cho 2 dòng
Dòng 1

Mã:

F13 =KetQua($F$8:$N$11,F8,1)

Dòng 2

Mã:

F14 =KetQua($F$8:$N$11,F8,2)

Mã:

Function KetQua(ByVal rng As Range, ByVal rngCol As Range, Optional ByVal iR& = 1)
  Dim jCol&, j&, t#, H#
  If UCase(rngCol.Value) = "NONE" Then
    KetQua = "NONE"
  Else
    jCol = rngCol.Column - rng.Column + 1
    For j = 1 To rng.Columns.Count
      If UCase(rng(1, j)) = "NONE" Then
        If j < jCol Then t = 0: H = 0 Else Exit For
      Else
        t = t + rng(3, j)
        If rng(4, j) <> Empty Then H = H + rng(4, j)
      End If
    Next j
    If iR = 1 Then KetQua = t Else KetQua = (t * 100) ^ 2 / H
  End If
End Function

Híc, mình cứ nghĩ kết quả phải thể hiện công thức như trong bài, vừa làm xong, đang tính hỏi bạn í. May quá, có bạn trả lời rồi
Thân

phangtuyet · 9/9/21

HieuCD đã viết:

Dùng function Ketqua cho 2 dòng
Dòng 1

Mã:

F13 =KetQua($F$8:$N$11,F8,1)

Dòng 2

Mã:

F14 =KetQua($F$8:$N$11,F8,2)

Mã:

Function KetQua(ByVal rng As Range, ByVal rngCol As Range, Optional ByVal iR& = 1)
  Dim jCol&, j&, t#, H#
  If UCase(rngCol.Value) = "NONE" Then
    KetQua = "NONE"
  Else
    jCol = rngCol.Column - rng.Column + 1
    For j = 1 To rng.Columns.Count
      If UCase(rng(1, j)) = "NONE" Then
        If j < jCol Then t = 0: H = 0 Else Exit For
      Else
        t = t + rng(3, j)
        If rng(4, j) <> Empty Then H = H + rng(4, j)
      End If
    Next j
    If iR = 1 Then KetQua = t Else KetQua = (t * 100) ^ 2 / H
  End If
End Function

Chân thành cảm ơn bác đã giúp em được Function đúng ý ạ!

Bài đã được tự động gộp: 9/9/21

concogia đã viết:
Híc, mình cứ nghĩ kết quả phải thể hiện công thức như trong bài, vừa làm xong, đang tính hỏi bạn í. May quá, có bạn trả lời rồi
Thân

Cháu xin lỗi vì đã mô tả chưa rõ ý ạ. Cháu cảm ơn bác rất nhiều!

Tính toán giá trị biến đổi theo cột

phangtuyet

Thành viên mới

File đính kèm

phangtuyet

Thành viên mới

concogia

Gội rồi mới Cạo

File đính kèm

phangtuyet

Thành viên mới

File đính kèm

phangtuyet

Thành viên mới

SA_DQ

/(hông là gì!

concogia

Gội rồi mới Cạo

phangtuyet

Thành viên mới

File đính kèm

HieuCD

Chuyên gia GPE

File đính kèm

concogia

Gội rồi mới Cạo

phangtuyet

Thành viên mới

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

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng