Giúp em file excel này với. em xin cầu cứu hãy giúp em (1 người xem)

[thufpts]

Em chào các bác. em có bài toán này nhưng với khả năng của em không giải quyết được.
Em có một dãy số bất kỳ tại cột G. khi em nhập một giá trị bất kì tại ô màu đỏ ví dụ là 60
thì tại cột H nó sẽ tự động lấy giá trị ở cột G từ trên xuông (bắt buộc) sao cho tổng
ở vùng màu vàng của côt H phải thỏa mãn 1 trong các điều kiện sau
1. bằng ô màu đỏ tại cột H
2. lớn hơn ô màu đỏ tại cột H với giá trị gần nhất ví dụ 61 (tùy vào tổng của vùng màu vàng)
3. nhỏ hơn ô màu đỏ tại cột H với giá trị gần nhất ví dụ 59 (tùy vào tổng của vùng màu vàng)
tương tự khi nhập giá trị bất kì cho các cột I,J,K,L,M
Em rất mong các bác cao thủ giúp em với. em cám ơn các bác nhiều lắm.

View attachment 167608

 

[befaint]

Em chào các bác. em có bài toán này nhưng với khả năng của em không giải quyết được.
Em có một dãy số bất kỳ tại cột G. khi em nhập một giá trị bất kì tại ô màu đỏ ví dụ là 60
thì tại cột H nó sẽ tự động lấy giá trị ở cột G từ trên xuông (bắt buộc) sao cho tổng
ở vùng màu vàng của côt H phải thỏa mãn 1 trong các điều kiện sau
1. bằng ô màu đỏ tại cột H
2. lớn hơn ô màu đỏ tại cột H với giá trị gần nhất ví dụ 61 (tùy vào tổng của vùng màu vàng)
3. nhỏ hơn ô màu đỏ tại cột H với giá trị gần nhất ví dụ 59 (tùy vào tổng của vùng màu vàng)
tương tự khi nhập giá trị bất kì cho các cột I,J,K,L,M
Em rất mong các bác cao thủ giúp em với. em cám ơn các bác nhiều lắm.

Bài toán của bạn sẽ có người vào giúp bạn được.
Tuy nhiên, tiêu đề chủ đề của bạn chung chung nên e rằng sẽ bị khóa.
http://www.giaiphapexcel.com/forum/showthread.php?76052&tabid=143
Bạn hãy lập topic khác. Chủ đề có thể là: Chọn dãy số sao cho tổng dãy số đó gần bằng nhất với số cho trước.
p/s: Bạn đính kèm file excel là tuyệt rồi, không cần hình ảnh nữa.

 

[befaint]

Chào thufpts,

Nếu bị khoá bài thì chắc vẫn tải được file.
Bạn xem file đính kèm nhé.

 

[ChanhTQ@]

 

[Minh Thu 11]

cho em chơi đánh cờ với

 

[SA_DQ]

[ThongBao](ho em chơi đánh cờ với[/Thongbao]

 

[thufpts]

em cám ơn rất nhiều. em sẽ thay đổi title

 

[SA_DQ]

Bạn không thể thực hiện cái việc đổi tiêu đầ bài viết của mình được, hình như thế!

 

[thufpts]

Chào thufpts,

Nếu bị khoá bài thì chắc vẫn tải được file.
Bạn xem file đính kèm nhé.

Em cám ơn rất nhiều. hay quá thế này em cũng muốn học lập trình nhưng khổ thay em lại tư duy kém.

 

[SA_DQ]

Em cám ơn rất nhiều. Em muốn học lập trình nhưng khổ thay em lại tư duy kém.

Thì đọc nội 2ui lần nữa đi; Tư duy của bạn sẽ tăng lên đáng nễ nữa là khác!

 

[ketxu]

Chào thufpts,

Nếu bị khoá bài thì chắc vẫn tải được file.
Bạn xem file đính kèm nhé.

H2 = 191 -> Lỗi

 

[befaint]

H2 = 191 -> Lỗi

Đã chỉnh sửa và upload lại file ở bài #3.

 

[thufpts]

Chào thufpts,

Nếu bị khoá bài thì chắc vẫn tải được file.
Bạn xem file đính kèm nhé.

cho em hỏi một chút. ở đây em chỉ làm dc cho cột H thôi, nếu em có 10 cột hoặc nhiều hơn nữa thì em phải làm sao hả bác.
mong bác chỉ giáo.

 

[SA_DQ]

cho em hỏi một chút. ở đây em chỉ làm dc cho cột H thôi, nếu em có 10 cột hoặc nhiều hơn nữa thì em phải làm sao hả bác.
mong bác chỉ giáo.

/(hông nên trao đổi ở đây nữa! Lập bài khác mà hỏi!​

 

[HieuCD]

Em chào các bác. em có bài toán này nhưng với khả năng của em không giải quyết được.
Em có một dãy số bất kỳ tại cột G. khi em nhập một giá trị bất kì tại ô màu đỏ ví dụ là 60
thì tại cột H nó sẽ tự động lấy giá trị ở cột G từ trên xuông (bắt buộc) sao cho tổng
ở vùng màu vàng của côt H phải thỏa mãn 1 trong các điều kiện sau
1. bằng ô màu đỏ tại cột H
2. lớn hơn ô màu đỏ tại cột H với giá trị gần nhất ví dụ 61 (tùy vào tổng của vùng màu vàng)
3. nhỏ hơn ô màu đỏ tại cột H với giá trị gần nhất ví dụ 59 (tùy vào tổng của vùng màu vàng)
tương tự khi nhập giá trị bất kì cho các cột I,J,K,L,M

Sheet1 dùng code VBA

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, t1 As Long, t2 As Long, dk As Long, LastR As Long, Darr()
If Not Intersect(Range("$H$2:$M$2"), Target) Is Nothing Then
    If Target.Count = 1 Then
        dk = Target.Value: LastR = Sheet1.Range("G65000").End(xlUp).Row
        Darr = Sheet1.Range("G4:G" & LastR).Value
        t1 = 0: t2 = 0
        For i = 1 To (UBound(Darr) - 1)
            t1 = t1 + Darr(i, 1): t2 = t1 + Darr(i + 1, 1)
            If (t1 - dk) * (t2 - dk) <= 0 Then
                If dk - t1 > t2 - dk Then i = i + 1
                Target.Offset(2, 0).Resize(LastR, 1).ClearContents
                Target.Offset(2, 0).Resize(i, 1).Value = Darr
                Exit Sub
            End If
        Next i
        Target.Offset(2, 0).Resize(LastR, 1).ClearContents
    End If
End If
End Sub

Sheet 2 dùng công thức để tính

H4 =IF((H$2-SUM($G$3:$G4))*(SUM($G$3:$G5)-H$2)<=0,IF(H$2-SUM($G$3:$G3)>SUM($G$3:$G4)-H$2,$G4,""),$G4)

copy qua phải và xuống dưới