Sửa lỗi code giúp mình

[akayzai1]

Cho vùng bảng tính A1..G7 có chứa các số bất kỳ.tìm giá trị dương nhỏ nhất và tô màu đỏ vào ô chứa giá trị đó

 

[Wind_Flower]

Ðề: Sửa lỗi code giúp mình

Cho vùng bảng tính A1..G7 có chứa các số bất kỳ.tìm giá trị dương nhỏ nhất và tô màu đỏ vào ô chứa giá trị đó

Ko hiểu !!!!

Sub timmin()
Dim cell As Range
Dim t As Double
t = 10 ^ 10tìm giá trị dương nhỏ nhất
For Each cell In Range("A1:H5")
If cell.Value > 0 And t > cell.Value Then
t = cell.Value
cell.Interior.Color = vbRed
End If
Next cell
MsgBox "gia tri duong nho nhat la: " & t
End Sub

1- t = 10 ^ 10 --> có làm gì trong sub ko ?? ( 10 lũy thừa 10, số qúa lớn )
2- For Each cell In Range("A1:H5") --> cho biết pointer đi trong Range("A1:H5")
3- cell.Value > 0 And t > cell.Value --> điều kiện >0 và t > cell.Value !!!! ko hiểu nủi
4- Vậy đâu là function -->tìm giá trị dương nhỏ nhất
5- Đâu là điều kiện IF ... then .. để function so sánh Max , Min ???!!!!!

Viết program như người lái xe . Ko có logic thì viết gì ???
Viết lại đi, rồi sẽ chỉ . Hình Range("A1:H5") có giá trị . Có như vậy mới hướng dẫn cậu được

 

[akayzai1]

Ðề: Sửa lỗi code giúp mình

Bác viết code lại giùm e với, e đang gấp .Hậu tạ bác thật hậu hĩnh ạ

 

[Wind_Flower]

Ðề: Sửa lỗi code giúp mình

Bác viết code lại giùm e với, e đang gấp .Hậu tạ bác thật hậu hĩnh ạ

Paste cái data từ Range("A1:H5") lên
Chẳng hiểu t = 10^10 hay là muốn t=log() [log10()] ???
t này làm gì ???
Điều kiện là gì ??? >0 và phải là số dương ???
>0 đã là số dương vậy "t" dùng làm gì ??? tại sao có --> t

 

[Wind_Flower]

Ðề: Sửa lỗi code giúp mình

Thanks akayzai1

Ta tự ra bài gùi tự solve hahahahahaha

Giải sử có data table như vầy:

kết quả

Thấy dễ mà ko dễ :
1- Phải lớn hơn 0 ( số dương )
2- Tìm số nhỏ nhất trong range lớn hơn 0 !!!!!!!!!

hahaha tricky question , I kike it

How to write a FORMULA

How to write a VBA

hihihhihihihihi

 

[Wind_Flower]

Ðề: Sửa lỗi code giúp mình

Formula

 

[Wind_Flower]

Ðề: Sửa lỗi code giúp mình

Kool TQChanh

For fair game, I post my code

Sub uiMin()
Dim iNew ,iCount, i As Integer
Dim Alpha() As Variant
Dim a As Double

Set Rng = Sheet1.Range("A1:H3")
iCount = Rng.Cells.Count

ReDim Alpha(0 To iCount - 1)
iNew = 0

For i = 1 To iCount
If Rng(i) > 0 Then
Alpha(iNew) = Rng(i)
iNew = iNew + 1
End If
Next i

a = WorksheetFunction.Min(Alpha)

MsgBox a
End Sub



You or SA_DQ who ' s kool ???

How about Formula ???

 

[akayzai1]

Ðề: Sửa lỗi code giúp mình

Còn tô màu cho ô chứa giá trị dương đó thì ntn bác Wind_Flower

 

[Wind_Flower]

Ðề: Sửa lỗi code giúp mình

Còn tô màu cho ô chứa giá trị dương đó thì ntn bác Wind_Flower

Mèn !!!! lại tô màu

Các ngài trình độ thấp , làm ơn dùng Code này . Lòi tẩy nó đá ra khỏi trường
Code này chỉ tốn công viết Formula (loại Array, công hức phải Ctrl+Shift và Enter) và dễ tô màu

Sub tihui()
Dim cell As Range

Selection.FormulaArray = "=MIN(IF(R[-4]C:R[-2]C[7]>0,R[-4]C:R[-2]C[7]))"
For i = 1 To 3
For x = 1 To 8
If Cells(i, x) = Selection Then
MsgBox "Min = " & Cells(i, x).Value
Cells(i, x).Interior.ColorIndex = 36
End If
Next
Next

End Sub

Range("A1:H3") nên i =1 to 3, x=1 to 5
Ráng chụi khó viết 2 loop FOR để thầy ko piết tẩy nhé . Viết ngắn nữa là lậy ông con ở bụi này

Công thức viết ko cần dùng Array thì miễn hỏi hahahaha