...( Mà cái Bà đó khó tính mà vẫn đẹp gái thế mới sợ chứ ...)
Cái đó mình tạo 1 form nhỏ để lấy hướng test và nhờ các a/c giúp đỡ. Còn sau mình áp dụng vào của mình thì đã dùng sự kiện để bỏ cái đỏ choét đó rùi ý, k nó ngứa mắt chết luôn
@PacificPR @AutoReply Cả 2 chị đều đẹp gáiEm đoán nhà họ đặt cái màu đỏ choét đó để kiểm soát. Nhưng có bài #1367 thì không cần cái đó nữa. Chị #1368 chả mắng cho còn rồi( Mà cái Bà đó khó tính mà vẫn đẹp gái thế mới sợ chứ ...
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ố.
