Xin được giúp đỡ điền thời tiết, máy móc thi công vào các hạng mục (1 người xem)

Cát Lượng · 22/3/20

Em có bài toán sau xin được nhờ các thầy (cô), anh (chị) trên diễn đàn giúp đỡ:
File của em gồm các sheet chứa tên các hạng mục của công trình và sheet (Thoi tiet) và Sheet (May thi cong).
Các sheet chứa tên các hạng mục công trình trong file cụ thể là: Sheet (Cong tuong rao), Sheet (Nha ve sinh), Sheet (Nha xe hoc sinh), Sheet (San be tong) được liệt kê vào cột F của sheet (May thi cong) (có thể thêm các hạng mục khác bằng cách liệt kê tên sheet vào cột F của sheet (May thi cong) thì các sheet đó cũng được điền máy thi công và thời tiết như các sheet có tên cụ thể các hạng mục nêu trên)
Các Sheet chứa tên các hạng mục nêu trên đều có cấu trúc giống nhau.
Em xin được nhờ giúp đỡ mấy vấn đề sau ạ:
1/ Lấy giữ liệu thời tiết ở Sheet (Thoi tiet) để điền vào cột R có các ngày tương ứng trong từng sheet chứa tên các hạng mục công trình.
2/ Từ khóa và máy móc do người dùng điền vào cột C và D trong Sheet (May thi cong) sau khi chạy code "Điền máy móc vào các sheet" thì máy thi công được lấy trong cột D của Sheet (May thi cong) để điền vào cột T các ngày tương ứng trong các sheet hạng mục theo từ khóa tương ứng của mỗi gạch đầu dòng trong từng dòng.
Máy được điền theo từ khóa đầu của mỗi gạch đầu dòng "-" trong cột I (THI CÔNG) tương ứng với các ngày, mỗi ngày trong sheet tên các hạng mục chỉ là một dòng, mỗi dòng có thể có nhiều gạch đầu dòng, và mỗi gạch đầu dòng này tương ứng với một nội dung công việc.

Mỗi loại máy được ngăn cách nhau bởi dấu "," .Nếu trong một dòng có các gạch đầu dòng có các từ khóa giống nhau thì máy móc sẽ không được lấy trùng (không trùng tên máy 2 lần hoặc 3 lần mà tên máy chỉ được điền một lần).

Giúp e
Em xin chân thành cảm ơn!

be_09 · 22/3/20

Cát Lượng đã viết:
Em có bài toán sau xin được nhờ các thầy (cô), anh (chị) trên diễn đàn giúp đỡ:
File của em gồm các sheet chứa tên các hạng mục của công trình và sheet (Thoi tiet) và Sheet (May thi cong).
Các sheet chứa tên các hạng mục công trình trong file cụ thể là: Sheet (Cong tuong rao), Sheet (Nha ve sinh), Sheet (Nha xe hoc sinh), Sheet (San be tong) được liệt kê vào cột F của sheet (May thi cong) (có thể thêm các hạng mục khác bằng cách liệt kê tên sheet vào cột F của sheet (May thi cong) thì các sheet đó cũng được điền máy thi công và thời tiết như các sheet có tên cụ thể các hạng mục nêu trên)
Các Sheet chứa tên các hạng mục nêu trên đều có cấu trúc giống nhau.
Em xin được nhờ giúp đỡ mấy vấn đề sau ạ:
1/ Lấy giữ liệu thời tiết ở Sheet (Thoi tiet) để điền vào cột R có các ngày tương ứng trong từng sheet chứa tên các hạng mục công trình.
2/ Từ khóa và máy móc do người dùng điền vào cột C và D trong Sheet (May thi cong) sau khi chạy code "Điền máy móc vào các sheet" thì máy thi công được lấy trong cột D của Sheet (May thi cong) để điền vào cột T các ngày tương ứng trong các sheet hạng mục theo từ khóa tương ứng của mỗi gạch đầu dòng trong từng dòng.
Máy được điền theo từ khóa đầu của mỗi gạch đầu dòng "-" trong cột I (THI CÔNG) tương ứng với các ngày, mỗi ngày trong sheet tên các hạng mục chỉ là một dòng, mỗi dòng có thể có nhiều gạch đầu dòng, và mỗi gạch đầu dòng này tương ứng với một nội dung công việc.

