İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel'de onay kutusu işaretlendiğinde belirli bir satırı yeni bir hesabata nasıl taşımak olar?

Excel'de onay kutusunun işaretlendiğinde, bu makalede belirli bir satırı yeni bir hesabata taşımaktan bahsediyor.

VBA koduyla işaretlendiğinde satırı keçin


VBA koduyla işaretlendiğinde satırı keçin


Xahiş edirik, Excel-də bir onay qutusunu yoxlamaq üçün müəyyən bir işi müəyyən bir işə daşımaq üçün aşağıdakıları edin.

1. Satır üzərinə satırı daşımaq üçün lazım olan iş səhifəsinə keçin, vurun Developer > Taxmaq > Check Box (ActiveX Control) bir onay qutusu əlavə etmək üçün. Ekran görüntüsünə baxın:

2. Sekanın sekmesini sağa vurun və sonra basın Kodları baxın sağ tıklayarak menyudan. Ekran görüntüsünə baxın:

3. Açılışda Proqramlar üçün Microsoft Visual Basic Pəncərədən, VBA kodu aşağıda Kod pencerəsinə kopyalayıb yapışdırın.

VBA kodu: Bir onay qutusu işaretlendiğinde satırı müəyyən bir iş yerinə keçin

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

Qeyd: Kodda, Shee3 və A1, göstərilən satırın Sheet3-da ilk sətrə çıxarılacağını göstərir. Xahiş edirik ehtiyaclarınıza uyğun olaraq onları dəyişdirin.

4. Basın Dayandırmaq + Q düymələri bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

5. Layihə rejimi'ni tıklayaraq, söndürün Dizayn Moda düyməsini Developer nişanı.

6. Yoxlama qutusunu yoxlayın, sonra a Excel üçün Kutools dialoq qutusu açılırsa, hərəkət etmək üçün lazım olan satırın (ya da bütün satırı) ilk hüceyrəni seçin və basın OK düyməsini basın. Sonra göstərilən bütün satır dərhal müəyyən bir iş səhifəsinə köçürülür. Ekran görüntüsünə baxın:


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.