Cara menyalin teks ke Druckerauswahl metode karakter

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
Artikel ini telah diarsipkan. Artikel ditawarkan dalam bentuk "apa adanya" dan tidak akan dapat diperbarui lagi.
RINGKASAN
Dalam lembar kerja Microsoft Excel, Anda dapat menggunakan TextBox objek untuk menambahkan teksyang tidak dibatasi oleh batas sel. Anda juga dapat menggunakan kotak tekspada dialog seprai dan bagan lembaran ketika khusus diformat teksdiperlukan.

String teks yang disalin ke atau dari objek TextBox telah 255-karakter pembatasan ketika Anda menggunakan metode karakter dalam Visual Basicuntuk aplikasi. Dengan kata lain, meskipun kotak teks mampu memegangsekitar 2.000 karakter, teks harus ditambahkan dalam string yangtidak ada lagi yang 255 karakter panjangnya. Anda dapat menggunakan Sub prosedur dalambagian "Informasi selengkapnya" dari artikel ini untuk bekerja di sekitar inipembatasan.
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 bagaimanauntuk menyalin teks dari satu TextBox DrawingObject ke dalam kotak teks lain. Thekedua Sub prosedur Cell_Text_To_TextBox, menunjukkan metode yang Andadapat digunakan untuk menyalin nilai kisaran sel ke dalam kotak teks.

Sub prosedur berikut menyalin teks dari satu kotak teks pada aktiflembar 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 yangAnda 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 untukAplikasi, silakan lihat artikel berikut dalam Pengetahuan MicrosoftBase:
163435 VBA: Pemrograman sumber daya untuk Visual Basic untuk aplikasi
5,00 c "karakter metode" "chr fungsi" "kontrol textbox" Druckerauswahl "kotak teks" XL

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 148815 - Tinjauan Terakhir: 12/04/2015 14:24:45 - Revisi: 2.0

Microsoft Excel 97 Standard Edition

  • kbnosurvey kbarchive kbdtacode kbhowto kbmt KB148815 KbMtid
Tanggapan