EXCELDEPO

Textbox Kod1

TEXTBOX (1)
	TEXTBOX DA YÜZDE BULMA FORMATI
	Yazar & Sahibi	EXCELDEPO	Yazar @ Mail	exceldepo @ iletisim
	Textbox yüzde % bulma formatı

Private Sub TextBox1_Change() TextBox3.Value = FormatPercent(TextBox1.Value / TextBox2.Value, 2) End Sub

Metin alanına bir kez sol tıklayınız. Sonra sağ tıklayarak kopyalayınız.

	TEXTBOX DA YÜZDE BULMA FORMATI
	Yazar & Sahibi	EXCELDEPO	Yazar @ Mail	exceldepo @ iletisim
	Textbox yüzde % bulma formatı 2

Private Sub TextBox1_Change() TextBox3.Value = Format((TextBox1.Value / TextBox2.Value) * 100, "% 0.00") End Sub

Metin alanına bir kez sol tıklayınız. Sonra sağ tıklayarak kopyalayınız.

	TEXTBOX DA TARİH FORMATI
	Yazar & Sahibi	EXCELDEPO	Yazar @ Mail	exceldepo @ iletisim
	Textbox Tarih formatı 12.01.2011 gibi ,

Private Sub TextBox1_Change() TextBox1 = Format(TextBox1, "dd/mm/yyyy") End Sub

Metin alanına bir kez sol tıklayınız. Sonra sağ tıklayarak kopyalayınız.

	TEXTBOX DA TARİH FORMATI
	Yazar & Sahibi	EXCELDEPO	Yazar @ Mail	exceldepo @ iletisim
	Textbox da Tarih Formatı ( Elle giriş yapmak için ) 12.01.2011 gibi ,

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1 = Format(TextBox1, "00"".""00"".""0000") End Sub

Metin alanına bir kez sol tıklayınız. Sonra sağ tıklayarak kopyalayınız.

	TEXTBOX DA TARİH FORMATI
	Yazar & Sahibi	EXCELDEPO	Yazar @ Mail	exceldepo @ iletisim
	Hem ( / ) Hemde ( . ) lı olarak elle giriş yapılabilir . 12.01.2011 veya 12/01/2011 gibi .. Sayfada hedef hücre varsa tarih formatına ayarlayınız .

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = Format(TextBox1.Value, "##/##/####") End Sub 'HEDEF HÜCRE Private Sub TextBox1_Change() Range("A1") = TextBox1.Text End Sub

Metin alanına bir kez sol tıklayınız. Sonra sağ tıklayarak kopyalayınız.

	TEXTBOX DA TELEFON FORMATI
	Yazar & Sahibi	EXCELDEPO	Yazar @ Mail	exceldepo @ iletisim
	Textbox telefon formatı ; textbox a " 5320000000 " yazın, textbox dan çıkışta " 0(532) 000 00 00 " olarak yazsın. tekrar düzenlemek için text e girince yine " 5320000000 " yazsın.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(TextBox2.Text) >= 16 Then TextBox2 = Left(TextBox2, 16) If Len(TextBox2.Text) < 10 Then TextBox2 = Replace(TextBox2, " ", "") Else TextBox2.Text = Format(TextBox2, "0(###) ### ## ##") End If End Sub Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox2.Text = Replace(Replace(Replace(TextBox2, "(", ""), " ", ""), ")", "") End Sub

Metin alanına bir kez sol tıklayınız. Sonra sağ tıklayarak kopyalayınız.

	TEXTBOX DA AKTİF HÜCRE PARA ( TÜRK LİRASI ) FORMATI
	Yazar & Sahibi	EXCELDEPO	Yazar @ Mail	exceldepo @ iletisim
	Aktif hücre ye para (tl) formatı 1.215,15 tl gibi ,

Private Sub TextBox1_Change() ActiveCell.Offset(0, 0) = CCur(Textbox1) End Sub

Metin alanına bir kez sol tıklayınız. Sonra sağ tıklayarak kopyalayınız.

	TEXTBOX DA TELEFON FORMATI
	Yazar & Sahibi	EXCELDEPO	Yazar @ Mail	exceldepo @ iletisim
	Textbox telefon formatı ; textbox a " 5320000000 " yazın, textbox dan çıkışta " 0(532) 000 00 00 " olarak yazsın. tekrar düzenlenebilir. sayısal değer girilmeyince uyarı mesajı versin.

Private Sub TextBox1_AfterUpdate() TextBox1.Text = Format(TextBox1.Text, "0(000) 000 00 00") End Sub Private Sub TextBox1_Change() If Not IsNumeric(Replace(Replace(Replace(TextBox1.Text, "(", ""), ")", ""), " ", "")) Then TextBox1.SetFocus TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) MsgBox "Lütfen sayısal bir değer yazınız..!!" End If Range("a1") = TextBox1.Text End Sub

Metin alanına bir kez sol tıklayınız. Sonra sağ tıklayarak kopyalayınız.

TextBox 1 2