Xin được giúp đỡ code đánh số thứ tự không liên tục và có điều kiện (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Cát Lượng

Cát Lượng

Thành viên tiêu biểu
Tham gia
14/11/18
Bài viết
403
Được thích
66
Em chào các thầy, các anh/chị và toàn thể các bạn!
Em xin được nhờ đánh code số thứ tự không liên tục và có điều kiện như sau:
Nếu như vậy thì phải diễn giải lại là :
1/ Nếu ô của cột liền sau cột Stt mà có ký tự thì số thứ tự tương ứng của dòng đó sẽ không được điền (kể cả ô ở cột "Nội dung" có hay không có ký tự.
2/ Nếu ô ở cột C không chứa ký tự và ô cở cột D tương ứng ký tự có mã màu RGB (0,0,255) thì số thứ tự dòng đó sẽ bị bỏ trống và số thứ tự tiếp theo sẽ được đliền là số liền trước ngay trên số ô có số thứ tự để trống.

Ghi chú: Các thầy, anh/chị giúp em có thể linh động để sửa code cho dễ khi thay đối vị trí cột cần đánh số thứ tự
(ví dụ như bài em đăng cần đánh số thứ tứ ở cột D tương ứng với vùng xét điều kiện để điền số thứ tự là từ cột D đến cột F
giờ trong file khác em muốn điền số thứ tự ở cột B chả hạn tương ứng với vùng xét điều kiện để điền số thứ tự là từ cột B đến cột D)
Em xin cảm ơn!
2019-09-25_155823.pnganh.png2019-09-25_155823.pnganh.png
 

File đính kèm

Lần chỉnh sửa cuối:
Cát Lượng đã viết:
Em chào các thầy, các anh/chị và toàn thể các bạn!
Em xin được nhờ đánh code số thứ tự không liên tục và có điều kiện như sau:
1) Số thứ tự được đánh ở cột D và bắt đầu từ số 1 (liền ngay dưới ô chứa "Stt")
2) Xét ở cột E mà ô nào đó có chứa ký tự thì số thứ tự sẽ bắt đầu lại từ số 1
3) Nếu ô nào đó ở cột E và cột F đều không có ký tự thì số thứ tự ở ô trong cột D tương ứng sẽ bị bỏ trống
và số thứ tự tiếp theo sẽ được đánh kế tiếp với số đã điền trước đó.

Ghi chú: Các thầy, anh/chị giúp em có thể linh động để sửa code cho dễ khi thay đối vị trí cột cần đánh số thứ tự
(ví dụ như bài em đăng cần đánh số thứ tứ ở cột D tương ứng với vùng xét điều kiện để điền số thứ tự là từ cột D đến cột F
giờ trong file khác em muốn điền số thứ tự ở cột B chả hạn tương ứng với vùng xét điều kiện để điền số thứ tự là từ cột B đến cột D)
Em xin cảm ơn!
View attachment 225631View attachment 225631
Nhấp chuột vào đây để mở rộng...
D4 = danhstt(E4,F4) -> keo xuong

Mã: 
Function danhstt(cel1 As Range, cel2 As Range)

        If cel2 <> "" Then
            danhstt = Val(cel1.Offset(-1, -1)) + 1
        Else
            danhstt = ""
        End If

End Function
 
Lần chỉnh sửa cuối:
quanluu1989 đã viết:
tạm viết trên điện thoại xem có chuẩn không

function danhstt(cel1 as range, cel2 as range)
if ucase(cel1.offset(-1,-1) )="STT" then
danhstt=1
else
if cel1 <> "" and cel2 <> "" then
danhstt= cel1.offset(-1,-1) + 1
else
danhstt=""
end if
end if
end function
Nhấp chuột vào đây để mở rộng...
Đây là hàm tự tạo, nhưng điền thế nào vậy anh?
 
quanluu1989 đã viết:
em xe. code chuẩn chưa? anh có sửa lại code nhé
Nhấp chuột vào đây để mở rộng...
Dạ được rồi anh ạ! em cám ơn anh nhiều!
Bài đã được tự động gộp:

Cát Lượng đã viết:
Dạ!
Nhấp chuột vào đây để mở rộng...
Bài đã được tự động gộp:

quanluu1989 đã viết:
em xe. code chuẩn chưa? anh có sửa lại code nhé
Nhấp chuột vào đây để mở rộng...
Anh ơi, vẫn có vấn đề chút ạ! khi xóa từ "HM" ở ô E17 đi thì số thứ tự được đánh không tự động điền lại cho đúng quy luật và khi đánh lại công thức để điền lại số thứ tự thì kết quả vẫn như vậy.
loi2.png
 
