Soru IF komutu uygulamak

Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Merhaba arkadaşlar;

txtprofil değişkenine şu şekilde bir şart nasıl oluşturabiliriz ?;

Enter a basıldığında;

1- eğer txtprofil içerisinde veri 40*40*2 ise önek olarak kutu40*40*2 yazsın.
2- eğer txtprofil içerisinde veri 26.9*3.2 ise önek olarak Boru26.9*3.2 yazsın --- Not : Borularda her zaman küsaratlı sayılar 26.9*3.2 gibi...
3- eğer txtprofil içerisinde veri 20*2 ise önek olarak L20*2 yazsın
4- eğer txtprofil içerisinde veri hea120 ise hea120 yazsın
5- eğer txtprofil içerisinde veri hem120 ise hem120 yazsın
6- eğer txtprofil içerisinde veri unp120 ise unp120 yazsın


yardımcı arkadaşa şimdiden teşekkürler.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Diğerlerini de aşağıdakine bakarak siz yaparsınız.
Kod:
Private Sub txtprofil_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If keykode = 13 Then
        Select Case txtprofil.Text
        Case "40*40*2"
           txtprofil.Text = "kutu40*40*2"
        Case "26.9*3.2"
           txtprofil.Text = "Boru26.9*3.2"
        End Select
    End If
End Sub
 
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
@Muzaffer Ali



hoacam öncelikle teşekkürler. , 40*30*3 girdiğimiz de ne olacak ,? bütün listeyi Case tanımlayamam..
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,616
Excel Vers. ve Dili
Microsoft 365 Tr-64
Denermisin
C++:
Private Sub txtprofil_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If keykode = 13 Then
        If Len(txtprofil) - Len(Replace(txtprofil, "*", "")) = 2 Then txtprofil.Value = "kutu" & txtprofil.Value: Exitsub
        If Len(txtprofil) - Len(Replace(Replace(txtprofil, "*", ""), ".", "")) = 3 Then txtprofil.Value = "boru" & txtprofil.Value: Exitsub
        If Len(txtprofil) - Len(Replace(txtprofil, "*", "")) = 1 Then txtprofil.Value = "L" & txtprofil.Value: Exitsub
    End If
End Sub
 
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
@NextLevel

Hocam Çok Teşekkürler, Tamamdır.. elinize sağlık.
 
Üst