AccessTr.neT

Bul · 07/12/2011, 01:27

Kod:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim dosya As New Excel.Application

        Dim sayfa As Excel.Workbook = dosya.Workbooks.Open("C:\drmkayıt v2.xls")

        dosya.Visible = True



        sayfa.Sheets("damga vergisi beyannamesi").range("A1") = TextBox1.Text 

        sayfa.Sheets("damga vergisi beyannamesi").range("A2") = TextBox2.Text 

        sayfa.Sheets("damga vergisi beyannamesi").Activate()



    End Sub

Bu kod ile TextBox1.Text deki verimi A1 hücresine aktarabiliyorum.
TextBox1.Text biçimi = 123 456 7890 şeklindeki rakamlardır.

Benim istediğim TextBox1.Text içindeki verilerinin ilkini A1 e, ikincisini B1e vs..vs.. şeklinde aktarması

Örnek :
A1=1
B1=2
C1=3
D1=4
E1=5
F1=6
G1=7
H1=8
I1=9
J1=0 şeklinde aktaracak

Not: Proje vb2010 dur. Dosya boyutu büyük olduğundan ve kimlerin VB2010 kullandığını bilmediğimden örnek dosya eklenmemiştir.
Teşekkürler

Bul · 07/12/2011, 09:57

Siz projenizin tamamını yüklemeyin zaten sadece boş bir form ve istediğiniz o işi yapan bir örnek hazırlayın yeterli olacaktır.

VBA dan çok farklı olacağını düşünmüyorum. Mid , Left komutları işini görecektir.



Dim kelime As String = "AccessTr.Net"

Dim bana_lazim_olan As String

bana_lazim_olan = Microsoft.VisualBasic.Left(kelime, 8)

' bana_lazim_olan --> AccessTR şeklinde sonuçlanacaktır

Bul · 07/12/2011, 12:54

merhaba ismim mustafa ben vb6,0 da text1 içindaki yazıyı text2 ye girerken harf harf kontrol ettirmek istiyorum ve yanlış yazılmış bir harf varsa da onu kırmızı renkte yazsın istiyorum ama sadece text2 nin tüm içeriği kırmızı renkte olabiliyor nasıl yapabilirim acaba ????

Bul · 07/12/2011, 13:23

Sayın mbteknoloji lütfen öncelikle Site Kuralları nı okuyunuz. Şu anda birkaç kuralımızı birden ihlal ediyorsunuz ve bu şekilde kimse cevap alamazsınız.

6/c-) Başka bir üyenin soru içerikli konusuna soru yazmayınız. Sorunuz için yeni konu açınız.
[Uyarı Puanı: +2]

13-) Konuya örnek uygulama eklemek zorunludur. Örnek uygulamanın ismi "deneme.mdb", "örnek.accdb" şeklinde değil, uygulamanızı özetleyecek ve kullanıcı adınızı içeren isimde ekleyiniz.
Örn. "isletmelistesi_sledgeab.rar" içerisinde "isletmelistesi_sledgeab.mdb"
[Uyarı Puanı: +2]

Bul · 07/12/2011, 14:47

tamam teşekkür ederim kuralları hatırlattığını için iyi çalışmalar dliyorum....

Bul · 07/12/2011, 20:39

Teşekkürler.

AccessTr.neT

Textbox içeriğini parça al ile ayırma

Textbox içeriğini parça al ile ayırma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri