Note: The other languages of the website are Google-translated. Back to English
Đăng nhập Đăng ký

Làm cách nào để đếm tổng số lần nhấp chuột trong một ô được chỉ định trong Excel?

Bài viết này đang nói về việc đếm tổng số lần nhấp chuột trong một ô được chỉ định trong Excel.

Đếm tổng số lần nhấp trong một ô được chỉ định bằng mã VBA

Đếm tổng số lần nhấp trong một ô được chỉ định bằng mã VBA

Vui lòng thực hiện như sau để đếm tổng số nhấp chuột trong một ô được chỉ định trong Excel.

1. Trong trang tính chứa ô bạn cần đếm tổng số lần nhấp của nó, bấm chuột phải vào tab trang tính, sau đó bấm Mã Chế độ xem từ trình đơn ngữ cảnh.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán mã VBA bên dưới vào cửa sổ Mã.

Mã VBA: Đếm tổng số lần nhấp trong một ô được chỉ định trong Excel

Public xRgS, xRgD As Range
Public xNum As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    Set xRgS = Range("E2")
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Range("H2")
    If xRgD Is Nothing Then Exit Sub
    If Intersect(xRgS, Target) Is Nothing Then Exit Sub
    xNum = xNum + 1
    xRgD.Value = xNum
End Sub

Chú thích: Trong mã, E2 là ô bạn cần đếm tổng số lần nhấp của nó và H2 là ô đầu ra của phép đếm. Vui lòng thay đổi chúng khi bạn cần.

3. Nhấn nút Khác + Q chìa khóa để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

Từ bây giờ, khi nhấp vào ô E2 trong trang tính được chỉ định này, tổng số lần nhấp sẽ được tự động điền vào ô H2 như hình minh họa bên dưới. Ví dụ: nếu bạn nhấp vào ô E2 5 lần, số 5 sẽ được hiển thị trong ô H2.

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (29)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Dennis
Dennis
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào bạn có thể "thiết lập lại" bộ đếm?
đáp lại
0
0
pha lê
pha lê     Dennis
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Dennis thân mến,
Vui lòng thêm mã VBA bên dưới vào cuối mã gốc. Mỗi khi bạn chạy mã này, số đếm sẽ được đặt lại về 0. Cảm ơn bạn đã bình luận.

Sub ClearCount ()
xRgD.Value = ""
xNum = 0
End Sub
đáp lại
Report
0
0
Bev Wilson
Bev Wilson     pha lê
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Pha lê,

Bạn có thể cung cấp mã VBA đầy đủ - cho việc này không? tôi cũng làm cách nào để áp dụng nó cho một hàng - mỗi hàng cần bộ đếm riêng?
đáp lại
Report
0
0
pha lê
pha lê     Bev Wilson
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Mã VBA đầy đủ như sau. Nếu bạn muốn đặt lại bộ đếm, vui lòng chạy mã VBA thứ hai. Vì áp dụng mã cho một hàng, xin lỗi chưa thể giúp bạn.

'VBA đầu tiên
Công khai xRgS, xRgD As Range
Công xNum As Long
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count> 1 Then Exit Sub
Đặt xRgS = Range ("E2")
Nếu xRgS không có gì thì thoát Sub
Đặt xRgD = Range ("H2")
Nếu xRgD không có gì thì thoát Sub
Nếu Intersect (xRgS, Target) không có gì thì thoát Sub
xNum = xNum + 1
xRgD.Value = xNum
End Sub
'VBA thứ hai
Sub ClearCount ()
xRgD.Value = ""
xNum = 0
End Sub
đáp lại
Report
0
0
Guido
Guido
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn vì mã, rất hữu ích.
Tôi không phải là một lập trình viên và tôi muốn biết cách mở rộng quy trình này đến từng dòng. Có nghĩa là, không chỉ E2> H2 mà còn E3> H3, E4> H4, v.v.
Có một mã cho điều này?


Cảm ơn bạn trước!
đáp lại
0
0
pha lê
pha lê     Guido
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Guido,

Mã VBA dưới đây có thể giúp bạn giải quyết vấn đề. Xin vui lòng có một thử. Cám ơn bạn đã góp ý.
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRgArray làm biến thể
Dim xNum
Làm mờ xStrR, xStrS, xStrD dưới dạng chuỗi
Làm mờ xRgS, xRgD Như Phạm vi

Dim xFNum càng lâu càng tốt
xRgArray = Mảng ("E2, H2", "E3, H3", "E4, H4", "E5, H5", "E6, H6")
On Error Resume Next
If Target.Cells.count> 1 Then Exit Sub
Đối với xFNum = LBound (xRgArray) Đến UBound (xRgArray)
xStrR = xRgArray (xFNum)
xStrS = ""
xStrS = Left (xStrR, 2)
xStrD = ""
xStrD = Đúng (xStrR, 2)
Đặt xRgS = Không có gì
Đặt xRgS = Range (xStrS)
Nếu TypeName (xRgS) <> "Không có gì" thì
Đặt xRgD = Không có gì
Đặt xRgD = Range (xStrD)
Nếu TypeName (xRgD) <> "Không có gì" thì
Nếu TypeName (Intersect (xRgS, Target)) <> "Không có gì" thì
xRgD.Value = xRgD.Value + 1
Cuối Nếu
Cuối Nếu
Cuối Nếu
Sau
End Sub
đáp lại
Report
0
0
Lòng trắc ẩn
Lòng trắc ẩn     pha lê
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cám ơn vì cái này. Tôi đã thử và nó hoạt động, tuy nhiên nó chỉ hoạt động cho đến một số ô nhất định, làm thế nào chúng ta có thể mở rộng mã này cho đến cuối các ô? Ví dụ: tôi nhập mã này bên dưới và nó chỉ hoạt động cho đến "G9, G9". Thanks


Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRgArray làm biến thể
Dim xNum
Làm mờ xStrR, xStrS, xStrD dưới dạng chuỗi
Làm mờ xRgS, xRgD Như Phạm vi

Dim xFNum càng lâu càng tốt
xRgArray = Mảng ("C4, C4", "D4, D4", "E4, E4", "F4, F4", "G4, G4", "C6, C6", "D6, D6", "E6, E6 "," F6, F6 "," G6, G6 "," C7, C7 "," D7, D7 "," E7, E7 "," F7, F7 "," G7, G7 "," C8, C8 ", "D8, D8", "E8, E8", "F8, F8", "G8, G8", "C9, C9", "D9, D9", "E9, E9", "F9, F9", "G9 , G9 "," C10, C10 "," D10, D10 "," E10, E10 "," F10, F10 "," G10, G10 "," C11, C11 "," D11, D11 "," E11, E11 "," F11, F11 "," G11, G11 "," C14, C14 "," D14, D14 "," E14, E14 "," F14, F14 "," G14, G14 "," C15, C15 ", "D15, D15", "E15, E15", "F15, F15", "G15, G15", "C16, C16", "D16, D16", "E16, E16", "F16, F16", "G16 , G16 "," C17, C17 "," D17, D17 "," E17, E17 "," F17, F17 "," G17, G17 "," C18, C18 "," D18, D18 "," E18, E18 "," F18, F18 "," G18, G18 "," C20, C20 "," D20, D20 "," E20, E20 "," F20, F20 "," G20, G20 ")
On Error Resume Next
If Target.Cells.count> 1 Then Exit Sub
Đối với xFNum = LBound (xRgArray) Đến UBound (xRgArray)
xStrR = xRgArray (xFNum)
xStrS = ""
xStrS = Left (xStrR, 2)
xStrD = ""
xStrD = Đúng (xStrR, 2)
Đặt xRgS = Không có gì
Đặt xRgS = Range (xStrS)
Nếu TypeName (xRgS) <> "Không có gì" thì
Đặt xRgD = Không có gì
Đặt xRgD = Range (xStrD)
Nếu TypeName (xRgD) <> "Không có gì" thì
Nếu TypeName (Intersect (xRgS, Target)) <> "Không có gì" thì
xRgD.Value = xRgD.Value + 1
Cuối Nếu
Cuối Nếu
Cuối Nếu
Sau
End Sub
đáp lại
0
0
pha lê
pha lê     Lòng trắc ẩn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Ruth
Mã khó được tối ưu hóa để đáp ứng nhu cầu của bạn. Xin lỗi vì điều đó.
đáp lại
Report
0
0
dan
dan     pha lê
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
mã không đọc số ô hai chữ số tức là C10 tại sao điều này làm ơn
đáp lại
0
0
JT
JT     pha lê
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Crystal. Tôi đã thử công thức này, nhưng nó chỉ báo cáo đến hàng 9. Tôi sẽ không tính hàng 10 trở lên. Ví dụ: tôi đã điều chỉnh công thức trên để đếm các nhấp chuột riêng lẻ trong A4, để báo cáo cho E5; A5 để báo cáo với E5; A6 để báo cáo cho E6, v.v. Tổng phạm vi là A4 đến A17, tổng số báo cáo là E4 đến E17. Bạn có thể hỗ trợ? Đây là mã đã sửa đổi mà tôi đã sử dụng.



Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRgArray làm biến thể
Dim xNum
Làm mờ xStrR, xStrS, xStrD dưới dạng chuỗi
Làm mờ xRgS, xRgD Như Phạm vi

Dim xFNum càng lâu càng tốt
xRgArray = Array ("A4, E4", "A5, E5", "A6, E6", "A7, E7", "A8, E8", "A9, E9", "A10, E10", "A11, E11 "," A12, E12 "," A13, E13 "," A14, E14 "," A15, E15 "," A16, E16 "," A17, E17 ")
On Error Resume Next
If Target.Cells.Count> 1 Then Exit Sub
Đối với xFNum = LBound (xRgArray) Đến UBound (xRgArray)
xStrR = xRgArray (xFNum)
xStrS = ""
xStrS = Left (xStrR, 2)
xStrD = ""
xStrD = Đúng (xStrR, 2)
Đặt xRgS = Không có gì
Đặt xRgS = Range (xStrS)
Nếu TypeName (xRgS) <> "Không có gì" thì
Đặt xRgD = Không có gì
Đặt xRgD = Range (xStrD)
Nếu TypeName (xRgD) <> "Không có gì" thì
Nếu TypeName (Intersect (xRgS, Target)) <> "Không có gì" thì
xRgD.Value = xRgD.Value + 1
Cuối Nếu
Cuối Nếu
Cuối Nếu
Sau
End Sub
đáp lại
0
0
pha lê
pha lê     JT
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào JT,
Cảm ơn phản hôi của bạn. Có điều gì đó sai trong mã gốc. Bạn có thể thử mã mới sau đây.
Số 4 trong lời nói dối này: Đặt xRight = Target.Offset (0, 4) có nghĩa là 4 cột được bù vào bên phải của tham chiếu bắt đầu (tham chiếu bắt đầu là A4: A17). Sau khi bù trừ 4 cột sang bên phải, kết quả sẽ được xuất ra trong E4: E17.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20221010
    Dim xRight As Range

    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("A4:A17")) Is Nothing Then Exit Sub
    Set xRight = Target.Offset(0, 4)
    If TypeName(xRight.Value) = "Double" Then
        xRight.Value = xRight.Value + 1
    ElseIf TypeName(xRight.Value) = "Empty" Then
        xRight.Value = 1
    End If

End Sub
đáp lại
Report
0
0
Demetrius
Demetrius
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, có một cách để quay lại số đếm cho bất kỳ số nào mà tôi muốn? Ví dụ: Tôi đã thực hiện 5 lần nhấp, nhưng tôi chỉ muốn 3. Vì vậy, tôi thay đổi số trong ô thành 3 và khi tôi nhấp lại, nó tiếp tục từ 3.
Cảm ơn vì mã!
đáp lại
0
0
pha lê
pha lê     Demetrius
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Xin lỗi không thể giúp bạn việc này, hoan nghênh bạn đăng bất kỳ câu hỏi nào về Excel lên diễn đàn của chúng tôi: https://www.extendoffice.com/forum.html. Bạn sẽ nhận được nhiều hỗ trợ Excel hơn từ chuyên gia của chúng tôi hoặc những người hâm mộ Excel khác.
đáp lại
Report
0
0
Andrew
Andrew
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào
Hay alguna manra de programar el conteo de click de acuerdo a la fecha, es decir programar varias celdas para que cuenten con la fecha del día?
đáp lại
0
0
Barbara
Barbara
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể cung cấp mã cho phép đếm số lần nhấp chuột từ ô A2, B2 đến ô A14, B14 không. Cảm ơn trước.
đáp lại
0
0
pha lê
pha lê     Barbara
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi Barbara,
Ý của bạn là đếm tổng số lần nhấp trong phạm vi A2: B14? Hoặc nhấp chuột cho từng ô trong phạm vi A2: B14?
đáp lại
Report
0
0
Rennan Farias
Rennan Farias
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Como zerar một contagem? Làm thế nào để thiết lập lại điểm số?
đáp lại
0
0
pha lê
pha lê     Rennan Farias
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Nếu bạn muốn đặt lại bộ đếm, vui lòng thêm mã VBA bên dưới vào cuối mã gốc đã được cung cấp ở trên, rồi chạy nó.

Sub ClearCount ()
xRgD.Value = ""
xNum = 0
End Sub
đáp lại
Report
0
0
Yoni Weis324
Yoni Weis324
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đang cố gắng tìm cách đếm số lần 20 ô khác nhau đang được nhấp (mỗi ô nên được đếm riêng). Tôi đã xem qua đề xuất mã VBA của bạn, đã cố gắng điều chỉnh nó cho phù hợp với nhu cầu cụ thể của tôi nhưng nó sẽ không hoạt động. bạn có thể vui lòng tư vấn làm thế nào mã nên được viết? các ô mà tôi muốn đếm và các ô mà giá trị sẽ xuất hiện là: F12> AU12, F13> AU13, G12> AV12, G13> AV13, H10> AW10, H11> AW11, H12> AW12, H13> AW13 , H14> AW14, H15> AW15, I10> AX10, I11> AX11, I12> AX12, I13> AX13, I14> AX14, I15> AX15, J12> AY12, J13> AY13, K12> AZ12, K13> AZ13).
Đây là mã VBA mà tôi đã thử nhưng không thành công:

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRgArray làm biến thể
Dim xNum
Làm mờ xStrR, xStrS, xStrD dưới dạng chuỗi
Làm mờ xRgS, xRgD Như Phạm vi

Dim xFNum càng lâu càng tốt
xRgArray = Mảng ("F12, AU12", "F13, AU13", "G12, AV12", "G13, AV13", "H10, AW10", "H11, AW11", "H12, AW12", "H13, AW13 "," H14, AW14 "," H15, AW15 "," I10, AX10 "," I11, AX11 "," I12, AX12 "," I13, AX13 "," I14, AX14 "," I15, AX15 ", "J12, AY12", "J13, AY13", "K12, AZ12", "K13, AZ13")
On Error Resume Next
If Target.Cells.Count> 1 Then Exit Sub
Đối với xFNum = LBound (xRgArray) Đến UBound (xRgArray)
xStrR = xRgArray (xFNum)
xStrS = ""
xStrS = Left (xStrR, 2)
xStrD = ""
xStrD = Đúng (xStrR, 2)
Đặt xRgS = Không có gì
Đặt xRgS = Range (xStrS)
Nếu TypeName (xRgS) <> "Không có gì" thì
Đặt xRgD = Không có gì
Đặt xRgD = Range (xStrD)
Nếu TypeName (xRgD) <> "Không có gì" thì
Nếu TypeName (Intersect (xRgS, Target)) <> "Không có gì" thì
xRgD.Value = xRgD.Value + 1
Cuối Nếu
Cuối Nếu
Cuối Nếu
Sau
End Sub

Cảm ơn rất nhiều về sự trợ giúp của bạn.
đáp lại
Report
0
0
pha lê
pha lê     Yoni Weis324
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Đoạn mã dưới đây có thể giúp ích cho bạn. Xin vui lòng có một thử. Cảm ơn bạn. Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Làm mờ xRgS, xRgD Như Phạm vi
Làm mờ xStrRg dưới dạng chuỗi
Dim xFNum dưới dạng số nguyên
Làm mờ xArr1, xArr2
If Target.Cells.Count> 1 Then Exit Sub
xStrRg = "F12-AU12; F13-AU13; G12-AV12; G13-AV13; H10-AW10; H11-AW11; H12-AW12; H13-AW13; H14-AW14; H15-AW15; I10-AX10; I11-AX11; I12-AX12; I13-AX13; I14-AX14; I15-AX15; J12-AY12; J13-AY13; K12-AZ12; K13-AZ13"
On Error Resume Next
xArr1 = Tách (xStrRg, ";")
Đối với xFNum = 0 Đến UBound (xArr1)
xArr2 = Tách (xArr1 (xFNum), "-")
Đặt xRgS = Range (xArr2 (0))
Đặt xRgD = Range (xArr2 (1))
Nếu không (Giao nhau (xRgS, Target) Không có gì) thì
xRgD.Value = xRgD.Value + 1
Cuối Nếu
Sau
End Sub
đáp lại
Report
0
0
Ken H
Ken H     pha lê
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đoạn mã đã sửa ở trên là rất tốt cho trang tính mà tôi đang làm việc, cảm ơn bạn. Nhưng tôi có một câu hỏi về việc thêm macro thời gian để hàng ngày (trừ cuối tuần), việc kiểm đếm chuyển sang hàng tiếp theo trong trang tính, ví dụ:
Hàng 3 - 7/1/2021 "B1-B3; C1-C3; D1-D3" Hàng 4 - 7/2/2021 "B1-B4; C1-C4; D1-D4" Hàng 5 - 7/3/2021 "B1-B5; C1-C5; D1-D5"
đáp lại
0
0
KếHGC
KếHGC     pha lê
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Crystal, Đoạn mã trên là tuyệt vời cho trang tính mà tôi đang làm việc, cảm ơn bạn. Nhưng tôi có một câu hỏi về việc thêm macro thời gian để hàng ngày (trừ cuối tuần), việc kiểm đếm chuyển sang hàng tiếp theo trong trang tính, ví dụ:

Hàng 3 - 7/1/2021 "B1-B3; C1-C3; D1-D3"
Hàng 4 - 7/2/2021 "B1-B4; C1-C4; D1-D4"
Hàng 5 - 7/3/2021 "B1-B5; C1-C5; D1-D5"

