[Yardım]  Büyük küçük harf çevir eklenti hatası

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Büyük küçük harf çevir eklenti hatası

İleti#1)  dragon44760 » 11 Haz 2022 23:09

Yıllar önce internette bulduğum büyük küçük harf dönüştürücü eklentisi Windows 10-microsoft office professional 2016 de hata veriyor. İlk hata verdiği kısmın kodunu ekleyeyim, VBA sürümü dolayısı ile başka hatalarda çıkabilecektir. Yardımcı olursanız sevinirim.
Kod: Tümünü seç
Private Sub prvGetFontList_API()
Dim lngDC As Long
Dim MyLogFont As LOGFONT
#If VBA6 Then
    MyLogFont.lfCharSet = DEFAULT_CHARSET
    MyLogFont.lfPitchAndFamily = 0
    MyLogFont.lfFaceName(1) = 0
    ReDim strFontList(0)
    lngDC = GetDC(0)
    Call EnumFontFamiliesEx(lngDC, MyLogFont, [b]AddressOf EnumFontFamExProc[/b], 0, 0)
    Call ReleaseDC(0, lngDC)
    ReDim Preserve strFontList(UBound(strFontList) - 1)
#End If
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
dragon44760
Yeni Başlamış
 
Adı Soyadı:soner yılmaz
Kayıt: 08 Mar 2010 00:49
Konum: SAMSUN
Meslek: MEMUR
Yaş: 36
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: tokat

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Büyük küçük harf çevir eklenti hatası

İleti#2)  dragon44760 » 11 Haz 2022 23:54

Hata bu kısımdadır

Kod: Tümünü seç
AddressOf EnumFontFamExProc
Kullanıcı avatarı
dragon44760
Yeni Başlamış
 
Adı Soyadı:soner yılmaz
Kayıt: 08 Mar 2010 00:49
Konum: SAMSUN
Meslek: MEMUR
Yaş: 36
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: tokat

Cevap: Büyük küçük harf çevir eklenti hatası

İleti#3)  halily » 12 Haz 2022 00:17

kodun amacını açıklara mısınız?
kod çalıştığında tam olarak ne yapması gerekiyor?
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Büyük küçük harf çevir eklenti hatası

İleti#4)  feraz » 12 Haz 2022 01:44

Merhaba.
Dosyayı incelemedim fakat eklediğiniz kodda ve silinmesi gerekiyor bence eğer dosyadaki koddada böyle ise.
Değilse office 32 ve 64bit ile alakalı bence.


AddressOf EnumFontFamExProc
Kullanıcı avatarı
feraz
İstenmeyen Üye
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6834
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

Cevap: Büyük küçük harf çevir eklenti hatası

İleti#5)  feraz » 12 Haz 2022 01:47

Önceki mesajda yandakiler yazılıydı kalın yazıya çevirmiş kısaca kodun başındaki parantez ve içindekib ve sonundaki parantezler ve /b silinecekti.
Kullanıcı avatarı
feraz
İstenmeyen Üye
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6834
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Büyük küçük harf çevir eklenti hatası

İleti#6)  dragon44760 » 12 Haz 2022 10:56

feraz yazdı:Önceki mesajda yandakiler yazılıydı kalın yazıya çevirmiş kısaca kodun başındaki parantez ve içindekib ve sonundaki parantezler ve /b silinecekti.

Kodu buraya atarken hata bölümünü belirtmek için Bold yapmaya çalıştım ancak olmadı. b'ler oradan kaldı, eklentiyi indirirsen kodda b olmadığını görebilirsin
Kullanıcı avatarı
dragon44760
Yeni Başlamış
 
Adı Soyadı:soner yılmaz
Kayıt: 08 Mar 2010 00:49
Konum: SAMSUN
Meslek: MEMUR
Yaş: 36
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: tokat

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Büyük küçük harf çevir eklenti hatası

İleti#7)  dragon44760 » 12 Haz 2022 10:59

halily yazdı:kodun amacını açıklara mısınız?
kod çalıştığında tam olarak ne yapması gerekiyor?

Açıkcası koda o kadar hakim değilim, söylediğim gibi internetten indirdiğim bir eklentiydi, hata çıkan kısımları sildiğimde eklenti çalışıyor, ancak hangi kısmı nasıl etkilendiğini bilmediğim için yardım istedim
Kullanıcı avatarı
dragon44760
Yeni Başlamış
 
