Recent Content by ♫ђöล♥ßล†♥†µ♫

  1. ♫ђöล♥ßล†♥†µ♫

    Nhờ anh (chị) giúp em code điền dữ liệu

    Ơ ơ. Mình đã gi rõ "Thừa em nào thì xóa nhé" rồi mà :p:p:p dArr(K, 2) = "Tên: " & sArr(I, 4) Thích tên gì thì bạn gõ vào ô AG4 rồi copy AG5 vào nhé
  2. ♫ђöล♥ßล†♥†µ♫

    Xin nhờ giúp code bo viềng nội dung

    Bạn thử đoạn này xem Sub Kevien() Dim Er As Long, sRng As Range, eRng As Range, Cll As Range, Dk As Boolean Application.ScreenUpdating = False Application.EnableEvents = False Er = Range("E8").End(xlDown).Row If Er > 8 Then Set sRng = Range("D8:D" & Er) sRng.Resize(...
  3. ♫ђöล♥ßล†♥†µ♫

    Bạn hỏi chủ nhân của Code cho nhanh, Tên này Mutants Men nhé

    Bạn hỏi chủ nhân của Code cho nhanh, Tên này Mutants Men nhé
  4. ♫ђöล♥ßล†♥†µ♫

    Tách nội dung dữ liệu từ 1 ô ra hàng theo điều kiện

    Dạ không em chỉ muốn lấy dữ liệu như file đính kèm thôi ạ. Anh giúp em cải thiện tốc độ bài 3 được không ạ 1573909352 Chị giúp em với. 1573909674 Thầy giúp em đi mờ.
  5. ♫ђöล♥ßล†♥†µ♫

    Tách nội dung dữ liệu từ 1 ô ra hàng theo điều kiện

    Em cám ơn Thầy đã quan tâm. Em xin được đính kèm file mà Anh excel_lv1.5 đã giúp đỡ Em xử lý chuỗi Str trong Code GetdatawebAccuweather ạ
  6. ♫ђöล♥ßล†♥†µ♫

    Tách nội dung dữ liệu từ 1 ô ra hàng theo điều kiện

    Em có bài toán muốn Thầy(Cô), Anh(Chị) trợ giúp ạ Em muốn tách dữ liệu từ ô A2 ra cột D:F ....., thứ tự từ ngày 1 đến ngày 31 (cuối tháng). Dữ liệu muốn lấy là (Ngày, Historical Average Hi / Historical Average Lo và lg.mưa) theo mẫu như File đính kèm. Do dữ liệu nhiều có khi đến 25 chuỗi như vậy...
  7. ♫ђöล♥ßล†♥†µ♫

    Xin nhờ tạo UserForm in theo lựa chọn

    - Selected data: Vùng dữ liệu nguồn (bao gồm cả tiêu đề) - Destination: Ô đích chứa số thứ tự (Trong File là E3)
  8. ♫ђöล♥ßล†♥†µ♫

    Xin nhờ tạo UserForm in theo lựa chọn

    Bạn thử đưa dữ liệu thật lên xem nào. Chứ cót két mỗi lần cấu trúc thay đổi thì lại phải chỉnh lại mất công lắm
  9. ♫ђöล♥ßล†♥†µ♫

    Copy dữ liệu qua sheet mới có điều kiện

    Bê nguyên sang đây ạ Sub Test() Dim LC As Integer With Sheets("DATA") LC = .Cells(4, Columns.Count).End(xlToLeft).Column + 1 Sheets("TC").Range("K8:K23").Copy With .Cells(4, LC) .PasteSpecial xlPasteColumnWidths .PasteSpecial xlPasteFormats .PasteSpecial...
  10. ♫ђöล♥ßล†♥†µ♫

    Xin code Autofit dòng và cột mà không cần mở file

    Sao mình chạy nó vẫn giống file gốc nhỉ -\\/.
  11. ♫ђöล♥ßล†♥†µ♫

    code thêm chữ "Tổng cộng" và tính giá trị tổng của các cột

    Cái đoạn dài dài With Sh.Cells(eRw, "D").Offset(1) .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)" .Font.Bold = True End With With Sh.Cells(eRw, "E").Offset(1) .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)" .Font.Bold = True End With With Sh.Cells(eRw, "F").Offset(1)...
  12. ♫ђöล♥ßล†♥†µ♫

    Nhờ mọi người hướng dẫn tìm giá trị lớn nhất của phương trình hồi quy (đường xu hướng) trong đồ thị excel

    Qua bên này chơi bạn nhá https://www.giaiphapexcel.com/diendan/threads/hồi-quy-phương-trình-bậc-2.133716/#post-846545
Top Bottom