Nhờ giúp đỡ code VBA đọc file txt từng dòng vào excel

[phunguyen281]

Mình có file input.txt:
11/1000
035/500
35/1500
Tức trước dấu / là mã sản phẩm, còn sau / là giá sản phẩm
Khi mình đọc file và chuyển vào excel thì "035" tự chuyển thành "35". Nhờ mọi người trợ giúp
Mình đang khai báo mảng Dim arr() as String, arr = split(content,"/")
Sau đó dùng vòng lặp for ghi giá trị
Cells.value = arr(0)
Cells.value = arr(1)

 

[Maika8008]

Mã này cố định không đổi được, mình có cách nào cộng tổng lại trong excel được không vậy? Code VBA làm sao bạn gợi ý giúp với! Cảm ơn bạn!

Dùng vba viết 1 cái hàm thay cho sumif thì được.

 

[SA_DQ]

Mã không phải tự mình đặt, có trước đó rồi, giờ chỉ tìm giải pháp thôi!

Mã này cố định không đổi được, mình có cách nào cộng tổng lại trong excel được không vậy? Code VBA làm sao bạn gợi ý giúp với! Cảm ơn bạn!

Cũng không nhất thiết phải đổi nó;
Nhưng chúng ta hoàn toàn có thể tạo thêm 1 cột mã theo 1 chuẩn nào đó chấp nhận được; Đi đường vòng nhanh đến đích hơn đi đường thẳng đó chủ bài đăng
Nếu bạn khư khư rằng là phải giữ mã i xì như vậy, thì người giúp bạn có âm mưu hại bạn về lâu về dài đó nghe!

 

[Maika8008]

Mã này cố định không đổi được, mình có cách nào cộng tổng lại trong excel được không vậy? Code VBA làm sao bạn gợi ý giúp với! Cảm ơn bạn!

Đây là hàm thay thế cho hàm SUMIF. Tôi không bẫy lỗi gì cả nên nếu 2 vùng có kích thước khác nhau thì lỗi ráng chịu

Function SUMIFX(Cri_Rng As Range, strCriteria As String, Optional Sum_Rng As Range)
    Dim arrS, arrC, i&, dblSum#
    If Sum_Rng Is Nothing Then
        arrS = Cri_Rng.Value
    Else
        arrS = Sum_Rng.Value
    End If
    arrC = Cri_Rng.Value
    For i = 1 To UBound(arrC)
        If arrC(i, 1) = strCriteria Then
            dblSum = dblSum + arrS(i, 1)
        End If
    Next
    SUMIFX = dblSum
End Function

 

[phunguyen281]

Đây là hàm thay thế cho hàm SUMIF. Tôi không bẫy lỗi gì cả nên nếu 2 vùng có kích thước khác nhau thì lỗi ráng chịu

Function SUMIFX(Cri_Rng As Range, strCriteria As String, Optional Sum_Rng As Range)
    Dim arrS, arrC, i&, dblSum#
    If Sum_Rng Is Nothing Then
        arrS = Cri_Rng.Value
    Else
        arrS = Sum_Rng.Value
    End If
    arrC = Cri_Rng.Value
    For i = 1 To UBound(arrC)
        If arrC(i, 1) = strCriteria Then
            dblSum = dblSum + arrS(i, 1)
        End If
    Next
    SUMIFX = dblSum
End Function

Cam on su ho tro cua Ban rat nhieu!

 

[SA_DQ]

Cam on su ho tro cua Ban rat nhieu!

??????????????????????????→←→←??????→←→←?????????→←→←??????→←→←???????????????????????????????????→←→←

Cảm ơn, phải hông; Vậy mà cũng không thực hiện theo nội qui dùm cái!

 

[phunguyen281]

??????????????????????????→←→←??????→←→←?????????→←→←??????→←→←???????????????????????????????????→←→←

Cảm ơn, phải hông; Vậy mà cũng không thực hiện theo nội qui dùm cái!

Noi quy sao vay ban? Minh thanh vien moi mong ban chi giup

 

[ongke0711]

Noi quy sao vay ban? Minh thanh vien moi mong ban chi giup

Gõ tiếng Việt đúng chuẩn, có dấu là tôn trọng người đọc bài của mình.

 

[phunguyen281]

Gõ tiếng Việt đúng chuẩn, có dấu là tôn trọng người đọc bài của mình.

Máy tính bị hư cái phím, mong mọi người bỏ qua!