Lần chỉnh sửa cuối:
Cát Lượng đã viết:
Dạ được rồi anh ạ! em cám ơn anh nhiều!
Bài đã được tự động gộp:


Bài đã được tự động gộp:


Anh ơi, vẫn có vấn đề chút ạ! khi xóa từ "HM" ở ô E17 đi thì số thứ tự được đánh không tự động điền lại cho đúng quy luật và khi đánh lại công thức để điền lại số thứ tự thì kết quả vẫn như vậy.
View attachment 225639
Nhấp chuột vào đây để mở rộng...
Mã: 
Function danhstt(cel1 As Range, cel2 As Range)
    Dim f_mark
    If cel2 <> "" Then
        If cel1.Offset(-1, -1) <> "" Then
            danhstt = Val(cel1.Offset(-1, -1)) + 1
        Else
            f_mark = cel1.End(xlUp).Row
            danhstt = Application.WorksheetFunction.Max(cel1.Offset(f_mark - cel1.Row, -1).Resize(cel1.Row - f_mark - 1, 1)) + 1
        End If
    Else
        danhstt = ""
    End If
End Function
 
Thêm 1 tham khảo:
PHP: 
Sub DienSoThuTuTheoDieuKien()
 Dim J As Long, STT As Integer, Rws As Long
 
 For J = 4 To [F65500].End(xlUp).Row
    With Cells(J, "E")
        If Cells(J, "E").Value = "" Then
            If Len(.Offset(, 1).Value) < 10 Then
            Else
                STT = STT + 1:              Cells(J, "D").Value = STT
            End If
        Else
            STT = 0
        End If
    End With
 Next J
End Sub
 
SA_DQ đã viết:
Thêm 1 tham khảo:
PHP: 
Sub DienSoThuTuTheoDieuKien()
Dim J As Long, STT As Integer, Rws As Long

For J = 4 To [F65500].End(xlUp).Row
    With Cells(J, "E")
        If Cells(J, "E").Value = "" Then
            If Len(.Offset(, 1).Value) < 10 Then
            Else
                STT = STT + 1:              Cells(J, "D").Value = STT
            End If
        Else
            STT = 0
        End If
    End With
Next J
End Sub
Nhấp chuột vào đây để mở rộng...
Với code này của chú thì là code cố định rồi ạ, trường hợp em ấy muốn thay đổi cột khác thì phải sửa code. Cháu nghĩ mỗi cái có 1 ưu điểm, tùy chủ topic sử dụng.
 
quanluu1989 đã viết:
Mã: 
Function danhstt(cel1 As Range, cel2 As Range)
    Dim f_mark
    If cel2 <> "" Then
        If cel1.Offset(-1, -1) <> "" Then
            danhstt = Val(cel1.Offset(-1, -1)) + 1
        Else
            f_mark = cel1.End(xlUp).Row
            danhstt = Application.WorksheetFunction.Max(cel1.Offset(f_mark - cel1.Row, -1).Resize(cel1.Row - f_mark - 1, 1)) + 1
        End If
    Else
        danhstt = ""
    End If
End Function
Nhấp chuột vào đây để mở rộng...
Anh ơi! Không hiểu sao em chạy hàm vẫn bị lỗi ạ!

Bài đã được tự động gộp:

SA_DQ đã viết:
Thêm 1 tham khảo:
PHP: 
Sub DienSoThuTuTheoDieuKien()
Dim J As Long, STT As Integer, Rws As Long

For J = 4 To [F65500].End(xlUp).Row
    With Cells(J, "E")
        If Cells(J, "E").Value = "" Then
            If Len(.Offset(, 1).Value) < 10 Then
            Else
                STT = STT + 1:              Cells(J, "D").Value = STT
            End If
        Else
            STT = 0
        End If
    End With
Next J
End Sub
Nhấp chuột vào đây để mở rộng...
Cám ơn thầy, khi em muốn thay đổi cột khác như em trình bày ở bài #1 thì phải sửa code như thế nào thưa thầy?
 
Lần chỉnh sửa cuối:
em thay cái f_mark - 1 bằng f_mark ( bỏ -1)
 
Cát Lượng đã viết:
Em chào các thầy, các anh/chị và toàn thể các bạn!
Em xin được nhờ đánh code số thứ tự không liên tục và có điều kiện như sau:
1) Số thứ tự được đánh ở cột D và bắt đầu từ số 1 (liền ngay dưới ô chứa "Stt")
2) Xét ở cột E mà ô nào đó có chứa ký tự thì số thứ tự sẽ bắt đầu lại từ số 1
3) Nếu ô nào đó ở cột E và cột F đều không có ký tự thì số thứ tự ở ô trong cột D tương ứng sẽ bị bỏ trống
và số thứ tự tiếp theo sẽ được đánh kế tiếp với số đã điền trước đó.

Ghi chú: Các thầy, anh/chị giúp em có thể linh động để sửa code cho dễ khi thay đối vị trí cột cần đánh số thứ tự
(ví dụ như bài em đăng cần đánh số thứ tứ ở cột D tương ứng với vùng xét điều kiện để điền số thứ tự là từ cột D đến cột F
giờ trong file khác em muốn điền số thứ tự ở cột B chả hạn tương ứng với vùng xét điều kiện để điền số thứ tự là từ cột B đến cột D)
Em xin cảm ơn!
View attachment 225631View attachment 225631
Nhấp chuột vào đây để mở rộng...
Bạn cho hỏi: D23 để trống là theo luật nào?
 
. . . , khi em muốn thay đổi cột khác như em trình bày ở bài #1 thì phải sửa code như thế nào . . . ?
Nhấp chuột vào đây để mở rộng...
(1) Có 1 số người trong bài đăng này của bạn đán là thầy của mình nên các xưng hô như vậy với mình là chưa thích hợp & làm mình ái ngại khi phải viết bài này!

(2) Bạn cho chay macro cha ("DienSTTTheoVungSuDung") này, với điều kiện: Bao giờ cột [Số TT] cũng là cột đầu tiên chứa dữ liệu trên trang tính hiện hành (cần đánh STT)
Mã: 
Sub DienSTTTheoVungSuDung()
Dim Rng As Range

Set Rng = ActiveSheet.UsedRange
If Rng Is Nothing Then
    MsgBox "Sang Trang Tính Khác Dùm Cái!", , "Xin Chào My!"
Else
    DienSoThuTuTheoDieuKien Rng(1).Offset(1, 1)
End If
End Sub
PHP: 
Sub DienSoThuTuTheoDieuKien(Cls As Range)
Dim J As Long, STT As Integer, Rws As Long
' For J = 4 To [F65500].End(xlUp).Row       '
  For J = Cls.Row To Cells(65500, 1 + Cls.Column).End(xlUp).Row
'    With Cells(J, "E")     '
    With Cells(J, Cls.Column)
'        If Cells(J, "E").Value = "" Then   '
        If Cells(J, Cls.Column).Value = "" Then
            If Len(.Offset(, 1).Value) < 10 Then
            Else
                STT = STT + 1:     '  Cells(J, "D").Value = STT      '
                Cells(J, Cls.Column - 1).Value = STT
            End If
        Else
            STT = 0
        End If
    End With
Next J
End Sub
 
Lần chỉnh sửa cuối:
CHAOQUAY đã viết:
Bạn cho hỏi: D23 để trống là theo luật nào?
Nhấp chuột vào đây để mở rộng...
Quy luật sẽ điền số tiếp theo của số liền trước đó, và dòng bỏ trống không điền số thứ tự bạn nhé!
Bài đã được tự động gộp:

SA_DQ đã viết:
(1) Có 1 số người trong bài đăng này của bạn đán là thầy của mình nên các xưng hô như vậy với mình là chưa thích hợp & làm mình ái ngại khi phải viết bài này!

(2) Bạn cho chay macro cha ("DienSTTTheoVungSuDung") này, với điều kiện: Bao giờ cột [Số TT] cũng là cột đầu tiên chứa dữ liệu trên trang tính hiện hành (cần đánh STT)
Mã: 
Sub DienSTTTheoVungSuDung()
Dim Rng As Range

Set Rng = ActiveSheet.UsedRange
If Rng Is Nothing Then
    MsgBox "Sang Trang Tính Khác Dùm Cái!", , "Xin Chào My!"
Else
    DienSoThuTuTheoDieuKien Rng(1).Offset(1, 1)
End If
End Sub
PHP: 
Sub DienSoThuTuTheoDieuKien(Cls As Range)
Dim J As Long, STT As Integer, Rws As Long
' For J = 4 To [F65500].End(xlUp).Row       '
  For J = Cls.Row To Cells(65500, 1 + Cls.Column).End(xlUp).Row
