(Yard�m) Excel de form�l yaz�m� hk.

(Yard�m) Excel de form�l yaz�m� hk.
Sayfaya git: 1, 2, Sonraki

Ultima Online Forum -> Konu D��

Yazar

Mesaj

Sosaria
Efsane

Ya�: 40
Kay�t: 22 A�u 2010
Mesajlar: 1,100
Cinsiyet: Erkek
Nerden: Bafiros

Te�ekk�r: 72

Durumu: �evrimd��

Sosaria
Efsane

Konu: (Yard�m) Excel de form�l yaz�m� hk.

Merhaba arkada�lar,

Excel de bir konuda yard�m istiyorum, aram�zda muhakkak bilgili arkada�lar var.

��yle bir sorum var;

_________A________B________C________D________E________F________G
1.............14.........10 G�n...20.06.2016...23.06.2016.....4
2

Form�l ��yle ki, E=D1-C1+1 buradaki +1 olmazsa 23-20 3 olarak g�steriyor ancak izine ��k�ld��nda o g�nk� tarihte baz al�nd��ndan 4 g�n izin alm�� olunuyor.

B=A-E bu form�lde direk do�ru sonu� ��k�yor.

Ancak C ve D s�tununda yer alan tarihler yazmad��nda,

_________A________B________C________D________E________F________G
1.............14.........13 G�n............................................1
2

haliyle +1 dedi�imiz i�in otomatik olarak 1 kal�yor, bu say� da di�er form�lle ba��nt�l� oldu�u i�in izin say�s�n� bir d��r�yor.

�stedi�im form�l �u;

E�er C ve D s�tununda de�er yok ise E 0 olsun var ise +1 eklesin.

Umar�m anlatabilmi�imdir. :)

Yard�mlar�n�z i�in �imdiden te�ekk�r ederim.

Sevgi ve sayg�lar�mla.
Hakan Ert�rk

24 Hzr 2016 20:55

fingon
Oyuncu

Avatar

Ya�: 39
Kay�t: 20 Ksm 2015
Mesajlar: 24
Cinsiyet: Erkek

Te�ekk�r: 10

Durumu: �evrimd��

fingon
Oyuncu

Konu: Yan�t: (Yard�m) Excel de form�l yaz�m� hk.

Merhaba �u form�l� deneyebilirmisiniz ?

=IF(C4=0;0;D4-C4+1)

=E�er(Ko�ul; �art sa�land� ise yap�lacak i�lem; �art sa�lanmad� ise yap�lacak i�lem)

Ko�ul >>> C4=0 C4'e s�f�r yazman�za gerek yok bo�ta b�rak�labilir

�art sa�land� ise yap�lacak i�lem >>> 0

�art sa�lanmad� ise yap�lacak i�lem >>> D4-C4+1

24 Hzr 2016 22:16

Bu mesaja te�ekk�r edenler (1 ki�i): Sosaria

Sosaria
Efsane

Ya�: 40
Kay�t: 22 A�u 2010
Mesajlar: 1,100
Cinsiyet: Erkek
Nerden: Bafiros

Te�ekk�r: 72

Durumu: �evrimd��

Sosaria
Efsane

Konu: Yan�t: (Yard�m) Excel de form�l yaz�m� hk.

IF de�ilde E�ER yazd�m form�l tamam. biraz daha k�sa oldu sizinki oysa ��yle bir form�l �zerinde �al��yordum.

=E�ER(VE(D3<>"";C3<>"");D3-C3;"")& "0"

yukar�daki form�lde c de veya d de de�er yoksa e de kar��k rakam ��karm�yor (-42523 vb. gibi)

yaln�z ayn� g�n tarihi yazd��mda E de 00 yaz�yor :D form�l kar��t�. sizin form�l ile bunu birle�tirirsem olacak gibi :)

te�ekk�r ederim ilginize

24 Hzr 2016 22:37

Sosaria
Efsane

Ya�: 40
Kay�t: 22 A�u 2010
Mesajlar: 1,100
Cinsiyet: Erkek
Nerden: Bafiros

Te�ekk�r: 72

Durumu: �evrimd��

Sosaria
Efsane

Konu: Yan�t: (Yard�m) Excel de form�l yaz�m� hk.

=E�ER(VE(C3<>"";D3<>"");D3-C3+1;"")

E�er c de ve d de de�er varsa yukar�daki form�l tamam, ancak c de ve de de�er yoksa b de #de�er hatas� veriyor :(

az kald� san�r�m ��z�lecek

24 Hzr 2016 22:47

fingon
Oyuncu

Avatar

Ya�: 39
Kay�t: 20 Ksm 2015
Mesajlar: 24
Cinsiyet: Erkek

Te�ekk�r: 10

