Tự động chạy macro hoặc ẩn hàng (cột)

[adua29]

Em cho chạy macro được rồi, nó bắt buộc phải kích đúp vào ô A5 và thoát ra khỏi ô, nếu dùng list data validation để thay đổi giá trị trong ô thì Macro không chạy. Cám ơn anh.

 

[traicauhd]

Chủ đề này gấn giống với code vba mà em đang cần
có ai giúp dc em không a
em có một file excel nhập du liệu vào cột a
và em muốn khi nhập chữ ok vào cột a thi tu động chạy code
nếu không phai là chu ok mà là số thì khôngchauỵ code

 

[chuot0106]

Chủ đề này gấn giống với code vba mà em đang cần
có ai giúp dc em không a
em có một file excel nhập du liệu vào cột a
và em muốn khi nhập chữ ok vào cột a thi tu động chạy code
nếu không phai là chu ok mà là số thì khôngchauỵ code

Muốn giúp gì thì đưa File lên và mô tả yêu cầu trong đó.

 

[ChanhTQ@]

Em có một file excel nhập du liệu vào cột a
và em muốn khi nhập chữ ok vào cột a thi tu động chạy code
nếu không phai là chu ok mà là số thì khôngchauỵ code

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Columns("A:A")) Is Nothing Then
    If UCase$(Target.Value) = "OK" Then
        MyCode
    ElseIf IsNumeric(Target.Value) Then
    Else
    End If
 End If
End Sub

Sub MyCode()
 MsgBox "Xin Chào"
[B]End Sub
[/B]

 

[traicauhd]

option explicit
private sub worksheet_change(byval target as range)
 if intersect(target, columns("a:a")) is nothing then
    if ucase$(target.value) = "ok" then
        mycode
    elseif isnumeric(target.value) then
    else
    end if
 end if
end sub

sub mycode()
 msgbox "xin chào"
[b]end sub
[/b]

2 code này thì mình copy vào đâu vậy
vào sheet hay vào thisworkbook hay module

 

[traicauhd]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Columns("A:A")) Is Nothing Then
    If UCase$(Target.Value) = "OK" Then
        MyCode
    ElseIf IsNumeric(Target.Value) Then
    Else
    End If
 End If
End Sub

Sub MyCode()
 MsgBox "Xin Chào"
[B]End Sub
[/B]

sao mình copy code vào lại không chạy được nhỉ

 

[khuongvietphong]

sao mình copy code vào lại không chạy được nhỉ

Bạn Copy đoạn Code bên trên rồi dán vào Sheet nào mà bạn làm việc í. Và trong đoạn code trên , cái dòng "My Code" bạn phải thay bằng đoạn

Code mà bạn muốn chạy. Còn đoạn Code bên dưới thì chỉ là ví dụ để Test thử thôi

 

[traicauhd]

Bạn Copy đoạn Code bên trên rồi dán vào Sheet nào mà bạn làm việc í. Và trong đoạn code trên , cái dòng "My Code" bạn phải thay bằng đoạn

Code mà bạn muốn chạy. Còn đoạn Code bên dưới thì chỉ là ví dụ để Test thử thôi

mình đã copy vào file excel
và điện ok vào cột a
nhưng không thấy chạy code thông báo của msgbox

 

[khuongvietphong]

mình đã copy vào file excel
và điện ok vào cột a
nhưng không thấy chạy code thông báo của msgbox

Bạn có thể viết kiểu như thế này cũng được :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 And Target.Value = "ok" Then 
     MsgBox "Hello"
 End If
End Sub

 

[Huyenchivi]

 Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [b1]) Is Nothing Then
   Dim Col As Byte
 
   Columns("C:AG").Hidden = False
   Select Case Target.Value
   Case Is < 1, Is > 12
      Exit Sub
   Case 2
      If Year(Date) Mod 4 <> 0 Then _
         Columns("AD").Hidden = True
      Columns("AE:AF").Hidden = True
   Case 4, 6, 9, 11
      Columns("AF").Hidden = True
   End Select
 End If
End Sub

Mọi người giúp mình với mình có file này muốn tự động ẩn cột không có dữ liệu đi khi fillter bất cứ một giá trị nào đó.