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

[Murat OSMA]

Merhabalar,

Mümkünse "Hızlı Cevap Alanı"ndaki taglara,

[/B] tagı da eklenebilir mi ? :dusun:

Teşekkür ederim.[/FONT]

 

[Levent Menteşoğlu]

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.

 

[Mahir64]

Merhaba,

Daha önce de dile getirdim...

[FONT=&quot]

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

 

[Hüseyin]

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

 

[Hüseyin]

Merhaba,

Daha önce de dile getirdim...

[FONT=&quot]

[/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?

 

[Korhan Ayhan]

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

 

[ExcelF1]

Sub Deneme ()
For a = 1 to 100
cells(a,a) = a
Next a

Güzel oldu.

 

[Murat OSMA]

Kod tagı için çok teşekkür ederim. k::
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.

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 !!!

 

[Hüseyin]

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

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.

Bu alana
tıklarsanız
hepsi seçili 
hale gelmesi gerekir

 

[Hüseyin]

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.

Bu alana
tıklarsanız
hepsi seçili 
hale gelmesi gerekir

Murat Bey,
kendi mesajını alıntı yaparak deneme yapıyorum.

 

[Hüseyin]

Kod tagı için çok teşekkür ederim. k::
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.

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 !!!

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.

 

[Murat OSMA]

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.

 

[Korhan Ayhan]

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..)

 

[YUSUF44]

Çok güzel gelişmeler. Öneren ve gerçekleştiren arkadaşlara çok teşekkürler.

 

[Hüseyin]

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.

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.

 

[Hüseyin]

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..)

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...

 

[Murat OSMA]

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.

Anladım Hüseyin Bey. k::

 

[ExcelF1]

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.

 

[Zeki Gürsoy]

Ç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ü?

 

[Korhan Ayhan]

Hüseyin bey,

Aşağıdaki linkte soruya cevap verirken

 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]