Soru IF komutu uygulamak

[k0081]

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]

Merhaba.
Diğerlerini de aşağıdakine bakarak siz yaparsınız.

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

 

[k0081]

@Muzaffer Ali



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

 

[ÖmerFaruk]

Denermisin

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

 

[k0081]

@NextLevel

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