Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để bấm đúp vào một ô và thêm 1 vào giá trị ô đó trong Excel?

Bài viết này sẽ chỉ cho bạn phương pháp thêm 1 vào giá trị ô tự động bằng cách nhấp đúp vào nó trong Excel.

Nhấp đúp vào một ô và thêm 1 với mã VBA


Nhấp đúp vào một ô và thêm 1 với mã VBA


Mã VBA sau có thể giúp bạn thêm 1 vào giá trị ô sau khi nhấp đúp. Hãy làm như sau.

1. Nhấp chuột phải vào tab trang tính có giá trị ô bạn cần thêm 1 bằng cách nhấp đúp. Sau đó nhấp vào Mã Chế độ xem từ menu chuột phải.

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

Mã VBA: Thêm 1 vào giá trị ô bằng cách nhấp đúp

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
      Range("A1").Value = Range("A1").Value + 1
      Cancel = True
    End If
End Sub

Chú thích: Trong mã, A1 là ô bạn sẽ thêm số 1 vào bằng cách nhấp đúp.

3. Nhấn nút Khác + Q đồng thời để đóng cửa sổ Microsoft Visual Basic for Applications.

Bây giờ, nhấp đúp vào ô A1 sẽ thêm 1 vào giá trị hiện có như hình minh họa bên dưới.


Các bài liên quan:


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 ...
  • Super Formula Bar (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-2019 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 đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn 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 (16)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chúng ta có thể thêm một số có hai chữ số vào cuối ngày không? ví dụ: tôi cần nhấp đúp và thêm ngày hiện tại và hai chữ số tiếp theo (20171030-01 thì ô tiếp theo sẽ hiển thị 20171030-02 khi nhấp đúp)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Matt thân mến,
Mã chỉ hỗ trợ ô định dạng số. Nó có thể hoạt động vì dữ liệu của bạn 20171030-01 là một định dạng văn bản. Xin lỗi vì điều đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Matt thân mến,
Mã chỉ hỗ trợ ô định dạng số. Nó không thể hoạt động vì dữ liệu của bạn 20171030-01 là định dạng văn bản. Xin lỗi vì điều đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều đó thật tuyệt! Làm cách nào để thực hiện việc này cho nhiều ô? Tôi nhập "A1, A2" thay vì "A1", nó làm cho cả hai ô bằng nhau và thêm 1 vào cả hai ô đồng thời. Tôi muốn các tế bào hoạt động độc lập.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin lỗi, tôi không hiểu ý bạn.
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 - đồng ý với Steve, điều này thật tuyệt. Tôi nghĩ điều anh ấy muốn (và tôi cũng vậy) là có thể thêm vào giá trị của nhiều ô khác nhau trong cùng một tab bằng cách nhấp đúp vào chúng. Anh ta đã sửa đổi công thức VBA để nó nói "A1, A2" thay vì chỉ "A1", tuy nhiên, nhấp đúp vào "A1" sẽ thêm 1 vào cả hai ô. Có thể thay đổi công thức để nhiều ô được bao gồm với giá trị của mỗi ô chỉ được tăng lên khi bạn nhấp trực tiếp vào nó không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Về cơ bản, với đoạn mã trên, nếu bạn nhấp đúp vào A1, nó sẽ thêm 1 vào A1. Nếu tôi đã thay đổi A1 thành A1: A2 trong Phạm vi mục tiêu, thì nếu tôi nhấp đúp vào A1 hoặc A2, nó sẽ thêm 1 vào A1. Những gì tôi muốn là chỉ thêm 1 vào A1 nếu tôi nhấp đúp vào A1 và chỉ thêm 1 vào A2 nếu tôi nhấp đúp vào A2. Tôi cũng không muốn thêm 1 vào cả hai ô.

Tôi nghĩ rằng tôi đã tìm thấy những gì tôi đang tìm kiếm:

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
Nếu Không Giao nhau (Mục tiêu, Phạm vi ("D5: BC56")) thì Không có gì
Hủy bỏ = Đúng
Phạm vi (Target.Address) .Value = Val (Range (Target.Address) .Value) + 1
Cuối Nếu
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Steve thân mến,
Cuối cùng thì tôi cũng hiểu được ý của bạn, và cảm ơn bạn đã chia sẻ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã này dường như không hoạt động đối với tôi. Tôi không cần phải xác định đâu là Target.Adress?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
có thể bằng cách tạo một bảng với một tên phạm vi. và cập nhật công thức để bao gồm điều đó?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu bạn muốn tăng bất kỳ ô nào trong một ô sổ làm việc bằng cách bấm đúp vào ô đó nhưng chỉ ô đó, mã này hoạt động:

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Nếu không Giao nhau (Mục tiêu, Phạm vi (ActiveCell.Address)) thì Không có gì
ActiveCell.Value = ActiveCell.Value + 1
Hủy bỏ = Đúng
Cuối Nếu
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bill thân mến,
Cảm ơn bạn đã chia sẻ.
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! Điều đó đã giúp tôi rất nhiều!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi không thể làm cho điều này hoạt động trong nhiều ô
Đã thử sử dụng, nhưng nó không hoạt động


Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Nếu Không Giao nhau (Mục tiêu, Phạm vi ("B2: L14")) thì Không có gì
Phạm vi ("B2: L14"). Giá trị = Phạm vi ("B2: L14"). Giá trị + 1
Hủy bỏ = Đúng
Cuối Nếu
End Sub
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 Stella,
Vui lòng áp dụng VBA dưới đây để giải quyết vấn đề.

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)

On Error Resume Next

Nếu Không Giao nhau (Mục tiêu, Phạm vi ("B2: L14")) thì Không có gì

Target.Value = Target.Value + 1

Hủy bỏ = Đúng

Cuối Nếu

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi bạn sẽ viết mã nào nếu tôi muốn thêm 1 vào nhiều ô, hãy nói E5: E15 nhưng sau đó thêm .5 hoặc một số khác vào một nhóm ô khác như G5: 515?
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất