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

Bagaimana cara membuat daftar drop-down dengan beberapa kotak centang di Excel?

Banyak pengguna Excel cenderung membuat daftar drop-down dengan beberapa kotak centang untuk memilih beberapa item dari daftar setiap kali. Sebenarnya, Anda tidak dapat membuat daftar dengan beberapa kotak centang dengan Validasi Data. Dalam tutorial ini, kami akan menunjukkan kepada Anda dua metode untuk membuat daftar drop-down dengan beberapa kotak centang di Excel.

Gunakan Kotak Daftar untuk membuat daftar drop-down dengan beberapa kotak centang
J: Buat kotak daftar dengan data sumber
B: Beri nama sel tempat Anda akan menemukan item yang dipilih
C: Sisipkan bentuk untuk membantu mengeluarkan item yang dipilih
Mudah membuat daftar drop-down dengan kotak centang dengan alat yang luar biasa
Tutorial lainnya untuk daftar drop-down ...


Gunakan Kotak Daftar untuk membuat daftar drop-down dengan beberapa kotak centang

Seperti gambar di bawah ini yang ditunjukkan, di lembar kerja saat ini, semua nama dalam rentang A2: A11 akan menjadi data sumber dari kotak daftar. Klik pada tombol di sel C4 dapat menampilkan item yang dipilih, dan semua item yang dipilih di kotak daftar akan ditampilkan di sel E4. Untuk mencapai ini, lakukan hal berikut.

A. Membuat kotak daftar dengan data sumber

1. klik Pengembang > Menyisipkan > Kotak Daftar (Kontrol X Aktif). Lihat tangkapan layar:

2. Gambar kotak daftar di lembar kerja saat ini, klik kanan dan kemudian pilih Properties dari menu klik kanan.

3. Dalam Properties kotak dialog, Anda perlu mengkonfigurasi sebagai berikut.

  • 3.1 Dalam DaftarIsiRentang kotak, masukkan kisaran sumber yang akan Anda tampilkan dalam daftar (di sini saya memasukkan kisaran A2: A11);
  • 3.2 Dalam DaftarGaya kotak, pilih 1 - Opsi Gaya fmList;
  • 3.3 Dalam MultiSelect kotak, pilih 1 - fmMultiSelectMulti;
  • 3.4 Tutup Properties kotak dialog. Lihat tangkapan layar:

B: Beri nama sel tempat Anda akan menemukan item yang dipilih

Jika Anda perlu menampilkan semua item yang dipilih ke dalam sel tertentu seperti E4, lakukan hal berikut.

1. Pilih sel E4, masukkan DaftarBoxOutput ke dalam nama Box dan tekan tombol Enter kunci.

C. Menyisipkan bentuk untuk membantu mengeluarkan item yang dipilih

1. klik Menyisipkan > bentuk > Empat persegi panjang. Lihat tangkapan layar:

2. Gambar persegi panjang di lembar kerja Anda (di sini saya menggambar persegi panjang di sel C4). Kemudian klik kanan persegi panjang dan pilih Tetapkan Makro dari menu klik kanan.

3. Dalam Tetapkan Makro kotak dialog, klik New .

4. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi jendela, harap ganti kode asli di Modul jendela dengan kode VBA di bawah ini.

Kode VBA: Buat daftar dengan beberapa kotak centang

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Catatan: Di dalam kode, Persegi panjang 1 adalah nama bentuk; DaftarKotak1 adalah nama kotak daftar; Pilih Pilihan serta Opsi Penjemputan adalah teks yang ditampilkan dari bentuk; dan DaftarBoxOutput adalah nama rentang sel keluaran. Anda dapat mengubahnya berdasarkan kebutuhan Anda.

5. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

6. Klik pada tombol persegi panjang akan melipat atau memperluas kotak daftar. Saat kotak daftar meluas, centang item di kotak daftar, lalu klik persegi panjang lagi untuk menampilkan semua item yang dipilih ke dalam sel E4. Lihat demo di bawah ini:

7. Dan kemudian simpan buku kerja sebagai file Buku Kerja Excel MacroEnable untuk menggunakan kembali kode di masa mendatang.


Buat daftar drop-down dengan kotak centang dengan alat yang luar biasa

Metode di atas terlalu banyak langkah untuk ditangani dengan mudah. Di sini sangat merekomendasikan Daftar Drop-down dengan Kotak Centang kegunaan Kutools untuk Excel untuk membantu Anda membuat daftar drop-down dengan mudah dengan kotak centang dalam kisaran tertentu, lembar kerja saat ini, buku kerja saat ini atau semua buku kerja yang dibuka berdasarkan kebutuhan Anda. Lihat demo di bawah ini:
Unduh dan coba sekarang! (Jejak gratis 30 hari)

Selain demo di atas, kami juga menyediakan panduan langkah demi langkah untuk mendemonstrasikan cara menerapkan fitur ini untuk mencapai tugas ini. Silakan lakukan sebagai berikut.

1. Buka daftar drop-down lembar kerja yang telah Anda setel validasi data, klik Kutools > Daftar Drop-down > Daftar Drop-down dengan Kotak Centang > Pengaturan. Lihat tangkapan layar:

2. Dalam Drop-down List dengan Centang Kotak Pengaturan kotak dialog, konfigurasikan sebagai berikut.

  • 2.1) Di berlaku untuk bagian, tentukan cakupan penerapan tempat Anda akan membuat kotak centang untuk item dalam daftar drop-down. Anda dapat menentukan a kisaran tertentu, lembar kerja saat ini, buku kerja saat ini or semua workbook terbuka berdasarkan kebutuhan Anda.
  • 2.2) Di mode bagian, pilih gaya yang Anda inginkan untuk menampilkan item yang dipilih;
  • Di sini mengambil memodifikasi opsi sebagai contoh, jika Anda memilih ini, nilai sel akan diubah berdasarkan item yang dipilih.
  • 2.3) Di alat pemisah kotak, masukkan pembatas yang akan Anda gunakan untuk memisahkan beberapa item;
  • 2.4) Di Arah Teks bagian, pilih arah teks berdasarkan kebutuhan Anda;
  • 2.5) Klik OK .

3. Langkah terakhir, klik Kutools > Daftar Drop-down > Daftar Drop-down dengan Kotak Centang > Aktifkan Daftar Drop-down Kotak Centang untuk mengaktifkan fitur ini.

Mulai sekarang, ketika Anda mengklik sel dengan daftar drop-down dalam lingkup yang ditentukan, kotak daftar akan muncul, pilih item dengan mencentang kotak centang untuk output ke sel seperti yang ditunjukkan demo di bawah ini (Ambil mode Modifikasi sebagai contoh ).

Untuk detail lebih lanjut tentang fitur ini, silahkan kunjungi disini.

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Artikel terkait:

Pelengkapan otomatis saat mengetik di daftar drop-down Excel
Jika Anda memiliki daftar drop-down validasi data dengan nilai yang besar, Anda perlu menggulir ke bawah dalam daftar hanya untuk menemukan yang tepat, atau langsung mengetikkan seluruh kata ke dalam kotak daftar. Jika ada metode untuk mengizinkan penyelesaian otomatis saat mengetik huruf pertama di daftar tarik-turun, semuanya akan menjadi lebih mudah. Tutorial ini memberikan metode untuk memecahkan masalah tersebut.

Buat daftar drop-down dari buku kerja lain di Excel
Sangat mudah untuk membuat daftar drop-down validasi data di antara lembar kerja dalam buku kerja. Tetapi jika daftar data yang Anda perlukan untuk validasi data ada di buku kerja lain, apa yang akan Anda lakukan? Dalam tutorial ini, Anda akan belajar cara membuat daftar drop fown dari workbook lain di Excel secara detail.

Buat daftar drop-down yang dapat dicari di Excel
Untuk daftar drop-down dengan banyak nilai, menemukan yang tepat bukanlah pekerjaan yang mudah. Sebelumnya kami telah memperkenalkan metode pengisian otomatis daftar drop-down saat memasukkan huruf pertama ke dalam kotak drop-down. Selain fungsi pelengkapan otomatis, Anda juga dapat membuat daftar drop-down dapat dicari untuk meningkatkan efisiensi kerja dalam menemukan nilai yang tepat dalam daftar drop-down. Untuk membuat daftar drop-down dapat dicari, coba metode dalam tutorial ini.

Mengisi otomatis sel lain saat memilih nilai di daftar drop-down Excel
Katakanlah Anda telah membuat daftar drop-down berdasarkan nilai dalam rentang sel B8: B14. Saat Anda memilih nilai apa pun dalam daftar turun bawah, Anda ingin nilai yang sesuai dalam rentang sel C8: C14 secara otomatis terisi dalam sel yang dipilih. Untuk memecahkan masalah, metode dalam tutorial ini akan membantu Anda.

Tutorial lainnya untuk daftar drop-down ...


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 (68)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini fantastis. Namun akan lebih baik jika multi selection dapat ditempatkan pada tempat kursor aktif. Belum tentu apa yang ditentukan oleh kode.
Komentar ini diminimalkan oleh moderator di situs
Inilah yang saya cari, dapatkah kode dimodifikasi untuk memungkinkan data yang dipilih ditampilkan dalam sel terpisah di kolom? jadi alih-alih: Senin, Selasa, Rabu, tampilkan sebagai. Senin Selasa Rabu
Komentar ini diminimalkan oleh moderator di situs
Ini hanya apa yang saya cari, apakah ada modifikasi pada kode yang akan menempatkan pilihan berikutnya dari kotak daftar di baris berikutnya. untuk misalnya satu dua tiga Alih-alih: satu, dua, tiga
Komentar ini diminimalkan oleh moderator di situs
dapatkah Anda menjelaskan bagaimana Anda telah menambahkan ListBoxOutput pada sel E4?
Komentar ini diminimalkan oleh moderator di situs
Halo Bagaimana cara menyalin kotak daftar ini untuk multi sel. Hanya salin dan tempel tidak berfungsi. Bisakah Anda jelaskan misalnya di setiap sel (E5,E6,E7,E8,...) bagaimana saya bisa menempatkan kotak pilihan ini?
Komentar ini diminimalkan oleh moderator di situs
dapatkah Anda menjelaskan bagaimana saya dapat dengan mudah menyalin kotak daftar ini untuk 100 baris? (kotak daftar terpisah untuk masing-masing 100 baris)
Komentar ini diminimalkan oleh moderator di situs
Setelah output selesai dan tekan tombol lagi, item yang dipilih sebelumnya dalam kotak daftar tidak dapat diubah. Bagaimana cara mengatasinya?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih! Ini bagus dan berhasil!
Komentar ini diminimalkan oleh moderator di situs
Saya seorang pemula dalam hal ini, tetapi adakah yang bisa memberi tahu saya cara membuat ListBox multi-pilihan yang akan terbuka, misalnya, ketika saya memilih nama. Saya ingin kotak daftar muat menjadi satu.
CONTOH: Saya memiliki daftar nama dengan info kontak, dll. Saya ingin membuat kotak Daftar duplikat untuk setiap nama dalam daftar saya. Saya ingin itu terbuka secara otomatis ketika saya memilih nama dan menutup kembali ke dalam sel ketika saya pergi ke baris info lainnya. Mohon saran. Terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Randy yang terhormat,
Maaf tidak bisa memecahkan masalah ini.
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi dengan baik sesuai instruksi, Namun jika saya melindungi lembar yang diberikan dan kesalahan. Ada solusi untuk ini?
Komentar ini diminimalkan oleh moderator di situs
Bekerja dengan sempurna sesuai Instruksi. Tapi, Bagaimana saya bisa menggunakan ini pada lembar Dilindungi. Saat ini Jika saya menggunakan ini setelah melindungi lembar Ini memberi saya dan kesalahan "Run-time error '-2147024809 (80070057)': Nilai yang Ditentukan di luar Rentang"
Komentar ini diminimalkan oleh moderator di situs
Amit Sood yang terhormat,
Sebelum melindungi lembar kerja, harap format sel Output sebagai tidak terkunci dan kemudian terapkan kode VBA di bawah ini. Terima kasih atas komentarmu.

Sub Persegi Panjang2_Click()
Redupkan xSelShp Sebagai Bentuk, xSelLst Sebagai Varian, Saya Sebagai Integer
On Error Resume Next
Setel xSelShp = ActiveSheet.Shapes(Application.Caller)
Setel xLstBox = ActiveSheet.ListBox1
Jika xLstBox.Visible = False Maka
xLstBox.Visible = Benar
xSelShp.TextFrame2.TextRange.Characters.Text = "Opsi Pengambilan"
Lain
xLstBox.Visible = Salah
xSelShp.TextFrame2.TextRange.Characters.Text = "Pilih Opsi"
Untuk I = xLstBox.ListCount - 1 Ke 0 Langkah -1
Jika xLstBox.Selected(I) = Benar Maka
xSelLst = xLstBox.List(I) & ";" & xSelLst
End If
Selanjutnya saya
Jika xSelLst <> "" Maka
Range("ListBoxOutput") = Tengah(xSelLst, 1, Len(xSelLst) - 1)
Lain
Range("ListBoxOutput") = ""
End If
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
"Saya telah membuat file menggunakan kotak daftar ActiveX seperti yang Anda jelaskan, di sana saya telah memasukkan beberapa data dan dan menambahkan beberapa properti juga. Saya telah memeriksa beberapa data menggunakan kotak centang dalam daftar, dan menyimpan & keluar dari file. Tapi sementara membuka kembali file itu tidak menampilkan data yang diperiksa..adakah yang bisa memberi saya saran untuk menyimpan pembaruan itu."
Adakah yang bisa membantu saya.
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Silakan tempatkan kode VBA di bawah ini ke dalam jendela kode ThisWorkbook.
Dalam kode, Sheet6 adalah nama default lembar kerja yang berisi Kotak Daftar yang ingin Anda pertahankan pilihannya seperti gambar di bawah ini. Dan ListBox1 adalah nama kotak daftar. Silakan ubah sesuai kebutuhan.

Sub Workbook_BeforeSave Pribadi (ByVal SaveAsUI Sebagai Boolean, Batalkan Sebagai Boolean)
Hubungi Simpan Pilihan
End Sub

Sub Workbook_Open Pribadi ()
Panggilan Pulihkan Pilihan
End Sub

Sub Simpan Pilihan Pribadi ()

Dim arr() Sebagai Varian, i Selamanya, j Selamanya

Dengan Sheet6.OLEObjects("ListBox1").Object
Jika .ListIndex > 0 Maka
Untuk i = 0 Ke .ListCount - 1
Jika .Dipilih(i) Maka
j = j + 1
ReDim Pertahankan arr(1 Sampai j)
arr(j) = i
End If
Next
Names.Add Name:="Pilihan", RefersTo:=arr, Terlihat:=Salah
End If
Berakhir dengan

End Sub

Pilihan Sub Pemulihan Pribadi ()

Dim arr Sebagai Varian, i As Integer

arr = [Pilihan]

Dengan Sheet6.OLEObjects("ListBox1").Object
Untuk i = 1 Ke UBound(arr)
.Dipilih(arr(i)) = Benar
Next
Berakhir dengan

End Sub
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas jawabannya Pak, tetapi tidak berfungsi dalam hal file saya, dapatkah Anda mengirim id email Anda, sehingga saya dapat mengirimkan file saya kepada Anda.
Terima kasih sebelumnya
Komentar ini diminimalkan oleh moderator di situs
Manjusha isac yang terhormat,
Silakan kirim file Anda ke zxm@addin99.com. Semoga saya bisa membantu.
Komentar ini diminimalkan oleh moderator di situs
Selain itu, Anda perlu menyimpan buku kerja sebagai Buku Kerja Excel Macro-enabled, dan mengaktifkan kode setiap kali Anda mengubah pilihan kotak daftar.
Komentar ini diminimalkan oleh moderator di situs
saya ingin memperbarui nama secara otomatis di kolom yang berbeda. apakah mungkin jika memungkinkan, bagikan kodenya kepada saya.
Komentar ini diminimalkan oleh moderator di situs
LUAR BIASA berfungsi tetapi setelah saya menutup excel dan membukanya lagi, centang dari kotak centang hilang jadi jika saya mengklik tombol semua daftar akan hilang solusi apa pun untuk ini
tolong seseorang bantu saya
Terima kasih banyak sebelumnya
Komentar ini diminimalkan oleh moderator di situs
Malaikat tersayang,
Kami telah menerbitkan artikel "Bagaimana cara menyimpan atau mempertahankan pilihan kotak daftar ActiveX di Excel?" yang memperkenalkan metode menyimpan pilihan kotak daftar setelah menutup dan membuka kembali buku kerja.
Anda dapat mengikuti tautan ini untuk mendapatkan informasi lebih lanjut: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Komentar ini diminimalkan oleh moderator di situs
luar biasa kerjanya tetapi saya punya satu masalah setelah saya menyimpan file dan membukanya lagi semua centang dari daftar kotak centang semuanya hilang
dapatkah Anda membantu saya untuk yang satu ini terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
juga, itu mengubah ukuran kotak daftar dan bentuknya selalu setelah menyimpan dan membuka kembali file tersebut jika seseorang memiliki solusi untuk masalah ini, tolong bantu saya

Terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
tanda sayang,
Kami telah menerbitkan artikel "Bagaimana cara menyimpan atau mempertahankan pilihan kotak daftar ActiveX di Excel?" yang memperkenalkan metode menyimpan pilihan kotak daftar setelah menutup dan membuka kembali buku kerja.
Anda dapat mengikuti tautan ini untuk mendapatkan informasi lebih lanjut: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Komentar ini diminimalkan oleh moderator di situs
Halo,

Saya bertanya-tanya apakah ada cara untuk mengarahkan opsi pengambilan ke lebih dari satu sel (bukan hanya E4), atau menjadikan pilihan sebagai daftar periksa dropdown sehingga saya dapat memilih beberapa opsi dari daftar periksa, tetapi melakukannya berulang kali dan independen dari pilihan lain yang saya buat. Misalnya, bagaimana saya menggunakan daftar opsi pengambilan yang sama untuk memasukkan pilihan item yang berbeda ke E5, E6, E7, dll. dari daftar pengambilan yang sama.

Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai LizKats,
Silakan coba kode di bawah ini. Semoga saya bisa membantu. Terima kasih.

Sub Persegi Panjang2_Click()

'Diperbaharui oleh Extendoffice 20200529

Redupkan xSelShp Sebagai Bentuk, xSelLst Sebagai Varian, i As Integer

Setel xSelShp = ActiveSheet.Shapes(Application.Caller)

Setel xLstBox = ActiveSheet.ListBox1

Redupkan xRg Sebagai Rentang

Redupkan xCount, xFNum, xR, xC Sebagai Integer

Redupkan xStr Sebagai String

Jika xLstBox.Visible = False Maka

xLstBox.Visible = Benar

xSelShp.TextFrame2.TextRange.Characters.Text = "Opsi Pengambilan"

Lain

xLstBox.Visible = Salah

xSelShp.TextFrame2.TextRange.Characters.Text = "Pilih Opsi"

Tetapkan xRg = Range("ListBoxOutput")

xCount = xLstBox.ListCount - 1

xStr = ""

Untuk i = xLstBox.ListCount - 1 Ke 0 Langkah -1

Jika xLstBox.Selected(i) = Benar Maka

xStr = xLstBox.List(i) & ";" & xStr

End If

Selanjutnya saya



Jika xRg.Value = "" Maka

xRg.Nilai = xStr

Lain

Tetapkan xRg = xRg.Offset(1, 0)

Lakukan Sementara xRg.Value <> ""

Tetapkan xRg = xRg.Offset(1, 0)

Lingkaran

xRg.Nilai = xStr

End If

End If

End Sub
Komentar ini diminimalkan oleh moderator di situs
Halo,

Terima kasih banyak untuk artikel yang luar biasa ini! Ini adalah kode yang dimodifikasi yang saya cari di komentar! Namun, saya melihat bahwa string xStr gabungan menambahkan titik koma ";" sampai akhir entah bagaimana. Saya tidak dapat men-debug tentang cara tidak memasukkan titik koma di akhir string.

Juga, apakah ada cara untuk menentukan rentang sel tertentu untuk xRg? Saya mengacu pada Set xRg = Range("ListBoxOutput") dan ingin mengubah ListBoxOutput menjadi sesuatu seperti H5:H10 & H15:20. Apakah itu mungkin?
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi dengan baik, terima kasih banyak atas bantuan Anda. Saya punya satu masalah di sini adalah, semua output datang di sel yang sama E4, bagaimana kita bisa mendapatkan output di sel yang berbeda Misalnya: output untuk C4 di E4, C5 di E5, C6 di E6 dll.
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Masalah yang Anda sebutkan belum dapat diselesaikan.
Komentar ini diminimalkan oleh moderator di situs
о ень! о омочь.
ак елать ак обы аждое ачение одило а овой етке? обы о одило о ертикали?
Komentar ini diminimalkan oleh moderator di situs
TOLONG!!! bagaimana output dalam rentang yang berbeda (vertikal)?
Komentar ini diminimalkan oleh moderator di situs
Sub Persegi Panjang2_Click()
'Diperbaharui oleh Extendoffice 20190924
Redupkan xSelShp Sebagai Bentuk, xSelLst Sebagai Varian, Saya Sebagai Integer
Redupkan xRg Sebagai Rentang
Setel xSelShp = ActiveSheet.Shapes(Application.Caller)
Setel xLstBox = ActiveSheet.ListBox1
Jika xLstBox.Visible = False Maka
xLstBox.Visible = Benar
xSelShp.TextFrame2.TextRange.Characters.Text = "Opsi Pengambilan"
Lain
xLstBox.Visible = Salah
xSelShp.TextFrame2.TextRange.Characters.Text = "Pilih Opsi"
Tetapkan xRg = Range("ListBoxOutput")
Untuk I = 0 Ke xLstBox.ListCount - 1
Jika xLstBox.Selected(I) = Benar Maka
xSelLst = xLstBox.Daftar(I)
xRg.Nilai = Tengah(xSelLst, 1, Len(xSelLst))
Tetapkan xRg = xRg.Offset(1, 0)
End If
Selanjutnya saya
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda dapat meniru pekerjaan Anda di filas inferiores ?
Bagaimana saya bisa meniru latihan ini di baris di bawah ini?
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan