Code quy đổi kỳ hạn

[Phương Phương mito]

Kính gửi Anh chị trên GPE,
Em có code quy đổi kỳ hạn theo File kèm theo. Nó cứ báo lỗi ạ. Anh chị xem xét và sửa Code giúp em với ạ. Em cảm ơn ạ

 

[snow25]

Kính gửi Anh chị trên GPE,
Em có code quy đổi kỳ hạn theo File kèm theo. Nó cứ báo lỗi ạ. Anh chị xem xét và sửa Code giúp em với ạ. Em cảm ơn ạ

Bạn khai báo cho nó kiểu Double.Xong bạn lại gán cho nó chuỗi thì nhận sao được ta.Chỗ khai báo Redim đó.

 

[Phương Phương mito]

Bạn khai báo cho nó kiểu Double.Xong bạn lại gán cho nó chuỗi thì nhận sao được ta.Chỗ khai báo Redim đó.

Tức là khai báo lại chỗ đó thành ReDim arr(1 To eRw, 1 To 1) As String như này ạ. Nhưng nó báo lỗi đoạn này ạ [F2].Resize(R - 2).Value = arr()

 

[snow25]

Tức là khai báo lại chỗ đó thành ReDim arr(1 To eRw, 1 To 1) As String như này ạ. Nhưng nó báo lỗi đoạn này ạ [F2].Resize(R - 2).Value = arr()

Tức là khai báo lại chỗ đó thành ReDim arr(1 To eRw, 1 To 1) As String như này ạ. Nhưng nó báo lỗi đoạn này ạ [F2].Resize(R - 2).Value = arr()

Khả năng bạn sửa câu lệnh này

If Arr(R, 1) <> Space(0) Then
thành câu
If sArr(R, 1) <> Space(0) Then

Còn nó báo lỗi câu này
[F2].Resize(R - 2).Value = arr()
Là trong trường hợp này R=1 nên nó resize bị âm nên không chọn được vùng nhé.

 

[Phương Phương mito]

Khả năng bạn sửa câu lệnh này

If Arr(R, 1) <> Space(0) Then
thành câu
If sArr(R, 1) <> Space(0) Then

Còn nó báo lỗi câu này
[F2].Resize(R - 2).Value = arr()
Là trong trường hợp này R=1 nên nó resize bị âm nên không chọn được vùng nhé.

Anh ơi, sao kỳ hạn Mediumterm lại không ra ạ. Chỗ hàm And của em có sai gì không ạ.

 

[snow25]

Sub Kyhan()
Dim eRw As Long, R As Long, j As Long
Dim sArr()

Const Tr1 As Long = 370
Const Tr2 As Long = 371
Const Tr3 As Long = 1865


Sheet1.Select
Range("F2:F200").ClearContents

eRw = [A2].CurrentRegion.Rows.Count
sArr() = [A2].Resize(eRw, 5).Value
ReDim arr(1 To eRw, 1 To 1) As String

For R = 1 To UBound(sArr())
    If sArr(R, 1) <> Space(0) Then
        If sArr(R, 5) <= Tr1 Then
            arr(R, 1) = "Shortterm"
        ElseIf sArr(R, 5) >= Tr2 And sArr(R, 5) <= Tr3 Then
            arr(R, 1) = "Mediumterm"
        ElseIf sArr(R, 5) >= Tr3 Then
            arr(R, 1) = "Longterm"
        End If
       Else
        Exit For
    End If
Next R
[F2].Resize(R - 1).Value = arr()

End Sub

Anh ơi, sao kỳ hạn Mediumterm lại không ra ạ. Chỗ hàm And của em có sai gì không ạ.

Bạn tìm chỗ nào có câu lệnh này.

sArr(R, 2) <= Tr3 sửa thành sArr(R, 5) <= Tr3