Tạo số hàng loạt

[tuan16]

Em muốn thêm số thứ tự tự động trong file sau ạ. Ví dụ tại cột c khi có số thứ tự thì các dòng bên dưới được đánh là 1.1 và 1.2 ... em có ghi cụ thể trong file. Xin nhờ các anh chị trong diễn đàn giúp ạ

 

[giaiphap]

Em muốn thêm số thứ tự tự động trong file sau ạ. Ví dụ tại cột c khi có số thứ tự thì các dòng bên dưới được đánh là 1.1 và 1.2 ... em có ghi cụ thể trong file. Xin nhờ các anh chị trong diễn đàn giúp ạ

Bạn phải mô tả tự động là sao? Tự động là khi đóng file sẽ tạo số? Mở file lên sẽ tạo số? Sửa chủ đầu tự là tạo số?... Hàng loạt cái tự động vậy cái tự động nào mới đúng? Mà tạo số 1.1 còn số 1 đã có hay chưa?

 

[Ba Tê]

Em muốn thêm số thứ tự tự động trong file sau ạ. Ví dụ tại cột c khi có số thứ tự thì các dòng bên dưới được đánh là 1.1 và 1.2 ... em có ghi cụ thể trong file. Xin nhờ các anh chị trong diễn đàn giúp ạ

Máy của bạn số thập phân ví dụ 3.1 hay 3,1?

 

[tuan16]

Máy của bạn số thập phân ví dụ 3.1 hay 3,1?

Số thập phân để là 3.1 ạ

Bài đã được tự động gộp: 16/8/21

Bạn phải mô tả tự động là sao? Tự động là khi đóng file sẽ tạo số? Mở file lên sẽ tạo số? Sửa chủ đầu tự là tạo số?... Hàng loạt cái tự động vậy cái tự động nào mới đúng? Mà tạo số 1.1 còn số 1 đã có hay chưa?

dạ vâng. để em sửa ạ. tại em cũng không biết diễn đạt ạ

 

[Ba Tê]

Số thập phân để là 3.1 ạ

Vậy thì thử Sub này:

Option Explicit

Public Sub STT()
Dim sArr(), dArr(), I As Long, R As Long, STT As Long, xTT As Double
    sArr = Range("D7", Range("D7").End(xlDown)).Resize(, 2).Value
    R = UBound(sArr)
ReDim dArr(1 To R, 1 To 1)
For I = 1 To R
    If sArr(I, 2) <> Empty Then
        STT = STT + 1: xTT = 0
        dArr(I, 1) = STT
    Else
        xTT = xTT + 0.1
        dArr(I, 1) = STT + xTT
    End If
Next I
    Range("C7").Resize(R) = dArr
End Sub

Chuyện phong chữ màu trắng thì khi in bạn filter cột C, chọn cái nào muốn font trắng thì làm 1 loạt.

 

[tuan16]

Vậy thì thử Sub này:

Option Explicit

Public Sub STT()
Dim sArr(), dArr(), I As Long, R As Long, STT As Long, xTT As Double
    sArr = Range("D7", Range("D7").End(xlDown)).Resize(, 2).Value
    R = UBound(sArr)
ReDim dArr(1 To R, 1 To 1)
For I = 1 To R
    If sArr(I, 2) <> Empty Then
        STT = STT + 1: xTT = 0
        dArr(I, 1) = STT
    Else
        xTT = xTT + 0.1
        dArr(I, 1) = STT + xTT
    End If
Next I
    Range("C7").Resize(R) = dArr
End Sub

Chuyện phong chữ màu trắng thì khi in bạn filter cột C, chọn cái nào muốn font trắng thì làm 1 loạt.

Dạ em cảm ơn thầy ạ

 

[tuan16]

Vậy thì thử Sub này:

Option Explicit

Public Sub STT()
Dim sArr(), dArr(), I As Long, R As Long, STT As Long, xTT As Double
    sArr = Range("D7", Range("D7").End(xlDown)).Resize(, 2).Value
    R = UBound(sArr)
ReDim dArr(1 To R, 1 To 1)
For I = 1 To R
    If sArr(I, 2) <> Empty Then
        STT = STT + 1: xTT = 0
        dArr(I, 1) = STT
    Else
        xTT = xTT + 0.1
        dArr(I, 1) = STT + xTT
    End If
Next I
    Range("C7").Resize(R) = dArr
End Sub

Chuyện phong chữ màu trắng thì khi in bạn filter cột C, chọn cái nào muốn font trắng thì làm 1 loạt.

dạ thưa thầy. Em có áp dụng và thấy đoạn code đánh số thứ tự hàng loạt của thầy lấy cả dữ liệu cột E làm điều kiện. Em muốn thay điều kiện cột E bằng điều kiện cột G thì phải sửa như nào ạ. thầy giúp em với ạ

 

[Ba Tê]

dạ thưa thầy. Em có áp dụng và thấy đoạn code đánh số thứ tự hàng loạt của thầy lấy cả dữ liệu cột E làm điều kiện. Em muốn thay điều kiện cột e bàng điều kiện cột G thì phải sửa như nào ạ. thầy giúp em với ạ

1/ Tìm dòng này: sArr = Range("D7", Range("D7").End(xlDown)).Resize(, 2).Value, thay số 2 thành số 4.
2/ Tìm dòng này: If sArr(I, 2) <> Empty Then, thay số 2 thành số 4.

 

[tuan16]

1/ Tìm dòng này: sArr = Range("D7", Range("D7").End(xlDown)).Resize(, 2).Value, thay số 2 thành số 4.
2/ Tìm dòng này: If sArr(I, 2) <> Empty Then, thay số 2 thành số 4.

Dạ em cảm ơn thầy đã giúp ạ