[belajar-excel] Fw: Macro Exel Convert ke TXT

classic Classic list List threaded Threaded
10 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Fw: Macro Exel Convert ke TXT

Andre Rahmaidy
    ----- Pesan yang Diteruskan ----- Dari: Andre Rahmaidy <[hidden email]>Kepada: BeExcel <[hidden email]>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  

FORM 302.xls (86K) Download Attachment
Hasil TXT dari macro yang seharusnya.rar (154K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Trs: Fw: Macro Exel Convert ke TXT

Andre Rahmaidy
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" <[hidden email]> Kepada: "BeExcel" <[hidden email]> Cc:  Terkirim: Sen, 15 Jul 2019 pada 23:45 Judul: Fw: Macro Exel Convert ke TXT      ----- Pesan yang Diteruskan ----- Dari: Andre Rahmaidy <[hidden email]>Kepada: BeExcel <[hidden email]>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    

FORM 302.xls (86K) Download Attachment
Hasil TXT dari macro yang seharusnya.rar (154K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Trs: Fw: Macro Exel Convert ke TXT

Kid
Administrator
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 [hidden email]
[belajar-excel] <[hidden email]> 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
> <https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature>
>
> ----- Pesan yang Diteruskan -----
> *Dari:* "Andre Rahmaidy" <[hidden email]>
> *Kepada:* "BeExcel" <[hidden email]>
> *Cc:*
> *Terkirim:* Sen, 15 Jul 2019 pada 23:45
> *Judul:* Fw: Macro Exel Convert ke TXT
> ----- Pesan yang Diteruskan -----
> *Dari:* Andre Rahmaidy <[hidden email]>
> *Kepada:* BeExcel <[hidden email]>
> *Terkirim:* Senin, 15 Juli 2019 23.27.58 WIB
> *Judul:* 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
>
>
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Trs: Fw: Macro Exel Convert ke TXT

Andre Rahmaidy
 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' [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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" <[hidden email]> Kepada: "BeExcel" <[hidden email]> Cc:  Terkirim: Sen, 15 Jul 2019 pada 23:45 Judul: Fw: Macro Exel Convert ke TXT      ----- Pesan yang Diteruskan ----- Dari: Andre Rahmaidy <[hidden email]>Kepada: BeExcel <[hidden email]>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
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Trs: Fw: Macro Exel Convert ke TXT

Kid
Administrator
yup

On Mon, Jul 22, 2019 at 10:13 AM Andre Rahmaidy [hidden email]
[belajar-excel] <[hidden email]> wrote:

>
>
> 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' [hidden email]
> [belajar-excel] <[hidden email]> 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
> [hidden email] [belajar-excel] <
> [hidden email]> 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
> <https://go..onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature>
>
> ----- Pesan yang Diteruskan -----
> *Dari:* "Andre Rahmaidy" <[hidden email]>
> *Kepada:* "BeExcel" <[hidden email]>
> *Cc:*
> *Terkirim:* Sen, 15 Jul 2019 pada 23:45
> *Judul:* Fw: Macro Exel Convert ke TXT
> ----- Pesan yang Diteruskan -----
> *Dari:* Andre Rahmaidy <[hidden email]..id
> <[hidden email]>>
> *Kepada:* BeExcel <[hidden email]>
> *Terkirim:* Senin, 15 Juli 2019 23.27.58 WIB
> *Judul:* 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
>
>
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Trs: Fw: Macro Exel Convert ke TXT

Andre Rahmaidy
 Siang Mr Kid
terima kasih infonya, cuma setelah perbarui formula text dan saya coba masih eror juga seperti ini:"=TEXT(B1,""000,,""""    """""")"&TEXT(C1,""000000000000000,,""""    """""")"&TEXT(D1,""000000000000000,,""""    """""")"&TEXT(E1,""000000000000000,,""""    """""")"&TEXT(F1,""0000,,""""    """""")" 'simpan teks formula.
ada yang salah dengan formula saya Mr. Kid??
mohon infonya.. terima kasih
Regards
Andree    Pada Senin, 22 Juli 2019 10.14.32 WIB, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]> menulis:

  

yup
On Mon, Jul 22, 2019 at 10:13 AM Andre Rahmaidy [hidden email] [belajar-excel] <[hidden email]> wrote:

  

 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' [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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" <[hidden email]> Kepada: "BeExcel" <[hidden email]> Cc:  Terkirim: Sen, 15 Jul 2019 pada 23:45 Judul: Fw: Macro Exel Convert ke TXT      ----- Pesan yang Diteruskan ----- Dari: Andre Rahmaidy <[hidden email]..id>Kepada: BeExcel <[hidden email]>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    






  #yiv5803250688 #yiv5803250688 -- #yiv5803250688ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5803250688 #yiv5803250688ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5803250688 #yiv5803250688ygrp-mkp #yiv5803250688hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5803250688 #yiv5803250688ygrp-mkp #yiv5803250688ads {margin-bottom:10px;}#yiv5803250688 #yiv5803250688ygrp-mkp .yiv5803250688ad {padding:0 0;}#yiv5803250688 #yiv5803250688ygrp-mkp .yiv5803250688ad p {margin:0;}#yiv5803250688 #yiv5803250688ygrp-mkp .yiv5803250688ad a {color:#0000ff;text-decoration:none;}#yiv5803250688 #yiv5803250688ygrp-sponsor #yiv5803250688ygrp-lc {font-family:Arial;}#yiv5803250688 #yiv5803250688ygrp-sponsor #yiv5803250688ygrp-lc #yiv5803250688hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5803250688 #yiv5803250688ygrp-sponsor #yiv5803250688ygrp-lc .yiv5803250688ad {margin-bottom:10px;padding:0 0;}#yiv5803250688 #yiv5803250688actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5803250688 #yiv5803250688activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5803250688 #yiv5803250688activity span {font-weight:700;}#yiv5803250688 #yiv5803250688activity span:first-child {text-transform:uppercase;}#yiv5803250688 #yiv5803250688activity span a {color:#5085b6;text-decoration:none;}#yiv5803250688 #yiv5803250688activity span span {color:#ff7900;}#yiv5803250688 #yiv5803250688activity span .yiv5803250688underline {text-decoration:underline;}#yiv5803250688 .yiv5803250688attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5803250688 .yiv5803250688attach div a {text-decoration:none;}#yiv5803250688 .yiv5803250688attach img {border:none;padding-right:5px;}#yiv5803250688 .yiv5803250688attach label {display:block;margin-bottom:5px;}#yiv5803250688 .yiv5803250688attach label a {text-decoration:none;}#yiv5803250688 blockquote {margin:0 0 0 4px;}#yiv5803250688 .yiv5803250688bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5803250688 .yiv5803250688bold a {text-decoration:none;}#yiv5803250688 dd.yiv5803250688last p a {font-family:Verdana;font-weight:700;}#yiv5803250688 dd.yiv5803250688last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5803250688 dd.yiv5803250688last p span.yiv5803250688yshortcuts {margin-right:0;}#yiv5803250688 div.yiv5803250688attach-table div div a {text-decoration:none;}#yiv5803250688 div.yiv5803250688attach-table {width:400px;}#yiv5803250688 div.yiv5803250688file-title a, #yiv5803250688 div.yiv5803250688file-title a:active, #yiv5803250688 div.yiv5803250688file-title a:hover, #yiv5803250688 div.yiv5803250688file-title a:visited {text-decoration:none;}#yiv5803250688 div.yiv5803250688photo-title a, #yiv5803250688 div.yiv5803250688photo-title a:active, #yiv5803250688 div.yiv5803250688photo-title a:hover, #yiv5803250688 div.yiv5803250688photo-title a:visited {text-decoration:none;}#yiv5803250688 div#yiv5803250688ygrp-mlmsg #yiv5803250688ygrp-msg p a span.yiv5803250688yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5803250688 .yiv5803250688green {color:#628c2a;}#yiv5803250688 .yiv5803250688MsoNormal {margin:0 0 0 0;}#yiv5803250688 o {font-size:0;}#yiv5803250688 #yiv5803250688photos div {float:left;width:72px;}#yiv5803250688 #yiv5803250688photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv5803250688 #yiv5803250688photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5803250688 #yiv5803250688reco-category {font-size:77%;}#yiv5803250688 #yiv5803250688reco-desc {font-size:77%;}#yiv5803250688 .yiv5803250688replbq {margin:4px;}#yiv5803250688 #yiv5803250688ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5803250688 #yiv5803250688ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5803250688 #yiv5803250688ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5803250688 #yiv5803250688ygrp-mlmsg select, #yiv5803250688 input, #yiv5803250688 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5803250688 #yiv5803250688ygrp-mlmsg pre, #yiv5803250688 code {font:115% monospace;}#yiv5803250688 #yiv5803250688ygrp-mlmsg * {line-height:1.22em;}#yiv5803250688 #yiv5803250688ygrp-mlmsg #yiv5803250688logo {padding-bottom:10px;}#yiv5803250688 #yiv5803250688ygrp-msg p a {font-family:Verdana;}#yiv5803250688 #yiv5803250688ygrp-msg p#yiv5803250688attach-count span {color:#1E66AE;font-weight:700;}#yiv5803250688 #yiv5803250688ygrp-reco #yiv5803250688reco-head {color:#ff7900;font-weight:700;}#yiv5803250688 #yiv5803250688ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5803250688 #yiv5803250688ygrp-sponsor #yiv5803250688ov li a {font-size:130%;text-decoration:none;}#yiv5803250688 #yiv5803250688ygrp-sponsor #yiv5803250688ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5803250688 #yiv5803250688ygrp-sponsor #yiv5803250688ov ul {margin:0;padding:0 0 0 8px;}#yiv5803250688 #yiv5803250688ygrp-text {font-family:Georgia;}#yiv5803250688 #yiv5803250688ygrp-text p {margin:0 0 1em 0;}#yiv5803250688 #yiv5803250688ygrp-text tt {font-size:120%;}#yiv5803250688 #yiv5803250688ygrp-vital ul li:last-child {border-right:none !important;}#yiv5803250688
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Trs: Fw: Macro Exel Convert ke TXT

Kid
Administrator
Mungkin ada typo.
Bisa dicek ulang dengan imil tempo lalu lebih dulu ya..


Sent from my smart enough phone

> On Jul 22, 2019, at 10:35, Andre Rahmaidy [hidden email] [belajar-excel] <[hidden email]> wrote:
>
> Siang Mr Kid
>
> terima kasih infonya, cuma setelah perbarui formula text dan saya coba masih eror juga seperti ini:
> "=TEXT(B1,""000,,""""    """""")"&TEXT(C1,""000000000000000,,""""    """""")"&TEXT(D1,""000000000000000,,""""    """""")"&TEXT(E1,""000000000000000,,""""    """""")"&TEXT(F1,""0000,,"""" """""")" 'simpan teks formula.
>
> ada yang salah dengan formula saya Mr. Kid??
>
> mohon infonya.. terima kasih
>
> Regards
>
> Andree
> Pada Senin, 22 Juli 2019 10.14.32 WIB, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]> menulis:
>
>
>  
> yup
>
> On Mon, Jul 22, 2019 at 10:13 AM Andre Rahmaidy [hidden email]..id [belajar-excel] <[hidden email]> wrote:
>  
> 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' [hidden email] [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 [hidden email]...id [belajar-excel] <[hidden email]> 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" <[hidden email]>
> Kepada: "BeExcel" <[hidden email]>
> Cc:
> Terkirim: Sen, 15 Jul 2019 pada 23:45
> Judul: Fw: Macro Exel Convert ke TXT
> ----- Pesan yang Diteruskan -----
> Dari: Andre Rahmaidy <[hidden email]..id>
> Kepada: BeExcel <[hidden email]>
> Terkirim: Senin, 15 Juli 2019 23.27.58 WIB
> Judul: 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
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Trs: Fw: Macro Exel Convert ke TXT

Andre Rahmaidy
 Selamat siang Mr Kid
terkait hal tersebut sudah saya cek kembali email yng pertama kali di kirim kayaknya udah benar Mr. Kid, 

Regards
Andre    Pada Senin, 22 Juli 2019 10.43.14 WIB, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]> menulis:

  

Mungkin ada typo.Bisa dicek ulang dengan imil tempo lalu lebih dulu ya..


Sent from my smart enough phone
On Jul 22, 2019, at 10:35, Andre Rahmaidy [hidden email] [belajar-excel] <[hidden email]> wrote:


  

 Siang Mr Kid
terima kasih infonya, cuma setelah perbarui formula text dan saya coba masih eror juga seperti ini:"=TEXT(B1,""000,,""""    """""")"&TEXT(C1,""000000000000000,,""""    """""")"&TEXT(D1,""000000000000000,,""""    """""")"&TEXT(E1,""000000000000000,,""""    """""")"&TEXT(F1,""0000,,""""    """""")" 'simpan teks formula.
ada yang salah dengan formula saya Mr. Kid??
mohon infonya.. terima kasih
Regards
Andree    Pada Senin, 22 Juli 2019 10.14.32 WIB, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]> menulis:

  

yup
On Mon, Jul 22, 2019 at 10:13 AM Andre Rahmaidy [hidden email] [belajar-excel] <[hidden email]> wrote:

  

 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' [hidden email] [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 [hidden email]..id [belajar-excel] <[hidden email]> 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" <[hidden email]> Kepada: "BeExcel" <[hidden email]> Cc:  Terkirim: Sen, 15 Jul 2019 pada 23:45 Judul: Fw: Macro Exel Convert ke TXT      ----- Pesan yang Diteruskan ----- Dari: Andre Rahmaidy <[hidden email]..id>Kepada: BeExcel <[hidden email]>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









  #yiv9739597665 #yiv9739597665 -- #yiv9739597665ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9739597665 #yiv9739597665ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9739597665 #yiv9739597665ygrp-mkp #yiv9739597665hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9739597665 #yiv9739597665ygrp-mkp #yiv9739597665ads {margin-bottom:10px;}#yiv9739597665 #yiv9739597665ygrp-mkp .yiv9739597665ad {padding:0 0;}#yiv9739597665 #yiv9739597665ygrp-mkp .yiv9739597665ad p {margin:0;}#yiv9739597665 #yiv9739597665ygrp-mkp .yiv9739597665ad a {color:#0000ff;text-decoration:none;}#yiv9739597665 #yiv9739597665ygrp-sponsor #yiv9739597665ygrp-lc {font-family:Arial;}#yiv9739597665 #yiv9739597665ygrp-sponsor #yiv9739597665ygrp-lc #yiv9739597665hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9739597665 #yiv9739597665ygrp-sponsor #yiv9739597665ygrp-lc .yiv9739597665ad {margin-bottom:10px;padding:0 0;}#yiv9739597665 #yiv9739597665actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9739597665 #yiv9739597665activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9739597665 #yiv9739597665activity span {font-weight:700;}#yiv9739597665 #yiv9739597665activity span:first-child {text-transform:uppercase;}#yiv9739597665 #yiv9739597665activity span a {color:#5085b6;text-decoration:none;}#yiv9739597665 #yiv9739597665activity span span {color:#ff7900;}#yiv9739597665 #yiv9739597665activity span .yiv9739597665underline {text-decoration:underline;}#yiv9739597665 .yiv9739597665attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9739597665 .yiv9739597665attach div a {text-decoration:none;}#yiv9739597665 .yiv9739597665attach img {border:none;padding-right:5px;}#yiv9739597665 .yiv9739597665attach label {display:block;margin-bottom:5px;}#yiv9739597665 .yiv9739597665attach label a {text-decoration:none;}#yiv9739597665 blockquote {margin:0 0 0 4px;}#yiv9739597665 .yiv9739597665bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9739597665 .yiv9739597665bold a {text-decoration:none;}#yiv9739597665 dd.yiv9739597665last p a {font-family:Verdana;font-weight:700;}#yiv9739597665 dd.yiv9739597665last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9739597665 dd.yiv9739597665last p span.yiv9739597665yshortcuts {margin-right:0;}#yiv9739597665 div.yiv9739597665attach-table div div a {text-decoration:none;}#yiv9739597665 div.yiv9739597665attach-table {width:400px;}#yiv9739597665 div.yiv9739597665file-title a, #yiv9739597665 div.yiv9739597665file-title a:active, #yiv9739597665 div.yiv9739597665file-title a:hover, #yiv9739597665 div.yiv9739597665file-title a:visited {text-decoration:none;}#yiv9739597665 div.yiv9739597665photo-title a, #yiv9739597665 div.yiv9739597665photo-title a:active, #yiv9739597665 div.yiv9739597665photo-title a:hover, #yiv9739597665 div.yiv9739597665photo-title a:visited {text-decoration:none;}#yiv9739597665 div#yiv9739597665ygrp-mlmsg #yiv9739597665ygrp-msg p a span.yiv9739597665yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9739597665 .yiv9739597665green {color:#628c2a;}#yiv9739597665 .yiv9739597665MsoNormal {margin:0 0 0 0;}#yiv9739597665 o {font-size:0;}#yiv9739597665 #yiv9739597665photos div {float:left;width:72px;}#yiv9739597665 #yiv9739597665photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv9739597665 #yiv9739597665photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9739597665 #yiv9739597665reco-category {font-size:77%;}#yiv9739597665 #yiv9739597665reco-desc {font-size:77%;}#yiv9739597665 .yiv9739597665replbq {margin:4px;}#yiv9739597665 #yiv9739597665ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9739597665 #yiv9739597665ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9739597665 #yiv9739597665ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9739597665 #yiv9739597665ygrp-mlmsg select, #yiv9739597665 input, #yiv9739597665 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9739597665 #yiv9739597665ygrp-mlmsg pre, #yiv9739597665 code {font:115% monospace;}#yiv9739597665 #yiv9739597665ygrp-mlmsg * {line-height:1.22em;}#yiv9739597665 #yiv9739597665ygrp-mlmsg #yiv9739597665logo {padding-bottom:10px;}#yiv9739597665 #yiv9739597665ygrp-msg p a {font-family:Verdana;}#yiv9739597665 #yiv9739597665ygrp-msg p#yiv9739597665attach-count span {color:#1E66AE;font-weight:700;}#yiv9739597665 #yiv9739597665ygrp-reco #yiv9739597665reco-head {color:#ff7900;font-weight:700;}#yiv9739597665 #yiv9739597665ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9739597665 #yiv9739597665ygrp-sponsor #yiv9739597665ov li a {font-size:130%;text-decoration:none;}#yiv9739597665 #yiv9739597665ygrp-sponsor #yiv9739597665ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9739597665 #yiv9739597665ygrp-sponsor #yiv9739597665ov ul {margin:0;padding:0 0 0 8px;}#yiv9739597665 #yiv9739597665ygrp-text {font-family:Georgia;}#yiv9739597665 #yiv9739597665ygrp-text p {margin:0 0 1em 0;}#yiv9739597665 #yiv9739597665ygrp-text tt {font-size:120%;}#yiv9739597665 #yiv9739597665ygrp-vital ul li:last-child {border-right:none !important;}#yiv9739597665
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Trs: Fw: Macro Exel Convert ke TXT

Agus-2
Dear Andree,
Sebenarnya saya mau ikut nyoba cekriptnya, namun karena macro dan
filenya terprotect jadinya tidak bisa ;-)
Coba dicheck lagi email dari Mas Kid!
     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;;""""
"""""")**"*
*
*
coba perhatikan cekrip ketikan anda:
TEXT(F1,""0000,,"""" """""")"

sudah tahu kesalahan anda?
Regard.
NangAgus


> ------------------------------------------------------------------------
> Posted by: Andre Rahmaidy <[hidden email]>
> ------------------------------------------------------------------------
> Reply via web post
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/45588;_ylc=X3oDMTJyazZiNTc4BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTU4OARzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE1NjM3Njg2ODU-?act=reply&messageNum=45588>
> • Reply to sender
> <mailto:[hidden email]?subject=Re%3A%20%5Bbelajar-excel%5D%20Trs%3A%20Fw%3A%20Macro%20Exel%20Convert%20ke%20TXT>
> • Reply to group
> <mailto:[hidden email]?subject=Re%3A%20%5Bbelajar-excel%5D%20Trs%3A%20Fw%3A%20Macro%20Exel%20Convert%20ke%20TXT>
> • Start a New Topic
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/newtopic;_ylc=X3oDMTJmNHN0NmVnBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzE1NjM3Njg2ODU->
> • Messages in this topic
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/45571;_ylc=X3oDMTM3OTRnNjN2BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTU4OARzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE1NjM3Njg2ODUEdHBjSWQDNDU1NzE->
> (8)
>
> ============================================================
> Pojok Lowongan Kerja yang disediakan milis :
> http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
> *** Posting lowongan kerja : ke link tersebut dan klik New Topic
> ============================================================
> bergabung ke milis (subscribe), kirim mail kosong ke:
> [hidden email]
> posting ke milis, kirimkan ke: [hidden email]
> berkunjung ke web milis :
> http://tech.groups.yahoo.com/group/belajar-excel/messages
> melihat file archive / mendownload lampiran :
> http://www.mail-archive.com/belajar-excel@.../
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-belajar-excel.1048464.n5.nabble.com/
> menghubungi moderators & owners: [hidden email]
> keluar dari membership milis (UnSubscribe), kirim mail kosong ke :
> [hidden email]
> ---------------------------------------------------------------------
> Visit Your Group
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmMWd2cWhhBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1NjM3Njg2ODU->
>
>
> Yahoo! Groups
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJlMTk3MXBuBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU2Mzc2ODY4NQ-->
>
> • Privacy
> <https://info.yahoo.com/privacy/us/yahoo/groups/details.html> •
> Unsubscribe
> <mailto:[hidden email]?subject=Unsubscribe>
> • Terms of Use <https://info.yahoo.com/legal/us/yahoo/utos/terms/>
>
> SPONSORED LINKS
> .
>
>


Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Trs: Fw: Macro Exel Convert ke TXT

Kid
Administrator
naah...
mungkin typo yang dijelaskan mas Nang tersebut pemicu error-nya...





On Mon, Jul 22, 2019 at 3:50 PM Agus [hidden email] [belajar-excel] <
[hidden email]> wrote:

>
>
> Dear Andree,
> Sebenarnya saya mau ikut nyoba cekriptnya, namun karena macro dan filenya
> terprotect jadinya tidak bisa ;-)
> Coba dicheck lagi email dari Mas Kid!
>     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;;""""
>   """""")**"*
>
> coba perhatikan cekrip ketikan anda:
>                                                          TEXT(F1,""0000,,""""
>   """""")"
>
> sudah tahu kesalahan anda?
> Regard.
> NangAgus
>
>
> ------------------------------
> Posted by: Andre Rahmaidy <[hidden email]>
> <[hidden email]>
> ------------------------------
> Reply via web post
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/45588;_ylc=X3oDMTJyazZiNTc4BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTU4OARzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE1NjM3Njg2ODU-?act=reply&messageNum=45588>
> • Reply to sender
> <[hidden email]?subject=Re%3A%20%5Bbelajar-excel%5D%20Trs%3A%20Fw%3A%20Macro%20Exel%20Convert%20ke%20TXT>
> • Reply to group
> <[hidden email]?subject=Re%3A%20%5Bbelajar-excel%5D%20Trs%3A%20Fw%3A%20Macro%20Exel%20Convert%20ke%20TXT>
> • Start a New Topic
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/newtopic;_ylc=X3oDMTJmNHN0NmVnBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzE1NjM3Njg2ODU->
> • Messages in this topic
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/45571;_ylc=X3oDMTM3OTRnNjN2BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTU4OARzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE1NjM3Njg2ODUEdHBjSWQDNDU1NzE->
> (8)
> .
>
>
>
>