Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Textbox içeriğini parça al ile ayırma - Yazar: drummers - 07/12/2011, 01:27
Task