• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hızlı Cevap Alanına [CODE][/CODE] Tagları Kullanımı Ekleme

Murat OSMA

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,509
Excel Vers. ve Dili
Microsoft 365 TR-EN
Merhabalar,

Mümkünse "Hızlı Cevap Alanı"ndaki taglara,
Kod: 
[/B] tagı da eklenebilir mi ? :dusun:

Teşekkür ederim.[/FONT]
 
Merhaba Murat bey, bununla ilgili hazır bir ayar bulamadım. Sanıyorum forum yazılımına müdahele etmek gerekir. Bu konuda birde Hüseyin beyden yorum bekleyelim.
 
Merhaba,

Daha önce de dile getirdim...

[FONT=&quot]
Kod: 
[/FONT][/B][FONT=&quot] tagında [/FONT][B]"Tümünü Seç"[/B] eklenmesi kopyalamada kolaylık getirecektir.
 
Merhaba Arkadaşlar,
"Hızlı Cevap" kutusundaki butonların en sağına CODE butonu eklenmiştir.

Bu arada;
bu mesajı tesadüfen gördüm.

Benim çalışma yapmam gereken durumlarda bir mesaj ile bilgi verebilirseniz memnun olurum.
Sonra yazdık ama Hüseyin ilgilenmedi diye düşünürseniz üzülürüm :oops:
 
Mahir' Alıntı:
Merhaba,

Daha önce de dile getirdim...

[FONT=&quot]
Kod: 
[/FONT][/B][FONT=&quot] tagında [/FONT][B]"Tümünü Seç"[/B] eklenmesi kopyalamada kolaylık getirecektir.[/QUOTE]

Sayın Mahir,
doğru anladıysam CODE butonu tıklandığında mesajın tamamının otomatik seçilmesini istiyorsunuz.
Bunun çok faydalı olacağını düşünmüyorum, zira genelde aynı mesaj içinde yorum ve kod olabiliyor. Bu durumda mesaj ile kodu ayırmak gerekecek. 
Bence CODE tagı içinde olacak bölümü biz elle seçersek daha kullanışlı olur.

Yanlış anladıysam lütfen konuyu biraz daha açar mısınız?
Veya diğer arkadaşlar da bu konuda görüşlerini paylaşabilir mi?
Genişletmek için tıkla ...
 
Hüseyin bey,

Mesela aşağıdaki örnek mesajdaki kod ekrana sığmıyor. Cevabı alan üyemiz ya da biz kodun tamamını seçebilmek adına mouse ile tarama yapmak zorunda kalıyoruz. Mahir beyin bahsettiği durum budur. Bazı bu tarz forumlarda hemen kod penceresinin üst satırında "Tümünü Seç" seçeneği bulunmaktadır.

Bu seçeneğe tıkladığınızda kod penceresindeki tüm kodlar otomatik seçiliyor. Kullanıcıya sadece kopyala komutunu vermek kalıyor.

Örnek
 
Kod: 
Sub Deneme ()
For a = 1 to 100
cells(a,a) = a
Next a

Güzel oldu.
 
Kod tagı için çok teşekkür ederim. :ok::
Her seferinde Gelişmiş Moda geçmek zaman kaybettiriyordu, şimdi daha iyi oldu.

Tümünü Seç olayı benim çok hoşuma giden ve kopyalamada kolaylık sağlayan bir uygulama.
Bazen uzun kodları kopyalarken, fareyi sağa-sola-yukarı-aşağı fazla çektiğimizde, istemediğimiz alanları da seçebiliyoruz.
Bazen de bir türlü tutturamadığım oluyor. :D

Hüseyin Bey, bildiğim kadarıyla hem alıntı hem de kod tagı aynı anda kullanılsa bile, bunlar iç içe ama ayrı bloklarda görünüyor ve Tümünü Seç butonu ya da yazısına tıkladığımızda, ayrı bloklarda oldukları için için sadece kodu kopyalayabiliyoruz.. diye biliyorum.

Tekrar teşekkürler.

Hoşça kalın !!!
 
Korhan Ayhan' Alıntı:
Hüseyin bey,

Mesela aşağıdaki örnek mesajdaki kod ekrana sığmıyor. Cevabı alan üyemiz ya da biz kodun tamamını seçebilmek adına mouse ile tarama yapmak zorunda kalıyoruz. Mahir beyin bahsettiği durum budur. Bazı bu tarz forumlarda hemen kod penceresinin üst satırında "Tümünü Seç" seçeneği bulunmaktadır.

