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

[akzhoan]

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ị đó

View more random threads:

• Tách họ và tên
• LỊCH VÀ ĐỒNG HỒ
• Theo dõi thu học phí sinh viên
• Nhờ các viết giúp mình đoạn code vba
• Hộp thoại dialog open file
• xin giúp đỡ của mọi người về code VBA lọc dữ liệu có điều kiện với khối lượng lớn dữ liệu
• Tạo Form Nhập Liệu Trong Excel
• ExTools Excel add-in - Công cụ hỗ trợ Microsoft Excel
• Cách bỏ cái thông báo này trong Excel,
• V/v xin giúp tạo menu form nhập liệu trong excel

[vongocbao]

Ðề: 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 ạ

[pcy_0509]

Ðề: 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

[seolalen154643]

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

:sorrynha::sorrynha: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 :sorrynha::sorrynha:

How to write a FORMULA

How to write a VBA

hihihhihihihihi

[tranhuytn668]

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

Formula

[qthanhcongq]

Ðề: Nếu vùng dữ liệu cần khảo sát là lớn ( & liên tục), bạn nên xài cái ni:

[COLOR=#000000]
Option ExplicitSub TìmMinDuong[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Min_ [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Double Dim Arr[/COLOR][COLOR=#007700]()  [/COLOR][COLOR=#0000BB]Set Rng [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]B1[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion Min_ [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]WorksheetFunction[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Max[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#0000BB]1 Arr[/COLOR][COLOR=#007700]() = [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To UBound[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700])    For [/COLOR][COLOR=#0000BB]W [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Columns[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count        [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700]) > [/COLOR][COLOR=#0000BB]0 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700]) < [/COLOR][COLOR=#0000BB]Min_ Then            Min_ [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]W[/COLOR][COLOR=#007700])        [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If    [/COLOR][COLOR=#0000BB]Next W Next J MsgBox [/COLOR][COLOR=#DD0000]"Giá Tri Min > 0 Là: " [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Min_[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Min_[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]xlFormulas[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xlWhole[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]AddressEnd Sub[/COLOR] 

:dongbang:

[vthao93hp]

Ðề: 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

:votay:

You or SA_DQ who ' s kool ???

How about Formula ???

[thuhongnt]

Ðề: 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

[hoangvu]

Ðề: 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

:k6233143::k6233143:
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
:dotphao::dotphao: