İ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

İşdən səhifəni Excel-də istifadəçiyə çatdırmaq üçün necə çıxarmaq olar?

Bu yazı, aktiv iş səhifəsindən Excel'de Userform'a şəkil çıxarmaq üsullarını göstərəcəkdir.

Kopyalamaq və yapışdırmaqla iş səhifəsindən İstifadəçi formunu kopyalayın

VBA koduyla iş şəklindəki şəkli Userform'a kopyalayın


Kopyalamaq və yapışdırmaqla iş səhifəsindən İstifadəçi formunu kopyalayın


İş şəklindən bir şəkilin İstifadəçi Formasına köçürülməsi üçün xahiş edirik.

1. İş səhifəsinə keçmək, Userform'a kopyalamaq üçün lazım olan şəkli ehtiva edir və sonra basın Dayandırmaq + F11 açmaq üçün birlikdə düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərədə basın Taxmaq > İstifadəçi formu. Ekran görüntüsünə baxın:

3. İndi İstifadəçi Formasına Image Control daxil edin. Xahiş edirik basın təsvir düyməsini basın Toolbox sonra informasiya qutusuna bir Image Control çəkin İstifadəçi Formatı əllə. Ekran görüntüsünə baxın:

4. Daxili Image nəzarətini sağ basın və vurun Properties kontekst menyusundan aşağıda göstərilən ekran görüntüsü kimi göstərilir:

5. Sonra bir bilərsiniz Properties panonun sol tərəfində göstərilir Proqramlar üçün Microsoft Visual Basic pəncərə.

6. İş səhifəsinə geri qayıdın və İstifadəçi şəklində göstərmək istədiyiniz şəkil seçin və sonra şəkli klikləyin Ctrl + C düymələri.

7. Daxil ol Proqramlar üçün Microsoft Visual Basic Yenidən vurmaq üçün aşağıya fırladın Şəkil sahə və sonra kopyalanan şəkil adını Alfabetik seksiyanın altına yapışdırın.

İndi iş səhifəsində olan şəkil Userform'a kopyalanır.


VBA koduyla iş şəklindəki şəkli Userform'a kopyalayın

Bu bölmə, işçi səhifədən bir neçə şəkli bir İstifadəçiforma kopyalamaq üçün bir müddətə göstəriş verəcəkdir və sonra bir şəkil qutusundan bir şəkil qutusundan seçərək Userform şəklində müvafiq şəkil göstərilir. Xahiş edirik bunu edin.

1. Xahiş edirik 1 və 2 yuxarıdakı addımı izləyib işçi səhifənizdə İstifadəçi formasını əlavə edin.

2. Sonra bir əlavə edin Frame Control Aşağıdakı ekran görüntüsündə göstərilən UserFrom daxilində:

3. Daxili Frame-i sağ basın və seçin Properties kontekst menyusundan. Solda Properties bölməni seçin Saxta dən Görünən sahə. Ekran görüntüsünə baxın:

4. Aşağıdakı ekran görüntüsü kimi Çox Şəkil nəzarətini Çərçivəyə daxil edin.

5. İş səhifəsinə qayıdın və İstifadəçi şəklində göstərmək istədiyiniz şəkil seçin və basın Ctrl + C onu kopyalamaq üçün düymələr.

6. Daxil ol Proqramlar üçün Microsoft Visual Basic pəncərədə birinci Image nəzarətini sağ basın və seçin Properties sağ tıklayarak menyudan. Ekrana baxın.

7. İçində Properties bölməni basın Şəkil sonra sahəsində basın Ctrl + V 5 addımında kopyaladığınız resmi yapışdırıb açın və sonra seçin 1 - fmPictureSizeModeStrtch dən PictureSizeMode Aşağıdakı açar siyahıdan ekran görüntüsü göstərilir.

8. Xəttləri 5-7-i işlənmiş səhifədən digər şəkilləri UserForm-un tərkibindəki Image nəzarətlərinə yapışdırın. Nəticə ekran görüntüsünün aşağıda göstərildiyi kimi göstərilir.

9. Move the Çərçivə UserForm'un küncünə nəzarət edin, sonra yeni bir əlavə edin təsvir nəzarət və a Combo Box nəzarət UserForm daxil. Ekran görüntüsünə baxın:

10. Sağa vurun İstifadəçi Formatı, və sonra basın Kodları baxın. Sonra, kodun pəncərəsinə orijinalini əvəz etmək üçün VBA kodu altından kopyalayıb yapışdırın.

VBA kodu1: İş şəklindən İstifadəçiforma kopyala

Private Sub ComboBox1_Change()
    UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
    Dim xImg As Control
    On Error Resume Next
    For Each xImg In UserForm1.Controls
        If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
            UserForm1.ComboBox1.AddItem xImg.Name
        End If
    Next
End Sub

Qeyd: Kodda, UserForm1 daxil edilmiş İstifadəçi Formasının adıdır, Image4 Şəkil içərisində şəkilləri göstərəcək Image nəzarətinin adıdır. Və şəkil iş səhifəsindən kopyaladığınız şəkilləri ehtiva edən bütün Image nəzarətlərini təmsil edir. ComboBox1 userformuna daxil etdiyiniz combobox adıdır. Onları özünüzə dəyişdirin.

11. Yaxınlığı bağlayın Proqramlar üçün Microsoft Visual Basic pəncərə.

12. İş düyməsinə bir əmr düyməsini kliklə daxil edin Developer > Taxmaq > Command Button (ActiveX Control).

13. Komanda düyməsini sağ basın və seçin Kodları baxın Kontekst menyusundan. Aşağıdakı VBA kodunu Kod pencerəsinə köçürün və yapışdırın. Və nəhayət, pəncərəni bağlayın.

VBA kodu2: İş şəklindən İstifadəçiforma kopyala

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. klik Developer > Dizayn Moda Dizayn rejimi söndürmək üçün.

Bundan sonra, komanda düyməsini basarkən UserForm açılır. Birbaşa giriş qutusundan şəkil adını seçərək şəkil göstərə bilərsiniz. Ekran görüntüsünə baxın:

Combo qutusundan fərqli adlar seçmək UserForm'da fərqli şəkillər göstərilir.


Ə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.

Be the first to comment.