Đánh số theo quy luật cho trước

[manhhung504]

Đánh số nhiều cột theo quy luật cho trước

Chào các bạn!
Tôi có một vấn đề cần đánh số theo quy luật modul (nhóm số giống nhau) cho trước. Ở đây các cột T1,T2,...,T15 là modul có sẵn, cột M1,M2,...,M15 là những cột cần gán số.Mong các bạn viết cho mình đoạn VB. Chân thành cảm ơn! mình up file vd kèm theo

 

[ThuNghi]

Có phải bạn hỏi dòng 6: T1, M1...?
Nếu vậy thì như sau:
1/ Vào Tools, option, tạo CustomList là T1,M1,T2,M2...
Và chỉ cần nhập T1,M1 thì kéo như là TT
2/ Hay là công thức thì như sau:
G6:=IF(MOD(COLUMN(),2)=1,"M"&COUNTIF($F$6:F$6,"T"&"*")+1,"T"&COUNTIF($F$6:F$6,"T"&"*")+1)
Kéo qua phải.
Còn Conditional Formating thì chỉ chuyển sang màu khác, chớ nó không cho quay text.
Chắc cũng o cần VBA.

 

[manhhung504]

Cảm ơn ThuNghi rất nhiều không phải ở dòng 6, vấn đề ở đây là tại cột T1,T2,...T15 đã được gán số theo nhóm giống như modul và giá trị cần gán theo thứ tự tăng dần theo modul từ nhỏ đến lớn. Ở file VD mình phải gán từng số tại cột M1,M2.... các dãy số theo số modul tương ứng ở cột T1,T2,... Mong các bạn nghiên cứu viết giúp. Cảm ơn!

 

[SA_DQ]

Bạn thử đoạn mã sau:

Option Explicit
Sub GanSo()
 Dim LRow As Long, iJ As Long
 Dim bCol As Byte
 
 bCol = Selection.Column
 LRow = Cells(65432, bCol).End(xlUp).Row
 For iJ = 7 To LRow
    With Cells(iJ, bCol)
        Select Case .Value
        Case Is < 1
            .Offset(, 1) = ""
            .Interior.ColorIndex = 35
        Case Is < 50
            .Offset(, 1) = 3
            .Interior.ColorIndex = 36
        Case Is < 100
            .Offset(, 1) = 4
            .Interior.ColorIndex = 37
        Case Is < 130
            .Offset(, 1) = 5
            .Interior.ColorIndex = 38
        Case Else
            .Offset(, 1) = 6
            .Interior.ColorIndex = 39
        End Select
    End With
 Next iJ
End Sub

Sửa lại số trị cho thích hợp!

 

[vietanhu]

Mình đã làm dùng công thức thôi, ko dùng VBA, các bạn xem rút ngắn công thức lại dùm.