Cara menyalin teks ke Druckerauswahl metode karakter

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 148815 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Dalam lembar kerja Microsoft Excel, Anda dapat menggunakan TextBox objek untuk menambahkan teks yang tidak dibatasi oleh batas sel. Anda juga dapat menggunakan kotak teks pada dialog seprai dan bagan lembaran ketika khusus diformat teks diperlukan.

String teks yang disalin ke atau dari objek TextBox telah 255- karakter pembatasan ketika Anda menggunakan metode karakter dalam Visual Basic untuk aplikasi. Dengan kata lain, meskipun kotak teks mampu memegang sekitar 2.000 karakter, teks harus ditambahkan dalam string yang tidak ada lagi yang 255 karakter panjangnya. Anda dapat menggunakan Sub prosedur dalam bagian "Informasi selengkapnya" dari artikel ini untuk bekerja di sekitar ini pembatasan.

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Prosedur Sub pertama (yaitu TextBox_To_TextBox) menunjukkan bagaimana untuk menyalin teks dari satu TextBox DrawingObject ke dalam kotak teks lain. The kedua Sub prosedur Cell_Text_To_TextBox, menunjukkan metode yang Anda dapat digunakan untuk menyalin nilai kisaran sel ke dalam kotak teks.

Sub prosedur berikut menyalin teks dari satu kotak teks pada aktif lembar ke kotak teks lain pada lembar aktif.

Prosedur Visual Basic sampel

Sub TextBox_To_TextBox()

      ' Dimension the variables.
      Dim x As Integer
      Dim txtBox1 As TextBox, txtBox2 As TextBox
      Dim theText As String

      ' Set txtBox1 and txtBox2 equal to the active sheet's TextBox
      ' objects. Replace the ordinal number with your TextBox names
      ' in quotes. For example: ActiveSheet.DrawingObjects("Text 1")
      Set txtBox1 = ActiveSheet.DrawingObjects(1)
      Set txtBox2 = ActiveSheet.DrawingObjects(2)

      ' Create a For-Next construct that loops until there is no more
      ' text in txtBox1.
      For x = 1 To txtBox1.Characters.Count Step 250

         ' Place the first text box text into a variable called theText.
         theText = txtBox1.Characters(start:=x, Length:=250).Text

         ' Place the value of theText variable into second text box.
         txtBox2.Characters(start:=x, Length:=250).Text = theText

      Next
   End Sub
				
Sub berikut prosedur menyalin nilai dari berbagai sel yang Anda tentukan ke dalam kotak teks pada lembar aktif.
   Sub Cell_Text_To_TextBox()

      ' Dimension the variables.
      Dim txtBox1 As TextBox
      Dim theRange As Range, cell As Range
      Dim startPos As Integer

      ' Set txtBox1 equal to the active sheet's TextBox object. You can
      ' replace the ordinal number with your text box name in quotes.
      ' For example: ActiveSheet.DrawingObjects("Text 1")
      Set txtBox1 = ActiveSheet.DrawingObjects(1)

      ' Set a range on the active sheet equal to the range object text
      ' that you are interested in copying to the text box.
      Set theRange = ActiveSheet.Range("A1:A10")

      'Set the starting position for the text.
      startPos = 1

      ' Create a For-Each construct to loop through the cells in the range.
      For Each cell In theRange

         ' Populate the textbox with the cell values using the Characters
         ' method.
         ' Note: Chr(10) can be used to add a new line in the textbox for
         ' each cell.
         txtBox1.Characters(start:=startPos, _
            length:=Len(cell.Value)).Text = cell.Value & Chr(10)

         ' Update the startPos variable to keep track of where the next
         ' string of text will begin in the textbox.
         startPos = startPos + Len(cell.Value) + 1

      Next cell
   End Sub

				

REFERENSI

Untuk informasi tambahan tentang mendapatkan bantuan dengan Visual Basic untuk Aplikasi, silakan lihat artikel berikut dalam Pengetahuan Microsoft Base:
163435 VBA: Pemrograman sumber daya untuk Visual Basic untuk aplikasi

Properti

ID Artikel: 148815 - Kajian Terakhir: 15 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Excel 97 Standard Edition
Kata kunci: 
kbdtacode kbhowto kbmt KB148815 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:148815
Sanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com