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:
- Định dạng chữ trong excel
- [HELP] Lỗi 1004
- Tự động trích lọc dữ liệu từ 1 Sheet qua nhiều sheet chỉ bằng 1 cú click chuột
- [help] copy và paste vào dòng trống phía dưới với VBA
- Dùng hàm cơ sở dữ liệu để thống kê nhân sự theo độ tuổi, thâm niên & học vấn (hỗ trợ bỡi VBA)
- quản lý kho
- Quay phim và chiếu phim trong Excel!!!
- Mẫu theo dõi Hợp đồng bằng excell
- Theo dõi công văn đi và đến
- cách hiển thị theo từng dòng và cột trong textbox
-
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:
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