DDoflamingo
Dewan Reguler
BergabungApr 16, 2019Pesan238
- 14 Agustus 2019
- #1
Halo semuanya, saya punya pertanyaan Kode [FONT=Arial][COLOR=#333333][FONT=Montserrat][COLOR=#000000]Sheets[/COLOR][COLOR=#000000].[/COLOR][COLOR=#000000]Add [/COLOR][COLOR=#000000]After[/COLOR][COLOR=#000000]:[/COLOR][COLOR=#000000]=[/COLOR][COLOR=#000000]Sheets[/COLOR][COLOR=#000000]([/COLOR][COLOR=#000000]Sheets[/COLOR][COLOR=#000000].[/COLOR][COLOR=#000000]Count[/COLOR][COLOR=#000000])[/COLOR][/FONT][/COLOR][/FONT]
[FONT=Arial][COLOR=#333333][FONT=Montserrat][COLOR=#000000][/COLOR][/FONT][/COLOR][COLOR=#333333][FONT=Montserrat][COLOR=#000000]Sheets.Add.Name = textbox.value[/COLOR][/FONT][/COLOR][/FONT]
Berikut adalah kode untuk menambahkan sheet baru yang bernama textbox. nilai dari bentuk pengguna
Saya ingin tahu mengapa ketika kode diaktifkan, makro membuat 2 lembar, ganti nama pertama dengan nilai kotak teks dan yang lain disebut ''sheet1"
Saya hanya ingin lembar baru dibuat dengan nilai kotak teks saya
Ada ide ?
DDomenik
MrExcel MVP
Bergabung 10 Maret 2004Messages20.769Versi Office
- 365
- Windows
- 14 Agustus 2019
- #2
Kode Anda sebenarnya berisi instruksi untuk membuat dua lembar. Baris pertama membuat lembar, menambahkannya ke bagian akhir buku kerja, dan memberinya nama default. Baris kedua membuat sheet lain, menambahkannya sebelum sheet aktif karena Anda belum menentukan tempat untuk meletakkannya, lalu beri nama sheet menggunakan nilai kotak teks Kode Sheets.Add(After:=Sheets(Sheets.Count)).Name = TextBox1.Value_ Kode With Sheets
.Add(After:=.Item(.Count)).Name = TextBox1.Value
End With
Untuk membuat satu lembar, letakkan di akhir buku kerja, dan coba beri nama menggunakan nilai kotak teks
Atau, sebagai alternatif
Semoga ini membantu
MARK858
MrExcel MVPBergabungNov 12, 2010Pesan14.721Versi Office
- 365
- Windows
- Seluler
- 14 Agustus 2019
- #3
Saya ingin tahu mengapa saat kode diaktifkan, makro membuat 2 lembar Klik untuk meluaskan Kode
Karena Anda menggunakan Spreadsheet. Tambahkan dua kali
Salah satu
Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = textbox.value
atau
Kode
Sub AddSht() Worksheets.Add(After:=Sheets(Sheets.Count)).Name = textbox.value End Sub_
Di mana kotak teks adalah nama sebenarnya dari kotak teks Anda
Edit. seharusnya menyegarkan layar saya maka akan melihat posting sebelumnya
DisplayAlerts disetel ke False untuk menekan perintah dan pesan peringatan saat makro sedang berjalan. Saat pesan membutuhkan respons dari pengguna akhir, Excel memilih respons default. Setelah Anda menyelesaikan proses yang berjalan, Excel menyetel properti ini ke True, kecuali jika Anda menjalankan kode lintas proses.
Pilih Lembar Kerja Secara Terprogram - VB. Bersih
Anda dapat secara terprogram memilih Lembar Kerja dan mengatur fokus pada lembar kerja itu saat pengguna membuka file Excel
Metode di atas menunjukkan cara memilih (memfokuskan) lembar kerja tertentu, dengan cara ini Anda dapat memilih lembar kerja yang ada dari dokumen Excel
releaseObject()
Terakhir, kita harus membersihkan objek interop Excel dengan benar atau melepaskan objek COM Excel setelah program selesai. Di sini menggunakan fungsi releaseObject() untuk membersihkan objek Excel dengan benar