Các câu hỏi về mảng trong VBA (Array)

viehoai · 24/3/11

Xin các anh chị giúp đỡ Code Gán các giá trị của một Range là các phần tử của Mãng
Ví dụ: Tôi có các giá trị của Range("A1:A10"). Tôi muốn viết code để gán giá trị của các cells từ A1:A10 là các phần tử của Mãng Arr chẳn hạn.
Xin cảm ơn các anh chị

Hoàng Nhật Phương · 9/2/19

SA_DQ đã viết:
Vậy trước khi xử lý hay tính toán tiếp, ta làm 1 macro xử lý đưa về thành dữ liệu chuẩn hơn, được không?

Được ạ, nhưng bước này có thể xử lý trong mảng mà không ảnh hưởng(thay đổi) gì dữ liệu gốc trên sheet được không ạ?

HeSanbi · 9/2/19

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào HeSanbi,
Cảm ơn bạn nhiều, các code trên đều bị lỗi "Type mismatch" tại dòng: DArr = Split(DStr, "/").
Nhờ bạn xem giúp.

Vì Split tách chuỗi nên DArr phải là DArr() As String

SA_DQ · 10/2/19

Được ạ, nhưng bước này có thể xử lý trong mảng mà không ảnh hưởng(thay đổi) gì dữ liệu gốc trên sheet được không ạ?

Bạn hoàn toàn có thể thử mà!
Làm thế này đi, xem sao:
Tạo vòng lặp duyệt cột C; Nếu gặp cụm từ "Ngay gio: " thì bỏ bén đi

alias1313 · 16/2/19

Mong các anh giúp em trường hợp về mảng! Như file đính kèm.
- Quét Date ở ô L5 với mảng Ngay = Range("G4:I4").value nếu có ngày trùng thì
Quét tiếp Type ở Range("N5") với mảng CHUAN =Range("G5:J7").value nếu Type trùng thì
add Name ở Range("M5").value vào mang GT = Range("G8:I10").value với row/col vừa tìm được: GT(j,i) = Range("M5").value

Mã:

Sub Test()
Dim Ngay As Variant, GT As Variant, CHUAN As Variant
Ngay = Range("G4:I4").Value
CHUAN = Range("G5:I7").Value
GT = Range("G8:I10").Value
        For i = 1 To 3
            For j = 1 To 3
                 If Ngay(1, i) = Range("L5").Value Then
                     If CHUAN(j, i) = Range("N5").Value Then     'Type: E
                         GT(j, i) = Range("M5").Value                'Name: Nguyen A

                     End If
                 End If
            Next j
        Next i
MsgBox ("Done")
End Sub

1.> Khi em chạy xong Name: Nguye A không được add vào cell GT(j,i), em đang tìm hiểu về mảng đọc trong topic này nhưng chưa tìm ra nguyên nhân
2.> Với GT(j,i) em muốn xác định địa chỉ ô excel của nó thì làm thế nào ạ! Row/cell = ? ( kiểu như cells(m,n))
3.> Để thực hiện yêu cầu trên còn cách nào tối ưu hơn không ạ!
Em cảm ơn các anh nhiều!

snow25 · 16/2/19

alias1313 đã viết:
Mong các anh giúp em trường hợp về mảng! Như file đính kèm.
- Quét Date ở ô L5 với mảng Ngay = Range("G4:I4").value nếu có ngày trùng thì
Quét tiếp Type ở Range("N5") với mảng CHUAN =Range("G5:J7").value nếu Type trùng thì
add Name ở Range("M5").value vào mang GT = Range("G8:I10").value với row/col vừa tìm được: GT(j,i) = Range("M5").value

Mã:

Sub Test() Dim Ngay As Variant, GT As Variant, CHUAN As Variant Ngay = Range("G4:I4").Value CHUAN = Range("G5:I7").Value GT = Range("G8:I10").Value For i = 1 To 3 For j = 1 To 3 If Ngay(1, i) = Range("L5").Value Then If CHUAN(j, i) = Range("N5").Value Then 'Type: E GT(j, i) = Range("M5").Value 'Name: Nguyen A End If End If Next j Next i MsgBox ("Done") End Sub

1.> Khi em chạy xong Name: Nguye A không được add vào cell GT(j,i), em đang tìm hiểu về mảng đọc trong topic này nhưng chưa tìm ra nguyên nhân
2.> Với GT(j,i) em muốn xác định địa chỉ ô excel của nó thì làm thế nào ạ! Row/cell = ? ( kiểu như
3.> Để thực hiện yêu cầu trên còn cách nào tối ưu hơn không ạ!
Em cảm ơn các anh nhiều!

Bạn viết code rồi.Vậy bạn muốn thế nào.Mà có file nào đâu nhỉ.

alias1313 · 16/2/19

snow25 đã viết:
Bạn viết code rồi.Vậy bạn muốn thế nào.Mà có file nào đâu nhỉ.

Em mới up file lên rồi ạ!
Em muốn add Name: Nguyen A vào mảng GT với dữ liệu xác định là: ngày và Type : E!
Mong anh @snow25 giúp đỡ!

snow25 · 16/2/19

alias1313 đã viết:
Em mới up file lên rồi ạ!
Em muốn add Name: Nguyen A vào mảng GT với dữ liệu xác định là: ngày và Type : E!
Mong anh @snow25 giúp đỡ!

Bạn điền nó vào mảng rồi thì phải gắn nó lại excel chứ.Thêm câu lệnh này vào.

Mã:

Range("G8:I10").Value = GT

alias1313 · 16/2/19

snow25 đã viết:
Bạn điền nó vào mảng rồi thì phải gắn nó lại excel chứ.Thêm câu lệnh này vào.

Mã:

Range("G8:I10").Value = GT

Hà hà! Thì ra vậy! em làm được rồi! Cảm ơn anh nhiều!
2.> Với GT(j,i) em muốn xác định địa chỉ ô excel của nó thì làm thế nào ạ! Row/cell = ? ( kiểu như cells(m,n))
Mình có thể xác định vị trí cells ko anh!

snow25 · 16/2/19

alias1313 đã viết:
Hà hà! Thì ra vậy! em làm được rồi! Cảm ơn anh nhiều!
2.> Với GT(j,i) em muốn xác định địa chỉ ô excel của nó thì làm thế nào ạ! Row/cell = ? ( kiểu như cells(m,n))
Mình có thể xác định vị trí cells ko anh!

Vậy tùy bạn thôi bạn xem vị trí nó ở đâu rồi cộng thêm vào cho giống địa chỉ ở excel là được mà.

alias1313 · 16/2/19

snow25 đã viết:
Vậy tùy bạn thôi bạn xem vị trí nó ở đâu rồi cộng thêm vào cho giống địa chỉ ở excel là được mà.

Anh cho em hỏi thêm!
Em có 3 Array: GT , BT, QT
em muốn dùng một tên đại diện cho 3 array đó = Arr1 để em gọi khi cần kiểu như:
If Range("A1").value = "BT" then ( thì gán tên BT cho Arr1 )
Arr1(j,i) = Range("M5").Value ( thay cho: BT(j, i) = Range("M5").Value )
hay mình có thể:
Range("A1").Value & "(j,i) = Range("M5").Value ( thay cho: BT(j, i) = Range("M5").Value )

Không biết mình có cách nào làm vậy không anh!
em cũng có thử kiểu dưới nhưng không được!

Mã:

Sub test

dim Arr2

Arr2 = Array("GT", "BT", "QT", "KT")

      For k = 1 to 4

          If Arr2(k) = Range("A1").Value Then

                Arr2(j, i) = Range("M5").Value  

          end if

      next for

End sub

Mong anh giúp đỡ!

snow25 · 16/2/19

alias1313 đã viết:
Anh cho em hỏi thêm!
Em có 3 Array: GT , BT, QT
em muốn dùng một tên đại diện cho 3 array đó = Arr1 để em gọi khi cần kiểu như:
If Range("A1").value = "BT" then ( thì gán tên BT cho Arr1 )
Arr1(j,i) = Range("M5").Value ( thay cho: BT(j, i) = Range("M5").Value )
hay mình có thể:
Range("A1").Value & "(j,i) = Range("M5").Value ( thay cho: BT(j, i) = Range("M5").Value )

Không biết mình có cách nào làm vậy không anh!
em cũng có thử kiểu dưới nhưng không được!

Mã:

Sub test dim Arr2 Arr2 = Array("GT", "BT", "QT", "KT") For k = 1 to 4 If Arr2(k) = Range("A1").Value Then Arr2(j, i) = Range("M5").Value end if next for End sub

Mong anh giúp đỡ!

Mục đích bạn làm vậy để làm gì nhỉ.

alias1313 · 16/2/19

snow25 đã viết:
Mục đích bạn làm vậy để làm gì nhỉ.

Cái này để em thêm tên nhân viên vào bảng công tương ứng.
Em Quét ngày, nếu có ngày thì quét Group xác định Goup
Quét Type ở mảng CHUAN để đưa ra vị trí tương ứng sau khi có vị trí nhờ Type thi
Điền tên Nguyen A vào Goup tương ứng với vị trí Type tương ứng vừa xác định .
Em có add file đính kèm anh xem giúp em!

snow25 · 16/2/19

alias1313 đã viết:
Cái này để em thêm tên nhân viên vào bảng công tương ứng.
Em Quét ngày, nếu có ngày thì quét Group xác định Goup
Quét Type ở mảng CHUAN để đưa ra vị trí tương ứng sau khi có vị trí nhờ Type thi
Điền tên Nguyen A vào Goup tương ứng với vị trí Type tương ứng vừa xác định .
Em có add file đính kèm anh xem giúp em!

Bạn đưa dữ liệu chuẩn lên đây mình thử code xem được không nhé.

Ba Tê · 16/2/19

alias1313 đã viết:
Cái này để em thêm tên nhân viên vào bảng công tương ứng.
Em Quét ngày, nếu có ngày thì quét Group xác định Goup
Quét Type ở mảng CHUAN để đưa ra vị trí tương ứng sau khi có vị trí nhờ Type thi
Điền tên Nguyen A vào Goup tương ứng với vị trí Type tương ứng vừa xác định .
Em có add file đính kèm anh xem giúp em!

Dữ liệu chẳng logic gì cả.
Nếu chỉ có 2 nhóm thì tạo thành "4 vùng chiến thuật" để xử lý.
Nếu tùm lum nhóm thì phải đưa dữ liệu giống thật mới xử được.

PHP:

Public Sub sGpe()
Const Col As Long = 3
Const Rws As Long = 3
Dim Gr1(), Gr2(), Arr(), Dat()
Dim I As Long, J As Long, Ngay As Date, Typ As String, Grp As String, Txt As String
        Dat = Range("G4").Resize(, Col).Value
        Arr = Range("G5").Resize(Rws, Col).Value
        Gr1 = Range("G8").Resize(Rws, Col).Value
        Gr2 = Range("G12").Resize(Rws, Col).Value
    Ngay = Range("L5").Value
    Txt = Range("M5").Value
    Typ = Range("N5").Value
    Grp = Right(Range("O5"), 1)
For J = 1 To Col
    If Dat(1, J) = Ngay Then
        For I = 1 To Rws
            If Arr(I, J) = Typ Then
                If Grp = "1" Then
                    Gr1(I, J) = Txt
                    Range("G8").Resize(Rws, Col) = Gr1
                Else
                    Gr2(I, J) = Txt
                    Range("G12").Resize(Rws, Col) = Gr2
                End If
                Exit For
            End If
        Next I
        Exit For
    End If
Next J
End Sub

tam888 · 16/2/19

alias1313 đã viết:
Cái này để em thêm tên nhân viên vào bảng công tương ứng.
Em Quét ngày, nếu có ngày thì quét Group xác định Goup
Quét Type ở mảng CHUAN để đưa ra vị trí tương ứng sau khi có vị trí nhờ Type thi
Điền tên Nguyen A vào Goup tương ứng với vị trí Type tương ứng vừa xác định .
Em có add file đính kèm anh xem giúp em!

Bài này thì nên thay đổi cách bố trí dữ liệu thì sẽ tiện lợi hơn nhiều, có khi không cần CODE

VetMini · 16/2/19

alias1313 đã viết:
....
em cũng có thử kiểu dưới nhưng không được!

Mã:

Sub test dim Arr2 Arr2 = Array("GT", "BT", "QT", "KT") For k = 1 to 4 If Arr2(k) = Range("A1").Value Then Arr2(j, i) = Range("M5").Value end if next for End sub

"không được" tức là sao?
ít nhất cũng phải cho người ta biết chi tiết của cái "không được" ấy.
Đoạn code trên chưa cần biết đúng hay sai. Trước mắt là trật thuật ngữ.
Arr2 = Array("GT", "BT", "QT", "KT") ' Arr2 được gán cho cái mảng 1 chiều
...
Arr2(j, i) = Range("M5").Value ' i là chỉ số chiều thứ hai - chiều này ở đâu ra?

alias1313 · 16/2/19

Em thành thật xin lỗi! Vì việc đưa dữ liệu không chuẩn đã gây ra những phiền toái và mất thời gian của các anh!
Em xin ghi nhớ điều này! Cũng mong các anh thông cảm vì một người kiến thức lập trình còn yếu không lường hết được sự việc.
Em xin up lại dữ liệu chuẩn theo công việc mong các anh giúp em!
Mới đầu em chỉ nghĩ hỏi từng phần để vừa làm vừa hỏi cho hiểu về mảng.
Nội dung công việc của em:

-Em tạo một bảng dữ liệu đi ca.
-Gồm 6 nhóm, mỗi nhóm phụ trách 1 công việc khác nhau. Đi theo lịch đi ca như bảng CHUAN.
-Khi nhân viên muốn đổi ca em muốn cập nhật tên nhân viên vào bảng đi ca tương ứng dựa vào : Ngày đổi, ca đi, nhóm, tên.
Em có add file đính kèm!
Mong các anh giúp em!

Bài đã được tự động gộp: 16/2/19

Ba Tê đã viết:

Dữ liệu chẳng logic gì cả.
Nếu chỉ có 2 nhóm thì tạo thành "4 vùng chiến thuật" để xử lý.
Nếu tùm lum nhóm thì phải đưa dữ liệu giống thật mới xử được.

PHP:

Public Sub sGpe()
Const Col As Long = 3
Const Rws As Long = 3
Dim Gr1(), Gr2(), Arr(), Dat()
Dim I As Long, J As Long, Ngay As Date, Typ As String, Grp As String, Txt As String
        Dat = Range("G4").Resize(, Col).Value
        Arr = Range("G5").Resize(Rws, Col).Value
        Gr1 = Range("G8").Resize(Rws, Col).Value
        Gr2 = Range("G12").Resize(Rws, Col).Value
    Ngay = Range("L5").Value
    Txt = Range("M5").Value
    Typ = Range("N5").Value
    Grp = Right(Range("O5"), 1)
For J = 1 To Col
    If Dat(1, J) = Ngay Then
        For I = 1 To Rws
            If Arr(I, J) = Typ Then
                If Grp = "1" Then
                    Gr1(I, J) = Txt
                    Range("G8").Resize(Rws, Col) = Gr1
                Else
                    Gr2(I, J) = Txt
                    Range("G12").Resize(Rws, Col) = Gr2
                End If
                Exit For
            End If
        Next I
        Exit For
    End If
Next J
End Sub

Cảm ơn anh đã giúp em ! em đã test code chạy đúng theo yêu cầu của em!
Anh có thể giúp em thêm file bên dưới được không anh!

Bài đã được tự động gộp: 16/2/19

snow25 đã viết:
Bạn đưa dữ liệu chuẩn lên đây mình thử code xem được không nhé.

Mong anh @snow25 giúp đỡ!

snow25 · 16/2/19

alias1313 đã viết:
Em thành thật xin lỗi! Vì việc đưa dữ liệu không chuẩn đã gây ra những phiền toái và mất thời gian của các anh!
Em xin ghi nhớ điều này! Cũng mong các anh thông cảm vì một người kiến thức lập trình còn yếu không lường hết được sự việc.
Em xin up lại dữ liệu chuẩn theo công việc mong các anh giúp em!
Mới đầu em chỉ nghĩ hỏi từng phần để vừa làm vừa hỏi cho hiểu về mảng.
Nội dung công việc của em:

-Em tạo một bảng dữ liệu đi ca.
-Gồm 6 nhóm, mỗi nhóm phụ trách 1 công việc khác nhau. Đi theo lịch đi ca như bảng CHUAN.
-Khi nhân viên muốn đổi ca em muốn cập nhật tên nhân viên vào bảng đi ca tương ứng dựa vào : Ngày đổi, ca đi, nhóm, tên.
Em có add file đính kèm!
Mong các anh giúp em!

Bài đã được tự động gộp: 16/2/19

Cảm ơn anh đã giúp em ! em đã test code chạy đúng theo yêu cầu của em!
Anh có thể giúp em thêm file bên dưới được không anh!

Bài đã được tự động gộp: 16/2/19

Mong anh @snow25 giúp đỡ!

Đây bạn xem.Có đúng không nhé.

Mã:

Sub doiulieu()
Dim arr, arr1, dic As Object, i As Long, lr As Long, j As Long, dk As String, dks As String, b As Long, c As Long, d As Long
Set dic = CreateObject("scripting.dictionary")
With Sheet1
     arr = .Range("D5:n9").Value
     For j = 1 To UBound(arr, 2)
         For i = 3 To UBound(arr, 1)
             dk = CLng(arr(1, j)) & "#" & arr(i, j)
             If Not dic.exists(dk) Then
                dic.Item(dk) = Array(i - 4, j)
             End If
         Next i
     Next j
     lr = .Range("D" & Rows.Count).End(xlUp).Row
     If lr < 11 Then Exit Sub
     arr = .Range("a11:N" & lr).Value
     For i = 1 To UBound(arr, 1)
         If Len(arr(i, 1)) > 0 Then
            If Not dic.exists(arr(i, 1)) Then
               dic.Add arr(i, 1), i
            End If
         End If
     Next i
     dk = CLng(.Range("T14").Value) & "#" & .Range("V14").Value
     dks = .Range("W14").Value
     If dic.exists(dk) Then
           b = dic.Item(dk)(0)
           c = dic.Item(dk)(1)
         If dic.exists(dks) Then
            d = dic.Item(dks)
            arr(b + d, c + 3) = .Range("u14").value
           End If
      End If
      .Range("a11:N" & lr).Value = arr
End With
End Sub

alias1313 · 16/2/19

snow25 đã viết:

Đây bạn xem.Có đúng không nhé.

Mã:

Sub doiulieu()
Dim arr, arr1, dic As Object, i As Long, lr As Long, j As Long, dk As String, dks As String, b As Long, c As Long, d As Long
Set dic = CreateObject("scripting.dictionary")
With Sheet1
     arr = .Range("D5:n9").Value
     For j = 1 To UBound(arr, 2)
         For i = 3 To UBound(arr, 1)
             dk = CLng(arr(1, j)) & "#" & arr(i, j)
             If Not dic.exists(dk) Then
                dic.Item(dk) = Array(i - 4, j)
             End If
         Next i
     Next j
     lr = .Range("D" & Rows.Count).End(xlUp).Row
     If lr < 11 Then Exit Sub
     arr = .Range("a11:N" & lr).Value
     For i = 1 To UBound(arr, 1)
         If Len(arr(i, 1)) > 0 Then
            If Not dic.exists(arr(i, 1)) Then
               dic.Add arr(i, 1), i
            End If
         End If
     Next i
     dk = CLng(.Range("T14").Value) & "#" & .Range("V14").Value
     dks = .Range("W14").Value
     If dic.exists(dk) Then
           b = dic.Item(dk)(0)
           c = dic.Item(dk)(1)
         If dic.exists(dks) Then
            d = dic.Item(dks)
            arr(b + d, c + 3) = .Range("u14").value
           End If
      End If
      .Range("a11:N" & lr).Value = arr
End With
End Sub

Em đã test, code chạy đúng theo yêu cầu. Nhưng em chưa hiểu cách nó vận hành. Để em ngâm cứu nếu có chỗ nào em không hiểu được anh chỉ em nha.Cảm ơn anh @snow25 nhiều!
@HieuCD em chào anh!

alias1313 · 16/2/19

VetMini đã viết:
"không được" tức là sao?
ít nhất cũng phải cho người ta biết chi tiết của cái "không được" ấy.
Đoạn code trên chưa cần biết đúng hay sai. Trước mắt là trật thuật ngữ.
Arr2 = Array("GT", "BT", "QT", "KT") ' Arr2 được gán cho cái mảng 1 chiều
...
Arr2(j, i) = Range("M5").Value ' i là chỉ số chiều thứ hai - chiều này ở đâu ra?

Dạ! Tại em ghi không đủ!
Em có 4 Array: GT , BT, QT,KT
GT = Range("A1:C5").value
BT = Range("D1:H5").value
QT = Range("A10: E13").value
KT = Range("M10:O15").value
Em muốn dùng một tên đại diện cho 4 array đó ví dụ là: Name_arr để em gọi khi cần kiểu như:
If Range("J15").value = "GT" then ( thì gán tên mảng GT cho Name_arr )sau khi gán:
Name_arr(2,2) chính là ô B2 ( GT = Range("A1:C5").value) : Em đã thử nhưng không được.
Mình có cách nào làm như vậy không ạ! ( tại em muốn tìm hiểu về mảng)
Cảm ơn anh @VetMini đã ghé thăm ^_^!

Các câu hỏi về mảng trong VBA (Array)

Thành viên gắn bó

Thành viên gắn bó

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

/(hông là gì!

Thành viên hoạt động

File đính kèm

Thành viên gạo cội

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động

File đính kèm

Thành viên gạo cội

Cạo Rồi Khỏi Gội

Thành viên tích cực

Ăn cùng góc phố

Thành viên hoạt động

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên hoạt động

Thành viên hoạt động

Đếm ngược thời gian