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

Bagaimana cara selalu mengapung Tombol Perintah pada lembar kerja di Excel?

Dalam beberapa kasus, Anda mungkin memerlukan Tombol Perintah mengambang (Kontrol ActiveX) untuk terus bergerak dengan lembar kerja Anda tidak peduli bagaimana Anda menggulir ke atas atau ke bawah lembar kerja. Artikel ini akan menunjukkan kepada Anda metode untuk mencapainya.

Selalu mengambang Tombol Perintah pada lembar kerja dengan kode VBA


Selalu mengambang Tombol Perintah pada lembar kerja dengan kode VBA


Harap lakukan hal berikut untuk membuat Tombol Perintah selalu mengambang di lembar kerja.

1. Di lembar kerja yang berisi Tombol Perintah Kontrol ActiveX yang Anda inginkan untuk mengambang, klik kanan tab lembar, lalu klik Lihat kode dari menu konteks

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

Kode VBA: Buat Tombol Perintah selalu mengambang di lembar kerja

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        On Error GoTo 0
        With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
            CommandButton1.Top = .Top + 100
            CommandButton1.Left = .Left + 300
        End With
End Sub

Note: dalam kode di atas, CommandButton1 adalah nama tombol yang Anda ingin selalu terlihat. Harap ubah sesuai kebutuhan Anda.

3. Kemudian tekan lain + Q kunci untuk keluar dari Microsoft Visual Basic untuk Aplikasi jendela.

Mulai sekarang, Tombol Perintah akan selalu mengambang di tengah atas lembar kerja dengan perpindahan sel yang diklik aktif seperti gambar di bawah ini.

Note: VBA ini hanya bekerja untuk Tombol Perintah Kontrol ActiveX.


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 (15)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Saya mencari Perintah / Opsi bahwa ketika saya menggulir ke bawah Halaman, Teks yang dipilih harus mengapung bersamanya ... Bagaimana bisa melakukannya ... Terima kasih: Indian Booklet
Komentar ini diminimalkan oleh moderator di situs
Buat TextBox lalu pindahkan saat memilih ubah


Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Excel.Range)
TextBox1.Text = ActiveCell.Value
Dengan Sel(Windows(1).ScrollRow, Windows(1).ScrollColumn)
TextBox1.Top = .Top + 100
TextBox1.Left = .Kiri + 300
Berakhir dengan
End Sub
Komentar ini diminimalkan oleh moderator di situs
QA tidak bagus - periksa nama Anda di tombol. Jika ini yang dipublikasikan untuk dilihat oleh komunitas Web, apa yang terjadi di balik layar dengan kode tersebut? :-)
Komentar ini diminimalkan oleh moderator di situs
Terima kasih bagus dengan pemilihan sel
Komentar ini diminimalkan oleh moderator di situs
Bekerja dengan baik untuk saya. Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak... Berhasil...
Komentar ini diminimalkan oleh moderator di situs
tidak bekerja
Komentar ini diminimalkan oleh moderator di situs
melihatnya, tidak berfungsi, saya menggulir ke bawah dan juga tombol perintah ke bawah, saya ingin memperbaikinya di bagian atas sisi kanan lembar.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Saat Anda menggulir ke bawah lembar kerja, silakan klik untuk mengubah sel aktif ke area yang terlihat untuk membuatnya berfungsi. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Tidak bekerja :-(
Komentar ini diminimalkan oleh moderator di situs
Hai,
Saat Anda menggulir ke bawah lembar kerja, silakan klik untuk mengubah sel aktif ke area yang terlihat untuk membuatnya berfungsi. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Saya pikir itu harus menentukan bahwa tombolnya harus ActiveX agar kode berfungsi. ^.^'
Komentar ini diminimalkan oleh moderator di situs
Saya pikir itu harus menentukan bahwa tombolnya harus ActiveX agar kode berfungsi. ^.^'
Komentar ini diminimalkan oleh moderator di situs
Hai,
Terima kasih atas pengingat Anda.
Komentar ini diminimalkan oleh moderator di situs
itu berfungsi dengan baik di satu buku kerja, sekarang saya mencoba melakukan hal yang sama di buku kerja lain dan saya mendapat kesalahan kompilasi karena perubahan pilihan. saya cukup baru di vba - mungkin karena saya sudah mendapat sub worksheet_selectionchange pribadi? apakah Anda tahu bagaimana saya bisa memperbaikinya? 
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan