Thử.Các anh chị có thể giúp em đoạn code liệt kê mà e có ví dụ ở trong file đươc không ạ
Sub dichuyen()
Dim a, i As Long, arr, kq, j As Integer, k As Integer, max As Long
With Sheets("sheet1")
arr = .Range("C3:F8").Value
ReDim kq(1 To 100, 1 To 3)
For j = 2 To 4
a = 0
For i = 1 To UBound(arr)
For k = 1 To arr(i, j)
a = a + 1
kq(a, j - 1) = arr(i, 1)
Next k
Next i
If max < a Then max = a
Next j
.Range("D12:F1000").ClearContents
.Range("d12:F12").Resize(max).Value = kq
End With
End Sub
Buồn buồn thế gian nhắm mắt làm chơi ... cho thư giãn đầu óc một tí...Các anh chị có thể giúp em đoạn code liệt kê mà e có ví dụ ở trong file đươc không ạ
Bị anh phát hiện rồi, em tính liệt kê lại các đoạn đã cắt trong một cây sắt ban đầu rồi tạo biểu đồ cột chồng cho dễ hình dungChắc từ đây mà ra phải không bạn?
Hỏi về macro di chuyển ô này sang ô khác
Bác có thể chia sẻ code được không ạ? Có từ khóa rồi mà bạn. Tìm là thấy thôi. https://www.giaiphapexcel.com/diendan/threads/ti%E1%BB%87n-%C3%ADch-t%C3%ADnh-to%C3%A1n-%C4%91%E1%BB%83-ti%E1%BA%BFt-ki%E1%BB%87m-khi-c%E1%BA%AFt-t%E1%BA%A5m-c%E1%BA%AFt-thanh.83240/www.giaiphapexcel.comTiện ích tính toán để tiết kiệm khi cắt tấm, cắt thanh.
Lần trước tôi đã gửi một file dùng để tính toán các sắp xếp tối ưu những hình chữ nhật nhỏ có cùng kích thước trong một hình chữ nhật lớn để số lượng hình chữ nhật nhỏ được xếp là lớn nhất. Tiện ích này sẽ giúp các bạn tiết kiệm không gian khi sắp xếp hàng hóa, tiết kiệm nguyên liệu khi cắt một...www.giaiphapexcel.com
Văn anh hay lại code giỏi, em phải học hỏi nhiều rồi!Buồn buồn thế gian nhắm mắt làm chơi ... cho thư giãn đầu óc một tí...
nên đụng đâu code đó nhá!!!
Văn anh hay lại code giỏi, em phải học hỏi nhiều rồi!Buồn buồn thế gian nhắm mắt làm chơi ... cho thư giãn đầu óc một tí...
nên đụng đâu code đó nhá!!!
Ối ... bạn lầm rùi...Văn anh hay lại code giỏi, em phải học hỏi nhiều rồi!
Cảm ơn anh nhé
DIỄN ĐÀN GIẢI PHÁP EXCEL