[Hỏi] Lệnh nào trong khi Form show để chọn và thao tác trên một cell? (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Hoàng Trọng Nghĩa

Chuyên gia GPE
Thành viên BQT
Moderator
Tham gia
17/8/08
Bài viết
8,662
Được thích
16,720
Giới tính
Nam
Tôi có một UserForm (ShowModal=False) với một CommandButton, sự kiện của nút đó như sau:

Mã:
Private Sub CommandButton1_Click()
    ''Application.Goto Range("A1")
    Range("A1").Select
End Sub

Xin hỏi các Thầy, các bạn rằng có cách nào khi Form show và click vào nút lệnh thì không những ô A1 được chọn mà còn thao tác được trên ô đó trong khi Form vẫn show?
 

File đính kèm

Không, đã thử rồi, cái đó (bài #11) vẫn chạy tốt, còn không biết trường hợp nào bị lỗi như bạn vậy?

trên máy tôi
khi chỉ dùng Application nó tự động truyền có mỗi chuỗi là "Microsoft Excel" mà thôi
phải dùng AppActivate Application.Caption mới được
mình biết cái số mình không có duyên với code của thầy NDU mà ... hic
 
Upvote 0
vẫn chưa hết
Mã:
Private Sub CommandButton1_Click()
ThisWorkbook.VBProject.VBComponents("Sheet1").Activate
[A1].Select
End Sub
Chẳng ai làm cách này vì sẽ lỗi nếu:
- VBAProject bị khóa
- Không check 'Trust access...'
 
Lần chỉnh sửa cuối:
Upvote 0
trên máy tôi
khi chỉ dùng Application nó tự động truyền có mỗi chuỗi là "Microsoft Excel" mà thôi
phải dùng AppActivate Application.Caption mới được
mình biết cái số mình không có duyên với code của thầy NDU mà ... hic

Còn trên máy mình thì:
- .Nam
- .Caption
- Không chấm mút gì
Cũng CHƠI tuốt
Mình dễ tính lắm mà! Cứ CHƠI đại đi chứ sao đồng chí khó tính quá dzậy kìa
 
Upvote 0
Tôi xài chưa hề lỗi, nếu bạn đưa ra giải pháp khác thì hay hơn
Thật ra sẽ bị lỗi nếu Trust access to the VBA project object model chưa được check. Mặc định khi cài đặt máy nó không có check, trừ khi ta đã check vào.

Có một số chương trình chạy trên Excel nó dùng VBA để check sau khi chạy xong nó hủy check, vì thế, cách của bạn cũng dùng tốt, nhưng can thiệp vào VBA thì nên thận trọng thôi.

Đồng thời nếu VBA có sử dụng Password để mở cũng sẽ bị phát sinh lỗi.
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom