Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk memindahkan baris tertentu ke dalam lembaran baru apabila kotak semak diperiksa di Excel?

Artikel ini bercakap tentang memindahkan baris tertentu ke dalam lembaran baru apabila kotak centang disemak dalam Excel.

Bergerak baris apabila kotak semak diperiksa dengan kod VBA


Bergerak baris apabila kotak semak diperiksa dengan kod VBA


Sila lakukan seperti berikut untuk memindahkan baris tertentu ke lembaran kerja yang dinyatakan ketika menyemak kotak centang dalam Excel.

1. Beralih ke lembaran kerja yang anda perlukan untuk memindahkan baris berdasarkan kotak semak, klik Pemaju > Memasukkan > Kotak Semak (Kawalan ActiveX) untuk memasukkan kotak semak. Lihat tangkapan skrin:

2. Klik kanan tab helaian, dan kemudian klik Lihat Kod dari menu klik kanan. Lihat tangkapan skrin:

3. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi tetingkap, sila salin dan tampal di bawah kod VBA ke dalam tetingkap Kod.

Kod VBA: Alihkan baris ke dalam lembaran kerja tertentu apabila kotak centang disemak

Private Sub CheckBox1_Click()
    Dim xRg As Range
    Dim xAddress As String
    On Error Resume Next
    If CheckBox1.value Then
        xAddress = Application.ActiveWindow.RangeSelection.Address
        Set xRg = Application.InputBox("Please select the range row you will move(single cell):", "KuTools For Excel", xAddress, , , , , 8)
        If xRg Is Nothing Then Exit Sub
        Set xRg = xRg(1).EntireRow
        xRg.Copy
        ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
        xRg.Clear
        Application.CutCopyMode = False
    End If
End Sub

Nota: Dalam kod, Shee3 dan A1 menunjukkan bahawa baris yang ditentukan akan dipindahkan ke baris pertama dalam Sheet3. Sila tukar mereka berdasarkan keperluan anda.

4. Tekan butang Alt + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi tingkap.

5. Matikan Mod Reka Bentuk dengan mengklik Mod Reka Bentuk butang pada Pemaju tab.

6. Semak kotak semak, kemudian a Kutools untuk Excel kotak dialog timbul, sila pilih sel pertama baris (atau keseluruhan baris) yang anda perlukan untuk bergerak dan klik OK butang. Kemudian baris keseluruhan yang ditentukan akan dipindahkan ke lembaran kerja tertentu dengan segera. Lihat tangkapan skrin:


Related articles:



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.