Adı Soyadı:soner yılmaz
Kayıt: 08 Mar 2010 00:49
Konum: SAMSUN
Meslek: MEMUR
Yaş: 36
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: tokat

Cevap: Büyük küçük harf çevir eklenti hatası

İleti#8)  halily » 12 Haz 2022 12:07

kodun yaptığı işi ve kullanım amacını bilseydik ona uygun bir çözüm önerebilirdik belki ama bunları bilmeden çözüm öneremiyoruz
bildiğim kadarıyla AddressOf komutu 64 bitte hata veriyor
bazı durumlarda ptrsafe ve longptr ile sorun düzelse bile AddressOfta işe yaramıyor onun için yapmak istediğiniz şey önemli
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Cevap: Büyük küçük harf çevir eklenti hatası

İleti#9)  feraz » 12 Haz 2022 12:59

dragon44760 yazdı:
feraz yazdı:Önceki mesajda yandakiler yazılıydı kalın yazıya çevirmiş kısaca kodun başındaki parantez ve içindekib ve sonundaki parantezler ve /b silinecekti.

Kodu buraya atarken hata bölümünü belirtmek için Bold yapmaya çalıştım ancak olmadı. b'ler oradan kaldı, eklentiyi indirirsen kodda b olmadığını görebilirsin


Tüm userformları çalıştırdım hiçbirinde hata vermedi.
Benim office 2021 ve 32bit.
Pc ise 64bit.Zaten heralde 32bit bilgisayar kalmamıştır dünyada.
Küçük harf olayı zaten o kodlarla alakalı değil.

Alttaki koddaki LCase(Replace(Replace(metin, "I", "ı"), "İ", "i")) kısmı yapıyor ve zaten çoğu zaman işede yaramıyor bazı durumlarda abey.
Ayrıca kodlardakiApi kodları Ptrsafe ile yapılmış ama 32bittede çalışıyor :)
Yükleyebiliyorsanız office2021 32bit yükleyin kafanız ağrımaz.

Function LCaseTr(ByVal metin As String)
'__________________________________________________________________________________________________
'<<|||||||||||||||||||| Bir metin içerisinde Microsoftun ||||||||||||||||||||>>'
'<<|||||||||||||||||||| Lcase Fonksiyonu ile küçük harfe ||||||||||||||||||||>>'
'<<|||||||||||||||||||| dönmeyen karakterleri düzeltir. ||||||||||||||||||||>>'
'<<||||||||||||||||||||-----------------------------------------------------||||||||||||||||||||>>'
'<<|||||||||||||||||||| hsayar - www.excel.web.tr ||||||||||||||||||||>>'
'<<|||||||||||||||||||| 12/11/2007 - 15:45 ||||||||||||||||||||>>'
'<<||||||||||||||||||||_____________________________________________________||||||||||||||||||||>>'
'=================================================================================================§
LCaseTr = LCase(Replace(Replace(metin, "I", "ı"), "İ", "i"))
End Function
Kullanıcı avatarı
feraz
İstenmeyen Üye
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6834
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Büyük küçük harf çevir eklenti hatası

İleti#10)  halily » 12 Haz 2022 13:30

zafer hocam sizin daha önce önerdiğiniz
Evaluate("=upper(""" & metin & """)") kodu daha kullanışlı değil mi?

Küçük harfe çevirme
Kod: Tümünü seç
Function LCaseTr(ByVal metin As String) As String
LCaseTr = Evaluate("=lower(""" & metin & """)")
End Function

Büyük harfe çevirme
Kod: Tümünü seç
Function UCaseTr(ByVal metin As String) As String
UCaseTr = Evaluate("=upper(""" & metin & """)")
End Function
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Büyük küçük harf çevir eklenti hatası

İleti#11)  halily » 12 Haz 2022 13:33

çalışmanın tam amacını çalışma şeklini anlayamadığım için kod çalışıyor mu emin değilim
ama aşağıdaki değişikliklerden sonra
HsrFrm_BuyukKucukHarfDegistir formunu açtığımda hata vermedi ama ne iş yaptığını da anlamadım
normalde HsrFrm_BuyukKucukHarfDegistir formunu açıp her hangi bir seçeneğe tıkladığınızda ne yapması gerekiyordu?
Kod: Tümünü seç
'Değişiklikler
Private Function EnumFontFamExProc(lpelfe As LOGFONT, lpntme As TEXTMETRIC, _
                                   FontType As Long, LPALAM As Long) As Longptr
Dim j As Integer
Dim strBuff As String
Dim strBuff2 As String
Dim flg As Boolean

    If (Chr(lpelfe.lfFaceName(1)) <> "@") Then  'c‘‚«ƒtƒHƒ“ƒg‚Í•s‰Â
        strBuff = lpelfe.lfFaceName
        strBuff = LeftB(strBuff, InStrB(strBuff, ChrB(0)) - 1)
        strBuff2 = StrConv(strBuff, vbUnicode)
        flg = False
        For j = 0 To (UBound(strFontList) - 1)
            'Še‘Œê”Å‚Å“¯‚¶ƒtƒHƒ“ƒg–¼‚Ì‚à‚Ì‚ª•¡”‚ ‚é‚̂ŏd•¡–¼‚͏Ȃ­
            If (strFontList(j) = strBuff2) Then
                flg = True
                Exit For
            End If
        Next j
        If (flg = False) Then
            strFontList(UBound(strFontList)) = strBuff2
            ReDim Preserve strFontList(UBound(strFontList) + 1)
        End If
    End If

   EnumFontFamExProc = 1    'ŠÖ”‚Ì–ß‚è’l‚͏í‚É1
End Function

'____________________________________________
Public Declare PtrSafe Function EnumFontFamiliesEx Lib "gdi32" Alias "EnumFontFamiliesExA" _
        (ByVal hdc As Long, lpLogFont As LOGFONT, ByVal lpEnumFontProc As LongPtr, _
        ByVal lParam As Long, ByVal dw As Long) As Long
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Büyük küçük harf çevir eklenti hatası

İleti#12)  halily » 12 Haz 2022 13:39

tamam şimdi anladım formun işlevini
açık olan herhangi bir kitaptaki seçili hücrelerdeki veriyi değiştiriyor
büyük/küçük formu ilgili 2 değişikliği yapınca düzgün çalıştı
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Büyük küçük harf çevir eklenti hatası

İleti#13)  feraz » 12 Haz 2022 14:56

halily yazdı:zafer hocam sizin daha önce önerdiğiniz
Evaluate("=upper(""" & metin & """)") kodu daha kullanışlı değil mi?

Küçük harfe çevirme
Kod: Tümünü seç
Function LCaseTr(ByVal metin As String) As String
LCaseTr = Evaluate("=lower(""" & metin & """)")
End Function

Büyük harfe çevirme
Kod: Tümünü seç
Function UCaseTr(ByVal metin As String) As String
UCaseTr = Evaluate("=upper(""" & metin & """)")
End Function

Halil hocam eklediğim kod zaten ilk mesajdaki dosyada vardı onu ekledim.
Evet eklediğiniz evaluete daha kullanışlı gibi çünkü sorun çıkmıyordu denemelerde.
Kullanıcı avatarı
feraz
İstenmeyen Üye
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6834
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Büyük küçük harf çevir eklenti hatası

İleti#14)  dragon44760 » 13 Haz 2022 09:07

Yardımlarınız için teşekkürler, hallettim.
Kullanıcı avatarı
dragon44760
Yeni Başlamış
 
Adı Soyadı:soner yılmaz
Kayıt: 08 Mar 2010 00:49
Konum: SAMSUN
Meslek: MEMUR
Yaş: 36
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: tokat

Cevap: Büyük küçük harf çevir eklenti hatası

İleti#15)  hsayar » 22 Haz 2022 01:07

ktmesagebox dosyasından zamanında alıp uyarladığım ama şu an bende çalıştıramıyorum, ktmesagebox dosyası ile renkli, istediğin sayıda istediğin açıklamalı butonlu mesaj kutuları hazırlanabiliyordu. bu mesajı görünce kaynağına tekrar baktım ve çalışan bir sürüm buldum umarım uyarlayabilirim. http://addinbox.sakura.ne.jp/ktMsgBox_S ... nglish.htm
Felaket Başa Gelmeden Evvel Önleyici ve Koruyucu Tedbirler Düşünmek Lazım.

Felaket Geldikten Sonra Dövünmenin Yararı Yoktur.

Mustafa Kemal ATATÜRK
Kullanıcı avatarı
hsayar
Site Dostu
 
Adı Soyadı:Hüseyin SAYAR
Kayıt: 18 Eyl 2008 11:30
Meslek: Çalışma Ekonomisti
Yaş: 42
İleti: 630
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe