Em cần làm mờ nội dung chữ ở ô B4 để gõ từ khóa tìm kiếm trong đó (Yêu cầu ở trong File kèm theo). Khi con trỏ đưa vào ô B4 thì nội dung đó không còn và để cho ta nhập từ khóa tìm kiếm. Ai biết chỉ giúp em cách thực hiện nhé. Em xin cảm ơn nhiều.
Em cần làm mờ nội dung chữ ở ô B4 để gõ từ khóa tìm kiếm trong đó (Yêu cầu ở trong File kèm theo). Khi con trỏ đưa vào ô B4 thì nội dung đó không còn và để cho ta nhập từ khóa tìm kiếm. Ai biết chỉ giúp em cách thực hiện nhé. Em xin cảm ơn nhiều.
Để làm được điều này bạn cần tìm hiểu "Các sự kiện của Worksheet"
Tôi hướng dẫn bạn làm mong là bạn có thể hiểu.
- Bước 1: Nhập chuỗi "Nhập nội dung tìm kiếm vào đây" vào ô A1
- Bước 2: Đặt code lệnh sau vào cửa sổ Code của sheet 1
Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Neu Cell hien thoi la B4 và B4 ="" thì B4=A1 If Target.Address <> "$B&4" And [B4] = "" Then
[B4] = [A1]
End If
End Sub
Vấn đề chữ mờ thì bạn Record Macro tô màu chữ cho B4 là có kết quả ngay
Về cơ bản thì nhu cầu của em như anh hướng dẫn là đáp ứng rồi. Tuy nhiên ý câu hỏi của em ở đây hơi khác một chút. Em đã test code của anh ok. Nhưng khi đưa con trỏ vào ô B4 thì nó vẫn còn chữ "Nhập nội dung tìm kiếm vào đây". Ý của em là bình thường B4 luôn hiện chữ "Nhập nội dung tìm kiếm vào đây". Nhưng khi đưa con trỏ vào B4 thì nội dung đó không còn. Và ta chỉ việc gõ từ khóa vào. Còn ở đây thì khi muốn gõ từ khóa ta vẫn phải xóa chữ "Nhập nội dung tìm kiếm vào đây" để gõ từ khóa. Bác hiểu ý em chứ ạ. Nó giống như nơi nhập từ khóa tìm kiếm của 1 số trang web ấy.
Về cơ bản thì nhu cầu của em như anh hướng dẫn là đáp ứng rồi. Tuy nhiên ý câu hỏi của em ở đây hơi khác một chút. Em đã test code của anh ok. Nhưng khi đưa con trỏ vào ô B4 thì nó vẫn còn chữ "Nhập nội dung tìm kiếm vào đây". Ý của em là bình thường B4 luôn hiện chữ "Nhập nội dung tìm kiếm vào đây". Nhưng khi đưa con trỏ vào B4 thì nội dung đó không còn. Và ta chỉ việc gõ từ khóa vào. Còn ở đây thì khi muốn gõ từ khóa ta vẫn phải xóa chữ "Nhập nội dung tìm kiếm vào đây" để gõ từ khóa. Bác hiểu ý em chứ ạ. Nó giống như nơi nhập từ khóa tìm kiếm của 1 số trang web ấy.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B&4" Then
[B4] = ""
Else
[B4] = [A1]
End If
End Sub
Bạn hãy dùng hàm If đúng như lời văn của mình
Mã:
Nếu Cell hiện thời là B4 thì
B4 = ""
Nếu không
B4 = A1
Hết nếu
Còn việc biến đổi sao cho phù hợp thì là việc khéo léo của bạn. Tôi chỉ chú ý một điểm là viết Code cũng tương tự như lời văn và suy nghĩ, lời văn như thế nào thì Code bạn cứ bám theo đó mà viết.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B&4" Then
[B4] = ""
Else
[B4] = [A1]
End If
End Sub
Bạn hãy dùng hàm If đúng như lời văn của mình
Mã:
Nếu Cell hiện thời là B4 thì
B4 = ""
Nếu không
B4 = A1
Hết nếu
Còn việc biến đổi sao cho phù hợp thì là việc khéo léo của bạn. Tôi chỉ chú ý một điểm là viết Code cũng tương tự như lời văn và suy nghĩ, lời văn như thế nào thì Code bạn cứ bám theo đó mà viết.
Về ý của anh em hiểu rồi. Nhưng test code trên sao không được anh nhỉ. Hay là em bị lỗi chỗ nào. Con trỏ đặt vào ô B4 nó vẫn còn nội dung "Nhập nội dung tìm kiếm vào đây". Em không biết gửi lại file chỗ nào. Bác test thử giúp em xem được không.
Về ý của anh em hiểu rồi. Nhưng test code trên sao không được anh nhỉ. Hay là em bị lỗi chỗ nào. Con trỏ đặt vào ô B4 nó vẫn còn nội dung "Nhập nội dung tìm kiếm vào đây". Em không biết gửi lại file chỗ nào. Bác test thử giúp em xem được không.
Bạn phải đưa con trỏ vào ô đó tức là ô đó active hiện hành mới mất chữ được còn rà rà ở ngoài kể như là botay.com chỉ dùng hàm API thì có thể được. Chắc ý bạn là thể đúng không?
Về ý của anh em hiểu rồi. Nhưng test code trên sao không được anh nhỉ. Hay là em bị lỗi chỗ nào. Con trỏ đặt vào ô B4 nó vẫn còn nội dung "Nhập nội dung tìm kiếm vào đây". Em không biết gửi lại file chỗ nào. Bác test thử giúp em xem được không.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B[B][COLOR=#ff0000]$[/COLOR][/B]4" Then
[B4] = ""
Else
[B4] = [A1]
End If
End Sub
Đúng ý em rồi, cảm ơn bác. Một số cái khác em tự làm được. Tiện đây bác cho em hỏi sao cả 2 trường hợp: $B&4 và $B$4 trong mỗi trường hợp lại đúng được. Ban đầu mình dùng là $B&4, sau đó thì lại phải dùng $B$4. Bác giải thích giúp em với.
Đúng ý em rồi, cảm ơn bác. Một số cái khác em tự làm được. Tiện đây bác cho em hỏi sao cả 2 trường hợp: $B&4 và $B$4 trong mỗi trường hợp lại đúng được. Ban đầu mình dùng là $B&4, sau đó thì lại phải dùng $B$4. Bác giải thích giúp em với.
