İ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

Bir hüceyrədə Excel-də şəkil varmı?

Bütün şəkilləri Excel-də aktiv iş yerində tapmaq və seçmək asandır. Ancaq bir hüceyrədə Excel-də bir şəkil varmı? Bu yazıda bir üsul sizə kömək edə bilər.

Bir hüceyrənin VBA kodu ilə şəkil çəkdiyini yoxlayın


Bir hüceyrənin VBA kodu ilə şəkil çəkdiyini yoxlayın


Aşağıdakı VBA kodu bir hüceyrənin bir şəkil var olub olmadığını yoxlamağa kömək edə bilər. Xahiş edirik bunu edin.

1. Müəyyən bir hüceyrədə olan şəkilin yoxlanılması üçün lazım olan iş kitabını açın və sonra basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra VBA kodunu Kod pencerəsinə kopyalayıb yapışdırın.

VBA kodu: Bir hüceyrənin Excel-də şəkil ehtiva etdiyini yoxlayın

Sub CellHasPicture()
    Dim xRg As Range
    Dim xShape As Shape
    Dim xFlag As Boolean
    On Error Resume Next
    Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xFlag = False
    For Each xShape In ActiveSheet.Shapes
        If xShape.TopLeftCell.Address = xRg.Address Then
            xFlag = True
        End If
    Next
    If xFlag Then
        MsgBox "Image exists!"
    Else
        MsgBox "Image does not exist"
    End If
End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Popping up Excel üçün Kutools informasiya qutusuna daxil edin, xahiş edirik bir şəkil varsa, yoxlamaq istədiyiniz kameranı daxil edin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

4. Bir şəkil varsa və ya göstərilən hüceyrədə olmadıqda göstərilən ekran görüntüsünün altından bir informasiya qutusu açı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.

Be the first to comment.