lấy giá trị lưu vào mảng

[vippera2]

chào các bác,

cho em hỏi làm sao để lưu giá trị như ô dưới vào trong mảng ở vba các bác nhỉ.
Em lưu toàn ra giá trị 0, nếu mình muốn lưu thành 00 thì có được không ạ
em cảm ơn

 

[bebo021999]

Bạn lưu thế nào, xem mình test thử thấy vẫn OK mà

 

[Maika8008]

chào các bác,

cho em hỏi làm sao để lưu giá trị như ô dưới vào trong mảng ở vba các bác nhỉ.
Em lưu toàn ra giá trị 0, nếu mình muốn lưu thành 00 thì có được không ạ
em cảm ơn

Câu lệnh bạn lưu vào mảng như thế nào, có thể tiết lộ cho anh em biết không?

 

[vippera2]

xin lỗi các bác trên
mình lưu bằng object dic thì không được
các bác có cách thì hướng dẫn mình ạ

Data = ActiveSheet.Range("B13:O" & Cells(Rows.Count, "I").End(xlUp).Row).Value
        ReDim sumtime(1 To UBound(Data, 1), 1 To 6)
            For i = 1 To UBound(Data, 1)
                If Data(i, 1) <> "" Then
                    ID = Data(i, 5)
                    If Not dic.exists(ID) Then
                        k = k + 1
                        dic.Add ID, k
                        sumtime(k, 1) = Data(i, 4)
                        sumtime(k, 2) = Data(i, 5)
                        sumtime(k, 3) = Replace(Data(i, 7), " ", "")
                        sumtime(k, 4) = CInt(Replace(Data(i, 12), "-", 0))
                        sumtime(k, 5) = CInt(Replace(Data(i, 13), "-", 0))
                        sumtime(k, 6) = CInt(Replace(Data(i, 14), "-", 0))
                    End If
                End If
            Next

 

[Maika8008]

xin lỗi các bác trên
mình lưu bằng object dic thì không được
các bác có cách thì hướng dẫn mình ạ

Data = ActiveSheet.Range("B13:O" & Cells(Rows.Count, "I").End(xlUp).Row).Value
        ReDim sumtime(1 To UBound(Data, 1), 1 To 6)
            For i = 1 To UBound(Data, 1)
                If Data(i, 1) <> "" Then
                    ID = Data(i, 5)
                    If Not dic.exists(ID) Then
                        k = k + 1
                        dic.Add ID, k
                        sumtime(k, 1) = Data(i, 4)
                        sumtime(k, 2) = Data(i, 5)
                        sumtime(k, 3) = Replace(Data(i, 7), " ", "")
                        sumtime(k, 4) = CInt(Replace(Data(i, 12), "-", 0))
                        sumtime(k, 5) = CInt(Replace(Data(i, 13), "-", 0))
                        sumtime(k, 6) = CInt(Replace(Data(i, 14), "-", 0))
                    End If
                End If
            Next

Trong mảng data thì 00 lấy vào vẫn có giá trị là 00. Tuy nhiên khi lấy từ data qua 1 mảng khác thì không chắc.

 

[vippera2]

thế thì chắc phải xử lý luôn lúc lấy data ban đầu bác nhỉ

Trong mảng data thì 00 lấy vào vẫn có giá trị là 00. Tuy nhiên khi lấy từ data qua 1 mảng khác thì không chắc.

 

[huuthang_bd]

Trong mảng data thì 00 lấy vào vẫn có giá trị là 00. Tuy nhiên khi lấy từ data qua 1 mảng khác thì không chắc.

Cũng vậy thôi. Vấn đề ở chỗ gán giá trị xuống sheet.

 

[vippera2]

Cũng vậy thôi. Vấn đề ở chỗ gán giá trị xuống sheet.

uh nhỉ,
nếu set format text của sheet thì đưa xuống là đc
thế thì khi đưa data vào array thì array có nhận biết item nào là number, text, day... không nhỉ

 

[huuthang_bd]

uh nhỉ,
nếu set format text của sheet thì đưa xuống là đc
thế thì khi đưa data vào array thì array có nhận biết item nào là number, text, day... không nhỉ

Như tôi đã nói, vấn đề ở chỗ gán giá trị xuống sheet, những chỗ khác không có vấn đề.

 

[Maika8008]

Cũng vậy thôi. Vấn đề ở chỗ gán giá trị xuống sheet.

Ồ đúng rồi. Quên chuyện ấy

 

[bebo021999]

Như tôi đã nói, vấn đề ở chỗ gán giá trị xuống sheet, những chỗ khác không có vấn đề.

Kiển như người yêu cũ vậy đó.
Lúc yêu mình thì khổ sở ngồi sau xe CUB.
Đến khi chia tay mình, yêu người khác thì ngồi ghế sau xe Mẹc (Dù tay cầm mù soa cũng được).