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:
- Form nhập liệu và bảng tổng hợp
- Click vào 1 cell sẽ hiện lên cái lịch
- VBA Copy file và đổi tên file từ thư mục này qua thư mục khác
- Viết code trong excel
- Vba tài chính.cả nhà giúp em với.
- Giúp đỡ về xử lý dữ liệu giữa các sheet
- Giúp em viết code VBA để copy nhiều sheet vào sheet tổng cộng
- Rút trích dữ liệu theo điều kiện !!
- hàm tính đếm và tính tổng nhiều điều kiện
- giải thích chữ
-
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:
Hội y khoa giới tính thế giới định nghĩa xuất tinh sớm là tình trạng rối loạn xuất tinh của nam giới với đặc trưng luôn xuất tinh sớm hơn hoặc trong vòng một phút quan hệ. Bệnh nhân không có khả năng...
Tìm hiểu về loại thuốc dứt điểm bệnh "ra nhanh"