Durumu: �evrimd��

fingon
Oyuncu

Konu: Yan�t: (Yard�m) Excel de form�l yaz�m� hk.

C4 ve D4 h�crelerinden herhangi birinde de�er olmad��nda hata vermeyecek �ekilde ayarlard�m

=IF(C4=0;0;IF(D4=0;0;D4-C4+1))

24 Hzr 2016 22:49

Bu mesaja te�ekk�r edenler (1 ki�i): Sosaria

Sosaria
Efsane

Ya�: 40
Kay�t: 22 A�u 2010
Mesajlar: 1,100
Cinsiyet: Erkek
Nerden: Bafiros

Te�ekk�r: 72

Durumu: �evrimd��

Sosaria
Efsane

Konu: Yan�t: (Yard�m) Excel de form�l yaz�m� hk.

evet oldu :)

=E�ER(C1=0;0;E�ER(D1=0;0;D1-C1+1))

hi� bir �ekilde hata vermedi, ayn� g�n tarihli izinde 1 eksiltti ve di�er g�nlerde de do�ru i�liyor.

�lginize te�ekk�r ederim.

Son bir ka� g�nd�r excel'i �ok sevmeye ba�lad�m :D yap�lamayacak �ey yok :)

��yle bir form�l daha ekleyeyim mant�k y�r�t�l�rse tarih de�eri k��k yaz�ld��nda de�er 0 olacak bu da bir yerde hata yap�ld��n� g�sterecek

=E�ER(YADA(C1="";D1="";D1<C1);0;D1-C1+1)

24 Hzr 2016 22:55, De�i�tirme: 24 Hzr 2016 23:23 (Toplamda 1 kere)

Bu mesaja te�ekk�r edenler (1 ki�i): fingon

fingon
Oyuncu

Avatar

Ya�: 39
Kay�t: 20 Ksm 2015
Mesajlar: 24
Cinsiyet: Erkek

Te�ekk�r: 10

Durumu: �evrimd��

fingon
Oyuncu

Konu: Yan�t: (Yard�m) Excel de form�l yaz�m� hk.

Yard�mc� olabildiysem ne mutlu bana. Excel g�zeldir ger�ekten s�n�r� yok bunun en g�zel �rne�ide Tatsuo Horiuchi'nin excelde yapt�� resim �al��malar�.

24 Hzr 2016 23:05

Bu mesaja te�ekk�r edenler (2 ki�i): stell1236, Sosaria

fingon
Oyuncu

Avatar

Ya�: 39
Kay�t: 20 Ksm 2015
Mesajlar: 24
Cinsiyet: Erkek

Te�ekk�r: 10

Durumu: �evrimd��

fingon
Oyuncu

Konu: Yan�t: (Yard�m) Excel de form�l yaz�m� hk.

Form�l� biraz abartal�m ve ne yanl�� yada eksik yaz�ld�ysa ona g�re hata versin.

E h�cresi form�l�

Kod:

=IF(AND(C2=0;D2=0);"Hata:Tarihleri Kontrol Ediniz";IF(C2=0;"Hata:�zine ��k�� Tarihi Giriniz";IF(D2=0;"Hata:�zinden D�n�� Tarihi Giriniz";IF(D2<C2;"Hata:D�n�� Tarihi ��k�� Tarihinden �nce Olamaz";D2-C2+1))))

E h�cresine bu form�l� girince B h�cresinde #VALUE! hatas� ��kar onuda de�i�tirmek laz�m

B h�cresi form�l�

Kod:

=IF(E2="Hata:Tarihleri Kontrol Ediniz";"HATA";IF(E2="Hata:�zine ��k�� Tarihi Giriniz";"HATA";IF(E2="Hata:�zinden D�n�� Tarihi Giriniz";"HATA";IF(E2="Hata:D�n�� Tarihi ��k�� Tarihinden �nce Olamaz";"HATA";A2-E2))))

A�a��daki tablodada �rneklendirme yapt�m.

24 Hzr 2016 23:50

Bu mesaja te�ekk�r edenler (1 ki�i): Sosaria

Sosaria
Efsane

Ya�: 40
Kay�t: 22 A�u 2010
Mesajlar: 1,100
Cinsiyet: Erkek
Nerden: Bafiros

Te�ekk�r: 72

Durumu: �evrimd��

Sosaria
Efsane

Konu: Yan�t: (Yard�m) Excel de form�l yaz�m� hk.

Te�ekk�r ederim, B s�tununda HATA yazmas� i�i kar��t�r�r :) �lk form�l daha iyi fazla kar��t�rmaya gerek yok gibi :D

Bir konuda daha deste�inizi rica etsem.

24.06.2016 - 28.06.2016 olmas� gereken de�er 5 g�n ancak arada 1 pazar var 4 olmas� gerek, kulland��m calendarfrm a�a��daki gibi ve hafta ba��n� pazar olarak se�iyor. pazartesi olmas� ve pazar g�nlerini tatilden saymas�n� sa�layabilir miyiz?

Spoiler:

Kod:

Option Explicit
Dim ThisDay As Date
Dim ThisYear, ThisMth As Date
Dim CreateCal As Boolean
Dim i As Integer

Private Sub HelpLabel_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub UserForm_Initialize()
Application.EnableEvents = False
'starts the form on todays date
ThisDay = Date
ThisMth = Format(ThisDay, "mm")
ThisYear = Format(ThisDay, "yyyy")
For i = 1 To 12
CB_Mth.AddItem Format(DateSerial(Year(Date), Month(Date) + i, 0), "mmmm")
Next
CB_Mth.ListIndex = Format(Date, "mm") - Format(Date, "mm")
For i = -20 To 50
If i = 1 Then CB_Yr.AddItem Format((ThisDay), "yyyy") Else CB_Yr.AddItem _
Format((DateAdd("yyyy", (i - 1), ThisDay)), "yyyy")
Next
CB_Yr.ListIndex = 21
'Builds the calendar with todays date
CalendarFrm.Width = CalendarFrm.Width
CreateCal = True
Call Build_Calendar
Application.EnableEvents = True
End Sub
Private Sub CB_Mth_Change()
'rebuilds the calendar when the month is changed by the user
Build_Calendar
End Sub
Private Sub CB_Yr_Change()
'rebuilds the calendar when the year is changed by the user
Build_Calendar
End Sub
Private Sub Build_Calendar()
'the routine that actually builds the calendar each time
If CreateCal = True Then
CalendarFrm.Caption = " " & CB_Mth.Value & " " & CB_Yr.Value
'sets the focus for the todays date button
CommandButton1.SetFocus
For i = 1 To 42
If i < Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value)) Then
Controls("D" & (i)).Caption = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "d")
Controls("D" & (i)).ControlTipText = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "dd/mm/yyyy")
ElseIf i >= Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value)) Then
Controls("D" & (i)).Caption = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) _
& "/1/" & (CB_Yr.Value))), ((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "d")
Controls("D" & (i)).ControlTipText = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "dd/mm/yyyy")
End If
If Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "mmmm") = ((CB_Mth.Value)) Then
If Controls("D" & (i)).BackColor <> &H80000016 Then Controls("D" & (i)).BackColor = &H80000018 '&H80000010
Controls("D" & (i)).Font.Bold = True
If Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "dd/mm/yyyy") = Format(ThisDay, "dd/mm/yyyy") Then Controls("D" & (i)).SetFocus
Else
If Controls("D" & (i)).BackColor <> &H80000016 Then Controls("D" & (i)).BackColor = &H8000000F
Controls("D" & (i)).Font.Bold = False
End If
Next
End If
End Sub
Private Sub D1_Click()
'this sub and the ones following represent the buttons for days on the form
'retrieves the current value of the individual controltiptext and
'places it in the active cell
ActiveCell.Value = D1.ControlTipText
Unload Me
'after unload you can call a different userform to continue data entry
'uncomment this line and add a userform named UserForm2
'Userform2.Show

End Sub
Private Sub D2_Click()
ActiveCell.Value = D2.ControlTipText
Unload Me

End Sub
Private Sub D3_Click()
ActiveCell.Value = D3.ControlTipText
Unload Me

End Sub
Private Sub D4_Click()
ActiveCell.Value = D4.ControlTipText
Unload Me

End Sub
Private Sub D5_Click()
ActiveCell.Value = D5.ControlTipText
Unload Me

End Sub
Private Sub D6_Click()
ActiveCell.Value = D6.ControlTipText
Unload Me

End Sub
Private Sub D7_Click()
ActiveCell.Value = D7.ControlTipText
Unload Me

End Sub
Private Sub D8_Click()
ActiveCell.Value = D8.ControlTipText
Unload Me

End Sub
Private Sub D9_Click()
ActiveCell.Value = D9.ControlTipText
Unload Me

End Sub
Private Sub D10_Click()
ActiveCell.Value = D10.ControlTipText
Unload Me

End Sub
Private Sub D11_Click()
ActiveCell.Value = D11.ControlTipText
Unload Me

End Sub
Private Sub D12_Click()
ActiveCell.Value = D12.ControlTipText
Unload Me

End Sub
Private Sub D13_Click()
ActiveCell.Value = D13.ControlTipText
Unload Me

End Sub
Private Sub D14_Click()
ActiveCell.Value = D14.ControlTipText
Unload Me

End Sub
Private Sub D15_Click()
ActiveCell.Value = D15.ControlTipText
Unload Me

End Sub
Private Sub D16_Click()
ActiveCell.Value = D16.ControlTipText
Unload Me

End Sub
Private Sub D17_Click()
ActiveCell.Value = D17.ControlTipText
Unload Me

End Sub
Private Sub D18_Click()
ActiveCell.Value = D18.ControlTipText
Unload Me

End Sub
Private Sub D19_Click()
ActiveCell.Value = D19.ControlTipText
Unload Me

End Sub
Private Sub D20_Click()
ActiveCell.Value = D20.ControlTipText
Unload Me

End Sub
Private Sub D21_Click()
ActiveCell.Value = D21.ControlTipText
Unload Me

End Sub
Private Sub D22_Click()
ActiveCell.Value = D22.ControlTipText
Unload Me

End Sub
Private Sub D23_Click()
ActiveCell.Value = D23.ControlTipText
Unload Me

End Sub
Private Sub D24_Click()
ActiveCell.Value = D24.ControlTipText
Unload Me

End Sub
Private Sub D25_Click()
ActiveCell.Value = D25.ControlTipText
Unload Me

End Sub
Private Sub D26_Click()
ActiveCell.Value = D26.ControlTipText
Unload Me

End Sub
Private Sub D27_Click()
ActiveCell.Value = D27.ControlTipText
Unload Me

End Sub
Private Sub D28_Click()
ActiveCell.Value = D28.ControlTipText
Unload Me

End Sub
Private Sub D29_Click()
ActiveCell.Value = D29.ControlTipText
Unload Me

End Sub
Private Sub D30_Click()
ActiveCell.Value = D30.ControlTipText
Unload Me

End Sub
Private Sub D31_Click()
ActiveCell.Value = D31.ControlTipText
Unload Me

End Sub
Private Sub D32_Click()
ActiveCell.Value = D32.ControlTipText
Unload Me

End Sub
Private Sub D33_Click()
ActiveCell.Value = D33.ControlTipText
Unload Me

End Sub
Private Sub D34_Click()
ActiveCell.Value = D34.ControlTipText
Unload Me

End Sub
Private Sub D35_Click()
ActiveCell.Value = D35.ControlTipText
Unload Me

End Sub
Private Sub D36_Click()
ActiveCell.Value = D36.ControlTipText
Unload Me

End Sub
Private Sub D37_Click()
ActiveCell.Value = D37.ControlTipText
Unload Me

End Sub
Private Sub D38_Click()
ActiveCell.Value = D38.ControlTipText
Unload Me

End Sub
Private Sub D39_Click()
ActiveCell.Value = D39.ControlTipText
Unload Me

End Sub
Private Sub D40_Click()
ActiveCell.Value = D40.ControlTipText
Unload Me

End Sub
Private Sub D41_Click()
ActiveCell.Value = D41.ControlTipText
Unload Me

End Sub
Private Sub D42_Click()
ActiveCell.Value = D42.ControlTipText
Unload Me

End Sub

25 Hzr 2016 7:26

Venus
World of UO

Ya�: 40
Kay�t: 18 Arl 2006
Mesajlar: 4,462

Te�ekk�r: 625

Durumu: �evrimd��

Venus
World of UO

Konu: Yan�t: (Yard�m) Excel de form�l yaz�m� hk.

Pazartesi = 1, Pazar = 7 olmas�n� istiyorsan VBE'de bulunan WEEKDAY() fonksiyonlar�na opsionel bir ��kt� t�r� [2] ekleyebilirsin.
�rnek: Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value), 2)

Formdaki ba�l�klar� ve renkleri de d�zeltirsen ��yle g�r�n�r;

�� g�n�n� hesap etmek i�in NETWORKDAYS Excel fonksiyonu i�ine yarayabilir;
=NETWORKDAYS(tarih1;tarih2); Hatta bu fonksiyonun sonuna �zel olarak belirledi�in tatil g�nlerini i�eren s�tunlar� da yazabiliyorsun (Ben Excel'i �ngilizce kullan�yorum, T�rk�ede farkl� adland�r�lm�� olabilir).

25 Hzr 2016 10:33

Bu mesaja te�ekk�r edenler (1 ki�i): Sosaria

	Sayfaya git: 1, 2, Sonraki
1. sayfa (Toplam 2 sayfa) [ 19 mesaj ]

Bu forumda yeni ba�l�klar a�amazs�n�z
Bu forumdaki ba�l�klara cevap veremezsiniz
Bu forumdaki mesajlar�n�z� de�i�tiremezsiniz
Bu forumdaki mesajlar�n�z� silemezsiniz
Bu forumdaki anketlerde oy kullanamazs�n�z