Xin hỏi về Range(">31 Cells").select (1 người xem)

[cartoon18]

Em có làm 1 Form dùng để Select các Cell theo gợi ý cho trước như sau:
- gõ ký tự mình muốn select vào textbox sau đó duyệt qua vùng chọn sẵn, nếu trùng với ký tự mẫu thì lưu lại dưới dạng String VD: String = "A1,B2,D3" , sau đó sử dụng range(string).select để chọn.
- tuy nhiên khi số Cell chọn >31 thì lại bị báo lỗi 1004 T.T, các bác có thể giúp em khắc phục lỗi này được không ạ. .
- nếu không có cách khắc phục thì nào biết cách khác để giải quyết vấn đề của em mong các bác tư vấn giúp em luôn ah , em chân thành cám ơn

 

[ndu96081631]

Em có làm 1 Form dùng để Select các Cell theo gợi ý cho trước như sau:
- gõ ký tự mình muốn select vào textbox sau đó duyệt qua vùng chọn sẵn, nếu trùng với ký tự mẫu thì lưu lại dưới dạng String VD: String = "A1,B2,D3" , sau đó sử dụng range(string).select để chọn.
- tuy nhiên khi số Cell chọn >31 thì lại bị báo lỗi 1004 T.T, các bác có thể giúp em khắc phục lỗi này được không ạ. .
- nếu không có cách khắc phục thì nào biết cách khác để giải quyết vấn đề của em mong các bác tư vấn giúp em luôn ah , em chân thành cám ơn

Muốn làm gì thì làm luôn đi, tại sao phải Select cho nó rối?

 

[cartoon18]

Muốn làm gì thì làm luôn đi, tại sao phải Select cho nó rối?

- Em muốn Select vì nhu cầu công việc thực tế, ở cơ quan em phụ trách làm báo cáo mà mỗi lần yêu cầu một khách nhau vd: chỉ cần tô màu chữ hoặc bold thông tin liên quan sau đó gửi file gốc về trụ sở +_+ mà sử dụng Formattting để tô màu thì không ổn hoặc chọn những hàng hoá cùng loại có mã hàng *VNXK*... nếu mỗi lần hội sở đưa dữ liệu về mà e lại phải viết code xử lý thì mệt lắm, nên em muốn tạo ra 1 add-in để hỗ trợ select cho nó thuận tiên thôi ạ.

 

[langtuchungtinh360]

- Em muốn Select vì nhu cầu công việc thực tế, ở cơ quan em phụ trách làm báo cáo mà mỗi lần yêu cầu một khách nhau vd: chỉ cần tô màu chữ hoặc bold thông tin liên quan sau đó gửi file gốc về trụ sở +_+ mà sử dụng Formattting để tô màu thì không ổn hoặc chọn những hàng hoá cùng loại có mã hàng *VNXK*... nếu mỗi lần hội sở đưa dữ liệu về mà e lại phải viết code xử lý thì mệt lắm, nên em muốn tạo ra 1 add-in để hỗ trợ select cho nó thuận tiên thôi ạ.

Chọn thuộc tính Showmodal = false
rồi chọn vùng xử lý
bạn chạy thử code này xem
cái này tô đậm nha. bạn muốn làm gì thì sửa lại

Private Sub CommandButton1_Click()
                For Each Cls In Selection
                If Not IsError(Cls) Then
                    If UCase(Cls) Like UCase(TextBox1.Text) Then Range(Cls.Address(0, 0)).Font.Bold = True Else Range(Cls.Address(0, 0)).Font.Bold = False
                End If
                Next Cls
End Sub