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

Katılım
9 Ağustos 2005
Mesajlar
1
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

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Formulle bir alternatif;
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,180
Excel Vers. ve Dili
Ofis 365 Türkçe
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

Altın Üye
Katılım
18 Mayıs 2005
Mesajlar
2,571
Excel Vers. ve Dili
Excel 2010 Türkçe
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. :)

Kod:
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
 
G

Guest

Misafir
Bir tanede benden önce hücre formatını
Kod:
[$-41F]aaaa
olarak değiştir ve B1 hücresine de
Kod:
=A1*30
formulunu yazarsan istediğin olacaktır.
Çeşit olsun :D
 
Üst