Mỗi loại máy được ngăn cách nhau bởi dấu "," .Nếu trong một dòng có các gạch đầu dòng có các từ khóa giống nhau thì máy móc sẽ không được lấy trùng (không trùng tên máy 2 lần hoặc 3 lần mà tên máy chỉ được điền một lần).

Giúp e
Em xin chân thành cảm ơn!

View attachment 233790 View attachment 233791

Tôi góp ý cho bạn thế này:
1/ Chỉ cần có 1 sheet theo dõi chung với 1 cột là hạng mục công trình, muốn có các sheet con thì dựa vào cột này để tách sheet, chứ đêu cần phải theo dõi riêng từng sheet chi cho rắc rối.
2/ Để nhập liệu vào sheet theo dõi chung thì nên sử dụng 1 SheetForm dùng nó nhập liệu vào sheet theo dõi.
3/ Cần có 1 sheet danh mục các hạng mục thi công để dựa vào danh mục này gán nhanh dữ liệu vào SheetForm.
4/ Muốn tổng hợp công việc thì dựa vào sheet theo dõi chung và sử dụng PivotTable thì nhanh cực kỳ.

Cát Lượng · 22/3/20

be09 đã viết:
Tôi góp ý cho bạn thế này:
1/ Chỉ cần có 1 sheet theo dõi chung với 1 cột là hạng mục công trình, muốn có các sheet con thì dựa vào cột này để tách sheet, chứ đêu cần phải theo dõi riêng từng sheet chi cho rắc rối.
2/ Để nhập liệu vào sheet theo dõi chung thì nên sử dụng 1 SheetForm dùng nó nhập liệu vào sheet theo dõi.
3/ Cần có 1 sheet danh mục các hạng mục thi công để dựa vào danh mục này gán nhanh dữ liệu vào SheetForm.
4/ Muốn tổng hợp công việc thì dựa vào sheet theo dõi chung và sử dụng PivotTable thì nhanh cực kỳ.

Dạ! Vâng em cảm ơn thầy!
Thầy có thể giúp em theo hướng như thầy hướng dẫn được không ạ?

be_09 · 22/3/20

Cát Lượng đã viết:
Dạ! Vâng em cảm ơn thầy!
Thầy có thể giúp em theo hướng như thầy hướng dẫn được không ạ?

Trong File phải 1 sheet liệt kê danh mục các hạng mục thi công (như cột I) để tôi xem và góp ý tiếp thì mới tính đến chuyện giúp.
Có nghĩa là tôi phải hiểu đầu đuôi ngọn ngành và khi trợ giúp thì không phải tốn nhiều thời gian sửa.
Nhiều bạn mở Topic nhưng tiêu đề không rõ nghĩa và không phù hợp nội dung đôi khi đưa cái File lên thì nữa vời, nội dung cần thì không ghi cụ thể rõ ràng, văn tự thì chữ đực chữ cái, lời văn thì phan ngang bổ củi. Mấy cái vụ này tôi góp ý riết rồi nãn luôn, đọc xong tiêu đề thấy lượm thượm quá thì chạy trước cho chắc ăn, có khi góp ý riết thì họ nổi quạo và quay qua nói những lời lẽ thô lỗ, cộc cằn, thiếu văn hoá.

Cát Lượng · 22/3/20

