Tạo danh sách thứ tự theo số liệu cho trước

[pt_hcl]

Mình mong các bạn giúp đỡ trường hợp này. Mình cần tạo danh sách số thứ tự theo số liệu cho trước.
Số liệu ở cột V.
- Cần tạo ra một dãy số thứ tự theo số liệu có ở cột V với 80 lần tạo.
ví dụ: tại V5 có số liệu là 5: tạo ra danh sách thứ tự từ 1 đến 5 với 80 lần tạo. Sau đó tô màu đỏ cho tất cả những số cuối ở mỗi lần tạo.
Ở file mình làm minh hoạ với 4 lần tạo danh sách thứ tự.
- Mong các bạn giúp đỡ. Xin cảm ơn!

 

[chucuoi92]

Mình mong các bạn giúp đỡ trường hợp này. Mình cần tạo danh sách số thứ tự theo số liệu cho trước.
Số liệu ở cột V.
- Cần tạo ra một dãy số thứ tự theo số liệu có ở cột V với 80 lần tạo.
ví dụ: tại V5 có số liệu là 5: tạo ra danh sách thứ tự từ 1 đến 5 với 80 lần tạo. Sau đó tô màu đỏ cho tất cả những số cuối ở mỗi lần tạo.
Ở file mình làm minh hoạ với 4 lần tạo danh sách thứ tự.
- Mong các bạn giúp đỡ. Xin cảm ơn!

bạn dùng công thức này cho W5=MOD($V5+COLUMNS($W5:W5)-1,$V5)+1
rồi fil ngang,dọc
Sau đó dung filter để lọc những dòng trống để xoá công thức lỗi đi

 

[dhn46]

Nếu bạn muốn tham khảo Code thì bạn dùng cái này, tô đỏ bạn dùng CF nhé

Sub STT()
Dim Arr
Dim i As Long, j As Long, t As Long, DK As Long
Arr = Range("V5:XFD" & Range("V65536").End(3).Row)
For i = 1 To UBound(Arr, 1) Step 2
    For j = 1 To 80
        DK = Arr(i, 1)
        For t = 1 To DK
            Arr(i, DK * (j - 1) + t + 1) = t
        Next
    Next
Next
Range("V5").Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr
End Sub

 

[HieuCD]

Mình mong các bạn giúp đỡ trường hợp này. Mình cần tạo danh sách số thứ tự theo số liệu cho trước.
Số liệu ở cột V.
- Cần tạo ra một dãy số thứ tự theo số liệu có ở cột V với 80 lần tạo.
ví dụ: tại V5 có số liệu là 5: tạo ra danh sách thứ tự từ 1 đến 5 với 80 lần tạo. Sau đó tô màu đỏ cho tất cả những số cuối ở mỗi lần tạo.
Ở file mình làm minh hoạ với 4 lần tạo danh sách thứ tự.
- Mong các bạn giúp đỡ. Xin cảm ơn!

bạn dùng code, chỉ chạy cho 5*80=400 cột

Sub GPE()
Dim Darr(), Arr(), i As Integer, j As Integer, LastR As Integer, SoCot As Integer
LastR = Range("V65500").End(xlUp).Row
If LastR < 5 Then Exit Sub
Darr = Range("V5:V" & LastR).Value
SoCot = 5 * 80  'Khai bao so cot
ReDim Arr(1 To UBound(Darr), 1 To SoCot)
Range("W5").Resize(UBound(Darr), SoCot).Clear
For i = 1 To UBound(Darr) Step 2
  For j = 1 To SoCot
    Arr(i, j) = ((j - 1) Mod Darr(i, 1)) + 1
    If Arr(i, j) = Darr(i, 1) Then Cells(i + 4, j + 22).Interior.Color = 255
  Next j
Next i
Range("W5").Resize(UBound(Darr), SoCot) = Arr
End Sub

 

[dhn46]

bạn dùng code, chỉ chạy cho 5*80=400 cột

Sub GPE()
Dim Darr(), Arr(), i As Integer, j As Integer, LastR As Integer, SoCot As Integer
LastR = Range("V65500").End(xlUp).Row
If LastR < 5 Then Exit Sub
Darr = Range("V5:V" & LastR).Value
[B][COLOR=#ff0000]SoCot = 5 * 80  'Khai bao so cot[/COLOR][/B]
ReDim Arr(1 To UBound(Darr), 1 To SoCot)
Range("W5").Resize(UBound(Darr), SoCot).Clear
For i = 1 To UBound(Darr) Step 2
  For j = 1 To SoCot
    Arr(i, j) = ((j - 1) Mod Darr(i, 1)) + 1
    If Arr(i, j) = Darr(i, 1) Then Cells(i + 4, j + 22).Interior.Color = 255
  Next j
Next i
Range("W5").Resize(UBound(Darr), SoCot) = Arr
End Sub

Chắc cái này phải xem lại anh nhỉ? Nhỡ không phải là 5 mà là 6 thì thiếu dữ liệu.

 

[pt_hcl]

Chắc cái này phải xem lại anh nhỉ? Nhỡ không phải là 5 mà là 6 thì thiếu dữ liệu.

Cảm ơn các ban rất nhiều. Về phần tô màu thì mong các bạn và GPE xem mình trường hợp này ạ:
Mong các bạn xem giúp mình phần tô màu dùng code:
Dữ liệu ở dòng 1: tại ô V1 là chứa dữ liệu ban đầu. Tô màu những ô trong dòng 1 có chứa dữ liệu ban đầu. Khi tô màu không xoá màu của những ô khác trong dòng nếu có.
Ví dụ minh hoạ: tại ô V1 có chứa dữ liệu 5 => tìm trong dòng những ô có chứa dữ liệu 5 thì tô màu cho nó.
- Mong các bạn giúp đỡ. Xin cảm ơn!

 

[HieuCD]

Chắc cái này phải xem lại anh nhỉ? Nhỡ không phải là 5 mà là 6 thì thiếu dữ liệu.

mình nghĩ bài nầy có liên quan đến bài:
www.giaiphapexcel.com/forum/showthread.php?121966-Tìm-bước-nhảy-thoả-mãn-điều-kiện
nên mình cho rằng số cột là cố định cho các bước nhảy

 

[pt_hcl]

mình nghĩ bài nầy có liên quan đến bài:
www.giaiphapexcel.com/forum/showthread.php?121966-Tìm-bước-nhảy-thoả-mãn-điều-kiện
nên mình cho rằng số cột là cố định cho các bước nhảy

Vâng, đúng rồi ạ. Nhưng là 2 phần nó hơi khác nhau vì vậy mình xin tách ra làm 2 mảng. Cảm ơn bạn rất nhiều!

 

[HieuCD]

Cảm ơn các ban rất nhiều. Về phần tô màu thì mong các bạn và GPE xem mình trường hợp này ạ:
Mong các bạn xem giúp mình phần tô màu dùng code:
Dữ liệu ở dòng 1: tại ô V1 là chứa dữ liệu ban đầu. Tô màu những ô trong dòng 1 có chứa dữ liệu ban đầu. Khi tô màu không xoá màu của những ô khác trong dòng nếu có.
Ví dụ minh hoạ: tại ô V1 có chứa dữ liệu 5 => tìm trong dòng những ô có chứa dữ liệu 5 thì tô màu cho nó.
- Mong các bạn giúp đỡ. Xin cảm ơn!

chạy code

Sub ToMau()
Dim j As Long
For j = 23 To 10000
  If Cells(1, j) = "" Then Exit Sub
  If Cells(1, j) = Range("V1") Then Cells(1, j).Interior.Color = 15773696
Next j
End Sub