huongtrang0801
Thành viên mới

- Tham gia
- 20/1/10
- Bài viết
- 2
- Được thích
- 0

Thử các này:Điền mã hàng vào ô trống bên dưới! Nhờ giúp đở dùm em. Thanks các anh chị
View attachment 145891
Em muốn điền dữ liệu mã hàng giống file đính kèm, nhờ anh chị hướng dẫn giúp. Thanks
Điền mã hàng vào ô trống bên dưới! Nhờ giúp đở dùm em. Thanks các anh chị
View attachment 145891
Em muốn điền dữ liệu mã hàng giống file đính kèm, nhờ anh chị hướng dẫn giúp. Thanks
Sub huongtrang0801()
Dim rMyRng As Range, lRw As Long
lRw = Range("c" & Rows.Count).End(xlUp).Row
Set rMyRng = Range("b4:b" & lRw)
Application.ScreenUpdating = False
rMyRng.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
rMyRng.Value = rMyRng.Value
Application.ScreenUpdating = True
End Sub



Code này khác gì làm tay theo #3. Thế thì code kiếc chi cho mất công nhỉ.Xin đưa ra 1 cách khác, bạn chép Code này vào Module:
PHP:Sub huongtrang0801() Dim rMyRng As Range, lRw As Long lRw = Range("c" & Rows.Count).End(xlUp).Row Set rMyRng = Range("b4:b" & lRw) Application.ScreenUpdating = False rMyRng.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" rMyRng.Value = rMyRng.Value Application.ScreenUpdating = True End Sub
- Bạn tham khảo File
Hii,Code này khác gì làm tay theo #3. Thế thì code kiếc chi cho mất công nhỉ.



Theo mình biết thì chỉ cùng tên thôi. Chứ không có quan hệ gì cả, hehe.Tôi hỏi bạn ngoài lề 1 chút là bạn có mối quan hệ gì với bạn hoamattroicoi không nhỉ?
Tôi hỏi bạn ngoài lề 1 chút là bạn có mối quan hệ gì với bạn hoamattroicoi không nhỉ?
[B đã viết:giangleloi[/B];669013]Theo mình biết thì chỉ cùng tên thôi. Chứ không có quan hệ gì cả, hehe..

Thanks các anh chị nhiều
