Rabu, 19 Agustus 2015

[belajar-excel] Digest Number 3542

3 Messages

Digest #3542

Messages

Tue Aug 18, 2015 9:43 pm (PDT) . Posted by:

"ris ha" har1sn.excel

Assalamu'alaikum para master semua
Mohon bantuannya. Bagaimana formulanya untuk mendapatkan data seperti pada Hasil dibawah ini

Data : 14119 tb707, 93237 tb506, 9395 tb168, 93135, 93163 tb489
Hasil : AP 14119, AP 93237, AP 9395, AP 93135, AP 93163
Terima kasih atas bantuannya.
SalamHaris

Wed Aug 19, 2015 1:22 am (PDT) . Posted by:

"Toby kenzo" tobykenzo

Dear Haris,
Coba pake formula = "AP"&" "&left(A1,5)A1 = 14119 tb707
TerimaKasih.

Pada Rabu, 19 Agustus 2015 11:44, "ris ha har1sn.excel@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Assalamu'alaikum para master semua
Mohon bantuannya. Bagaimana formulanya untuk mendapatkan data seperti pada Hasil dibawah ini

Data : 14119 tb707, 93237 tb506, 9395 tb168, 93135, 93163 tb489
Hasil : AP 14119, AP 93237, AP 9395, AP 93135, AP 93163
Terima kasih atas bantuannya.
SalamHaris
#yiv3324402464 #yiv3324402464 -- #yiv3324402464ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3324402464 #yiv3324402464ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3324402464 #yiv3324402464ygrp-mkp #yiv3324402464hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3324402464 #yiv3324402464ygrp-mkp #yiv3324402464ads {margin-bottom:10px;}#yiv3324402464 #yiv3324402464ygrp-mkp .yiv3324402464ad {padding:0 0;}#yiv3324402464 #yiv3324402464ygrp-mkp .yiv3324402464ad p {margin:0;}#yiv3324402464 #yiv3324402464ygrp-mkp .yiv3324402464ad a {color:#0000ff;text-decoration:none;}#yiv3324402464 #yiv3324402464ygrp-sponsor #yiv3324402464ygrp-lc {font-family:Arial;}#yiv3324402464 #yiv3324402464ygrp-sponsor #yiv3324402464ygrp-lc #yiv3324402464hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3324402464 #yiv3324402464ygrp-sponsor #yiv3324402464ygrp-lc .yiv3324402464ad {margin-bottom:10px;padding:0 0;}#yiv3324402464 #yiv3324402464actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3324402464 #yiv3324402464activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3324402464 #yiv3324402464activity span {font-weight:700;}#yiv3324402464 #yiv3324402464activity span:first-child {text-transform:uppercase;}#yiv3324402464 #yiv3324402464activity span a {color:#5085b6;text-decoration:none;}#yiv3324402464 #yiv3324402464activity span span {color:#ff7900;}#yiv3324402464 #yiv3324402464activity span .yiv3324402464underline {text-decoration:underline;}#yiv3324402464 .yiv3324402464attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3324402464 .yiv3324402464attach div a {text-decoration:none;}#yiv3324402464 .yiv3324402464attach img {border:none;padding-right:5px;}#yiv3324402464 .yiv3324402464attach label {display:block;margin-bottom:5px;}#yiv3324402464 .yiv3324402464attach label a {text-decoration:none;}#yiv3324402464 blockquote {margin:0 0 0 4px;}#yiv3324402464 .yiv3324402464bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3324402464 .yiv3324402464bold a {text-decoration:none;}#yiv3324402464 dd.yiv3324402464last p a {font-family:Verdana;font-weight:700;}#yiv3324402464 dd.yiv3324402464last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3324402464 dd.yiv3324402464last p span.yiv3324402464yshortcuts {margin-right:0;}#yiv3324402464 div.yiv3324402464attach-table div div a {text-decoration:none;}#yiv3324402464 div.yiv3324402464attach-table {width:400px;}#yiv3324402464 div.yiv3324402464file-title a, #yiv3324402464 div.yiv3324402464file-title a:active, #yiv3324402464 div.yiv3324402464file-title a:hover, #yiv3324402464 div.yiv3324402464file-title a:visited {text-decoration:none;}#yiv3324402464 div.yiv3324402464photo-title a, #yiv3324402464 div.yiv3324402464photo-title a:active, #yiv3324402464 div.yiv3324402464photo-title a:hover, #yiv3324402464 div.yiv3324402464photo-title a:visited {text-decoration:none;}#yiv3324402464 div#yiv3324402464ygrp-mlmsg #yiv3324402464ygrp-msg p a span.yiv3324402464yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3324402464 .yiv3324402464green {color:#628c2a;}#yiv3324402464 .yiv3324402464MsoNormal {margin:0 0 0 0;}#yiv3324402464 o {font-size:0;}#yiv3324402464 #yiv3324402464photos div {float:left;width:72px;}#yiv3324402464 #yiv3324402464photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3324402464 #yiv3324402464photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3324402464 #yiv3324402464reco-category {font-size:77%;}#yiv3324402464 #yiv3324402464reco-desc {font-size:77%;}#yiv3324402464 .yiv3324402464replbq {margin:4px;}#yiv3324402464 #yiv3324402464ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3324402464 #yiv3324402464ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3324402464 #yiv3324402464ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3324402464 #yiv3324402464ygrp-mlmsg select, #yiv3324402464 input, #yiv3324402464 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3324402464 #yiv3324402464ygrp-mlmsg pre, #yiv3324402464 code {font:115% monospace;}#yiv3324402464 #yiv3324402464ygrp-mlmsg * {line-height:1.22em;}#yiv3324402464 #yiv3324402464ygrp-mlmsg #yiv3324402464logo {padding-bottom:10px;}#yiv3324402464 #yiv3324402464ygrp-msg p a {font-family:Verdana;}#yiv3324402464 #yiv3324402464ygrp-msg p#yiv3324402464attach-count span {color:#1E66AE;font-weight:700;}#yiv3324402464 #yiv3324402464ygrp-reco #yiv3324402464reco-head {color:#ff7900;font-weight:700;}#yiv3324402464 #yiv3324402464ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3324402464 #yiv3324402464ygrp-sponsor #yiv3324402464ov li a {font-size:130%;text-decoration:none;}#yiv3324402464 #yiv3324402464ygrp-sponsor #yiv3324402464ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3324402464 #yiv3324402464ygrp-sponsor #yiv3324402464ov ul {margin:0;padding:0 0 0 8px;}#yiv3324402464 #yiv3324402464ygrp-text {font-family:Georgia;}#yiv3324402464 #yiv3324402464ygrp-text p {margin:0 0 1em 0;}#yiv3324402464 #yiv3324402464ygrp-text tt {font-size:120%;}#yiv3324402464 #yiv3324402464ygrp-vital ul li:last-child {border-right:none !important;}#yiv3324402464

Wed Aug 19, 2015 2:16 am (PDT) . Posted by:

"SUYONO"


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 master semua

Mohon bantuannya. Bagaimana formulanya untuk mendapatkan data seperti pada Hasil dibawah ini

Data : 14119 tb707, 93237 tb506, 9395 tb168, 93135, 93163 tb489
Hasil : AP 14119, AP 93237, AP 9395, AP 93135, AP 93163

Terima kasih atas bantuannya.

Salam
Haris

============================================================
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