Bạn dùng đoạn code này để lấy kết quả từ Sheet2 sang Sheet4 xem kết quả thế nào nhé
Sub GPE_boyxin()
Dim Clls As Range, Rng As Range, k As Long
Sheets("Sheet4").[B3].CurrentRegion.Offset(1).ClearContents
Sheets("Sheet2").Activate
Set Rng = [B2].CurrentRegion: k = 1
Tmp = Sheets("Sheet4").[B2].Resize(65000, 4)
For Each Clls In Rng.Offset(1).SpecialCells(2, 1)
With Clls
k = k + IIf((Cells(2, .Column) = Cells(2, .Column - 1)) _
* (.Offset(, -1).Value > 0), 0, 1)
Tmp(k, 2) = Cells(2, .Column).Value
Tmp(k, 1) = Left(Cells(.Row, 2).Value, 6)
Tmp(k, IIf(Cells(3, .Column).Value = "N", 3, 4)) = .Value
End With
Next
Sheets("Sheet4").[B2].Resize(65000, 4) = Tmp
Sheets("Sheet4").[B3].CurrentRegion.Sort Key1:=Sheets("Sheet4").[C3], _
Order1:=1, Key2:=Sheets("Sheet4").[B3], Order2:=1, Header:=0
End Sub
Bạn cung cấp càng nhiều thông tin,càng được giúp nhanh!
Option Explicit
Function BuHao(SoLg As Double, NhomSF As String, Optional InMau As Boolean = True)
Dim FTram As Double
SoLg = SoLg / 1000: NhomSF = UCase$(Trim(NhomSF))
If Left(NhomSF, 1) = "S" Then
If InMau Then
FTram = Switch(SoLg <= 1, 2.8, SoLg <= 3, 2.4, SoLg <= 5, 1.8, SoLg <= 10, 1.44, _
SoLg <= 15, 1.26, SoLg > 15, 1)
Else
FTram = Switch(SoLg <= 1, 2.5, SoLg <= 3, 1.7, SoLg <= 5, 1.5, SoLg <= 10, 1.2, _
SoLg <= 15, 1, SoLg > 15, 0.75)
End If
ElseIf Left(NhomSF, 2) = "BI" Then
If InMau Then
FTram = Switch(SoLg <= 1, 2.8, SoLg <= 3, 2.4, SoLg <= 5, 2, SoLg <= 10, 1.4, _
SoLg <= 15, 1.2, SoLg > 15, 1)
Else
FTram = Switch(SoLg <= 1, 2, SoLg <= 3, 1.6, SoLg <= 5, 1.4, SoLg <= 10, 1, _
SoLg <= 15, 0.75, SoLg > 15, 0.6)
End If
Else 'Bao chi'
If InMau Then
FTram = Switch(SoLg <= 1, 2.3, SoLg <= 3, 2, SoLg <= 5, 1.7, SoLg <= 10, 1.3, _
SoLg <= 15, 1.2, SoLg > 15, 1)
Else
FTram = Switch(SoLg <= 1, 2, SoLg <= 3, 1.6, SoLg <= 5, 1.4, SoLg <= 10, 1#, _
SoLg <= 15, 0.75, SoLg > 15, 0.6)
End If
End If
BuHao = SoLg * 10 * FTram
End Function
