TextBox Yüzde Görünümü ve Hücreye Aktarma Sorunu

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

TextBox Yüzde Görünümü ve Hücreye Aktarma Sorunu

İleti#1)  katip16487 » 05 Ekm 2018 17:06

Private Sub UserForm_Initialize()
Set s1 = Sheets("alfabe")
TextBox1.Text = s1.Range("B2").Value
TextBox2.Text = s1.Range("B3").Value
End Sub

Çok sayıda TextBox içeren bi UserForm'um bulunmakta ve bu formda yer alan TextBox'lara ondalıklı sayısal değer veya yüzde içeren veriler girilmektedir.

Veriler TextBox'a girilip çıkıldığında ilgili Excel hücresine otomatik olarak verilerin aktarılması sağlanmaktadır.

A) RAKAM OLARAK AKTARMA HATASI
1) TextBox'a veri girişi yapıp çıktığımda yazılan sayısal ifadeyi ondalık ayracı olmadan göstermektedir. (Örnek 1234,5)
Ben TextBox görümünün binlik ayracı (.) ve ondalık ayracı (,) olacak şekilde olmasını ve ayrıca ondalık sayı hanesinin 2 olmasını sağlamak istiyorum, ancak bu durumu yazdığım kod ile bir türlü sağlayamamaktayım. (Örnek 1.234,50) veya (1.234,50 TL)

2) Bu şekilde yaptığım veri girişlerini Excel sayfasına "Metin Olarak Saklanan Sayı" şeklinde aktarmaktadır ve bu durum da Excel'in hesap yapmasına engel olmakta ve matematiksel işlemlerde hata oluşturmaktadır.

*** Bu hatanın giderilmesi için, yani TextBox görüntüsünün (1234,5) yerine (1.234,50) olmasını; Excel ilgili hücreye matematiksel hesapta hata olmaması açısından rakam olarak aktarmasını sağlamak için yukarıda yazılı koda ne şekilde eklemem yapmam gerektiği hususunda bilginizi talep ediyorum.

B) YÜZDE OLARAK AKTARMA HATASI
1) TextBox'a veri girişi yapıp çıktığımda yazılan yüzdelik ifadeyi yazıldığı rakam şeklinde göstermektedir. (Örnek 12)
Ben TextBox görümünün ondalık ayracı (,) olacak şekilde olmasını ve ayrıca ondalık sayı hanesinin 2 veya zaman zaman 3 olmasını sağlamam gerekmekte, ancak bu durumu yazdığım kod ile bir türlü sağlayamamaktayım. (Örnek 12,50 % veya 6,831 %)

2) Bu şekilde yaptığım veri girişlerini (örnek 12) Excel sayfasına (1200,00 %) şeklinde aktarmaktadır. Bu durum ise verinin 100 kat fazlası bir sonuca ulaşmasına ve matematiksel olarak hata oluşmasına neden olmaktadır.

*** Bu nedenle TextBox'a 12 şeklinde yazıldığında görüntünün (12,00 %); 1,5 yazıldığında görüntünün (1,50 %) şeklinde olmasını ve ayrıca Excel ilgili hücrenin (1200,00 %) şeklinde değil, (12,00 %) şeklinde aktarmasını ve matematiksel hesabın bu şekilde yapılmasını istiyorum.

Biraz uzun oldu ama kusuruma bakmayın.

Şimdiden teşekkürler. Kolaylıklar dilerim. Yardımınızı bekliyorum.
Kullanıcı avatarı
katip16487
Yeni Başlamış
 
Adı Soyadı:AHMET REVAN KULA
Kayıt: 18 Nis 2012 22:09
Konum: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi
Meslek: İcra Müdür Yardımcısı
Yaş: 37
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi

Cevap: TextBox Yüzde Görünümü ve Hücreye Aktarma Sorunu

İleti#2)  şahin » 06 Ekm 2018 01:27

Kod: Tümünü seç
Private Sub UserForm_Initialize()
Set s1 = Sheets("alfabe")

'FormatCurrency(TextBox1.Value) 1.234,55 TL olarak görünmesini sağla texbox ın
TextBox1.Text = s1.Range("B2").Value
TextBox1.Value = FormatCurrency(TextBox1.Value)

TextBox2.Text = s1.Range("B3").Value
TextBox1.Value = FormatCurrency(TextBox1.Value)

'Matematiksel işlem yaparken CDbl fonksiyonu kullanabilirsiniz
MsgBox CDbl(s1.Range("B2").Value) + CDbl(s1.Range("B3").Value)

End Sub
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 347
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe