Viet code insert Row theo điều kiện (1 người xem)

[lhthai]

Chào các Anh GPE
File em như sau tại cột E có giá trị bao nhiêu thì insert bấy nhiêu dòng
Em có để ví dụ kết quả trong file đính kèm
Em muốn chạy chương trình như file DL-11-2014

 

[ChanhTQ@]

http://danketoan.com/threads/cac-cach-them-dong-moi-vo-1-csdl-co-so-du-lieu-da-san.182915.html

 

[lhthai]

http://danketoan.com/threads/cac-cach-them-dong-moi-vo-1-csdl-co-so-du-lieu-da-san.182915.html

Bạn có thể viết cho mình đươc không
cám ơn bạn nha

 

[ChanhTQ@]

Sub InsertRowsxlUp()
 Dim Rws As Long, jJ As Long, NumFrom As Byte
  
 Sheets("NV-Y104P").Select
 Rws = [E65500].End(xlUp).Offset(-1).Row
 On Error Resume Next
 For jJ = Rws To 3 Step -1
    With Cells(jJ, "e")
        NumFrom = .Value
        If NumFrom > 0 Then _
            .Offset(1).Resize(NumFrom).EntireRow.Insert
        If Err > 0 Then Err = 0
    End With
 Next jJ
End Sub

 

[lhthai]

Sub InsertRowsxlUp()
 Dim Rws As Long, jJ As Long, NumFrom As Byte
  
 Sheets("NV-Y104P").Select
 Rws = [E65500].End(xlUp).Offset(-1).Row
 On Error Resume Next
 For jJ = Rws To 3 Step -1
    With Cells(jJ, "e")
        NumFrom = .Value
        If NumFrom > 0 Then _
            .Offset(1).Resize(NumFrom).EntireRow.Insert
        If Err > 0 Then Err = 0
    End With
 Next jJ
End Sub

Ý mình insert dòng lấy tất cả các dòng vừa insert luôn
View attachment 131933

Cám ơn bạn đã bỏ chút thời gian viết code cho mình

 

[friendly5525]

Xin cho hỏi: Mình có phần bài tập về trắc địa, hệ đo góc là độ phút giây nhưng không biết cách nhập kiểu gì. Một điều nữa là làm thế nào để tính các hàm lượng giác cho những góc này (vì các hàm lượng giác chỉ tính giá trị là radian). Ví dụ như góc 23độ15phut55 giây thì tính sin như thế nào? Phiền mọi người chỉ giáo

 

[lhthai]

Chưa ai giải đành phải chờ thôi

 

[Ba Tê]

Chào các Anh GPE
File em như sau tại cột E có giá trị bao nhiêu thì insert bấy nhiêu dòng
Em có để ví dụ kết quả trong file đính kèm
Em muốn chạy chương trình như file DL-11-2014

Xem kết quả mẫu mà biết cái số 522, 523 ở đâu ra tui chết liền.
Như vầy thôi, hổng chịu thì chạy.

 

[lhthai]

Xem kết quả mẫu mà biết cái số 522, 523 ở đâu ra tui chết liền.
Như vầy thôi, hổng chịu thì chạy.

Cám ơn anh nhiều
Cái số 552,523 ở cột A là số code của chi tiết đó chứ không phải số thứ tự
Kết quả rất đúng nhưng em muốn chương trình chạy tương tự như file đính kèm để học hỏi thêm code mới để sau này có gì sữa file DL-11-2014 của em

 

[lhthai]

Xem kết quả mẫu mà biết cái số 522, 523 ở đâu ra tui chết liền.
Như vầy thôi, hổng chịu thì chạy.

Anh Ba Tê cho em hỏi thêm có những dòng cột L cho kết quả bằng 2 chứ không phải 1.
Mình sữa lại như thế nào anh.