ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Belirtiler
Microsoft Excel 2000, bir çalışma sayfasındaki tüm köprüler seçmenize olanak tanır yok bir menü komutu vardır.
Pratik Çözüm
Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; satılabilirlik ve/veya belirli bir amaca uygunluk da dahil, ancak bununla sınırlı olmamak kaydıyla, örtülü veya açık garanti vermez. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek uzmanları, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler. Programlama deneyiminiz kısıtlıysa, bir Microsoft Sertifikalı İş Ortağı'na veya Microsoft Danışmanlık Hizmetleri'ne başvurabilirsiniz. Daha fazla bilgi için şu Microsoft Web sitelerini ziyaret edin:
'This Sub procedure selects all cells in the worksheet that contain'hyperlinks. You can then clear the selected cells to delete all of'the hyperlinks.Sub SelectAllHyperlinkCells() FirstCell = 1 For Each xLink In ActiveSheet.Hyperlinks If FirstCell = 1 Then Set xRange = xLink.Range FirstCell = 0 Else Set xRange = Application.Union(xRange, xLink.Range) End If Next xLink xRange.SelectEnd Sub
Daha fazla bilgi
Diğer makrolar köprüler ile çalışma
Tüm bir çalışma sayfasındaki köprülerin dolaşma ve belirli bir işlemi her köprü için Microsoft Visual Basic for Applications altyordam kullanabilirsiniz. Örneğin, tüm köprüleri silebilirsiniz veya yalnızca, her köprünün konumunu bildirebilirsiniz.
Not: bazı kod satırlarını, bu belgeyi satır devam karakterleri (_) değiştirildi.
Microsoft Excel'de yeni bir çalışma kitabı oluşturun.
Araçlar menüsünden, makro ' nun üzerine gelin ve sonra Visual Basic Düzenleyicisi ' ni tıklatın.
'This Sub procedure deletes all hyperlinks in the active worksheet.Sub DeleteAllHyperlinks() For Each xLink In ActiveSheet.Hyperlinks xLink.Delete Next xLinkEnd Sub'This Sub procedure displays a series of message boxes indicating'the location of each hyperlink in the active worksheet.Sub ReportHyperlinkLocations() For Each xLink In ActiveSheet.Hyperlinks MsgBox xLink.Range.Address Next xLinkEnd Sub'This Sub procedure identifies each hyperlink and asks if you want'to delete it. If you click Yes, the hyperlink is deleted.Sub ReportAndDeleteHyperlinks() For Each xLink In ActiveSheet.Hyperlinks Response = MsgBox("Delete hyperlink in cell " & _ xLink.Range.Address & " ?", vbYesNo) If Response = vbYes Then xLink.Delete Next xLinkEnd Sub
Dosya menüsünde Kapat ve Microsoft Excel'e dön'ı tıklatın.
Çalışma sayfanızdaki bazı köprü eklerseniz, makro için Araçlar menüsünden Seçenekler'ı ve sonra makrolar ' ı tıklatarak farklı makroları çalıştırabilirsiniz. Çalışacak olan makronun adını seçin ve sonra da <a2>Çalıştır</a2>'ı tıklatın.
DeleteAllHyperlinks() makro aralığı, ancak köprü metni <a2>Köprü</a2> özelliği siler. Bu köprü metninin bırakır.
Referanslar
Köprüler, Visual Basic Düzenleyicisi'nde hakkında daha fazla bilgi için Yardım menüsünde Microsoft Visual Basic Yardımı ' nı tıklatın, Köprü nesnesi, Office Yardımcısı'na veya Yanıt Sihirbazı'nı yazın ve sonra döndürülen konuları görüntülemek için Ara ' yı tıklatın.
URL "select.special" specialcells rutin yordam XL2000 bağlantı
Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır