Hôm nay vừa nghe cái vụ khai báo không đúng kiểu dữ liệu, nay lại thấy đây.
Thế thì viết như thế này cho gọn hơn
Sub Rectangle2_Click()
Dim sArr(), I As Long, Max As Long
With Sheet1
sArr = .Range("A1", .Range("A" & Rows.Count).End(3)).Value
Max = 0
For I = 1 To UBound(sArr)
If sArr(I, 1) > Max Then Max = sArr(I, 1)
Next I
.Range("B1") = Max
End With
End SubTôi viết lại như sau
Sub Rectangle2_Click()
Dim Dayso()
Dim Max As Integer
Dim iR As Integer
iR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
ReDim Dayso(iR)
For i = 1 To iR
Dayso(i) = Sheet1.Range("A" & i).Value
Next i
'Max = 0 'Luu y 1
Max = Dayso(1)
'For j = 1 To UBound(Dayso, 1)
For j = 2 To UBound(Dayso, 1)
If Dayso(j) > Max Then
' Sheet1.Range("B" & j) = Dayso(j) 'Lệnh này thừa
' Max = Sheet1.Range("B" & j).Value
Max = Dayso(j)
' Sheet1.Range("B" & j).ClearContents 'Lệnh này thừa
End If
Next j
Sheet1.Range("B1") = Max
End SubSub Rectangle20_Click()
Dim sArr, vTemp As Variant, dblMax As Double
sArr = Sheet1.Range("A1", Sheet1.Range("A" & Rows.Count).End(3)).Value
If Not IsArray(sArr) Then
dblMax = sArr
'de phong truong hop chi co mot o.
Else
dblMax = sArr(1, 1)
For Each vTemp In sArr
If vTemp > dblMax Then
dblMax = vTemp
End If
Next
End If
Sheet1.Range("B1") = dblMax
End SubUổi, mà làm sao để có cái code màu xanh này thế chị?
Option Explicit
Sub Rectangle2_Click()
Dim vArr() As Variant
Dim vMax As Variant, vTemp As Variant
Dim lR As Long, I As Long
' Truong hop cot A khong co du lieu hay chi cell A1 co du lieu rong, text, number hay linh tinh
vMax = Val([A1])
lR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
If (lR > 1) Then
' Có dữ liệu từ A2 trở đi
vArr = Sheet1.Range("A1:A" & lR).Value ' If lR = 1 thì lệnh này nó quăng error vô mặt em cái đùng
For I = 2 To UBound(vArr) ' Bo qua cell A1
vTemp = Val(vArr(I, 1)) ' Truong hop cell A[I] la du lieu rong, text, number hay linh tinh, không dùng Val thì bị quăng error cái đùng lần nữa :')
If vTemp > vMax Then
vMax = vTemp
End If
Next I
End If
Sheet1.Range("B1") = vMax
End SubTùy theo quan điểm của mỗi người về dữ liệu thôi anh, hàm max của excel thì coi một ô chứa text các con số không phải là số.
Option Explicit
Sub Button1_Click()
Dim a, b, c, d, i As Integer
Dim data(1 To 80, 1 To 2) As Variant
Dim LastRow As Integer
With ActiveSheet
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With
c = 1
For a = 2 To 16
For b = 12 To 8 Step -1
data(c, 1) = Sheets("2018").Cells(b, a).Value
c = c + 1
Next b
Next a
c = 1
For a = 2 To 16
For b = 12 To 8 Step -1
data(c, 2) = Sheets("2018").Cells(13, a).Value & Sheets("2018").Cells(b, "A").Value
c = c + 1
Next b
Next a
Sheets("CleanerSheet").Range("E6:F99").Value = Worksheets.Application.Transpose(data)
For d = 3 To LastRow
Sheets("CleanerSheet").Cells(d, "B").Select
For i = 1 To 80
If Sheets("CleanerSheet").Cells(d, "B").Value > data(i, 1) And Sheets("CleanerSheet").Cells(d, "B").Value <= data(i + 1, 1) Then
Sheets("CleanerSheet").Cells(d, "C").Value = data(i + 1, 1)
Sheets("CleanerSheet").Cells(d, "D").Value = data(i + 1, 2)
i = i + 1
End If
Next i
Next d
End Sub
Tềnh hềnh là hơi căng...Định bôi nhưng code không cho bôi nên đành trích dẫn luôn.
Sheets("CleanerSheet").Cells(d, "B").SelectSheets("CleanerSheet").Select 'Thêm dòng này'
For d = 3 To LastRowFor i = 1 To 80
If sal > data(1, i) And sal <= data(1, i + 1) ThenDim data(1 To 80, 1 To 2)FileQLSX.Sheets("BANG_TINH").Range("B22:Z" & LastRowNo).SpecialCells(xlCellTypeVisible).Copy
FileBangQD.Sheets("CongLamKH").Range("D3").PasteSpecial xlPasteValuesStr5 = "Select * from [BANG_TINH$B22:Z] where F1 is not null"
FileBangQD.Sheets("ThongSo").Range("D3").CopyFromRecordset cnn.Execute(Str5)
