Tự động hiển thị

[duynhat84]

Cảm ơn anh Hanhpptc đã giúp en cách làm khi xóa trống 1 ô đi thì ô đó hiển thị số liệu của 1 ô ấn định nào đó
bây giờ giúp em làm với nhiều ô và cả ở sheet khác nữa, en gửi File kèm theo.
em xin cảm ơn


Cảm ơn anh nhiều vì đây là lần đầu tham gia diễn đàn nên em chư biết cách.
hơn nữa Excel em còn ABC lắm nên Anh làm giùm em luôn đi
em cảm ơn nhiều.

 

[hanhpptc]

Cảm ơn anh Hanhpptc đã giúp en cách làm khi xóa trống 1 ô đi thì ô đó hiển thị số liệu của 1 ô ấn định nào đó
bây giờ giúp em làm với nhiều ô và cả ở sheet khác nữa, en gửi File kèm theo.
em xin cảm ơn

Sao cùng 1 chủ đề mà bạn mở nhiều Topic thế, coi chừng bị xoá đấy. Hãy nêu y/c ngay trong Topic đã mở trước đó là được. Còn vấn đề của bạn thì đơn giản mà, hãy tùy biến trong câu lệnh VBA ngay trong sheet là được.

 

[hanhpptc]

Cảm ơn anh Hanhpptc đã giúp en cách làm khi xóa trống 1 ô đi thì ô đó hiển thị số liệu của 1 ô ấn định nào đó
bây giờ giúp em làm với nhiều ô và cả ở sheet khác nữa, en gửi File kèm theo.
em xin cảm ơn


Cảm ơn anh nhiều vì đây là lần đầu tham gia diễn đàn nên em chư biết cách.
hơn nữa Excel em còn ABC lắm nên Anh làm giùm em luôn đi
em cảm ơn nhiều.

Mình làm cho bạn Sheet1, còn sheet2 bạn tự copy Code sang nhé (Giống nhau)

 

[Ba Tê]

Mình làm cho bạn Sheet1, còn sheet2 bạn tự copy Code sang nhé (Giống nhau)

Code này nếu dữ liệu cột A có 100 dòng thì 100 IF nhỉ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A1], Target) Is Nothing Then
If [A1].Value = "" Then [A1].Value = [B1].Value
End If
If Not Intersect([A2], Target) Is Nothing Then
If [A2].Value = "" Then [A2].Value = [B2].Value
End If
If Not Intersect([A3], Target) Is Nothing Then
If [A3].Value = "" Then [A3].Value = [B3].Value
End If
If Not Intersect([A4], Target) Is Nothing Then
If [A4].Value = "" Then [A4].Value = [B4].Value
End If
If Not Intersect([A5], Target) Is Nothing Then
If [A5].Value = "" Then [A5].Value = [B5].Value
End If
End Sub

Tạm rút gọn như vầy đi, nếu cần thì bẫy lỗi nhập xoá nhiều dòng.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing Then  (Hoac If Not Intersect(Target, [A1:A10]) .........)
    If Target.Value = "" Then Target.Value = Target.Offset(, 1).Value
End If
End Sub