Bu seçeneğe tıkladığınızda kod penceresindeki tüm kodlar otomatik seçiliyor. Kullanıcıya sadece kopyala komutunu vermek kalıyor.

Örnek
Genişletmek için tıkla ...

Heee, şimdi anladım. Pardon.

Bir düzenleme yaptım.
Kod alanına tıklandığında kodun tamamı seçili hale geliyor.

Deneyip sonucu bildirirseniz memnun olurum.

Kod: 
Bu alana
tıklarsanız
hepsi seçili 
hale gelmesi gerekir
 
Hüseyin' Alıntı:
Heee, şimdi anladım. Pardon.

Bir düzenleme yaptım.
Kod alanına tıklandığında kodun tamamı seçili hale geliyor.

Deneyip sonucu bildirirseniz memnun olurum.

Kod: 
Bu alana
tıklarsanız
hepsi seçili 
hale gelmesi gerekir
Genişletmek için tıkla ...

Murat Bey,
kendi mesajını alıntı yaparak deneme yapıyorum.
 
Murat OSMA' Alıntı:
Kod tagı için çok teşekkür ederim. :ok::
Her seferinde Gelişmiş Moda geçmek zaman kaybettiriyordu, şimdi daha iyi oldu.

Tümünü Seç olayı benim çok hoşuma giden ve kopyalamada kolaylık sağlayan bir uygulama.
Bazen uzun kodları kopyalarken, fareyi sağa-sola-yukarı-aşağı fazla çektiğimizde, istemediğimiz alanları da seçebiliyoruz.
Bazen de bir türlü tutturamadığım oluyor. :D

Hüseyin Bey, bildiğim kadarıyla hem alıntı hem de kod tagı aynı anda kullanılsa bile, bunlar iç içe ama ayrı bloklarda görünüyor ve Tümünü Seç butonu ya da yazısına tıkladığımızda, ayrı bloklarda oldukları için için sadece kodu kopyalayabiliyoruz.. diye biliyorum.

Tekrar teşekkürler.

Hoşça kalın !!!
Genişletmek için tıkla ...

Murat Bey,
bir önceki mesajımda içinde CODE tagı olan mesajımı QUOTE ile alıntı yaparak kullandım.
Onun içinde de sadece CODE olan alanda tıklama yapınca kodu otomatik seçiyor.
Yani bence doğru çalışıyor.
 
Evet Hüseyin Bey, bende az önce Mustafa Bey'e bu konuda cevap yazarken fark ettim... http://www.excel.web.tr/f48/belirli-satyrlar-dolu-se-onay-kutularyny-secme-t114575.html

Ellerinize sağlık çok güzel olmuş. Hatta Tümünü Seç'ten bile daha kullanışlı uygulama olmuş. :bravo:

Yalnız, yukarıda verdiğim bağlantıdaki 2. mesaja bakarsanız, orada kodu yazdıktan sonra font ve size değişiklikleri yapmıştım, onlarda görünüyor...
Buna bir çözüm var mıdır ? Yoksa; font ve size değişiklerini kullanmamalı mıyım ?

Teşekkür ederim.
 
Merhaba,

Hüseyin bey "Kod:" ifadesinin yanına bir açıklama eklersek üyelerimizi yönlendirmiş oluruz.

Kod: (Tümünü seçmek için kod alanına tıklayınız..)
 
Çok güzel gelişmeler. Öneren ve gerçekleştiren arkadaşlara çok teşekkürler.
 
Murat OSMA' Alıntı:
Evet Hüseyin Bey, bende az önce Mustafa Bey'e bu konuda cevap yazarken fark ettim... http://www.excel.web.tr/f48/belirli-satyrlar-dolu-se-onay-kutularyny-secme-t114575.html

Ellerinize sağlık çok güzel olmuş. Hatta Tümünü Seç'ten bile daha kullanışlı uygulama olmuş. :bravo:

Yalnız, yukarıda verdiğim bağlantıdaki 2. mesaja bakarsanız, orada kodu yazdıktan sonra font ve size değişiklikleri yapmıştım, onlarda görünüyor...
Buna bir çözüm var mıdır ? Yoksa; font ve size değişiklerini kullanmamalı mıyım ?

Teşekkür ederim.
Genişletmek için tıkla ...

Teşekkür ederim Murat Bey.

Uygulama CODE /CODE tagları içinde ne görüyorsa tıklandığında seçili yapıyor.
Dolayısı ile CODE tan sonra başka tag kullanmamak gerekecek.
 
Korhan Ayhan' Alıntı:
Merhaba,

Hüseyin bey "Kod:" ifadesinin yanına bir açıklama eklersek üyelerimizi yönlendirmiş oluruz.

Kod: (Tümünü seçmek için kod alanına tıklayınız..)
Genişletmek için tıkla ...

Bunu başta ben de düşündüm;
Sonra vazgeçtim.

Kişi bu özelliği bilmese bile kodu seçmek isterse zaten bu alana tıklayacak diye düşündüm.
O zaman tümünün seçili hale geldiğini de otomatik olarak görecek.

Ancak yinede yazalım derseniz sorun değil...
 
Kod: 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, Satır As Long
    Dim Kontrol_1 As Byte, Kontrol_2 As Byte
    Dim Veri, WF As WorksheetFunction
    
    Set S1 = Sheets("Veri Girişi")
    Set S2 = Sheets("Tutanak")
    Set WF = WorksheetFunction
    Satır = 25
    
    S2.Range("A25:J" & Rows.Count).ClearContents
    
    For X = 2 To S1.Cells(Rows.Count, 1).End(3).Row
        On Error Resume Next
        Veri = WF.Round(S1.Cells(X, "N") / S1.Cells(X, "K"), 3)
        On Error GoTo 0
        
        If S1.Cells(X, "N") <> 0 And S1.Cells(X, "K") = 0 Then
            Kontrol_1 = 1
        ElseIf Veri >= 0.045 And Veri <= 0.055 Then
            Kontrol_1 = 1
        ElseIf Veri >= 0.095 And Veri <= 0.105 Then
            Kontrol_1 = 1
        ElseIf Veri >= 0.14 And Veri <= 0.155 Then
            Kontrol_1 = 1
        ElseIf Veri = -1 Then
            Kontrol_1 = 1
        ElseIf Veri = 0 Then
            Kontrol_1 = 1
        End If
        
        On Error Resume Next
        Veri = WF.Round(S1.Cells(X, "M") / S1.Cells(X, "S"), 3)
        On Error GoTo 0
        
        If S1.Cells(X, "M") <> 0 And S1.Cells(X, "S") = 0 Then
            Kontrol_2 = 1
        ElseIf Veri >= 0.045 And Veri <= 0.055 Then
            Kontrol_2 = 1
        ElseIf Veri >= 0.095 And Veri <= 0.105 Then
            Kontrol_2 = 1
        ElseIf Veri >= 0.14 And Veri <= 0.155 Then
            Kontrol_2 = 1
        ElseIf Veri = -1 Then
            Kontrol_2 = 1
        ElseIf Veri = 0 Then
            Kontrol_2 = 1
        End If
        
        If Kontrol_1 <> 1 Or Kontrol_2 <> 1 Then
            S2.Cells(Satır, 1) = S1.Cells(X, "D")
            S2.Cells(Satır, 2) = S1.Cells(X, "E")
            S2.Cells(Satır, 3) = S1.Cells(X, "G")
            S2.Cells(Satır, 4) = S1.Cells(X, "H")
            S2.Cells(Satır, 5) = S1.Cells(X, "I")
            S2.Cells(Satır, 6) = S1.Cells(X, "J")
            S2.Cells(Satır, 7) = S1.Cells(X, "K")
            S2.Cells(Satır, 8) = S1.Cells(X, "M")
            S2.Cells(Satır, 9) = S1.Cells(X, "N")
            S2.Cells(Satır, 10) = S1.Cells(X, "S")
            Satır = Satır + 1
        End If
    
        Kontrol_1 = 0: Kontrol_2 = 0
    Next
                
    S2.Select
    
    Set S1 = Nothing
    Set S2 = Nothing
    Set WF = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Korhan Beyin verdiği link için deneme.
 
Son düzenleme:
Çok iyi oldu. Buna benzer Taruz'un gündeme getirdiği özellik vardı. Kod içeriklerinin renklendirilmesi idi. Bunu da eklemek mümkün mü?
 
Hüseyin bey,

Aşağıdaki linkte soruya cevap verirken
Kod: 
 tagı içinde önerdiğim formülde bir bölümü renkli göstermem gerekliydi. Fakat Murat beyin belirttiği gibi uygulanan "font" özelliklerini gösterdiği için kullanamadım. Mecburen [Quate] tagını kullanmak zorunda kaldım. Buna bir çözüm bulamazmıyız.
 
[URL="http://www.excel.web.tr/showthread.php?goto=newpost&t=114803"]Çözemediğim Formül EĞER[/URL]
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst