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

Bagaimana cara memasukkan tabel mengambang atau kotak teks di lembar kerja Excel?

Jika Anda memiliki tabel atau kotak teks dengan beberapa data penting yang Anda ingin selalu terlihat di layar lembar kerja meskipun saat Anda menggulir ke atas atau ke bawah lembar kerja. Ini mungkin tugas yang menarik, artikel ini, saya akan memperkenalkan trik cepat untuk mengatasinya.

Masukkan tabel mengambang di Excel dengan kode VBA

Masukkan kotak teks mengambang di Excel dengan kode VBA


panah gelembung kanan biru Masukkan tabel mengambang di Excel dengan kode VBA

Tidak ada cara langsung bagi Anda untuk memasukkan tabel mengambang, jadi Anda perlu mengonversi data tabel menjadi gambar, lalu menerapkan kode untuk menyelesaikannya, lakukan seperti ini:

1. Pilih tabel data yang ingin Anda tetap terlihat, lalu klik Copy > Salin sebagai Gambar bawah Beranda tab, lihat tangkapan layar:

doc masukkan tabel apung 1

2. Di muncul keluar Salin Gambar kotak dialog, pilih Seperti yang ditunjukkan di layar dari Penampilan bagian, dan pilih Gambar bawah dibentuk bagian, klik OK untuk menutup dialog, lalu klik sel untuk menampilkan gambar, akhirnya, tekan Ctrl + V untuk menempelkan gambar ini, lihat tangkapan layar:

doc masukkan tabel apung 2

3. Setelah mengonversi tabel menjadi gambar, lalu klik kanan tab lembar yang berisi gambar tabel yang ingin selalu terlihat, dan pilih Lihat kode dari menu konteks, dan di buka Microsoft Visual Basic untuk aplikasi jendela, salin dan tempel kode berikut ke dalam Modul kosong:

Kode VBA: Masukkan tabel mengambang di excel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

Note: Dalam kode ini, Picure1 adalah nama gambar yang telah Anda buat, harap ubah sesuai kebutuhan Anda.

doc masukkan tabel apung 3

4. Kemudian simpan dan tutup jendela kode, sekarang, saat Anda menggulir lembar kerja dan mengklik sel, gambar tabel selalu disimpan di sudut kanan atas lembar kerja.


panah gelembung kanan biru Masukkan kotak teks mengambang di Excel dengan kode VBA

Untuk memasukkan kotak teks mengambang, berikut juga kode VBA untuk menyelesaikan tugas ini.

1. Pertama, Anda harus memasukkan kotak teks dari Pengembang tab, klik Pengembang > Menyisipkan > Kotak Teks (kontrol ActiveX), lalu gambar kotak teks, dan masukkan informasi ke dalam kotak teks sesuai kebutuhan. Lihat tangkapan layar:

doc masukkan tabel apung 4

2. Kemudian klik kanan tab lembar yang berisi kotak teks yang Anda ingin selalu terlihat, dan pilih Lihat kode dari menu konteks, dan di buka Microsoft Visual Basic untuk Aplikasi jendela, salin dan tempel kode berikut ke tempat kosong Modul:

Kode VBA: Masukkan kotak teks mengambang di Excel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    With ActiveWindow.VisibleRange
        TextBox1.Top = .Top + 5
        TextBox1.Left = .Left + .Width - TextBox1.Width - 45
    End With
    Application.ScreenUpdating = True
End Sub

Note: Dalam kode ini, Kotak Teks1 adalah nama kotak teks yang telah Anda sisipkan, harap ubah sesuai kebutuhan Anda.

doc masukkan tabel apung 5

3. Kemudian simpan dan tutup jendela kode, sekarang, saat Anda menggulir lembar kerja ke mana saja, kotak teks yang dimasukkan selalu disimpan di sudut kanan atas lembar kerja.


Maksimalkan atau minimalkan jendela lembar kerja

Untuk memaksimalkan jendela lembar kerja dapat memberikan ruang lebih bagi pengguna, di Excel, Anda dapat memaksimalkan jendela lembar kerja dengan menyembunyikan pita, bilah rumus, atau bilah status. Kutools untuk Excel's Area kerja dapat membantu Anda menyembunyikan pita hanya dengan satu klik. Unduh dan uji coba gratis Kutools for Excel sekarang!


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-2021 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (8)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih-ini memecahkan masalah saya dengan sangat mudah!
Komentar ini diminimalkan oleh moderator di situs
Jika saya mengubah ukuran jendela, gambar melayang terlalu jauh ke tengah. Bagaimana cara membuat gambar melayang ke margin yang sama dari layar, berapa pun ukuran jendela yang saya miliki?
Komentar ini diminimalkan oleh moderator di situs
Hai,
Di suatu tempat antara langkah 2 dan 3 pada "Sisipkan Tabel Mengambang Di Excel Dengan Kode VBA" Saya melewatkan cara memberi nama gambar yang baru saja saya salin dan tempel.

Tom
Komentar ini diminimalkan oleh moderator di situs
Hal yang sama terjadi pada saya juga, bagaimana Anda tahu nama file gambar?
Komentar ini diminimalkan oleh moderator di situs
Halo, Petrus,
Untuk mengetahui nama gambar, Anda hanya perlu memilih gambar, lalu lihat nama dari Kotak Nama di pojok kiri atas.
Komentar ini diminimalkan oleh moderator di situs
Pojok kiri atas di sebelah kotak Anda memasukkan rumus
Komentar ini diminimalkan oleh moderator di situs
Nama-namanya sama tetapi untuk beberapa alasan saya masih menemukan kesalahan runtime 424 objek yang diperlukan?
Komentar ini diminimalkan oleh moderator di situs
Halo, selamat pagi.

Mi pregunta es cómo mantener siempre terlihat la imagen flotante aun cuando me desplace en distintas filas o columnas de la hoja.

Saludos y gracias por compartir tus conocimientos.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL