2 Messages
Digest #3543
Messages
Wed Aug 19, 2015 8:08 pm (PDT) . Posted by:
"Yusril Ramadani" yusrilramadani
Dear Para pakar
mohon bantuannya untuk case terlampir
Saya ingin menghitung masa kredit (t) yang terpakai dengan kriteria
- untuk 15 hari kebawah tidak dihitung 1 bulan
- untuk 16 hari keatas dihitung 1 bulan
Terima kasih sebelumnya
YR
mohon bantuannya untuk case terlampir
Saya ingin menghitung masa kredit (t) yang terpakai dengan kriteria
- untuk 15 hari kebawah tidak dihitung 1 bulan
- untuk 16 hari keatas dihitung 1 bulan
Terima kasih sebelumnya
YR
Thu Aug 20, 2015 12:46 am (PDT) . Posted by:
"ris ha" har1sn.excel
Allhamdulillah, macronya jos gandos. makasih buayak mas...
On Wednesday, August 19, 2015 4:16 PM, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Assalamu'alaikum Pak Haris Coba pake vba, copy scrip ini ke module. Option Explicit Public Function Result_text(change_data As String) As String On Error GoTo err Dim partText As Variant Dim changeText As String Dim i As Integer Dim r As Integer Dim chrFind As String Dim joinText As String partText = Split(change_data, ",") i = 0 Do Until partText(i) = "" changeText = partText(i) joinText = "" For r = 2 To Len(changeText) chrFind = Mid(changeText, r, 1) If chrFind = " " Then GoTo bawah joinText = joinText & chrFind Next bawah: Result_text = Result_text & "AP " &joinText & ", " i = i + 1 Loop Exit Function err: Result_text = Left(Result_text, Len(Result_text) - 2) End Function Cara menggunakan formulanya: =Result_text(A1) Note : Data yang akan dirubah didepannya harus diberi spasi. Salam Suyono From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Wednesday, August 19, 2015 11:41 AM
To: BeExcel
Subject: [belajar-excel] Menghapus text dengan Subtitude data dinamis Assalamu'alaikum para mastersemua Mohon bantuannya. Bagaimanaformulanya untuk mendapatkan data seperti pada Hasil dibawah ini Data : 14119 tb707, 93237tb506, 9395 tb168, 93135, 93163 tb489 Hasil : AP 14119, AP 93237,AP 9395, AP 93135, AP 93163 Terima kasih atas bantuannya. Salam Haris #yiv7873226916 #yiv7873226916 -- #yiv7873226916ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7873226916 #yiv7873226916ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7873226916 #yiv7873226916ygrp-mkp #yiv7873226916hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7873226916 #yiv7873226916ygrp-mkp #yiv7873226916ads {margin-bottom:10px;}#yiv7873226916 #yiv7873226916ygrp-mkp .yiv7873226916ad {padding:0 0;}#yiv7873226916 #yiv7873226916ygrp-mkp .yiv7873226916ad p {margin:0;}#yiv7873226916 #yiv7873226916ygrp-mkp .yiv7873226916ad a {color:#0000ff;text-decoration:none;}#yiv7873226916 #yiv7873226916ygrp-sponsor #yiv7873226916ygrp-lc {font-family:Arial;}#yiv7873226916 #yiv7873226916ygrp-sponsor #yiv7873226916ygrp-lc #yiv7873226916hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7873226916 #yiv7873226916ygrp-sponsor #yiv7873226916ygrp-lc .yiv7873226916ad {margin-bottom:10px;padding:0 0;}#yiv7873226916 #yiv7873226916actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7873226916 #yiv7873226916activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7873226916 #yiv7873226916activity span {font-weight:700;}#yiv7873226916 #yiv7873226916activity span:first-child {text-transform:uppercase;}#yiv7873226916 #yiv7873226916activity span a {color:#5085b6;text-decoration:none;}#yiv7873226916 #yiv7873226916activity span span {color:#ff7900;}#yiv7873226916 #yiv7873226916activity span .yiv7873226916underline {text-decoration:underline;}#yiv7873226916 .yiv7873226916attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7873226916 .yiv7873226916attach div a {text-decoration:none;}#yiv7873226916 .yiv7873226916attach img {border:none;padding-right:5px;}#yiv7873226916 .yiv7873226916attach label {display:block;margin-bottom:5px;}#yiv7873226916 .yiv7873226916attach label a {text-decoration:none;}#yiv7873226916 blockquote {margin:0 0 0 4px;}#yiv7873226916 .yiv7873226916bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7873226916 .yiv7873226916bold a {text-decoration:none;}#yiv7873226916 dd.yiv7873226916last p a {font-family:Verdana;font-weight:700;}#yiv7873226916 dd.yiv7873226916last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7873226916 dd.yiv7873226916last p span.yiv7873226916yshortcuts {margin-right:0;}#yiv7873226916 div.yiv7873226916attach-table div div a {text-decoration:none;}#yiv7873226916 div.yiv7873226916attach-table {width:400px;}#yiv7873226916 div.yiv7873226916file-title a, #yiv7873226916 div.yiv7873226916file-title a:active, #yiv7873226916 div.yiv7873226916file-title a:hover, #yiv7873226916 div.yiv7873226916file-title a:visited {text-decoration:none;}#yiv7873226916 div.yiv7873226916photo-title a, #yiv7873226916 div.yiv7873226916photo-title a:active, #yiv7873226916 div.yiv7873226916photo-title a:hover, #yiv7873226916 div.yiv7873226916photo-title a:visited {text-decoration:none;}#yiv7873226916 div#yiv7873226916ygrp-mlmsg #yiv7873226916ygrp-msg p a span.yiv7873226916yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7873226916 .yiv7873226916green {color:#628c2a;}#yiv7873226916 .yiv7873226916MsoNormal {margin:0 0 0 0;}#yiv7873226916 o {font-size:0;}#yiv7873226916 #yiv7873226916photos div {float:left;width:72px;}#yiv7873226916 #yiv7873226916photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7873226916 #yiv7873226916photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7873226916 #yiv7873226916reco-category {font-size:77%;}#yiv7873226916 #yiv7873226916reco-desc {font-size:77%;}#yiv7873226916 .yiv7873226916replbq {margin:4px;}#yiv7873226916 #yiv7873226916ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7873226916 #yiv7873226916ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7873226916 #yiv7873226916ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7873226916 #yiv7873226916ygrp-mlmsg select, #yiv7873226916 input, #yiv7873226916 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7873226916 #yiv7873226916ygrp-mlmsg pre, #yiv7873226916 code {font:115% monospace;}#yiv7873226916 #yiv7873226916ygrp-mlmsg * {line-height:1.22em;}#yiv7873226916 #yiv7873226916ygrp-mlmsg #yiv7873226916logo {padding-bottom:10px;}#yiv7873226916 #yiv7873226916ygrp-msg p a {font-family:Verdana;}#yiv7873226916 #yiv7873226916ygrp-msg p#yiv7873226916attach-count span {color:#1E66AE;font-weight:700;}#yiv7873226916 #yiv7873226916ygrp-reco #yiv7873226916reco-head {color:#ff7900;font-weight:700;}#yiv7873226916 #yiv7873226916ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7873226916 #yiv7873226916ygrp-sponsor #yiv7873226916ov li a {font-size:130%;text-decoration:none;}#yiv7873226916 #yiv7873226916ygrp-sponsor #yiv7873226916ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7873226916 #yiv7873226916ygrp-sponsor #yiv7873226916ov ul {margin:0;padding:0 0 0 8px;}#yiv7873226916 #yiv7873226916ygrp-text {font-family:Georgia;}#yiv7873226916 #yiv7873226916ygrp-text p {margin:0 0 1em 0;}#yiv7873226916 #yiv7873226916ygrp-text tt {font-size:120%;}#yiv7873226916 #yiv7873226916ygrp-vital ul li:last-child {border-right:none !important;}#yiv7873226916
On Wednesday, August 19, 2015 4:16 PM, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Assalamu'alaikum Pak Haris Coba pake vba, copy scrip ini ke module. Option Explicit Public Function Result_text(change_data As String) As String On Error GoTo err Dim partText As Variant Dim changeText As String Dim i As Integer Dim r As Integer Dim chrFind As String Dim joinText As String partText = Split(change_data, ",") i = 0 Do Until partText(i) = "" changeText = partText(i) joinText = "" For r = 2 To Len(changeText) chrFind = Mid(changeText, r, 1) If chrFind = " " Then GoTo bawah joinText = joinText & chrFind Next bawah: Result_text = Result_text & "AP " &joinText & ", " i = i + 1 Loop Exit Function err: Result_text = Left(Result_text, Len(Result_text) - 2) End Function Cara menggunakan formulanya: =Result_text(A1) Note : Data yang akan dirubah didepannya harus diberi spasi. Salam Suyono From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Wednesday, August 19, 2015 11:41 AM
To: BeExcel
Subject: [belajar-excel] Menghapus text dengan Subtitude data dinamis Assalamu'
============================================================
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: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
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@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
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: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
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@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar