İ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ə gizli hesabatı necə çıxarmaq olar?

Excel-də, bir hesabatı tez və asanlıqla mövcud və ya digər iş kitabçasına köçürə və köçürə bilərik, ancaq heç bir gizli hesabatı aktiv iş kitabına kopyalamağa çalışdın? Bu yazı, xüsusi bir gizli hesabatı aktif Excel faylına kopyalamanız üçün VBA kodunu təqdim edəcəyəm.

Gizli iş səhifəsini VBA kodu ilə aktiv iş kitabına kopyalayın


arrow mavi sağ bubble Gizli iş səhifəsini VBA kodu ilə aktiv iş kitabına kopyalayın


Bir iş kitabından bir gizli hesabatı kopyalamak və adı vermək üçün aşağıdakı VBA kodları sizə bir xeyir verə bilər:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Gizli iş səhifəsini aktiv iş kitabına kopyalayın:

Sub DupSheet()
'Updateby Extendoffice 20161109
    Dim Actsheet As String
    Application.ScreenUpdating = False
    On Error Resume Next
    ActiveWorkbook.Sheets("Sheet12").Visible = True
    ActiveWorkbook.Sheets("Sheet12").Copy _
    after:=ActiveWorkbook.Sheets("Sheet12")
    ActNm = ActiveSheet.Name
    ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
    Sheets(ActiveSheet.Name).Visible = True
    ActiveWorkbook.Sheets("Sheet12").Visible = False
    Application.ScreenUpdating = True
End Sub

Qeyd: Yuxarıda göstərilən kodda, Sheet 12 kopyalamaq istədiyiniz gizli hesabatdır, xahiş edirik onu ehtiyacınıza dəyişdirin.

3. Və sonra basın F5 bu kodu çalıştırmaq üçün açar, gizli işin yeni nüsxəsi üçün adınızı qeyd etmək üçün xatırlatmaq üçün bir əmr qutusu açılır, ekran görünüşünə baxın:

1 gizli hesabatı doc kopyalayın

4. Sonra basın OK düyməsini basın və gizli hesabatı bir dəfə aktiv iş kitabında yeni adla kopyalandı.



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.