Quy Vu
Thành viên chính thức
- Tham gia
- 4/8/17
- Bài viết
- 65
- Được thích
- 4
- Giới tính
- Nam
Chào các anh chị trong diễn đàn, e có đoạn code như dưới
Em không hiểu cái chỗ sArr = Range("A2", Range("A2").End(xlDown)).Resize(, 3).Value vì nếu chọn range thì người ta hay viết vd: Range("A1:A2"), ở kia lại là dấu phẩy
For I = 1 To R
If sArr(I, 3) = "Wood" Then Txt = Txt & sArr(I, 1) & ChrW(10)
Next I
Cái đoạn code For...to là lấy dữ liệu từ ô, em không biết cái này là thuộc đoạn lý thuyết nào ấy ạ? vì cái này sArr(I,3) thường dùng cho mảng, e muốn hỏi thêm nếu e muốn sửa dữ liệu một ô trong vùng sArr thì làm như nào ạ?
Mong anh chị giải đáp, vì e không rõ lên diễn đạt hơi khó hiểu, mong anh chị bỏ qua!
Mã:
Public Sub s_Gpe()
Dim sArr(), I As Long, R As Long, Txt As String
sArr = Range("A2", Range("A2").End(xlDown)).Resize(, 3).Value
R = UBound(sArr)
For I = 1 To R
If sArr(I, 3) = "Wood" Then Txt = Txt & sArr(I, 1) & ChrW(10)
Next I
MsgBox "xxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyy:" & ChrW(10) & ChrW(10) & Txt, , "GiaiphapExcel.com"
End Sub
For I = 1 To R
If sArr(I, 3) = "Wood" Then Txt = Txt & sArr(I, 1) & ChrW(10)
Next I
Cái đoạn code For...to là lấy dữ liệu từ ô, em không biết cái này là thuộc đoạn lý thuyết nào ấy ạ? vì cái này sArr(I,3) thường dùng cho mảng, e muốn hỏi thêm nếu e muốn sửa dữ liệu một ô trong vùng sArr thì làm như nào ạ?
Mong anh chị giải đáp, vì e không rõ lên diễn đạt hơi khó hiểu, mong anh chị bỏ qua!