Sayfa İsimlerini Mause Kullanmadan Değiştirme

Excel konusundaki ufak ama önemli püf noktalara buradan ulaşabilirsiniz

Sayfa İsimlerini Mause Kullanmadan Değiştirme

İleti#1)  OrkmesB » 17 Arl 2013 11:08


Excel sayfalarımızın isimlerini değiştirmek istediğimizde, mause kullanmadan ALT tuşunu basılı tutup, sırayla O H R harflerine bastığımızda, sayfanın ismini değiştirebilecek hale getirebiliyoruz. Default olarak Sayfa1/Sheet1 gelir önce.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
“Benim yaradılışımda fevkâlade olan bir şey varsa, Türk olarak dünyaya gelmemdir"

ExcelDepo
Kullanıcı avatarı
OrkmesB
Yönetim Kurulu
 


 
Adı Soyadı:Bahadır Örkmes
Kayıt: 14 Haz 2008 18:26
Konum: Gökçeali
Meslek: Personel Müdürü
Yaş: 41
İleti: 5050
 

Cevap: Sayfa isimlerini mause kullanmadan değiştirme

İleti#2)  Murat OSMA » 17 Arl 2013 11:29

Şu kodlar da kullanılabilir;

Kod: Tümünü seç
DefLng B, E, I, R
DefStr S
Public Declare Function GetAsyncKeyState Lib 
"User32" (ByVal vKey As Long) As Long

Sub Sayfa_İsimlerini_Değiştir
()
    e = 1: b = 0
    f 
= Now() + TimeValue("00:00:04")
    Do While Now() < f
        For i 
= 1 To 255
            r 
= 0
            r 
= GetAsyncKeyState(i)
            If r = -32767 Then s = s + Chr$(i)
        Next i
    Loop
    On Error Resume Next
    For i 
= 1 To Sheets.Count
        Sheets
(i).Name = Mid(s, i, 1)
    Next i
    s 
= ""
    i = Empty: r = Empty: e = Empty: b = Empty: s = ""
End Sub


Butona bastıktan sonra ya da herhangi bir tetikleme yaptıktan sonra 4 sn. içinde (zamanı kendine göre ayarlayabilir ya da iptal edebilirsiniz) hangi tuşlara basarsanız, sayfa isimleri sırayla o tuşların ismini alır.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14388
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Sayfa İsimlerini Mause Kullanmadan Değiştirme

İleti#3)  Erhan Yavuz » 17 Arl 2013 11:34

Teşekkürler.. şkşk [op]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 61
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Sayfa İsimlerini Mause Kullanmadan Değiştirme

İleti#4)  ANGEL 2 » 17 Arl 2013 12:44

Bilmediğim bir püf nokta daha öğrendim.Teşekkürler. --)( şkşk
Kullanıcı avatarı
ANGEL 2
Site Dostu
 
Adı Soyadı:OKAN GÖK
Kayıt: 17 Şub 2010 17:59
Konum: ANTALYA
Meslek: MUHASEBE
Yaş: 43
İleti: 879
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Excel'in Püf Noktaları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe