Chúc Mừng Sinh Nhật mod Hoamattroicoi 24/8/2017

[linhngoc]

Chúc mừng sinh nhật hoamattroicoi nhé. Mãi tươi như hoa mặt trời chị nhé.

 

[huonglien1901]

Chúc chị sinh nhật vui vẻ!

 

[OverAC]

Chúc mừng sinh nhật Giang,

Chúc em luôn vui và thành công trong cuộc sống.

Bình

 

[phulien1902]

Chúc mừng sinh nhật Giang!
Anh chúc em luôn vui, khỏe và thành công trên mọi lĩnh vực.

 

[PhanTuHuong]

Chúc mừng SN hoamattroicoi nhé! Cố gắng phát triển GPE ở HP em nhé!

 

[be_09]

Chúc hoamattroicoi sinh nhật vui vẽ, yêu đời, luôn sinh tươi như đóa hoa mặt trời.

 

[Hoàng Trọng Nghĩa]

HAPPY BIRTHDAY TO YOU

​

 

[dhn46]

Chúc mừng sinh nhật bạn!

 

[Lê Duy Thương]

HAPPY BIRTHDAY

 

[yeudoi]

Chúc mừng sinh nhật Em. Chúc Em mãi mãi hạnh phúc.

 

[hoamattroicoi]

Em xin cảm ơn tất cả mọi người đã nhớ tới sinh nhật của em.

Chúc các thành viên của GPE luôn mạnh khỏe và thành công.

 

[Hoang2013]

Chà, ngủ cả tuần mới dậy chăng?
tỉnh rồi dậy giúp bạn đồng hương này dùm cái nè:

HoangHieuxx said: ↑
à dòng này mình đọc không hiểu
bạn có thể chú thích giúp mình vào dòng này để mình có thể hiểu được 
Vòng lặp For này dùng sao được không  :D)

Dim Rws As Long, W As Long, J As Long, Col As Byte
Set Sh = ThisWorkbook.Worksheets("CSDL")
Arr() = Sh.[B2].CurrentRegion.Offset(1).Value
ReDim dArr(1 To 35, 1 To 9)
Sheets("GPE").Range("DLieu").ClearContents
For J = 1 To UBound(Arr()) - 1
If Arr(J, 1) = Me!cblenh.Value Then
W = 1 + W: dArr(W, 9) = J
For Col = 1 To 8
dArr(W, Col) = Arr(J, Col)
Next Col
End If
Next J
If W Then
Sheets("GPE").[A2].Resize(35, 9).Value = dArr()
End If

 

[Ba Tê]

Chúc Mừng Sinh Nhật Hoamattroicoi