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

Bagaimana cara mengubah teks dalam kotak teks menjadi konten sel di Excel?

Jika ada beberapa kotak teks dalam satu lembar, dan Anda ingin mengubah konten dalam kotak teks menjadi sel secara terpisah seperti gambar di bawah ini, apakah ada cara cepat untuk menyelesaikan pekerjaan ini kecuali memasukkan satu per satu di Excel? Pada artikel ini, saya memperkenalkan makro untuk membantu Anda mengatasi masalah ini.
doc mengubah kotak teks ke sel 1

Ubah konten kotak teks menjadi sel dengan VBA


panah gelembung kanan biru Ubah konten kotak teks menjadi sel dengan VBA

Kecuali kode makro, tidak ada trik yang dapat mengubah kotak teks menjadi konten sel dengan cepat.

1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul, lalu tempel kode di bawah ini ke Modul Script.

VBA: Mengonversi kotak teks menjadi sel

Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
    Dim xRg As Range
    Dim xRow As Long
    Dim xCol As Long
    Dim xTxtBox As TextBox
    
    Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    xRow = xRg.Row
    xCol = xRg.Column
    
    For Each xTxtBox In ActiveSheet.TextBoxes
        Cells(xRow, xCol).Value = xTxtBox.Text
        xTxtBox.Delete
        xRow = xRow + 1
    Next
    
End Sub

doc mengubah kotak teks ke sel 2

3. tekan F5 kunci untuk menjalankan kode, dialog muncul untuk mengingatkan Anda memilih sel untuk mengekspor konten kotak teks. Lihat tangkapan layar:
doc mengubah kotak teks ke sel 3

4. klik OK. Sekarang semua kotak teks telah diubah menjadi konten sel.
doc mengubah kotak teks ke sel 4

Tip: Di atas VBA akan menghapus kotak teks setelah dijalankan, jika Anda ingin menyimpan kotak teks, silakan ubah kode xTxtBox.Hapus untuk 'xTxtBox.Hapus.

Perpanjangan:Jika Anda ingin dengan cepat mengubah antara angka dan teks, coba gunakan Kutools for Excel's Konversi antara Teks dan Angka seperti yang ditunjukkan pada tangkapan layar berikut. Ini berfungsi penuh tanpa batasan di

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 
hari, silakan unduh dan dapatkan uji coba gratis sekarang.
doc mengubah kotak teks ke sel 5


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 (15)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
VBA tidak berfungsi ?!
Komentar ini diminimalkan oleh moderator di situs
Ini bekerja dengan sempurna di sini. Apa yang terjadi saat Anda menjalankan kode? Itu tidak mengubah apa pun? Jika Anda bisa, tolong jelaskan lebih lanjut tentang data dan masalah Anda. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Tidak bekerja di sini juga. Pilih sel tujuan, klik OK, dan tidak ada yang terjadi.
Komentar ini diminimalkan oleh moderator di situs
Saya sudah mencobanya di Win10 Excel2016 dan Win8 Excel2010, keduanya berfungsi. Lingkungan kerja apa yang Anda gunakan?
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki banyak Kotak di lembar yang berbeda, Ada 4 lembar yang memiliki acara tertentu pada hari tertentu dan saya ingin mengambil kotak teks dari hari tertentu ke lembar baru yang digabungkan untuk hari itu, Cara kerjanya saya tidak tahu bagaimana mendapatkannya bahwa data dari 4 lembar yang berbeda untuk satu lembar.
Komentar ini diminimalkan oleh moderator di situs
Oke, saya memiliki Textbox di dalam Textbox yang perlu diekstraksi.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak! Buen aporte. Saya ayudo mucho.
Komentar ini diminimalkan oleh moderator di situs
Tidak ada saya funcionó. Hago todo lo señalado y no pasa nada después de apretar enter. Intenté algunos cambios en la programación y tampoco
Komentar ini diminimalkan oleh moderator di situs
Hai, Juan, tidak ada tombol Enter yang disebutkan dalam metode di atas, salin dan tempel vba, lalu tekan tombol F5 atau klik tombol Run untuk mengaktifkan kode.
Komentar ini diminimalkan oleh moderator di situs
hai, saya mencoba di Excel365 dan tidak berhasil, saya mendapatkan sembulan dan kemudian saya mengisi tetapi kemudian tidak ada yang terjadi, terima kasih atas bantuannya, Michel
Komentar ini diminimalkan oleh moderator di situs
Hai, Michel, saya telah menguji kode di Excel 365, itu berfungsi dengan benar. Bisakah Anda memberi saya gambaran tentang versi Excel Anda seperti ini (File > Account)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.png, dan gambar tentang isi kotak teks Anda?
Komentar ini diminimalkan oleh moderator di situs
Hai, cerah. Saya ingin solusi di excel. Saya telah menyalin dan menempelkan halaman web yang berisi data. di dalamnya, setiap kotak teks berisi beberapa angka. Saya tidak dapat mengonversinya sebagai angka biasa di sel excel yang berisi kolom tertentu. saya menggunakan exel 2007
Komentar ini diminimalkan oleh moderator di situs
Hai, cerah. Saya ingin solusi di excel. Saya telah menyalin dan menempelkan halaman web yang berisi data. di dalamnya, setiap kotak teks berisi beberapa angka. Saya tidak dapat mengonversinya sebagai angka biasa di sel excel yang berisi kolom tertentu. saya menggunakan exel 2007Teks Anda untuk ditautkan
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan skrip ini (terima kasih, omong-omong), tetapi saya mencoba mendapatkannya sehingga mengisi sel tertentu dan tidak meminta input sel setiap saat. apa yang akan saya ubah agar otomatis terisi misalnya sel B2.

Tepuk tangan
Komentar ini diminimalkan oleh moderator di situs
Hai, ubah saja skripnya
Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

untuk
Set xRg = Application.Range("B2")

Anda akan memasukkan konten kotak teks dari sel B2
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