Chủ đề: Sửa lỗi code giúp mình
-
01-12-2014, 05:18 AM #1Junior 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:
- cách dùng hàm Table
- giải thích chữ
- Hướng dẫn tạo DataForm để nhập liệu vào bảng tính.
- Giúp đỡ về gom các giá trị lại khi có cùng điều kiện
- Chuyên Đề : Trích Lọc Sổ Cái
- Tự đánh thứ tự theo số mình nhập trước
- Hàm chuyển số sang chữ trong excel
- Chia Sheet Tổng Thành Nhiều Sheet theo điều kiện từ cột
- tìm số mũ của luỹ thừa
- Xin giúp code nhập, chỉnh sửa, liên kết dữ liệu từ excel với form
-
01-12-2014, 07:16 AM #2Junior 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 #3Junior 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 #4Junior 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 #5Junior 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 #6Junior 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 #7Junior 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 #8Junior 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 #9Junior 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:
Sản phẩm đan lọc được sinh sản và thiết kế dùng cho cả các công trình bể lọc xây dựng mới lẫn các bể lọc hiện hữu. Đan lọc lovense domi giúp tăng khả năng phân phối gió và nước trong quá trình rửa...
Những đặc điểm vượt trội của đan lọc 2 tầng De Nora (8)