Nhờ Viết 1 VBA để chọn cột có điều kiện

[vudinhhuy.1988]

Dear cả nhà
Em không biết gì về Viết VBA cả,em chỉ dùng được VBA thôi,nên cả nhà giúp em viết 1 VBA sao cho có thể chọn các hàng thỏa mãn 1 điều kiện nào đó như file đính kèm của em không ạ
Vô vàn tạ ơn các pro

 

[quick87]

vudinhhuy.1988;547062]Dear cả nhà
Em không biết gì về Viết VBA cả,em chỉ dùng được VBA thôi,nên cả nhà giúp em viết 1 VBA sao cho có thể chọn các hàng thỏa mãn 1 điều kiện nào đó như file đính kèm của em không ạ
Vô vàn tạ ơn các pro

Trên diễn đàn cũng có nhiều bài kiểu kiểu dạng trường hợp của bạn.
Trong khi chờ code của mọi người, mình code lại mọi người đã share ở những bài trước.

Bạn bỏ đoạn code dưới trong Module

Option Explicit
Sub hiencot()
Application.ScreenUpdating = False
Dim c
If UCase([A1]) = "ALL" Then
   [B1].Resize(, 100).EntireColumn.Hidden = False
   Exit Sub
Else
   [B1].Resize(, 100).EntireColumn.Hidden = True
End If
For c = 2 To 100
   If Cells(1, c) = [A1].Value Then Cells(1, c).EntireColumn.Hidden = False
Next
Application.ScreenUpdating = True
End Sub

Code trong Sheet1

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [A1].Address Then hiencot
End Sub

Điều kiện mình đang sử dụng Data validation, bạn muốn thêm điều kiện thì chỉnh lại trong đó nhé!
Cụ thể, bạn xem file đính kèm xem đúng ý bạn mong muốn chưa nhé!

 

[Quang_Hải]

To quick87:

Người ta muốn chọn vùng chứ đâu có ẩn hiện gì đâu

Vẽ 1 cái nút Commandbutton trên bảng tính và cho code này vào

Private Sub CommandButton1_Click()
Dim Nguon As Range, VungChon As String, Item, dk
With ActiveSheet.CommandButton1
   If .Caption = "CHON A" Then
      .Caption = "CHON B"
      dk = "a"
   Else
      .Caption = "CHON A"
   End If
End With
Set Nguon = Range([A1], [IV1].End(1))
For Each Item In Nguon
   If Item = dk Then
      VungChon = VungChon & "," & Item.Address(0, 0)
   End If
Next
VungChon = Replace(VungChon, ",", "", , 1)
Range(VungChon).Select
End Sub

 

[quick87]

To quick87:

Người ta muốn chọn vùng chứ đâu có ẩn hiện gì đâu

Em thấy trong file tác giả có ghi

Các Pro giúp mình với
-Mình cần 1 lệnh Macro để có thể chọn được các cột có chứa chữ "a" ở hàng 1
-Mình cần 1 lệnh Macro để chọn được các cột không chứa chữ "a" ở hàng 1

Em tưởng ý tác giả muốn ẩn hiện cột theo điều kiện nên em code theo ý đó

 

[vudinhhuy.1988]

Trên diễn đàn cũng có nhiều bài kiểu kiểu dạng trường hợp của bạn.
Trong khi chờ code của mọi người, mình code lại mọi người đã share ở những bài trước.

Bạn bỏ đoạn code dưới trong Module

Option Explicit
Sub hiencot()
Application.ScreenUpdating = False
Dim c
If UCase([A1]) = "ALL" Then
   [B1].Resize(, 100).EntireColumn.Hidden = False
   Exit Sub
Else
   [B1].Resize(, 100).EntireColumn.Hidden = True
End If
For c = 2 To 100
   If Cells(1, c) = [B1].Value Then Cells(1, c).EntireColumn.Hidden = False
Next
Application.ScreenUpdating = True
End Sub

Code trong Sheet1

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [A1].Address Then hiencot
End Sub

Điều kiện mình đang sử dụng Data validation, bạn muốn thêm điều kiện thì chỉnh lại trong đó nhé!
Cụ thể, bạn xem file đính kèm xem đúng ý bạn mong muốn chưa nhé!

Thank bạn nhiều nhé,nhưng mình cần chọn để mục đích khác bạn à,không cần ẩn hiện,bạn có thể sửa lại để thành chọn thôi được không bạn

 

[tungnguyen_kt]

Từ "chọn" trong yêu cầu này khó hiểu thiệt, không biết "chọn" như thế nào?

 

[Quang_Hải]

Từ "chọn" trong yêu cầu này khó hiểu thiệt, không biết "chọn" như thế nào?

Tra từ điển chọn chắc là Select đó mà

Thank bạn nhiều nhé,nhưng mình cần chọn để mục đích khác bạn à,không cần ẩn hiện,bạn có thể sửa lại để thành chọn thôi được không bạn

Xem code bài số 3 nhé.

 

[vudinhhuy.1988]

Tra từ điển chọn chắc là Select đó mà

Xem code bài số 3 nhé.

Bạn ơi,code bài số 3 là ở đâu thế,chỉ cho mình với được không

 

[Quang_Hải]

Bạn ơi,code bài số 3 là ở đâu thế,chỉ cho mình với được không

Số 3 thì ở chỗ số 3. Bài này là bài số 9. Trừ dần dần lại nha. 9,8,7,6,5,4,3 ah đây rồi