Chủ đề: Sửa lỗi code giúp mình
-
01-12-2014, 05:18 AM #1
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 1
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ị đó
View more random threads:
- 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
- cách tự tạo sổ phần mềm excel kế toán
- Xin giới thiệu với các bạn ba bảng chấm công & cách tính công các loại
- in phiếu thu, chi
- Cho ra số lượng theo % cho trước
- Tạo Form, sử dụng ListBox và dùng hàm Find để tìm.
- Giúp mình bài VBA này với :D
- Giup mjnh zoj.
- HỎI VỀ MARCO
- Đánh số báo danh
-
01-12-2014, 07:16 AM #2
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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 ạ
-
01-12-2014, 09:08 AM #3
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Sửa lỗi code giúp mình
Gửi bởi akayzai1
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
-
01-12-2014, 11:52 AM #4
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 1
Ðề: 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
-
01-12-2014, 12:12 PM #5
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Sửa lỗi code giúp mình
Formula
-
01-12-2014, 03:46 PM #6
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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:
Mã nguồn PHP:[COLOR=#000000]
Option Explicit Sub 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]Address End Sub [/COLOR]
-
01-12-2014, 04:32 PM #7
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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 ???
-
01-12-2014, 06:19 PM #8
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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
-
01-12-2014, 10:19 PM #9
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Sửa lỗi code giúp mình
Gửi bởi akayzai1
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:
Theo phong tục của người M’nông, khi đứa trẻ vừa tròn một mùa rẫy (nghĩa là vừa tròn một năm tuổi), cha mẹ đứa trẻ phải tiến hành làm lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho con mình, nhằm...
Lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho trẻ sơ sinh của người M’nông