be09 đã viết:
Trong File phải 1 sheet liệt kê danh mục các hạng mục thi công (như cột I) để tôi xem và góp ý tiếp thì mới tính đến chuyện giúp.
Có nghĩa là tôi phải hiểu đầu đuôi ngọn ngành và khi trợ giúp thì không phải tốn nhiều thời gian sửa.
Nhiều bạn mở Topic nhưng tiêu đề không rõ nghĩa và không phù hợp nội dung đôi khi đưa cái File lên thì nữa vời, nội dung cần thì không ghi cụ thể rõ ràng, văn tự thì chữ đực chữ cái, lời văn thì phan ngang bổ củi. Mấy cái vụ này tôi góp ý riết rồi nãn luôn, đọc xong tiêu đề thấy lượm thượm quá thì chạy trước cho chắc ăn, có khi góp ý riết thì họ nổi quạo và quay qua nói những lời lẽ thô lỗ, cộc cằn, thiếu văn hoá.

Dạ vâng!
Em đã thêm một sheet liệt kê các danh mục thi công, sheet đó là Sheet (Hang muc)
Giờ em muốn điền dữ liệu thời tiết và máy thi công vào các ngày tương ứng trong từng sheet liệt kê các hạng mục mà tên các hạng mục này được liệt kê trong sheet (Hang muc).
Dữ liệu thời tiết được lấy ở sheet (Thoi tiet) với các ngày tương ứng để điền vào cột R trong các sheet các hạng mục thi công
Dữ liệu máy móc được lấy bằng cách đối chiếu từ khóa trong cột C của sheet (May thi cong) với từ khóa ở mỗi gạch đầu dòng "-" của cột T trong từng sheet các hạng mục thi công.
Mỗi dòng tương ứng với mỗi ngày trong sheet hạng mục thi công có thể gồm nhiều gạch đầu dòng, mỗi gạch đầu dòng là một nội dung công việc, các từ khóa ở mỗi gạch đầu dòng đó sẽ được lấy để làm căn cứ điền máy móc. Nếu trong một dòng gồm nhiều gạch đầu dòng có các từ khóa trùng nhau thì máy móc được điền chỉ lấy một lần, tên máy chỉ là duy nhất ( không được trùng nhau), tên máy được ngăn cách bởi dấu phẩy ","
Em diễn đạt lại như vậy!
Mong thầy giúp đỡ em.
Em xin cảm ơn.

aduc · 22/3/20

Cần phần mềm QLCL thì liên hệ mình nhé.

Cát Lượng · 22/3/20

aduc đã viết:
Cần phần mềm QLCL thì liên hệ mình nhé.

Dạ vâng!

be_09 · 22/3/20

Cát Lượng đã viết:
Dạ vâng!

Bài 4 Tôi nêu rõ thế này: Trong File phải 1 sheet liệt kê danh mục các mục thi công (như cột I).
Có nghĩa là chi tiết thế này:
- Dựng lán trại
- Tập kết nhân lực, máy móc thi công
- Tập kết dàn giáo
- Trang thiết bị, dụng cụ bảo hộ an toàn lao động

Cát Lượng · 22/3/20

be09 đã viết:
Bài 4 Tôi nêu rõ thế này: Trong File phải 1 sheet liệt kê danh mục các mục thi công (như cột I).
Có nghĩa là chi tiết thế này:
- Dựng lán trại
- Tập kết nhân lực, máy móc thi công
- Tập kết dàn giáo
- Trang thiết bị, dụng cụ bảo hộ an toàn lao động

File em đăng là 4 sheet là tên các hạng mục có liệt kê các công việc thi công, em muốn điền thời tiết và máy móc vào 04 sheet đó với dữ liệu được lấy từ sheet(Thoi tiet) và sheet (May thi cong) .
Thầy có nói :"Trong File phải 1 sheet liệt kê danh mục các mục thi công (như cột I)." em chưa hiểu lắm, sheet này liệt kê danh mục thi công của tất cả các sheet hạng mục kia hay là sao ạ?
em cảm ơn thầy.

be_09 · 22/3/20

Cát Lượng đã viết:
File em đăng là 4 sheet là tên các hạng mục có liệt kê các công việc thi công, em muốn điền thời tiết và máy móc vào 04 sheet đó với dữ liệu được lấy từ sheet(Thoi tiet) và sheet (May thi cong) .
Thầy có nói :"Trong File phải 1 sheet liệt kê danh mục các mục thi công (như cột I)." em chưa hiểu lắm, sheet này liệt kê danh mục thi công của tất cả các sheet hạng mục kia hay là sao ạ?
em cảm ơn thầy.

Cột I có tên là thi công, gồm có chi tiết thế này:
- Dựng lán trại
- Tập kết nhân lực, máy móc thi công
- Tập kết dàn giáo
- Trang thiết bị, dụng cụ bảo hộ an toàn lao động
...v...v...........
Phải liệt kê hết các mục và sheet Danh mục để lấy dữ liệu vào Form mới chọn nhập liệu hàng loạt cho thống nhất chứ đâu có gõ tay.

Cát Lượng · 22/3/20

be09 đã viết:
Cột I có tên là thi công, gồm có chi tiết thế này:
- Dựng lán trại
- Tập kết nhân lực, máy móc thi công
- Tập kết dàn giáo
- Trang thiết bị, dụng cụ bảo hộ an toàn lao động
...v...v...........
Phải liệt kê hết các mục và sheet Danh mục để lấy dữ liệu vào Form mới chọn nhập liệu hàng loạt cho thống nhất chứ đâu có gõ tay.

Vâng, em hiểu là Sheet Danh mục đó có phải là tổng cột I của 4 Sheet hạng mục kia không ạ?
Tại vì em không biết lấy dữ liệu của sheet Danh mục đó ở đâu ra?
nếu mà tổng như vậy vào mà mỗi chi tiết là một gạch đầu dòng thì em không biết tổng hợp như thế nào ạ?

be_09 · 22/3/20

Cát Lượng đã viết:
Vâng, em hiểu là Sheet Danh mục đó có phải là tổng cột I của 4 Sheet hạng mục kia không ạ?
Tại vì em không biết lấy dữ liệu của sheet Danh mục đó ở đâu ra?

Sheet Danh mục là liệt kê tất cả mọi công việc liên quan đến công trình, tôi đâu có làm ngành này nên không biết công việc thế nào mà liệt kê?

HieuCD · 22/3/20

Cát Lượng đã viết:
Em có bài toán sau xin được nhờ các thầy (cô), anh (chị) trên diễn đàn giúp đỡ:
File của em gồm các sheet chứa tên các hạng mục của công trình và sheet (Thoi tiet) và Sheet (May thi cong).
Các sheet chứa tên các hạng mục công trình trong file cụ thể là: Sheet (Cong tuong rao), Sheet (Nha ve sinh), Sheet (Nha xe hoc sinh), Sheet (San be tong) được liệt kê vào cột F của sheet (May thi cong) (có thể thêm các hạng mục khác bằng cách liệt kê tên sheet vào cột F của sheet (May thi cong) thì các sheet đó cũng được điền máy thi công và thời tiết như các sheet có tên cụ thể các hạng mục nêu trên)
Các Sheet chứa tên các hạng mục nêu trên đều có cấu trúc giống nhau.
Em xin được nhờ giúp đỡ mấy vấn đề sau ạ:
1/ Lấy giữ liệu thời tiết ở Sheet (Thoi tiet) để điền vào cột R có các ngày tương ứng trong từng sheet chứa tên các hạng mục công trình.
2/ Từ khóa và máy móc do người dùng điền vào cột C và D trong Sheet (May thi cong) sau khi chạy code "Điền máy móc vào các sheet" thì máy thi công được lấy trong cột D của Sheet (May thi cong) để điền vào cột T các ngày tương ứng trong các sheet hạng mục theo từ khóa tương ứng của mỗi gạch đầu dòng trong từng dòng.
Máy được điền theo từ khóa đầu của mỗi gạch đầu dòng "-" trong cột I (THI CÔNG) tương ứng với các ngày, mỗi ngày trong sheet tên các hạng mục chỉ là một dòng, mỗi dòng có thể có nhiều gạch đầu dòng, và mỗi gạch đầu dòng này tương ứng với một nội dung công việc.

Mỗi loại máy được ngăn cách nhau bởi dấu "," .Nếu trong một dòng có các gạch đầu dòng có các từ khóa giống nhau thì máy móc sẽ không được lấy trùng (không trùng tên máy 2 lần hoặc 3 lần mà tên máy chỉ được điền một lần).

Giúp e
Em xin chân thành cảm ơn!

View attachment 233790 View attachment 233791

Cẩn thận cột từ khóa

Mã:

Option Compare Text
Sub MayMoc()
  Dim aMayMoc(), aShName(), sArr(), S, Res()
  Dim eRow&, i&, i2&, r&, j&, ik&, sRow&, shName$, tmp$

  With Sheets("May thi cong")
    eRow = .Range("C" & Rows.Count).End(xlUp).Row
    aMayMoc = .Range("C3:D" & eRow).Value
    eRow = .Range("F" & Rows.Count).End(xlUp).Row
    aShName = .Range("F3:F" & eRow).Value
  End With
  For i = 1 To UBound(aShName)
    shName = aShName(i, 1)
    For n = 1 To Sheets.Count
      If Sheets(n).Name = shName Then
        With Sheets(n)
          eRow = .Range("B" & Rows.Count).End(xlUp).Row
          sArr = .Range("I2:I" & eRow).Value
          sRow = UBound(sArr)
          ReDim Res(1 To sRow, 1 To 1)
          For r = 1 To sRow
            tmp = sArr(r, 1)
            If InStr(1, tmp, "-") Then
              For i2 = 1 To UBound(aMayMoc)
                If tmp Like "*" & aMayMoc(i2, 1) & "*" Then
                  Res(r, 1) = Res(r, 1) & "," & aMayMoc(i2, 2)
                End If
              Next i2
              If Len(Res(r, 1)) Then Res(r, 1) = Mid(Res(r, 1), 2, Len(Res(r, 1)))
            End If
          Next r
          .Range("T2").Resize(sRow) = Res
        End With
      End If
    Next n
  Next i
End Sub

Sub ThoiTiet()
  Dim aThoiTiet(), aShName(), sArr(), Res(), Dic As Object
  Dim eRow&, i&, r&, ik&, sRow&, shName$, iKey
  Set Dic = CreateObject("scripting.dictionary")
  With Sheets("Thoi tiet")
    eRow = .Range("B" & Rows.Count).End(xlUp).Row
    aThoiTiet = .Range("B3:C" & eRow).Value
  End With
  sRow = UBound(aThoiTiet)
  For i = 1 To sRow
    iKey = aThoiTiet(i, 1)
    If Dic.exists(iKey) = False Then
      Dic.Add iKey, aThoiTiet(i, 2)
      Dic.Add iKey & aThoiTiet(i, 2), ""
    Else
      If Dic.exists(iKey & aThoiTiet(i, 2)) = False Then
        Dic.Add iKey & aThoiTiet(i, 2), ""
        Dic.Item(iKey) = Dic.Item(iKey) & " + " & aThoiTiet(i, 2)
      End If
    End If
  Next i
 
  With Sheets("May thi cong")
    eRow = .Range("F" & Rows.Count).End(xlUp).Row
    aShName = .Range("F3:F" & eRow).Value
  End With
  For i = 1 To UBound(aShName)
    shName = aShName(i, 1)
    For n = 1 To Sheets.Count
      If Sheets(n).Name = shName Then
        With Sheets(n)
          eRow = .Range("B" & Rows.Count).End(xlUp).Row
          sArr = .Range("B2:B" & eRow).Value
          sRow = UBound(sArr)
          ReDim Res(1 To sRow, 1 To 1)
          For r = 1 To sRow
            iKey = sArr(r, 1)
            If Dic.exists(iKey) Then Res(r, 1) = Dic.Item(iKey)
          Next r
          .Range("R2").Resize(sRow) = Res
        End With
      End If
    Next n
  Next i
End Sub

Cát Lượng · 22/3/20

be09 đã viết:
Sheet Danh mục là liệt kê tất cả mọi công việc liên quan đến công trình, tôi đâu có làm ngành này nên không biết công việc thế nào mà liệt kê?

Em đã thêm sheet (Danh muc) vào , thầy xem giúp em!
Em cảm ơn thầy!

Bài đã được tự động gộp: 22/3/20

HieuCD đã viết:

Cẩn thận cột từ khóa

Mã:

Option Compare Text
Sub MayMoc()
  Dim aMayMoc(), aShName(), sArr(), S, Res()
  Dim eRow&, i&, i2&, r&, j&, ik&, sRow&, shName$, tmp$

  With Sheets("May thi cong")
    eRow = .Range("C" & Rows.Count).End(xlUp).Row
    aMayMoc = .Range("C3:D" & eRow).Value
    eRow = .Range("F" & Rows.Count).End(xlUp).Row
    aShName = .Range("F3:F" & eRow).Value
  End With
  For i = 1 To UBound(aShName)
    shName = aShName(i, 1)
    For n = 1 To Sheets.Count
      If Sheets(n).Name = shName Then
        With Sheets(n)
          eRow = .Range("B" & Rows.Count).End(xlUp).Row
          sArr = .Range("I2:I" & eRow).Value
          sRow = UBound(sArr)
          ReDim Res(1 To sRow, 1 To 1)
          For r = 1 To sRow
            tmp = sArr(r, 1)
            If InStr(1, tmp, "-") Then
              For i2 = 1 To UBound(aMayMoc)
                If tmp Like "*" & aMayMoc(i2, 1) & "*" Then
                  Res(r, 1) = Res(r, 1) & "," & aMayMoc(i2, 2)
                End If
              Next i2
              If Len(Res(r, 1)) Then Res(r, 1) = Mid(Res(r, 1), 2, Len(Res(r, 1)))
            End If
          Next r
          .Range("T2").Resize(sRow) = Res
        End With
      End If
    Next n
  Next i
End Sub

Sub ThoiTiet()
  Dim aThoiTiet(), aShName(), sArr(), Res(), Dic As Object
  Dim eRow&, i&, r&, ik&, sRow&, shName$, iKey
  Set Dic = CreateObject("scripting.dictionary")
  With Sheets("Thoi tiet")
    eRow = .Range("B" & Rows.Count).End(xlUp).Row
    aThoiTiet = .Range("B3:C" & eRow).Value
  End With
  sRow = UBound(aThoiTiet)
  For i = 1 To sRow
    iKey = aThoiTiet(i, 1)
    If Dic.exists(iKey) = False Then
      Dic.Add iKey, aThoiTiet(i, 2)
      Dic.Add iKey & aThoiTiet(i, 2), ""
    Else
      If Dic.exists(iKey & aThoiTiet(i, 2)) = False Then
        Dic.Add iKey & aThoiTiet(i, 2), ""
        Dic.Item(iKey) = Dic.Item(iKey) & " + " & aThoiTiet(i, 2)
      End If
    End If
  Next i

  With Sheets("May thi cong")
    eRow = .Range("F" & Rows.Count).End(xlUp).Row
    aShName = .Range("F3:F" & eRow).Value
  End With
  For i = 1 To UBound(aShName)
    shName = aShName(i, 1)
    For n = 1 To Sheets.Count
      If Sheets(n).Name = shName Then
        With Sheets(n)
          eRow = .Range("B" & Rows.Count).End(xlUp).Row
          sArr = .Range("B2:B" & eRow).Value
          sRow = UBound(sArr)
          ReDim Res(1 To sRow, 1 To 1)
          For r = 1 To sRow
            iKey = sArr(r, 1)
            If Dic.exists(iKey) Then Res(r, 1) = Dic.Item(iKey)
          Next r
          .Range("R2").Resize(sRow) = Res
        End With
      End If
    Next n
  Next i
End Sub

Cảm ơn anh rất nhiều ạ!

Nhất Chi Lan · 22/3/20

aduc đã viết:
Cần phần mềm QLCL thì liên hệ mình nhé.

Anh ơi chia sẻ cho chúng em xem với. Anh Toàn cho xem video chán chết đi được

Nhất Chi Lan · 23/3/20

Cát Lượng · 23/3/20

HieuCD đã viết:

Cẩn thận cột từ khóa

Mã:

Option Compare Text
Sub MayMoc()
  Dim aMayMoc(), aShName(), sArr(), S, Res()
  Dim eRow&, i&, i2&, r&, j&, ik&, sRow&, shName$, tmp$

  With Sheets("May thi cong")
    eRow = .Range("C" & Rows.Count).End(xlUp).Row
    aMayMoc = .Range("C3:D" & eRow).Value
    eRow = .Range("F" & Rows.Count).End(xlUp).Row
    aShName = .Range("F3:F" & eRow).Value
  End With
  For i = 1 To UBound(aShName)
    shName = aShName(i, 1)
    For n = 1 To Sheets.Count
      If Sheets(n).Name = shName Then
        With Sheets(n)
          eRow = .Range("B" & Rows.Count).End(xlUp).Row
          sArr = .Range("I2:I" & eRow).Value
          sRow = UBound(sArr)
          ReDim Res(1 To sRow, 1 To 1)
          For r = 1 To sRow
            tmp = sArr(r, 1)
            If InStr(1, tmp, "-") Then
              For i2 = 1 To UBound(aMayMoc)
                If tmp Like "*" & aMayMoc(i2, 1) & "*" Then
                  Res(r, 1) = Res(r, 1) & "," & aMayMoc(i2, 2)
                End If
              Next i2
              If Len(Res(r, 1)) Then Res(r, 1) = Mid(Res(r, 1), 2, Len(Res(r, 1)))
            End If
          Next r
          .Range("T2").Resize(sRow) = Res
        End With
      End If
    Next n
  Next i
End Sub

Sub ThoiTiet()
  Dim aThoiTiet(), aShName(), sArr(), Res(), Dic As Object
  Dim eRow&, i&, r&, ik&, sRow&, shName$, iKey
  Set Dic = CreateObject("scripting.dictionary")
  With Sheets("Thoi tiet")
    eRow = .Range("B" & Rows.Count).End(xlUp).Row
    aThoiTiet = .Range("B3:C" & eRow).Value
  End With
  sRow = UBound(aThoiTiet)
  For i = 1 To sRow
    iKey = aThoiTiet(i, 1)
    If Dic.exists(iKey) = False Then
      Dic.Add iKey, aThoiTiet(i, 2)
      Dic.Add iKey & aThoiTiet(i, 2), ""
    Else
      If Dic.exists(iKey & aThoiTiet(i, 2)) = False Then
        Dic.Add iKey & aThoiTiet(i, 2), ""
        Dic.Item(iKey) = Dic.Item(iKey) & " + " & aThoiTiet(i, 2)
      End If
    End If
  Next i

  With Sheets("May thi cong")
    eRow = .Range("F" & Rows.Count).End(xlUp).Row
    aShName = .Range("F3:F" & eRow).Value
  End With
  For i = 1 To UBound(aShName)
    shName = aShName(i, 1)
    For n = 1 To Sheets.Count
      If Sheets(n).Name = shName Then
        With Sheets(n)
          eRow = .Range("B" & Rows.Count).End(xlUp).Row
          sArr = .Range("B2:B" & eRow).Value
          sRow = UBound(sArr)
          ReDim Res(1 To sRow, 1 To 1)
          For r = 1 To sRow
            iKey = sArr(r, 1)
            If Dic.exists(iKey) Then Res(r, 1) = Dic.Item(iKey)
          Next r
          .Range("R2").Resize(sRow) = Res
        End With
      End If
    Next n
  Next i
End Sub

Em chào anh, anh ơi em dùng code anh viết giúp thì có vấn đề sau nhờ anh giúp ạ!
Em chạy code thời tiết để điền dữ liệu thời tiết vào các ngày tương ứng:
Thì thời tiết được điền vào lại cộng thêm thời tiết của ngày trước hoặc sau đó:
Cụ thể ngày 18 tháng 10 năm 2019 thời tiết là : "Mưa nhỏ" nhưng khi chạy code thời tiết để điền vào ngày 18 tháng 10 năm 2019 trong các sheet tên các hạng mục thì thời tiết lại là "Râm mát + mưa nhỏ"
Em nhờ anh giúp em để thời tiết được điền đúng như dữ liệu tương ứng với ngày trong Sheet (Thoi tiet) .
Em xin cảm ơn!

HieuCD · 23/3/20

Cát Lượng đã viết:
Em chào anh, anh ơi em dùng code anh viết giúp thì có vấn đề sau nhờ anh giúp ạ!
Em chạy code thời tiết để điền dữ liệu thời tiết vào các ngày tương ứng:
Thì thời tiết được điền vào lại cộng thêm thời tiết của ngày trước hoặc sau đó:
Cụ thể ngày 18 tháng 10 năm 2019 thời tiết là : "Mưa nhỏ" nhưng khi chạy code thời tiết để điền vào ngày 18 tháng 10 năm 2019 trong các sheet tên các hạng mục thì thời tiết lại là "Râm mát + mưa nhỏ"
Em nhờ anh giúp em để thời tiết được điền đúng như dữ liệu tương ứng với ngày trong Sheet (Thoi tiet) .
Em xin cảm ơn!

View attachment 233880 View attachment 233881

Ngày 18 có "Râm mát" rất lý tưởng, sau đó lại tiếp tục "Mưa nhỏ" nên phải lấy cả hai, bỏ vụ nào cũng bị thiếu thiếu

Cát Lượng · 23/3/20

HieuCD đã viết:
Ngày 18 có "Râm mát" rất lý tưởng, sau đó lại tiếp tục "Mưa nhỏ" nên phải lấy cả hai, bỏ vụ nào cũng bị thiếu thiếu

Vâng, nội suy vậy cũng rất hay.
Trong trường hợp này nhờ anh giúp em sửa lại Để thời tiết được đúng với ngày trong dữ liệu mới ạ!
Em cảm ơn anh

dinhthi1028 · 23/3/20

Cát Lượng đã viết:
Em chào anh, anh ơi em dùng code anh viết giúp thì có vấn đề sau nhờ anh giúp ạ!
Em chạy code thời tiết để điền dữ liệu thời tiết vào các ngày tương ứng:
Thì thời tiết được điền vào lại cộng thêm thời tiết của ngày trước hoặc sau đó:
Cụ thể ngày 18 tháng 10 năm 2019 thời tiết là : "Mưa nhỏ" nhưng khi chạy code thời tiết để điền vào ngày 18 tháng 10 năm 2019 trong các sheet tên các hạng mục thì thời tiết lại là "Râm mát + mưa nhỏ"
Em nhờ anh giúp em để thời tiết được điền đúng như dữ liệu tương ứng với ngày trong Sheet (Thoi tiet) .
Em xin cảm ơn!

View attachment 233880 View attachment 233881

Nếu đã phân lập sheet sang sheet khác thế này dùng hàm lấy sang cũng được mà

Xin được giúp đỡ điền thời tiết, máy móc thi công vào các hạng mục (1 người xem)

Người dùng đang xem chủ đề này

Thành viên tiêu biểu

File đính kèm

Biên Hòa, Đồng Nai

Thành viên tiêu biểu

Biên Hòa, Đồng Nai

Thành viên tiêu biểu

File đính kèm

Thành viên chính thức

Thành viên tiêu biểu

Biên Hòa, Đồng Nai

Thành viên tiêu biểu

Biên Hòa, Đồng Nai

Thành viên tiêu biểu

Biên Hòa, Đồng Nai

Chuyên gia GPE

File đính kèm

Thành viên tiêu biểu

File đính kèm

Thành viên mới

Thành viên mới

Thành viên tiêu biểu

File đính kèm

Chuyên gia GPE

Thành viên tiêu biểu

Thành viên mới

Đếm ngược thời gian