Xin hỏi về cách tự chèn thông tin theo vòng lặp như for ... print .. trong lập trình (1 người xem)

[honhat0990]

Xin chào các bạn !
Cho mình hỏi, như file hình bên dưới. Mình muốn ở bên ô kết quả có thể nào cho nó tự động thêm các số seri với điều kiện là tổng các số seri nhập vào = số "seri đến" - số "seri từ" và các số nhập vào giống như trong hình. Và nếu "seri từ" giống "seri đến" thì chỉ nhập vào 1 số . Các anh chị hay các bạn nào biết giúp mình nhé. Mình cảm ơn.

 

[Quang_Hải]

Xin chào các bạn !
Cho mình hỏi, như file hình bên dưới. Mình muốn ở bên ô kết quả có thể nào cho nó tự động thêm các số seri với điều kiện là tổng các số seri nhập vào = số "seri đến" - số "seri từ" và các số nhập vào giống như trong hình. Và nếu "seri từ" giống "seri đến" thì chỉ nhập vào 1 số . Các anh chị hay các bạn nào biết giúp mình nhé. Mình cảm ơn.View attachment 132507

Sub Serial()
Dim data(), kq(1 To 65536, 1 To 1)
Dim i&, j&, k&
data = Range([A2], [B65536].End(3)).Value
For i = 1 To UBound(data)
   For j = 0 To data(i, 2) - data(i, 1)
      k = k + 1
      kq(k, 1) = CStr(data(i, 1) + j)
   Next
Next
[C2].Resize(k) = kq
End Sub

 

[honhat0990]

cái code đó mình không hỉu, bạn có thể giải thích dùm mình được không, và hướng dẫn mình cách dùng nó với. cảm ơn bạn nhiều.

 

[Quang_Hải]

cái code đó mình không hỉu, bạn có thể giải thích dùm mình được không, và hướng dẫn mình cách dùng nó với. cảm ơn bạn nhiều.

Mở file lên. bấm Alt +F11, vào thẻ Insert chèn vào 1 module. Copy code vào cửa sổ module. Bấm F5.
Bạn nên tự tìm hiểu thêm về ứng dụng của VBA trong excel

 

[honhat0990]

ok, cảm ơn bạn rất nhiều