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

or

Bagaimana untuk memaparkan nama meja jadual atau pivot dalam sel dalam Excel?

Artikel ini bercakap mengenai memaparkan jadual jadual atau nama jadual pivot dalam sel dalam Excel.

Jadual paparan atau nama jadual pangsi di sel dengan kod VBA


Jadual paparan atau nama jadual pangsi di sel dengan kod VBA


Kod VBA berikut boleh membantu anda memaparkan jadual jadual atau nama meja berputar dalam sel. Sila buat seperti berikut.

1. Tekan butang Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Memasukkan > Modul. Kemudian salin di bawah kod VBA ke dalam tetingkap Modul.

Kod VBA: Jadual paparan atau nama jadual pangsi di dalam sel

Function getObjName(rng As Range) As String
‘Updated by Extendoffice 20180420
    Dim xTable As ListObject
    Dim xPivotTable As PivotTable
    Dim xTableName As String
    Dim xPtName As String
    On Error Resume Next
    xTableName = ""
    xPtName = ""
    Set xTable = rng.Cells(1).ListObject
    xTableName = "Table[" & xTable.Name & "]"
    If xTable Is Nothing Then
        Set xPivotTable = rng.Cells(1).PivotTable
        xPtName = "Pivot [" & xPivotTable.Name & "]"
    End If
    getObjName = xTableName & xPtName
End Function

3. Tekan butang Alt + Q kunci untuk keluar Microsoft Visual Basic untuk Aplikasi tingkap.

4. Pilih sel kosong, masukkan formula =getObjName(A2) ke dalam Bar Formula dan kemudian tekan kekunci Enter. Lihat tangkapan skrin:

Nota:

1. Dalam formula, A2 adalah sel jadual yang anda mahu paparkan nama itu. Anda boleh merujuk mana-mana sel julat jadual yang anda perlukan.

2. Untuk memaparkan nama jadual pangsi, sila tukar A2 dalam formula ke mana-mana sel dalam jadual pangsi.


Related articles:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

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.