EXCEL'DE SAYININ HANGİ AYA EŞİT OLDUGU NASIL GORULUR?

[mdkarci2]

EXCEL'DE SAYININ HANGÝ AYA EÞÝT OLDUGU NASIL GORULUR?

B1 HUCRESINDE; A1 HUCRESINE YAZILAN SAYI HANGİ AY İSE ONUN GORUNMESINI NASIL YAPARIM.

A1 HUCRESINE 3 YAZIP

B1 HUCRESINDE MART
YAZMASINI ISTIYORUM.[/b]

 

[Mahmut Bayram]

Bu kodu Sayfa1'in kod bölümüne yazınız

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = 1 Then
Range("b1") = "Mart"
End If
End Sub

 

[Haluk]

Formulle bir alternatif;

 

[Necdet]

Sayın mdkarci2,
Fonksiyonlar bölümünde yazdığınıza göre fonksiyon kullanarak ay adını yazdırmayı ekliyorum, iki ayrı fonksiyon kullandım, dosyayı inceleyiniz
Benden önce yanıt verilmiş

 

[mehmett]

Sayın Mahmut Bayramın yazdığı kısa kodu geliştirirsek aşağıdaki kod çıkıyor ortaya. Böyle basit bir işleme göre biraz uzun oldu ama benim gibi acemi birinin yazdığı kod bu kadar olur. Ustalar el atmadan yazabildik çok şükür.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = 1 Then
Range("b1") = "Ocak"
End If
If Range("a1") = 2 Then
Range("b1") = "Þubat"
End If
If Range("a1") = 3 Then
Range("b1") = "Mart"
End If
If Range("a1") = 4 Then
Range("b1") = "Nisan"
End If
If Range("a1") = 5 Then
Range("b1") = "Mayıs"
End If
If Range("a1") = 6 Then
Range("b1") = "Haziran"
End If
If Range("a1") = 7 Then
Range("b1") = "Temmuz"
End If
If Range("a1") = 8 Then
Range("b1") = "Ağustos"
End If
If Range("a1") = 9 Then
Range("b1") = "Eylül"
End If
If Range("a1") = 10 Then
Range("b1") = "Ekim"
End If
If Range("a1") = 11 Then
Range("b1") = "Kasım"
End If
If Range("a1") = 12 Then
Range("b1") = "Aralık"
End If
If Range("a1") < 1 Then
Range("b1") = "Hatalı Giriş"
End If
If Range("a1") > 12 Then
Range("b1") = "Hatalı Giriş"
End If
End Sub

 

[Guest]

Bir tanede benden önce hücre formatını

[$-41F]aaaa

olarak değiştir ve B1 hücresine de

=A1*30

formulunu yazarsan istediğin olacaktır.
Çeşit olsun