Nếu điều này là có thể? thx, Ken
đáp lại
Report
0
0
Andy
Andy
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, cảm ơn bạn vì những mã VBA này, chúng gần như làm việc cho nhu cầu của tôi. Tôi sợ thực tế là tôi cần phải vượt qua hai chữ số có nghĩa là nó sẽ không hoạt động. Tôi cần có từ C8 đến C110 và số đếm tương ứng là từ L8 đến L110. Bạn có thể giúp? Rất cám ơn trước.
đáp lại
0
0
pha lê
pha lê     Andy
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Andy, Mã VBA sau đây có thể giúp bạn một việc. Xin vui lòng có một thử. Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Làm mờ xRgS, xRgD Như Phạm vi
Làm mờ xStrRg dưới dạng chuỗi
Làm mờ xCStr, xVStr dưới dạng chuỗi
Dim xItem dưới dạng số nguyên
xCStr = "C8: C110"'Phạm vi ô bạn muốn ghi lại số lần nhấp của mỗi ô
xVStr = "L8: L110"'Phạm vi ô để đặt các bản ghi
Đặt xRgS = Range (xCStr)
Đặt xRgD = Range (xVStr)
Nếu không (Giao nhau (xRgS, Target) Không có gì) thì
xItem = Target.Row - xRgS.Item (1) .Row + 1
xRgD.Item (xItem) .Value = xRgD.Item (xItem) .Value + 1
Cuối Nếu
End Sub
đáp lại
Report
0
0
Sid
Sid
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để đếm ngược số lượng không? Ví dụ: Tôi đã thực hiện 5 lần nhấp, nhưng tôi chỉ muốn 3. Vì vậy, tôi thay đổi số trong ô thành 3 và khi tôi nhấp lại, nó tiếp tục từ 3. HOẶC có khả năng nhấn vào một ô khác và giảm số lượng bằng 1 nếu điều đó dễ dàng hơn.
đáp lại
0
0
TỪ LÒ
TỪ LÒ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào bạn,
j'aimerai bình luận je pourrais le nombre de steres sur les cellules D10 à M10 et le retranscrire à la ligne R10 et le faire pour toutes les lignes suivante donc compter les steres sur les cellules D11 à M11 et le transcrire à la ligne R11, v.v. ?

Thân chào
đáp lại
0
0
pha lê
pha lê     TỪ LÒ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào DUFOUR!
Để đếm số lần nhấp từ D10 đến M10 và xuất ra tổng số lần nhấp trong R10, bạn có thể áp dụng mã VBA sau để thực hiện.
Chú thích: Trong mã, phạm vi "D10: M30"có nghĩa là mã chỉ hoạt động từ hàng 10 đến hàng 30, vì vậy vui lòng chỉ định các hàng bạn muốn đếm.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20220609
    Dim xNum As Long
    Dim xRgCount, xRg As Range
    
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub

    Set xRg = Range("D10:M30")
    If Intersect(xRg, Target) Is Nothing Then Exit Sub
    Set xRgCount = Range("R" & Target.Row)
    
    If IsNumeric(xRgCount.Value) Then
        xNum = xRgCount.Value + 1
    Else
        xNum = 1
    End If
    xRgCount.Value = xNum
End Sub
đáp lại
Report
0
0
Jose Maria
Jose Maria
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hola. Muchas gracias bởi los códigos.
Me gustaría saber cómo contar las veces que se hace sáo sobre un enlace en una celda.
Cám ơn rất nhiều.
đáp lại
0
0
pha lê
pha lê     Jose Maria
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào jose maria,
Để đếm số lần nhấp vào siêu liên kết, bạn có thể thử mã VBA sau.
Giả sử các siêu liên kết nằm trong cột A và bạn muốn số lần nhấp chuột được điền vào ô tương ứng của cột B (như thể hiện trong ảnh chụp màn hình bên dưới)
Vui lòng đặt mã sau vào cửa sổ trang tính (mã).

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updated by Extendoffice 20220805
    Dim Hyperlink As Range
    Set Hyperlink = Target.Range

    Hyperlink.Offset(0, 1) = Hyperlink.Offset(0, 1) + 1
End Sub

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/clicks_on_a_hyperlink.png
đáp lại
Report
0
0
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Khách
Đăng với tư cách khách
Đăng nhập
×
Đánh giá bài viết này:
Xóa và làm lại
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL