İ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-də məlumatları kopyalamaq və yapışdırmaq üçün Command Button yaratmaq üçün necə?

Verileri dəyişdirdikdən sonra bir sıra hüceyrələri tez-tez başqa yerə kopyalamağınızı düşünsəniz, əl ilə kopyala və yapışdırma üsulu küylü və vaxt itirməyəcəkdir. Bu surəti və yapışdırıb əlaqəni avtomatik olaraq necə qurmaq olar? Bu yazı yalnız bir klik ilə məlumatların surətini və yapışdırmaq üçün bir komanda düyməsindən necə istifadə edəcəyinizi göstərəcəkdir.

VBA kodu ilə məlumatların surətini çıxarmaq üçün bir Command Button yaradın


VBA kodu ilə məlumatların surətini çıxarmaq üçün bir Command Button yaradın


Command Button'u tıkladığınızda avtomatik olaraq məlumatları kopyalayıp yapıştırmak üçün aşağıdakıları edin.

1. Tıklayarak bir Komut Düğmesi əlavə edin Developer > Taxmaq > Command Button (ActiveX Control). Ekran görüntüsünə baxın:

2. Çalışma kitabınızda bir Komut Düğmesi çəkin və sağ basın. Seçin Kodları baxın kontekst menyusundan.

3. Popping up Proqramlar üçün Microsoft Visual Basic Pəncərədə, kodun aşağıdakı kodunu VBA kodu ilə əvəz edin.

VBA kodu: Excel-də məlumatları kopyalamaq və yapışdırmaq üçün Command Button istifadə edin

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Qeyd: Kodda, CommandButton1, əlavə edilmiş Komut Düğmesinin adıdır. A1: C17 kopyalamaq üçün lazım olan sıra və J1: L17 data yapışdırmaq üçün təyinat üçündür. Lazım olduğunuz halda 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ə. Geliştirici sekmesinin altında Tasarım rejimi söndürün.

5. Komut Düğmesi'ni basın, A1 aralığındaki bütün məlumatlar: C17 kopyalanır və J1 üçündür: L17 hüceyrə formatlaması olmadan yapışdırılır.


Əlaqəli məqalələr:



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.
  • To post as a guest, your comment is unpublished.
    Yesaya · 14 days ago
    hi, help my case, i want have a button to generate macro where i have excel and export the data where in the <" "> to word, thanks
  • To post as a guest, your comment is unpublished.
    Kyaw Ye Min · 25 days ago
    Hi Author,

    The article you mentioned above is very helpful to me. I am not used to excel code and command. I still need to know rather than this article. I am ok with the copy and paste into next sheet. But I still need to know "how to paste and add into new line in next sheet every time I press the button". Otherwise, my data on next sheet will be replaced every time. I would really be grateful and looking forward to see your reply.
  • To post as a guest, your comment is unpublished.
    Jim · 1 months ago
    I have a qusrion I have sheet 1 with a column of date b3:b33 and I want that to be copied to sheet 2 B33:b63 its text but I need the same format for text ie colour size
  • To post as a guest, your comment is unpublished.
    Robbert · 1 months ago
    If I want to Copy this not in the current workbook but into another workbook (which is still not opened) in excel. How do I change this VBA code accordingly?
    • To post as a guest, your comment is unpublished.
      crystal · 1 months ago
      Hi Robbert,
      Sorry can't help you with that. Thanks for commenting.
  • To post as a guest, your comment is unpublished.
    MangkaNorr · 3 months ago
    sir how to copy the range of the cell in current worksheet then paste to another worksheets ?
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi,
      The below VBA code can help you solve the problem.
      You need to replace the "Sheet4" and "A1:C17" in the code with your specified sheet and range.

      Private Sub CommandButton1_Click()
      Dim xSWName As String
      Dim xSheet As Worksheet
      Dim xPSheet As Worksheet
      Dim xIntR As Integer
      xSWName = "Sheet4"
      On Error Resume Next
      Application.ScreenUpdating = False
      Set xSheet = ActiveSheet
      If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
      xSheet.Range("A1:C17 ").Copy
      Set xPSheet = Worksheets.Item(xSWName)
      xIntR = xPSheet.UsedRange.Rows.count
      xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
      End If
      Application.ScreenUpdating = True
      End Sub