Excel'de belirli bir şekle fare ucu nasıl eklenir?
Çoğu durumda, makroyu çalışma sayfanızda tıklatarak çalıştırmak için makroyu belirli bir şekle atamanız gerekir. Şekle makroyu atadıktan sonra, farenin ucunun üzerine eklemek, şeklin ileride ne kullanacağını size hatırlatmaya yardımcı olabilir. Bu makale, Excel'de belirli bir şekle fareyi uç eklemenin iki yöntemini gösterir.
Köprü ekleyerek belirli bir şekle fareyi uç ekleyin
VBA kodu ile belirli bir şekle fare ucu ekleyin
Köprü ekleyerek belirli bir şekle fareyi uç ekleyin
Çalışma sayfasındaki belirli bir şekle Ekran İpucu ile köprü ekleyebilirsiniz. Lütfen aşağıdaki işlemleri yapın.
1. Fare ucunun üzerine eklemeniz gereken şekle sağ tıklayın ve ardından Köprü sağ tıklama menüsünden. Ekran görüntüsüne bakın:
2. içinde Köprüyü Ekle iletişim kutusunda, Ekran İpucu buton. Ve içinde Köprü Ekran İpucunu Ayarla iletişim kutusunda, fareyle şeklin üzerine gelirken görüntülemeniz gereken ekran ipucu metnini girin. Son olarak tıklayın OK buton. Ekran görüntüsüne bakın:
3. Geri döndüğünde Köprüyü Ekle iletişim kutusunda, Yer imi buton. Ardından, hücrenin başvuru kutusundaki Tür'e A1 girin. Belgede Yer Seçin iletişim kutusunu tıklayın ve son olarak OK düğmesine basın.
4. Tıklayın OK düğmesi Köprüyü Ekle köprü oluşturmayı bitirmek için iletişim kutusu.
Artık fareyle şeklin üzerine geldiğinizde ekran ucunun görüntülendiğini görebilirsiniz.
VBA kodu ile belirli bir şekle fare ucu ekleyin
Aşağıdaki VBA kodunu çalıştırdıktan sonra belirli bir şekle fareyi kolayca ekleyebilirsiniz.
1. Fareyi üzerine getirdiğinizde göstereceğiniz ipucu içeren çalışma sayfasını açın. Sayfa sekmesine sağ tıklayın ve ardından bağlam menüsünden Kodu Görüntüle'ye tıklayın.
2. içinde Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki VBA kodunu Kod penceresine kopyalayın.
VBA Kodu 1: Belirli bir şekle fareyi ucun üzerine ekleyin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 2018/3/30
If Target.Address = Range("A1").Address Then
Call MoveRow
End If
End Sub
3. tık Ekle > modül. Ardından Modül penceresine aşağıdaki VBA kodunu girin.
VBA Kodu 2: Belirli bir şekle fareyi ucun üzerine ekleyin
Sub Text()
'Updated by Extendoffice 2018/3/30
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Set xShape = ActiveSheet.Shapes("Rectangle 4")
If Not xShape Is Nothing Then
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
End If
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
Call MoveRow
End If
Application.EnableEvents = True
End Sub
notlar:
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Daha sonra belirlenen ekran ucu hemen belirli şekle eklenir.
İlgili Makaleler:
- Excel'de belirtilen hücre değerine dayalı / bağlı olarak şekil boyutunu otomatik olarak nasıl değiştirebilirim?
- Excel'de şeffaf arka plan rengiyle bir şekil nasıl doldurulur?
- Excel'de belirtilen hücre değerine göre belirli bir şekli nasıl gizleyebilir veya gösterebilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!