dragonboy
Thành viên chính thức


- Tham gia
- 3/9/07
- Bài viết
- 98
- Được thích
- 21
Chưa hiểu hết ý bạn, bạn định làm gì?Mình có một bài toán thế này mọi người giúp đỡ mình nhé
Cột 1 chứa các ô điều kiện
Khi cột 1 thay đổi lập tức cột 2 thay đổi theo
Nhưng chú ý: Cột 1 có nhiều ô giá trị chứ không phải 1 ô.
các bạn chỉ giúp cách làm nhé
Mình có một bài toán thế này mọi người giúp đỡ mình nhé
Cột 1 chứa các ô điều kiện
Khi cột 1 thay đổi lập tức cột 2 thay đổi theo
Nhưng chú ý: Cột 1 có nhiều ô giá trị chứ không phải 1 ô.
các bạn chỉ giúp cách làm nhé
Mình cho chi tiết hơn chút rồi
ý mình là muốn dùng VBA để cho cột 2 thực hiện khi cột 1 thay đổi
Ôi, cái này trên diễn đàn nói nhiều mà bạn "đổi số thành chữ"
Search một cái - tìm được cả rừng:
http://www.giaiphapexcel.com/forum/...anh-tối-đa-nhanh-hơn-80-các-Addins-khác/page2
Hình như bạn đang đùa ???
dùng vba cái này thì phí quá ta? nếu muốn dùng VBA có thể tham khảo cách dùng VBA cho hàm Vlookup chơi.Mình cho chi tiết hơn chút rồi
ý mình là muốn dùng VBA để cho cột 2 thực hiện khi cột 1 thay đổi
xem thêm file đính kèm:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
For Each rng In ActiveSheet.Range("a2:a14")
If rng.Value <> "" Then
rng.Offset(, 1).Value = Application.VLookup(rng.Value, Range("hay"), 2, 0)
Else
rng.Offset(, 1).Value = ""
End If
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [e:e]) Is Nothing Then
tmp = [b:b].Find(Target, LookAt:=xlWhole).Address
Target(1, 2) = Range(tmp)(, 2)
If Target = 0 Then Target(1, 2).ClearContents
End If
End Sub