Chào bạn số 10 mình tự copy về exel, là giá của 1 cổ phiếu tăng giảm liên tục trong ngày, mình muốn biết giá cao nhất và thấp nhất. Bạn giúp mình được ko ?Cho mình thảo luận cùng tí cho vui nhé. Theo qui định thì bài trong box thành viên tự giúp nhau, BQT sẽ không tham gia. Mình thảo luận với tư cách thành viên thông thường, mọi người không cần để ý mình là admin hay không.
Một là, ở đầu nói là A1, ở dưới nói là A5, thật ra người đọc không hiểu gì.
ừ thì cứ cho là A1 đi, nội dung A1 hiện nay đang là cái gì, là điều người đọc không hiểu.
tôi ví dụ:
Bạn cần đăng nhập để thấy hình ảnh
Nào, bây giờ A1 là 10, tìm giá trị lớn nhất của 10, đáp số là gì? Giá trị nhỏ nhất của 10, đáp số là gì? Người đọc hoàn toàn không hiểu gì.
Input là cái gì, người đọc hoàn toàn không hiểu gì. hãy đưa hình ảnh hoặc file, nội dung input là gì? giá trị kỳ vọng là gì, được thể hiện ở đâu?
Đó là điều người đọc quan tâm.
tôi rất buồn vì qua tiếp xúc với các bạn, không chỉ ở topic này, tôi nhận thấy nền học vấn của nước nhà thật là nhiều vấn đề. Các bạn không thể diễn giải cho người khác hiểu, vậy thì các bạn làm việc thế nào được?
mình ví dụ: 9 giờ: A1 =10, 9h5' A1= 8, 9h10' A1 =11 ...., Mình cần lọc kết quả cao nhất của A1 hiển thị ở B1 được ko bạn ?Bạn nên đưa ảnh minh họa hoặc file lên. Nếu chỉ có ô A1 có dữ liệu thì nó so sánh với cái gì?
vậy thì mình dùng hàm max min thì dể rồi, mình có 1 bảng giá chứng khoán nhảy theo giờ, mà giá thì chỉ nằm trong 1 ô,Không bạn ạ. A1 chỉ có một giá trị. Nó không biết so sánh với cái nào.
Sao bạn không viết dữ liệu trên cột A: A1,A2,... Khi đó thì có thể tìm giá trị lớn nhất, nhỏ nhất trên cột A.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Integer, Y As Integer
Dim LastRow As Long
X = Target.Column
Y = Target.Row
If Worksheets("lichsu").Range("A" & Rows.Count).End(xlUp).Row = Rows.Count Then
Exit Sub
End If
With Worksheets("lichsu")
LastRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & LastRow) = Now()
.Range("B" & LastRow) = Target.Address(Y, X)
.Range("C" & LastRow) = Cells(Y, X)
.Range("D" & LastRow) = UserInfo(0)
.Range("E" & LastRow) = UserInfo(1)
End With
End Sub
Option Explicit
Function UserInfo()
Dim MyArray(2) As Variant
Dim WshNetworkObject As Object
Set WshNetworkObject = CreateObject("WScript.Network")
With WshNetworkObject
MyArray(0) = .UserName 'Ten nguoi truy cap
MyArray(1) = .ComputerName 'Ten may tinh
End With
UserInfo = MyArray
Set WshNetworkObject = Nothing
End Function