'    With Cells(J, "E")     '
    With Cells(J, Cls.Column)
'        If Cells(J, "E").Value = "" Then   '
        If Cells(J, Cls.Column).Value = "" Then
            If Len(.Offset(, 1).Value) < 10 Then
            Else
                STT = STT + 1:     '  Cells(J, "D").Value = STT      '
                Cells(J, Cls.Column - 1).Value = STT
            End If
        Else
            STT = 0
        End If
    End With
Next J
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ vâng
Về code thì chạy được rồi ạ! nhưng về quy luật thì còn chỗ ở dòng số 23 (tô nền chữ màu xanh) có quy luật:
Nếu ô ở cột C không chứa ký tự và ô cở cột D tương ứng ký tự có mã màu RGB (0,0,255) thì số thứ tự dòng đó sẽ bị bỏ trống và số thứ tự tiếp theo sẽ được đliền là số liền trước ngay trên số ô có số thứ tự để trống
 
Lần chỉnh sửa cuối:
CHAOQUAY đã viết:
Bạn cho hỏi: D23 để trống là theo luật nào?
Nhấp chuột vào đây để mở rộng...
Ui, mình nhầm hi, không đẻ ý bạn nói mình mới biết.
Nếu như vậy thì phải diễn giải lại là :
1/ Nếu ô của cột liền sau cột Stt mà có ký tự thì số thứ tự tương ứng của dòng đó sẽ không được điền (kể cả ô ở cột "Nội dung" có hay không có ký tự.
2/ Nếu ô ở cột C không chứa ký tự và ô cở cột D tương ứng ký tự có mã màu RGB (0,0,255) thì số thứ tự dòng đó sẽ bị bỏ trống và số thứ tự tiếp theo sẽ được đliền là số liền trước ngay trên số ô có số thứ tự để trống.
Bài đã được tự động gộp:

CHAOQUAY đã viết:
Bạn cho hỏi: D23 để trống là theo luật nào?
Nhấp chuột vào đây để mở rộng...
Quy luật ấy dựa vào mã màu:
Nếu ô ở cột C không chứa ký tự và ô cở cột D tương ứng ký tự có mã màu RGB (0,0,255) thì số thứ tự dòng đó sẽ bị bỏ trống và số thứ tự tiếp theo sẽ được đliền là số liền trước ngay trên số ô có số thứ tự để trống
Bài đã được tự động gộp:

quanluu1989 đã viết:
em thay cái f_mark - 1 bằng f_mark ( bỏ -1)
Nhấp chuột vào đây để mở rộng...
Dạ! em cám ơn anh! anh ơi về cơ bản thì được rồi nhưng còn quy luật ở chỗ mã màu:
Nếu ô ở cột C không chứa ký tự và ô cở cột D tương ứng ký tự có mã màu RGB (0,0,255) thì số thứ tự dòng đó sẽ bị bỏ trống và số thứ tự tiếp theo sẽ được đliền là số liền trước ngay trên số ô có số thứ tự để trống.
Anh xem giúp em nhé!
Bài đã được tự động gộp:

Cát Lượng đã viết:
Quy luật sẽ điền số tiếp theo của số liền trước đó, và dòng bỏ trống không điền số thứ tự bạn nhé!
Bài đã được tự động gộp:


Dạ vâng
Về code thì chạy được rồi ạ! nhưng về quy luật thì còn chỗ ở dòng số 23 (tô nền chữ màu xanh) có quy luật:
Nếu ô ở cột C không chứa ký tự và ô cở cột D tương ứng ký tự có mã màu RGB (0,0,255) thì số thứ tự dòng đó sẽ bị bỏ trống và số thứ tự tiếp theo sẽ được đliền là số liền trước ngay trên số ô có số thứ tự để trống
Nhấp chuột vào đây để mở rộng...
Anh xem giúp em mới ạ! cám ơn anh nhiều, ban đầu em chỉ bôi xanh chứ chưa diễn giả rõ mã màu.
 
Cát Lượng đã viết:
Ui, mình nhầm hi, không đẻ ý bạn nói mình mới biết.
Nếu như vậy thì phải diễn giải lại là :
1/ Nếu ô của cột liền sau cột Stt mà có ký tự thì số thứ tự tương ứng của dòng đó sẽ không được điền (kể cả ô ở cột "Nội dung" có hay không có ký tự.
2/ Nếu ô ở cột C không chứa ký tự và ô cở cột D tương ứng ký tự có mã màu RGB (0,0,255) thì số thứ tự dòng đó sẽ bị bỏ trống và số thứ tự tiếp theo sẽ được đliền là số liền trước ngay trên số ô có số thứ tự để trống.
Bài đã được tự động gộp:


Quy luật ấy dựa vào mã màu:
Nếu ô ở cột C không chứa ký tự và ô cở cột D tương ứng ký tự có mã màu RGB (0,0,255) thì số thứ tự dòng đó sẽ bị bỏ trống và số thứ tự tiếp theo sẽ được đliền là số liền trước ngay trên số ô có số thứ tự để trống
Bài đã được tự động gộp:


Dạ! em cám ơn anh! anh ơi về cơ bản thì được rồi nhưng còn quy luật ở chỗ mã màu:
Nếu ô ở cột C không chứa ký tự và ô cở cột D tương ứng ký tự có mã màu RGB (0,0,255) thì số thứ tự dòng đó sẽ bị bỏ trống và số thứ tự tiếp theo sẽ được đliền là số liền trước ngay trên số ô có số thứ tự để trống.
Anh xem giúp em nhé!
Bài đã được tự động gộp:


Anh xem giúp em mới ạ! cám ơn anh nhiều, ban đầu em chỉ bôi xanh chứ chưa diễn giả rõ mã màu.
Nhấp chuột vào đây để mở rộng...
Vậy là các code trên đều phải chỉnh lại?
Có lẽ bạn nên làm 1 file vì dụ nhiều dữ liệu hơn để có thể thấy đầy đủ quy luật đánh dấu.
 
CHAOQUAY đã viết:
Vậy là các code trên đều phải chỉnh lại?
Có lẽ bạn nên làm 1 file vì dụ nhiều dữ liệu hơn để có thể thấy đầy đủ quy luật đánh dấu.
Nhấp chuột vào đây để mở rộng...
Uh mình diễn giải chưa rõ thôi, file ban đầu cũng tô nền chữ có mã màu RGB (0,0,255) nhưng chưa diễn giải rõ ra nên khó hiểu
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra (1 người xem)
Trả lời
0
Đọc
6
queluatb
queluatb
P
Xin tư vấn về cách tạo bảng quản lý vải
    • Cười
Trả lời
16
Đọc
277
pycckuu410
pycckuu410
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel (1 người xem)
Trả lời
1
Đọc
24
Hoàng Tuấn 868
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
349
Đọc
31K
tuanktt3
T
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table (1 người xem)
Trả lời
7
Đọc
277
ptm0412
ptm0412
D
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu
Trả lời
6
Đọc
169
Hoàng Tuấn 868
H
P
Hỏi về cách dò tìm từ dưới lên trên, dò tìm trong 2 bảng
Trả lời
7
Đọc
199
kenytien
K
D
Nhờ giúp đỡ về công thức xếp loại rèn luyện theo thông tư 22/2021/TT-BGDĐT
Trả lời
8
Đọc
150
thanthanhan
T
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng) (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
116
Đọc
25K
Thanh Tam 07
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
25
Đọc
925
befaint
befaint
A
NHỜ ANH CHỊ GIÚP EM CÂU LỆNH NÀY VỚI Ạ
Trả lời
1
Đọc
127
ongke0711
ongke0711
H
Chuyển file *xml hóa đơn điện tử sang excel
    • Thích
Trả lời
4
Đọc
229
htrunga2
H
K
Lọc một mã sản phẩm có nhiều đơn giá thành một file riêng (2 người xem)
Trả lời
2
Đọc
129
ketoansb123
K
D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản.
Trả lời
10
Đọc
286
Phuocam
Phuocam
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ (1 người xem)
Trả lời
19
Đọc
597
thuytrangbp28
T
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
6
Đọc
206
Trungvt3
Trungvt3
H
  • Question Question
Tô đậm tiêu đề cho cho các sheet
Trả lời
4
Đọc
203
hieu998
H
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
    • Thích
Trả lời
1
Đọc
1K
GPE-Trợ Lý
GPE-Trợ Lý
Z
TRỢ GIÚP K SORT ĐƯỢC THỨ TỰ NGÀY THÁNG NĂM TRONG EXCEL
Trả lời
2
Đọc
134
Duy Tùng 9x
Duy Tùng 9x
H
Tách file nguồn thành nhiều file dựa vào điều kiện
Trả lời
5
Đọc
199
LePhatHuy
LePhatHuy
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom