Click chuột đễ gán ký tự vào cell ?

[anhtuan1066]

Tôi có vấn đề muốn hỏi mà ko biết phải diển giãi ra sao? Các bạn tải file về và xem tôi trình bày yêu cầu trong đó nha!
Các bạn cũng có thể thay 4 nút có chử A, B, C, D thành cái gì tùy ý, miễn sao đạt dc mục đích là mỗi khi click chuột vào cell thì sẽ gắn ký tự mình cần vào cell ấy... Click lần nữa vào cell vừa dc gán ký tự thì sẽ xóa dữ liệu trong đó!
Mến
ANH TUẤN

 

[tedaynui]

Tạm thời Anh Tuấn thử code này xem
Ví dụ nút A

Sub A()
If ActiveCell.Value = "" Then ActiveCell.Value = "A" Else ActiveCell.Value = ""
End Sub

TDN

 

[anhtuan1066]

Gần gần đúng rồi đấy Phước à!... Nhưng khi nào tôi click chuột vào những cell trong vùng quy định thì mới dc gán ký tự... Bước bấm vào nút "A" chỉ là chuẩn bị thôi... cho Excel "nhớ" rằng đang có ký tự "A" trong ruột (giống như nhớ vào clicpboard vậy)... Rồi khi tôi click vào vùng từ B6 đến H17 thì mới dc gán ký tự "A" vào... Bạn hiểu ko?
ANH TUẤN

 

[OverAC]

Bác Tedaynui ơi,
anh Anhtuan1066 muốn làm mouse click mà nếu gán code đó vào thôi thì chưa ổn.
Xem thử cái file của em nhé.

 

[anhtuan1066]

Cái này của Bình càng gần đúng hơn.. chính ra thì cũng có thể sử dụng dc rồi... Nhưng bạn đễ ý nha... Phải như vầy nè mới đạt dc 100% yêu cầu: Click bất cứ cell nào đều đỗi trạng thái của cell đó (có, ko, có, ko...)
Còn ở đây phải click vào cell khác rồi quay lại cell cũ thì nó mới đỗi trạng thái... Bạn xem thử có sửa dc ko? (Ý tôi muốn nói là click cùng 1 cell liên tục thì file của bạn nó ko đỗi trạng thái..)
Mến
ANH TUẤN

 

[OverAC]

bác ơi,
Excel chỉ có event Worksheet_SelectionChange hoặc Worksheet_BeforeDoubleClick hoặc Worksheet_BeforeRightClick chứ không có event Worksheet_BeforeClick.
Do vậy chắc là để đáp ứng nhu cầu của bác phải thêm một đoạn để capture sự event Worksheet_BeforeRightClick cho việc này. Còn không thì em bó tay, nhờ các bác khác vậy

 

[anhtuan1066]

Khó vậy sao? Thế mà khi mình click vào radio thì nó chuyễn trạng thái, click lần nữa nó lại chuyễn trạng thái... Nó làm dc sao mình lại ko nhỉ? Tôi cứ tưởng cái này rất đơn giãn đối với các bạn, ko ngờ lại rắc rối... Nếu vậy thì ko dám làm phiền mọi người...
Dù sao cũng xin cám ơn... Nói chung file của Bình cũng xài dc..
ANH TUẤN

 

[voda]

Từ file OverAC, mình làm thêm, các bạn xem thế nào

 

[minhlev]

bác ơi,
Excel chỉ có event Worksheet_SelectionChange hoặc Worksheet_BeforeDoubleClick hoặc Worksheet_BeforeRightClick chứ không có event Worksheet_BeforeClick.
Do vậy chắc là để đáp ứng nhu cầu của bác phải thêm một đoạn để capture sự event Worksheet_BeforeRightClick cho việc này. Còn không thì em bó tay, nhờ các bác khác vậy

Vậy bác có thể làm cho sau khi click xong thì con trỏ nhảy sang ô khác luôn không (VD thêm code: sheet1.range("A1").activate vào trước dòng End if)

 

[tedaynui]

Gần gần đúng rồi đấy Phước à!... Nhưng khi nào tôi click chuột vào những cell trong vùng quy định thì mới dc gán ký tự... Bước bấm vào nút "A" chỉ là chuẩn bị thôi... cho Excel "nhớ" rằng đang có ký tự "A" trong ruột (giống như nhớ vào clicpboard vậy)... Rồi khi tôi click vào vùng từ B6 đến H17 thì mới dc gán ký tự "A" vào... Bạn hiểu ko?
ANH TUẤN

Chưa hiểu lắm nhưng Anh Tuấn thử file này xem có như ý không nhé

TDN

 

[tedaynui]

Vậy bác có thể làm cho sau khi click xong thì con trỏ nhảy sang ô khác luôn không (ô A1 chẳng hạn)

Hình như yêu cầu của Anh Tuấn không nhảy sang ô khác. Nếu đã đúng yêu cầu rồi thì việc nhảy ô rất dễ.
Mến!

 

[anhtuan1066]

Ha... ha... Chính xác như ý tôi... Đúng là nhân tài trên GPE này đông như kiến...
Cho tôi hỏi thêm: File này chỉ là ví dụ thôi, chắc chắn khi sử dụng ta ko gán mấy chử A, B, C, D này vào rồi, mà là những chử khác... vậy nếu tôi muốn thay đỗi thì phải làm sao? (thay chử A=T, B=U, C=V, D=W chẵng hạn) Bạn Voda hướng dẫn tôi cách thay đỗi này đi...
ANH TUẤN

 

[tsf]

Từ file OverAC, mình làm thêm, các bạn xem thế nào

Dạ, cái file chỉ đúng khi những ô trùng với nút chọn ở trên.
Ví dụ: khi chọn nút A, thì ta chỉ click vào những ô có chữ A thôi, còn những ô có chữ khác thì bị thay đổi theo chữ A (do ta đã chọn nút A) rồi. Như vậy thì dữ liệu có thể bị thay đổi lung tung hết. Bó

 

[anhtuan1066]

Ah, xin lỗi... tôi biết cách thay đỗi rồi... Hồi này nhìn hoài ko ra... Properties nhỉ?
Một lần nữa cám ơn bạn
ANH TUẤN

 

[anhtuan1066]

Thầy Phước nè... Nói chung cái tôi cần hoạt động giống y cái của Voda đấy... Bạn xem là hiểu ý tôi muốn gì liền mà..
Với Voda: Nó chỉ hoạt động nội trong vùng từ B6 đến H17, nếu ta muốn mở rộng phạm vi thì phải chỉnh ở đâu?
ANH TUẤN

 

[voda]

Bạn chỉnh ở câu này:

If Target.Column > 1 And Target.Column < 9 And Target.Row > 5 And Target.Row < 18 And Target.Count = 1 Then

 

[minhlev]

Vẫn file của OverAC tôi chỉ thêm 1 dòng sheet1.range("A1").activate vào trước dòng End if cuối cùng thôi.

 

[anhtuan1066]

Đễ tôi nói thêm ý tôi muốn làm gì với file này cho các bạn tiện theo dõi:
Giã sữ tôi làm 1 file chấm công, cột A là STT, cột B là HO VA TEN, dòng trên cùng là ngày trong tháng... Khúc giữa dùng đễ đánh dấu vào xem ngày đó ai nghĩ, ai đi làm... (ký tự đánh dấu do mình tự đặt ra)... Thế thì thay vì gõ bằng tay vào, ta dùng chuột click click có phải là sướng hơn ko... Chính vì lẽ đó mà phải thêm những yêu cầu sau đây:
1/- Phải có cách đễ thêm mấy nút chọn (chẳng hạn hôm trước 4 nút, giờ tôi muốn thêm thành 5 nút)
2/- Phải có cách đễ mở rộng phạm vi của Mouse click (vì hôm nay dử liệu khác hôm qua)
Mong dc chỉ giáo thêm!
ANH TUẤN

 

[anhtuan1066]

Cách của minhlev cũng đúng luôn...
Cám ơn sự giúp đở của Voda, Tedaynui và minhlev...
Nhân đây tôi mạn phép xin đề nghị thế này: Mai mốt có ai post file lên diển đàn, các bạn tải về làm giúp cho người ta, khi làm xong các bạn nên đặt 1 ký hiệu nào đó cho dễ phân biệt... Chẳng hạn thầy Phước làm file của tôi xong, trước khi post lên thì rename thành Mouse_click_tedaynui, file của voda thì có tên Mouse_Click_voda.. van.. van... Tránh trường hợp tải về 2 file trùng tên, lớ ngớ nó đè luôn vào file củ
BQT có ý kiến gì ko?
ANH TUẤN