Tạo code sự kiện (Worksheet_Change) để thưc thi các (Sub) (1 người xem)

[Thuyanhanoi]

Vấn đề của em thế này mong được các bác hướng dẫn giúp!.
- Em có viết một số (Sub) để thực hiện các việc khác nhau là: Sub CV_1() ; CV_2(); CV_3(); CV_4(); CV_5()...
- Nay em muôn dùng code: Private Sub Worksheet_Change(ByVal Target As Range) Với 1 Data validation Tại ô [P4] vơi mục đích như sau:
Chọn tại ô [P4] = 1 sẽ chạy Sub CV_1()
Chọn tại ô [P4] = 2 sẽ chạy Sub CV_2()
Chọn tại ô [P4] = 3 sẽ chạy Sub CV_3()
...
Không biết như vậy có thực hiện được không?
- em có thử với code thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$P$4" Then
        Select Case Target.Value
        Case 1
            Target.Value = "1"
            Call CV_1
        Case 2
            Target.Value = "2"
            Call CV_2
        Case 3
            Target.Value = "3"
            Call CV_3
        Case 4
            Target.Value = "4"
            Call CV_4
        End Select
    End If
End Sub

Thì nó bắt Restart lai excel luôn!.
Mọi người chỉ giùm em chỗ sai nhé!. Xin cảm ơn!.

 

[giaiphap]

Vấn đề của em thế này mong được các bác hướng dẫn giúp!.
- Em có viết một số (Sub) để thực hiện các việc khác nhau là: Sub CV_1() ; CV_2(); CV_3(); CV_4(); CV_5()...
- Nay em muôn dùng code: Private Sub Worksheet_Change(ByVal Target As Range) Với 1 Data validation Tại ô [P4] vơi mục đích như sau:
Chọn tại ô [P4] = 1 sẽ chạy Sub CV_1()
Chọn tại ô [P4] = 2 sẽ chạy Sub CV_2()
Chọn tại ô [P4] = 3 sẽ chạy Sub CV_3()
...
Không biết như vậy có thực hiện được không?
- em có thử với code thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$P$4" Then
        Select Case Target.Value
        Case 1
            Target.Value = "1"
            Call CV_1
        Case 2
            Target.Value = "2"
            Call CV_2
        Case 3
            Target.Value = "3"
            Call CV_3
        Case 4
            Target.Value = "4"
            Call CV_4
        End Select
    End If
End Sub

Thì nó bắt Restart lai excel luôn!.
Mọi người chỉ giùm em chỗ sai nhé!. Xin cảm ơn!.

Bạn đang bị vấp ngã chổ

Target.Value = "1"

thay đổi giá trị của ô mới vừa thay đổi
Bạn thử lại bằng code này xem

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$P$4" Then
         Application.Run "CV_" & Target.Value
    End If
End Sub

 

[phulien1902]

Vấn đề của em thế này mong được các bác hướng dẫn giúp!.
- Em có viết một số (Sub) để thực hiện các việc khác nhau là: Sub CV_1() ; CV_2(); CV_3(); CV_4(); CV_5()...
- Nay em muôn dùng code: Private Sub Worksheet_Change(ByVal Target As Range) Với 1 Data validation Tại ô [P4] vơi mục đích như sau:
Chọn tại ô [P4] = 1 sẽ chạy Sub CV_1()
Chọn tại ô [P4] = 2 sẽ chạy Sub CV_2()
Chọn tại ô [P4] = 3 sẽ chạy Sub CV_3()
...
Không biết như vậy có thực hiện được không?
- em có thử với code thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$P$4" Then
        Select Case Target.Value
        Case 1
           [B][COLOR=#ff0000] Target.Value = "1"[/COLOR][/B]
            Call CV_1
        Case 2
           [B][COLOR=#ff0000] Target.Value = "2"[/COLOR][/B]
            Call CV_2
        Ca[B]se 3
            [COLOR=#ff0000]Target.Value = "3"[/COLOR][/B]
            Call CV_3
        Case 4
        [B][COLOR=#ff0000]    Target.Value = "4"[/COLOR][/B]
            Call CV_4
        End Select
    End If
End Sub

Thì nó bắt Restart lai excel luôn!.
Mọi người chỉ giùm em chỗ sai nhé!. Xin cảm ơn!.

Bạn bỏ hết các dòng đỏ đi là OK

 

[Thuyanhanoi]

Bạn bỏ hết các dòng đỏ đi là OK

Cảm ơn các bác nhiều nhé; vậy mà em cứ loay hoay hoài

 

[Thuyanhanoi]

Bạn đang bị vấp ngã chổ

Target.Value = "1"

thay đổi giá trị của ô mới vừa thay đổi
Bạn thử lại bằng code này xem

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$P$4" Then
         Application.Run "CV_" & Target.Value
    End If
End Sub

Cách của Bác Thật ngắn gọn và hay!. Em cảm ơn!.

 

[VetMini]

Application.Run "CV_" & Target.Value

Code này coi chừng bị bể nếu vì lý do gì đó trị trong ô bị sai.