Click vào ô tự động xuất hiện giá trị mặc định ban đầu!

[Sơn Mã]

GPE có cách cách nào khi mình click chuột vào 1 ô của 1 vùng ô nào đó thì tự động xuất hiện giá trị do mình đặt ban đầu.
Ví dụ: khi mình click chuột vào ô F6 thì tự động hiện ra giá trị mình mặc định ban đầu - ví dụ là số 1 chẳng hạn.
- Xin cảm ơn!

 

[haonlh]

Dùng sự kiện Worksheet_SelectionChange

Xem file đính kèm. Chỉ có tác dụng trên sheet1. Nếu chọn cả vùng cũng điền số 1. Nên coi đây là công việc thí nghiệm.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = 1
End Sub

 

[Sơn Mã]

Dùng sự kiện Worksheet_SelectionChange

Xem file đính kèm. Chỉ có tác dụng trên sheet1. Nếu chọn cả vùng cũng điền số 1. Nên coi đây là công việc thí nghiệm.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = 1
End Sub

- Nếu muốn áp dụng cho 2 vùng trong 1 sheet thì làm thế nào ạ? Ví dụ: vùng A2:B10 khi click vào ô vùng đó thì xuất hiện số 1, còn vùng D3:E10 khi click thì xuất hiện số 2? Còn khi click vào ô ngoài 2 vùng trên thì không xuất hiện gì cả. Mong bạn chỉ giúp! Xin cảm ơn bạn nhiều!

 

[Hai Lúa Miền Tây]

- Nếu muốn áp dụng cho 2 vùng trong 1 sheet thì làm thế nào ạ? Ví dụ: vùng A2:B10 khi click vào ô vùng đó thì xuất hiện số 1, còn vùng D3:E10 khi click thì xuất hiện số 2? Còn khi click vào ô ngoài 2 vùng trên thì không xuất hiện gì cả. Mong bạn chỉ giúp! Xin cảm ơn bạn nhiều!

Bạn thử code sau nhé:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("A2:B10")) Is Nothing Then
            Target.Value = 1
        ElseIf Not Intersect(Target, Range("D3:E10")) Is Nothing Then
            Target.Value = 2
        End If
    End If
    
End Sub

 

[Ba Tê]

- Nếu muốn áp dụng cho 2 vùng trong 1 sheet thì làm thế nào ạ? Ví dụ: vùng A2:B10 khi click vào ô vùng đó thì xuất hiện số 1, còn vùng D3:E10 khi click thì xuất hiện số 2? Còn khi click vào ô ngoài 2 vùng trên thì không xuất hiện gì cả. Mong bạn chỉ giúp! Xin cảm ơn bạn nhiều!

Bạn chép cái này vào khung VBA của sheet1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:B10")) Is Nothing Then Target.Value = 1
    If Not Intersect(Target, Range("D3:E10")) Is Nothing Then Target.Value = 2
End Sub

 

[Hai Lúa Miền Tây]

Bạn chép cái này vào khung VBA của sheet1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:B10")) Is Nothing Then Target.Value = 1
    If Not Intersect(Target, Range("D3:E10")) Is Nothing Then Target.Value = 2
End Sub

Đảm bảo sẽ bị lỗi ở code trên. hihi...

 

[Ba Tê]

Đảm bảo sẽ bị lỗi ở code trên. hihi...

Yêu cầu click vào ô ..., quét chọn "bậy bạ" không phải ô (cell) mà cả 1 vùng (Rang) thì "gáng chịu" thôi.
Hu hu!!!!!!!!!!!!!!!!!!

-........Ví dụ: vùng A2:B10 khi click vào ô vùng đó thì xuất hiện số 1, còn vùng D3:E10 khi click thì xuất hiện số 2? Còn khi click vào ô ngoài 2 vùng trên thì không xuất hiện gì cả.................

 

[Hai Lúa Miền Tây]

Yêu cầu click vào ô ..., quét chọn "bậy bạ" không phải ô (cell) mà cả 1 vùng (Rang) thì "gáng chịu" thôi.
Hu hu!!!!!!!!!!!!!!!!!!

haha, như thế thì kệ khả năng lỗi tiềm ẩn trong quá trình sử dung không cần phải quan tâm đến?
2 dòng điều kiện của anh là 2 dòng tách bạch, do vậy nó lúc nào cũng phải xét và chạy cả 2 dòng code đó.

 

[Ba Tê]

haha, như thế thì kệ khả năng lỗi tiềm ẩn trong quá trình sử dung không cần phải quan tâm đến?
2 dòng điều kiện của anh là 2 dòng tách bạch, do vậy nó lúc nào cũng phải xét và chạy cả 2 dòng code đó.

Đang xem bài #3, viết bài trả lời, bấm gởi bài, xem lại "tự nhiên" xuất hiện bài #4, thấy bài #5 của mình "lãng lãng" nhưng nếu sửa lại thì "y chang" bài #4 sao.
Kệ luôn! Khà khà ...

 

[VetMini]

Phải nình nhận là chủ thớt có mấy bài, bài nào cũng yêu cầu lạ lùng.
Cứ click vào ô thì ra số 1, 2. Lỡ click nhầm vài cái, mất một đống dữ liệu!

 

[haonlh]

Bạn chép cái này vào khung VBA của sheet1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:B10")) Is Nothing Then Target.Value = 1
    If Not Intersect(Target, Range("D3:E10")) Is Nothing Then Target.Value = 2
End Sub

Nên là:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:B10")) Is Nothing Then Intersect(Target, Range("A2:B10")).Value = 1
If Not Intersect(Target, Range("D3:E10")) Is Nothing Then Intersect(Target, Range("D3:E10")).Value = 2
End Sub

thì anh Hai cũng vui vẻ

 

[Hai Lúa Miền Tây]

Nên là:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:B10")) Is Nothing Then Intersect(Target, Range("A2:B10")).Value = 1
If Not Intersect(Target, Range("D3:E10")) Is Nothing Then Intersect(Target, Range("D3:E10")).Value = 2
End Sub

thì anh Hai cũng vui vẻ

Bạn hãy dung chuột quét chọn khối trong 2 vùng trên thử nhé.

 

[be_09]

Chẳng hiểu chủ Topic muốn làm cái gì với 17 cột, nhưng với yêu cầu như bài 1 tôi thấy chẳng áp dụng vào thực tế được.

Theo tôi thì có 1 sheet chứa dữ liệu, ví dụ như từng loại tên hàng hóa, mã hàng hóa, nước sản xuất, tên nhà cung cấp, đơn vị tính, đơn giá ..v..v.....

Dựa vào sheet chứa dữ liệu để chọn hàng loạt loại hàng hóa hay mã hàng hóa để hập liệu cho nhanh chắc có lẽ sẽ hợp lý hơn.

 

[doveandrose]

Chẳng hiểu chủ Topic muốn làm cái gì với 17 cột, nhưng với yêu cầu như bài 1 tôi thấy chẳng áp dụng vào thực tế được.

Theo tôi thì có 1 sheet chứa dữ liệu, ví dụ như từng loại tên hàng hóa, mã hàng hóa, nước sản xuất, tên nhà cung cấp, đơn vị tính, đơn giá ..v..v.....

Dựa vào sheet chứa dữ liệu để chọn hàng loạt loại hàng hóa hay mã hàng hóa để hập liệu cho nhanh chắc có lẽ sẽ hợp lý hơn.

dạ file đó không phải dùng vào việc nhập sổ hàng hóa bình thường đâu chú , mà file đó dùng vào việc thống kê lô đề cờ bạc ạ .

 

[be_09]

dạ file đó không phải dùng vào việc nhập sổ hàng hóa bình thường đâu chú , mà file đó dùng vào việc thống kê lô đề cờ bạc ạ .

Tại không thấy dữ liệu nên đoán mò, nếu liên quan đế việc thống kê lô đề cờ bạc thì tôi chẳng tham gia, nếu có mếch lòng ai đó thì cũng ráng chịu.

 

[ndu96081631]

Tại không thấy dữ liệu nên đoán mò, nếu liên quan đế việc thống kê lô đề cờ bạc thì tôi chẳng tham gia, nếu có mếch lòng ai đó thì cũng ráng chịu.

Kệ người ta anh ơi! Mai uống cafe sáng đi rồi mình bàn tiếp hen (mai em nghỉ)

 

[be_09]

Kệ người ta anh ơi! Mai uống cafe sáng đi rồi mình bàn tiếp hen (mai em nghỉ)

Nhất trí con gà đen (không dám OK vì sợ vi phạm nội quy), tạm dịch theo kiểu dân gian: Kê là gà, Ô là đen.

 

[VetMini]

Nhất trí con gà đen (không dám OK vì sợ vi phạm nội quy), tạm dịch theo kiểu dân gian: Kê là gà, Ô là đen.

Tôi thì nào giờ cứ hiểu nôm na nó là "gác cái dù"