İ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 səhifəsində üzən masa və ya mətn qutusu əlavə etmək üçün necə?

Çalışma səhifəsinin ekranında yuxarıya və ya aşağıya baxdığınız zaman həmişə görünən bir sıra vacib məlumatları olan bir masa və ya mətn qutunuz varsa. Bu maraqlı bir vəzifə ola bilər, bu yazı, həll etmək üçün sürətli bir oyun təqdim edəcəyəm.

Exceldə VBA kodu ilə üzən cədvəl daxil edin

Exceldə VBA kodu ilə üzən mətn qutusunu daxil edin


İş səhifəsinin pəncərəsini maksimum dərəcədə artırın və ya minimuma endirin:

İş yerinin pəncərəsini maksimuma çatdırmaq üçün, istifadəçilər üçün Excel-də daha çox yer aça bilər, lent, formula çubuğunu və ya status çubuğunu gizlətməklə iş səhifəsinin pəncərəsini aça bilərsiniz. Excel üçün Kutools's İş sahəsi lenti yalnız bir klik ilə gizlətməyə kömək edə bilər. İndi Excel üçün pulsuz sınaq versiyasını indirin!

doc 6 üzən masa daxil edin


arrow mavi sağ bubble Exceldə VBA kodu ilə üzən cədvəl daxil edin


Üzən masa əlavə etmək üçün birbaşa yol yoxdur, buna görə masa məlumatlarını bir görüntüyə çevirmək və onu bitirmək üçün bir kod tətbiq etmək lazımdır, belə edin:

1. Göründüyü tutmaq istədiyiniz məlumatların cədvəlini seçin və sonra basın Surəti > Şəkil olaraq kopyalayın Altında ev seksiyasına baxın:

doc 1 üzən masa daxil edin

2. Çölə atıldı Kopyala Şəkil informasiya qutusu seçin Ekranda göstərildiyi kimi dən Görünüş hissəsində, seçin Şəkil Altında Format bölməsinə basın OK dialoqu bağlamaq və sonra şəkil çəkmək üçün bir hüceyrəni basın, nəhayət, basın Ctrl + V bu şəkil yapışdırıb, bax ekran görüntüsü:

doc 2 üzən masa daxil edin

3. Masanın şəkilə çevrildikdən sonra, həmişə görünən saxlamaq istədiyiniz cədvəl şəklini olan təbəqə nişanını sağa vurun və seçin Kodları baxın kontekst menyusundan və açıldı Proqramlar üçün Microsoft Visual Basic pəncərədə, boş kodu daxil edin və aşağıdakı kodu yapışdırın:

VBA kodu: Exceldə üzən cədvəl daxil edin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161116
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

QeydBu kodda Picure1 yaratdığınız şəkil adı, xahiş edirəm onu ​​sizin ehtiyacınıza dəyişdirin.

doc 3 üzən masa daxil edin

4. Sonra iş plandanızı və bir hüceyrəni tıkladığınızda kod pəncərəsini saxlayıb bağlayın, masa şəkil həmişə iş səhifəsinin yuxarı sağ küncündə saxlanılır.


arrow mavi sağ bubble Exceldə VBA kodu ilə üzən mətn qutusunu daxil edin

Üzən bir mətn qutusu əlavə etmək üçün, burada da bu vəzifəni həll etmək üçün bir VBA kodu var.

1. Birincisi, sizdən bir mətn qutusu əlavə etməlisiniz Developer sekmesini basın Developer > Taxmaq > Text Box (ActiveX nəzarət)mətn qutusunu çəkib məlumatları mətn qutusuna daxil edin. Ekran görüntüsünə baxın:

doc 4 üzən masa daxil edin

2. Sonra daima görünən saxlamaq istədiyiniz mətn qutusunu olan təbəqə nişanı sağ basın və seçin Kodları baxın kontekst menyusundan və açıldı Proqramlar üçün Microsoft Visual Basic pəncərədə, kopyalayıp boşluqa aşağıdakı kodu yapışdırın Modules:

VBA kodu: Excel-də üzən mətn qutusunu daxil edin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161116
    Application.ScreenUpdating = False
    With ActiveWindow.VisibleRange
        TextBox1.Top = .Top + 5
        TextBox1.Left = .Left + .Width - TextBox1.Width - 45
    End With
    Application.ScreenUpdating = True
End Sub

QeydBu kodda TextBox1 əlavə etdiyiniz mətn qutusu adıdır, xahiş edirəm onu ​​ehtiyacınıza dəyişdirin.

doc 5 üzən masa daxil edin

3. Sonra iş pəncərəsini hər hansı bir yerə fırladığınız zaman kodu pəncərəsini saxlayıb bağlayın, daxil olunan mətn həmişə iş səhifəsinin yuxarı sağ küncündə saxlanı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.
    Guest · 1 months ago
    If I re-size the window, the picture floats too far into the middle. How do I make the picture float to the same margin from the screen no matter what size window I have?
  • To post as a guest, your comment is unpublished.
    Rachelle Reamer · 1 years ago
    Thank you-this solved my problem very easily!