Thực hiện macro sau khi nhập liệu vào một ô (1 người xem)

[andredat]

Chào các anh chị,
Em mới tiếp cận với VBA nên còn rất lúng túng. Mong các anh chị và các bạn giúp em giải quyết vấn đề sau:
- Em tạo ra một macro tên là "dat".
- Em muốn cho macro này chạy khi em nhập liệu vào bất kỳ ô nào trong vùng ("a10: a 12")
Vậy thì em phải viết code như thế nào. Em đã xem các bài có trong diễn đàn copy và làm thừ nhưng vẫn chưa được. Mong anh chị và các bạn giúp em. Em xin chân thành cảm ơn.

 

[yome]

Chào các anh chị,
Em mới tiếp cận với VBA nên còn rất lúng túng. Mong các anh chị và các bạn giúp em giải quyết vấn đề sau:
- Em tạo ra một macro tên là "dat".
- Em muốn cho macro này chạy khi em nhập liệu vào bất kỳ ô nào trong vùng ("a10: a 12")
Vậy thì em phải viết code như thế nào. Em đã xem các bài có trong diễn đàn copy và làm thừ nhưng vẫn chưa được. Mong anh chị và các bạn giúp em. Em xin chân thành cảm ơn.

Không hiểu câu hỏi của bạn lắm!? Bạn muốn tạo một Marco ghị lại quá trình nhập liệu?

 

[concogia]

Chào các anh chị,
Em mới tiếp cận với VBA nên còn rất lúng túng. Mong các anh chị và các bạn giúp em giải quyết vấn đề sau:
- Em tạo ra một macro tên là "dat".
- Em muốn cho macro này chạy khi em nhập liệu vào bất kỳ ô nào trong vùng ("a10: a 12")
Vậy thì em phải viết code như thế nào. Em đã xem các bài có trong diễn đàn copy và làm thừ nhưng vẫn chưa được. Mong anh chị và các bạn giúp em. Em xin chân thành cảm ơn.

Bạn thử thế này xem:

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
    If Not Intersect(Target, [a10:a12]) Is Nothing Then
        If Target.Value <> "" Then
            'Chay cai Macro cua ban
        End If
    End If
End Sub

Còn một số trường hợp có thể gặp lỗi tùy theo cách nhập liệu của bạn, có gì bàn sau
Thân

 

[Robinhod]

Chào các anh chị,
Em mới tiếp cận với VBA nên còn rất lúng túng. Mong các anh chị và các bạn giúp em giải quyết vấn đề sau:
- Em tạo ra một macro tên là "dat".
- Em muốn cho macro này chạy khi em nhập liệu vào bất kỳ ô nào trong vùng ("a10: a 12")
Vậy thì em phải viết code như thế nào. Em đã xem các bài có trong diễn đàn copy và làm thừ nhưng vẫn chưa được. Mong anh chị và các bạn giúp em. Em xin chân thành cảm ơn.

Bạn tham khảo ví dụ này nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo loi:
    If Not Intersect([A10:A12], Target) Is Nothing Then
        If Target.Value <> "" Then
            vi_du
        End If
    End If
loi:
End Sub

và một marco:

Sub vi_du()
    MsgBox "Neu vui vui, moi ban nhap tiep nhe!", , "Info"
End Sub

 

[andredat]

Xin chân thành cảm ơn các anh chị đã giúp em giải quyết vấn đề.

 

[phuongtranqtd]

Các Pro Chỉ giáo giúp e với:
Mình muốn nối chuỗi 3 ô A1 & B1 & C1

A1: tôi yêu
B1: quê hương Việt Nam
C1: rất nhiều

D1: tôi yêu quê hương Việt Nam rất nhiều

Mình làm như thế này D1 = A1&B1&C1, và nó thành D1: "Tôi yêu quê hương Việt Nam rất nhiều"
Nhưng mình muốn nó thành D1: tôi yêu quê hương Việt Nam rất nhiều.
Mình đọc và tìm hiểu rất nhiều sách báo mà vẫn không biết làm như thế nào để nối được 3 ô chữ A1, B1, C1 thành ô D1 mà vẫn giữ nguyên được định dạng gốc của từng ô.
Mọi chi tiết xin liên hệ: phuongtranvn_2002@yahoo.com
Sđt của mình là: 01685 112 666
Mình xin chân thành cảm ơn!

 

[phuongtranqtd]

Các Pro Chỉ giáo giúp e với:
Mình muốn nối chuỗi 3 ô A1 & B1 & C1

A1: tôi yêu
B1: quê hương Việt Nam
C1: rất nhiều

D1: tôi yêu quê hương Việt Nam rất nhiều

Mình làm như thế này D1 = A1&B1&C1, và nó thành D1: "Tôi yêu quê hương Việt Nam rất nhiều"
Nhưng mình muốn nó thành D1: tôi yêu quê hương Việt Nam rất nhiều.
Mình đọc và tìm hiểu rất nhiều sách báo mà vẫn không biết làm như thế nào để nối được 3 ô chữ A1, B1, C1 thành ô D1 mà vẫn giữ nguyên được định dạng gốc của từng ô.
Mọi chi tiết xin liên hệ: phuongtranvn_2002@yahoo.com
Sđt của mình là: 01685 112 666
Mình xin chân thành cảm ơn!​

 

[zonnamtao]

Bạn tham khảo ví dụ này nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo loi:
    If Not Intersect([A10:A12], Target) Is Nothing Then
        If Target.Value <> "" Then
            vi_du
        End If
    End If
loi:
End Sub

và một marco:

Sub vi_du()
    MsgBox "Neu vui vui, moi ban nhap tiep nhe!", , "Info"
End Sub

Thank như thế nào nhỉ. Cám ơn bạn nhiều