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

Bagaimana cara mengklik dua kali sel dan menambahkan 1 ke nilai sel itu di Excel?

Artikel ini akan menunjukkan kepada Anda metode menambahkan 1 ke nilai sel secara otomatis dengan mengklik dua kali di Excel.

Klik dua kali sel dan tambahkan 1 dengan kode VBA


Klik dua kali sel dan tambahkan 1 dengan kode VBA


Kode VBA berikut dapat membantu Anda menambahkan 1 ke nilai sel setelah mengklik ganda. Silakan lakukan sebagai berikut.

1. Klik kanan tab lembar yang nilai selnya perlu Anda tambahkan 1 dengan mengklik ganda. Lalu klik Lihat kode dari menu klik kanan.

2. Dalam bermunculan Microsoft Visual Basic untuk Aplikasi jendela, salin dan tempel kode VBA di bawah ini ke jendela Kode.

Kode VBA: Tambahkan 1 ke nilai sel dengan mengklik ganda

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

Note: Dalam kode, A1 adalah sel yang akan Anda tambahkan nomor 1 dengan mengklik ganda.

3. tekan lain + Q secara bersamaan untuk menutup jendela Microsoft Visual Basic for Applications.

Sekarang, klik dua kali pada sel A1 akan menambahkan 1 ke nilai yang ada seperti gambar di bawah ini.


Terkait artikel:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (16)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Bisakah kita menambahkan angka dua digit ke akhir tanggal? misalnya saya perlu mengklik dua kali dan menambahkan tanggal saat ini dan nomor dua digit berikutnya (20171030-01 maka sel berikutnya akan menampilkan 20171030-02 setelah klik dua kali)
Komentar ini diminimalkan oleh moderator di situs
Matt yang terhormat,
Kode hanya mendukung sel format angka. Ini dapat berfungsi karena data Anda 20171030-01 adalah format teks. Maaf tentang itu.
Komentar ini diminimalkan oleh moderator di situs
Matt yang terhormat,
Kode hanya mendukung sel format angka. Ini tidak dapat berfungsi karena data Anda 20171030-01 adalah format teks. Maaf tentang itu.
Komentar ini diminimalkan oleh moderator di situs
Ini bagus! Bagaimana cara melakukan ini untuk banyak sel? Saya mengetik "A1,A2" sebagai gantinya "A1", itu membuat kedua sel sama dan menambahkan 1 ke kedua sel secara bersamaan. Saya ingin sel bertindak secara independen.
Komentar ini diminimalkan oleh moderator di situs
Maaf saya tidak mengerti maksud Anda.
Komentar ini diminimalkan oleh moderator di situs
Halo - setuju dengan Steve ini bagus. Saya pikir apa yang dia inginkan (dan saya juga) adalah dapat menambah nilai beberapa sel berbeda di tab yang sama dengan mengklik dua kali pada mereka. Dia telah mengubah rumus VBA sehingga dikatakan "A1,A2" bukan hanya "A1" namun mengklik dua kali pada "A1" menambahkan 1 ke kedua sel. Apakah mungkin untuk mengubah rumus sehingga beberapa sel disertakan dengan nilai masing-masing hanya meningkat ketika Anda mengkliknya secara langsung?
Komentar ini diminimalkan oleh moderator di situs
Pada dasarnya, dengan kode di atas, jika Anda mengklik dua kali pada A1, itu akan menambah 1 ke A1. Jika saya mengubah A1 menjadi A1:A2 di Kisaran Target, maka jika saya mengklik dua kali pada A1 atau A2, itu akan menambah 1 ke A1. Yang saya inginkan adalah menambahkan 1 ke A1 hanya jika saya mengklik dua kali pada A1, dan menambahkan 1 ke A2 hanya jika saya mengklik dua kali pada A2. Saya juga tidak ingin menambahkan 1 ke kedua sel.

Saya pikir saya telah menemukan apa yang saya cari:

Sub Worksheet_BeforeDoubleClick Pribadi (ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
Jika Tidak Berpotongan(Target, Rentang("D5:BC56")) Tidak Ada Apa-apanya
Batal = Benar
Rentang(Alamat.Target).Nilai = Val(Rentang(Alamat.Target).Nilai) + 1
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Steve yang terhormat,
Akhirnya saya mengerti maksud Anda, dan terima kasih telah berbagi.
Komentar ini diminimalkan oleh moderator di situs
Kode ini sepertinya tidak berfungsi untuk saya. Apakah saya tidak harus menentukan yang mana Target.Adress ?
Komentar ini diminimalkan oleh moderator di situs
mungkin dengan membuat tabel dengan nama range. dan memperbarui rumus untuk memasukkan itu?
Komentar ini diminimalkan oleh moderator di situs
Jika Anda ingin menambah sel apa pun dalam sel buku kerja dengan mengklik dua kali pada sel itu tetapi hanya sel itu, kode ini berfungsi:

Sub Worksheet_BeforeDoubleClick Pribadi (ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
On Error Resume Next
Jika Tidak Berpotongan(Target, Rentang(ActiveCell.Address)) Tidak Ada Apa-apanya
ActiveCell.Value = ActiveCell.Nilai + 1
Batal = Benar
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Bill yang terhormat,
Terima kasih untuk berbagi.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih! itu sangat membantu saya!
Komentar ini diminimalkan oleh moderator di situs
Saya tidak bisa menjalankan ini di banyak sel
Mencoba menggunakan, tetapi tidak berhasil


Sub Worksheet_BeforeDoubleClick Pribadi (ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
On Error Resume Next
Jika Tidak Berpotongan(Target, Rentang("B2:L14")) Tidak Ada Apa-apanya
Rentang("B2:L14").Nilai = Rentang("B2:L14").Nilai + 1
Batal = Benar
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai Stella,
Silakan terapkan VBA di bawah ini untuk menyelesaikan masalah.

Sub Worksheet_BeforeDoubleClick Pribadi (ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)

On Error Resume Next

Jika Tidak Berpotongan(Target, Rentang("B2:L14")) Tidak Ada Apa-apanya

Target.Nilai = Target.Nilai + 1

Batal = Benar

End If

End Sub
Komentar ini diminimalkan oleh moderator di situs
Kode apa yang akan saya berikan jika saya ingin menambahkan 1 ke beberapa sel, katakanlah E5:E15 tetapi kemudian tambahkan .5 atau nomor yang berbeda ke grup sel lain seperti G5:515?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan