Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Nisan 2008 Pazar

Transferring Data From TextBox to Worksheet


'UserForm1
Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®]TextBox Value Worksheet"
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
Sheets("Sayfa1").Select: Range("B2").Select
ActiveCell.Offset(1, 0).Value = TextBox1.Value
ActiveCell.Offset(1, -1).Value = TextBox1.Value
ActiveCell.Offset(0, -1).Value = TextBox1.Value
ActiveCell.Offset(-1, -1).Value = TextBox1.Value
ActiveCell.Offset(-1, 0).Value = TextBox1.Value
ActiveCell.Offset(-1, 1).Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox1.Value
ActiveCell.Offset(1, 1).Value = TextBox1.Value
End Sub

10 Nisan 2008 Perşembe

TextBox Empty



'UserForm1

Option Explicit
Dim Say As Double
Dim i As Single

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®]TextBox Empty..."
CommandButton1.Caption = "Dolu Kutu Sayısı: " & 0
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Dim Say As Integer
For i = 1 To 15
If Me.Controls("TextBox" & i).Text <> Empty Then Say = Say + 1
Next
CommandButton1.Caption = "Dolu Kutu Sayısı: " & Say
End Sub

1 Nisan 2008 Salı

Multi Line TextBox



'UserForm1

Private Sub UserForm_Activate()
On Error Resume Next
Me.Caption = "[PBİD®]MultiLine TextBox..."
TextBox1.MultiLine = True
TextBox1 = ""
For i = 1 To 15
TextBox1.Value = TextBox1.Value & Cells(i, 1).Value & vbLf
Next
End Sub

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul