Pagi Mr. Kid Terima kasih sebelumnya udah menanggapi terkait permasalahan terkait macro excel yang saya punya, setelah saya pelajari terkait dengan formula text *=text(alamat_cells,"0000;;"" """)* ketika saya ubah di aplikasi macro hasilnya eror (warna merah)Apakah formula text tersebut saya ubah ke semua formula text yang ada di macro excel. Mohon solusinya Mr Kid, Terima Kasih saya ucapkan
Regards Andree Pada Rabu, 17 Juli 2019 06.51.22 WIB, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis: Cells kosong by default akan setara dengan berisi 0 (jika bertipe numerik, berlaku di dalam Excel worksheet saja) atau nullstring (seperti hasil formula ="", jika bertipe text, berlaku di Excel worksheet maupun di VBA). JIka saat ini cells kosong menghasilkan 0000, kemungkinan besar Anda menggunakan formula Text atau IF (di Excel worksheet) atau dengan fungsi Format atau blok IF (di VBA).Jika Anda menggunakan formula IF (di Excel worksheet) atau blok IF (di VBA), tentu hal ini tidak menimbulkan masalah, karena Anda lebih mengenal bagian yang harus disesuaikan.Jadi, kemungkinannya adalah Anda menggunakan formula Text (di Excel worksheet) atau fungsi Format (di VBA). 1. Jika Anda menggunakan fungsi Format di VBA dan hasil cells kosong adalah 0000, maka bunyi script Anda kira-kira begini : format( clng( alamat_cells.value ) , "0000" ) supaya 0000 pada cells kosong berubah menjadi spasi 4 karakter, maka bunyi tersebut diproses lebih lanjut dengan replace, sehingga berubah menjadi : replace( format( clng( alamat_cells.value ) , "0000" ) , 0 , " " ) 2. Jika Anda menggunakan formula Text Excel Worksheet yang secara default cells kosong akan setara nilai 0 dan menjadi 0000, maka bunyi formula Anda kira-kira begini : =text(alamat_cells,"0000") kalau bunyi formula ini dipasang dengan VBA, maka sebuah karakter " (1 bijik karakter petik dua) harus diubah menjadi "" (2 bijik karakter petik dua) : cells_target.formula= "=text(alamat_cells,""0000"")" Jika Anda mempelajari number format sebuah cells Excel, maka part dalam number format adalah : format_nilai_positif ; format_nilai_negatif ; format_nilai_nol ; format_teks Dengan kaidah number format tersebut dan juga default cells kosong adalah 0 ketika bertipe numerik (default cells Excel adalah bertipe numerik Double), maka bunyi format yang dibutuhkan untuk menghasilkan spasi 4 karakter ketika cells berisi nilai 0 atau kosong, dan menghasilkan 4 digit angka ketika cells berisi nilai selain 0 atau selain kosong : 0000;;" " Jika format ini digunakan dalam formula Text, menjadi : (ingat, setiap 1 bijik karakter petik dua yang ada di dalam blok petik dua lainnya harus menjadi 2 bijik karakter petik dua) =text(alamat_cells,"0000;;"" """) kalau bunyi formula ini dipasang dengan VBA, maka sebuah karakter " (1 bijik karakter petik dua) harus diubah menjadi "" (2 bijik karakter petik dua) : cells_target.formula= "=text(alamat_cells,""0000;;"""" """""")" Regards,Kid On Wed, Jul 17, 2019 at 12:20 AM Andre Rahmaidy andree_bpdsum...@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote: Selamat malam Terkait dengan pertanyaan saya mengenai macro excel convert TXT, belum ada yang menanggapi atw membantu mencari solisi terkait permasalahan aplikasi macro excel mungkin saya perjelas lagi terkait dengan pertanyaan saya kemaren..Aplikasi macro excel tsbt merupakan tools yg dibuat untuk menghasilkan file txt.. permasalahannya didalam tabel excel tersebut kolom F (Kab/Kota) yang kosong, hasil aplikasi macro excel tersebut dalam bentuk file TXT untuk kolom F Hasilnya seperti ini 0000, yang saya inginkan gimana script/coding di macro excelnya untuk kolom F yang kosong tersebut hasilnya spasi 4 (empat) kali bukan nol 4..Demikianlah yng saya sampaikan, dengan ini saya ucapkan terima kasih.. Wassalam Andree Dikirim dari Yahoo Mail di Android ----- Pesan yang Diteruskan ----- Dari: "Andre Rahmaidy" <andree_bpdsum...@yahoo.co.id> Kepada: "BeExcel" <belajar-excel@yahoogroups.com> Cc: Terkirim: Sen, 15 Jul 2019 pada 23:45 Judul: Fw: Macro Exel Convert ke TXT ----- Pesan yang Diteruskan ----- Dari: Andre Rahmaidy <andree_bpdsum...@yahoo.co.id>Kepada: BeExcel <belajar-excel@yahoogroups.com>Terkirim: Senin, 15 Juli 2019 23.27.58 WIBJudul: Macro Exel Convert ke TXT Dear Para Suhu Ada yang mau saya sampaikan terkait dengan macro excel yang saya punya yang ingin tanyakan saya adalah : 1. macro excel yng saya punya convert data dari excel yang outputnya TXT, sesuai dengan kriteria yang diinginkan,trus saya ingin ada penambahan terkait dengan baris/record pertama kolom terakhir kosong (tidak ada angka) di output TXT diisi dengan spasi 4 kali.. sedangkan kolom yang ada isi tetap seperti biasanya, terlampir file macro excelnya.. Terimakasih sebelumnya buat para suhu atas tanggapan dan pencerahannya. Nb. Pass Macro ****** Regards Andre #yiv2466794718 #yiv2466794718 -- #yiv2466794718ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2466794718 #yiv2466794718ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2466794718 #yiv2466794718ygrp-mkp #yiv2466794718hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2466794718 #yiv2466794718ygrp-mkp #yiv2466794718ads {margin-bottom:10px;}#yiv2466794718 #yiv2466794718ygrp-mkp .yiv2466794718ad {padding:0 0;}#yiv2466794718 #yiv2466794718ygrp-mkp .yiv2466794718ad p {margin:0;}#yiv2466794718 #yiv2466794718ygrp-mkp .yiv2466794718ad a {color:#0000ff;text-decoration:none;}#yiv2466794718 #yiv2466794718ygrp-sponsor #yiv2466794718ygrp-lc {font-family:Arial;}#yiv2466794718 #yiv2466794718ygrp-sponsor #yiv2466794718ygrp-lc #yiv2466794718hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2466794718 #yiv2466794718ygrp-sponsor #yiv2466794718ygrp-lc .yiv2466794718ad {margin-bottom:10px;padding:0 0;}#yiv2466794718 #yiv2466794718actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2466794718 #yiv2466794718activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2466794718 #yiv2466794718activity span {font-weight:700;}#yiv2466794718 #yiv2466794718activity span:first-child {text-transform:uppercase;}#yiv2466794718 #yiv2466794718activity span a {color:#5085b6;text-decoration:none;}#yiv2466794718 #yiv2466794718activity span span {color:#ff7900;}#yiv2466794718 #yiv2466794718activity span .yiv2466794718underline {text-decoration:underline;}#yiv2466794718 .yiv2466794718attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2466794718 .yiv2466794718attach div a {text-decoration:none;}#yiv2466794718 .yiv2466794718attach img {border:none;padding-right:5px;}#yiv2466794718 .yiv2466794718attach label {display:block;margin-bottom:5px;}#yiv2466794718 .yiv2466794718attach label a {text-decoration:none;}#yiv2466794718 blockquote {margin:0 0 0 4px;}#yiv2466794718 .yiv2466794718bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2466794718 .yiv2466794718bold a {text-decoration:none;}#yiv2466794718 dd.yiv2466794718last p a {font-family:Verdana;font-weight:700;}#yiv2466794718 dd.yiv2466794718last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2466794718 dd.yiv2466794718last p span.yiv2466794718yshortcuts {margin-right:0;}#yiv2466794718 div.yiv2466794718attach-table div div a {text-decoration:none;}#yiv2466794718 div.yiv2466794718attach-table {width:400px;}#yiv2466794718 div.yiv2466794718file-title a, #yiv2466794718 div.yiv2466794718file-title a:active, #yiv2466794718 div.yiv2466794718file-title a:hover, #yiv2466794718 div.yiv2466794718file-title a:visited {text-decoration:none;}#yiv2466794718 div.yiv2466794718photo-title a, #yiv2466794718 div...yiv2466794718photo-title a:active, #yiv2466794718 div.yiv2466794718photo-title a:hover, #yiv2466794718 div.yiv2466794718photo-title a:visited {text-decoration:none;}#yiv2466794718 div#yiv2466794718ygrp-mlmsg #yiv2466794718ygrp-msg p a span.yiv2466794718yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2466794718 .yiv2466794718green {color:#628c2a;}#yiv2466794718 .yiv2466794718MsoNormal {margin:0 0 0 0;}#yiv2466794718 o {font-size:0;}#yiv2466794718 #yiv2466794718photos div {float:left;width:72px;}#yiv2466794718 #yiv2466794718photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv2466794718 #yiv2466794718photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2466794718 #yiv2466794718reco-category {font-size:77%;}#yiv2466794718 #yiv2466794718reco-desc {font-size:77%;}#yiv2466794718 .yiv2466794718replbq {margin:4px;}#yiv2466794718 #yiv2466794718ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2466794718 #yiv2466794718ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2466794718 #yiv2466794718ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2466794718 #yiv2466794718ygrp-mlmsg select, #yiv2466794718 input, #yiv2466794718 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2466794718 #yiv2466794718ygrp-mlmsg pre, #yiv2466794718 code {font:115% monospace;}#yiv2466794718 #yiv2466794718ygrp-mlmsg * {line-height:1.22em;}#yiv2466794718 #yiv2466794718ygrp-mlmsg #yiv2466794718logo {padding-bottom:10px;}#yiv2466794718 #yiv2466794718ygrp-msg p a {font-family:Verdana;}#yiv2466794718 #yiv2466794718ygrp-msg p#yiv2466794718attach-count span {color:#1E66AE;font-weight:700;}#yiv2466794718 #yiv2466794718ygrp-reco #yiv2466794718reco-head {color:#ff7900;font-weight:700;}#yiv2466794718 #yiv2466794718ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2466794718 #yiv2466794718ygrp-sponsor #yiv2466794718ov li a {font-size:130%;text-decoration:none;}#yiv2466794718 #yiv2466794718ygrp-sponsor #yiv2466794718ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2466794718 #yiv2466794718ygrp-sponsor #yiv2466794718ov ul {margin:0;padding:0 0 0 8px;}#yiv2466794718 #yiv2466794718ygrp-text {font-family:Georgia;}#yiv2466794718 #yiv2466794718ygrp-text p {margin:0 0 1em 0;}#yiv2466794718 #yiv2466794718ygrp-text tt {font-size:120%;}#yiv2466794718 #yiv2466794718ygrp-vital ul li:last-child {border-right:none !important;}#yiv2466794718