Hai Fahmi,
Krn ga ada datanya saya coba mereka-reka...kayaknya setelah looping sebelum End
Function perlu ada satu codegabung = blablabla.
Salam,HK
Sent from Yahoo Mail on Android
On Tue, Oct 8, 2019 at 9:15, Fahmi Syaifullah fahmisyaifulla...@yahoo.com
[belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Assalamuálaikum pagi Om kid dan BeExceller
saya ada kasus, membuat function di vba dengan function seperti ini
Function gabung(data As String, pemisah as string) As StringDim a As IntegerDim
b As Stringdata = Selection.Addressb =
Application.WorksheetFunction.Replace(data,
Application.WorksheetFunction.Find(":", data), 9, "")a =
Application.WorksheetFunction.CountA(Range(data))gabung = ""For i = 1 To a
gabung = gabung & Range(b).Offset(i - 1, 0) & pemisahNext iEnd Function
saya sudah coba di module hasilnya berjalan lancar, tapi pas di function kenapa
hasilnya #value yaa. ada saran gak om om sekalian.
niatnya rumusnya itu menggabungkan data yang kita select menjadi satu, kalau di
excel 2019 ada rumus yang namanya textjoin cuman excel saya masih gak ada.mohon
infonya mastah sekalian.
terima kasihwassalamuálaikum wr.wb
Fahmi #yiv3687316796 #yiv3687316796 -- #yiv3687316796ygrp-mkp {border:1px
solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3687316796
#yiv3687316796ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3687316796
#yiv3687316796ygrp-mkp #yiv3687316796hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv3687316796 #yiv3687316796ygrp-mkp #yiv3687316796ads
{margin-bottom:10px;}#yiv3687316796 #yiv3687316796ygrp-mkp .yiv3687316796ad
{padding:0 0;}#yiv3687316796 #yiv3687316796ygrp-mkp .yiv3687316796ad p
{margin:0;}#yiv3687316796 #yiv3687316796ygrp-mkp .yiv3687316796ad a
{color:#0000ff;text-decoration:none;}#yiv3687316796 #yiv3687316796ygrp-sponsor
#yiv3687316796ygrp-lc {font-family:Arial;}#yiv3687316796
#yiv3687316796ygrp-sponsor #yiv3687316796ygrp-lc #yiv3687316796hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3687316796
#yiv3687316796ygrp-sponsor #yiv3687316796ygrp-lc .yiv3687316796ad
{margin-bottom:10px;padding:0 0;}#yiv3687316796 #yiv3687316796actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3687316796
#yiv3687316796activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3687316796
#yiv3687316796activity span {font-weight:700;}#yiv3687316796
#yiv3687316796activity span:first-child
{text-transform:uppercase;}#yiv3687316796 #yiv3687316796activity span a
{color:#5085b6;text-decoration:none;}#yiv3687316796 #yiv3687316796activity span
span {color:#ff7900;}#yiv3687316796 #yiv3687316796activity span
.yiv3687316796underline {text-decoration:underline;}#yiv3687316796
.yiv3687316796attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv3687316796 .yiv3687316796attach div a
{text-decoration:none;}#yiv3687316796 .yiv3687316796attach img
{border:none;padding-right:5px;}#yiv3687316796 .yiv3687316796attach label
{display:block;margin-bottom:5px;}#yiv3687316796 .yiv3687316796attach label a
{text-decoration:none;}#yiv3687316796 blockquote {margin:0 0 0
4px;}#yiv3687316796 .yiv3687316796bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv3687316796
.yiv3687316796bold a {text-decoration:none;}#yiv3687316796 dd.yiv3687316796last
p a {font-family:Verdana;font-weight:700;}#yiv3687316796 dd.yiv3687316796last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3687316796
dd.yiv3687316796last p span.yiv3687316796yshortcuts
{margin-right:0;}#yiv3687316796 div.yiv3687316796attach-table div div a
{text-decoration:none;}#yiv3687316796 div.yiv3687316796attach-table
{width:400px;}#yiv3687316796 div.yiv3687316796file-title a, #yiv3687316796
div.yiv3687316796file-title a:active, #yiv3687316796
div.yiv3687316796file-title a:hover, #yiv3687316796 div.yiv3687316796file-title
a:visited {text-decoration:none;}#yiv3687316796 div.yiv3687316796photo-title a,
#yiv3687316796 div.yiv3687316796photo-title a:active, #yiv3687316796
div.yiv3687316796photo-title a:hover, #yiv3687316796
div.yiv3687316796photo-title a:visited {text-decoration:none;}#yiv3687316796
div#yiv3687316796ygrp-mlmsg #yiv3687316796ygrp-msg p a
span.yiv3687316796yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3687316796
.yiv3687316796green {color:#628c2a;}#yiv3687316796 .yiv3687316796MsoNormal
{margin:0 0 0 0;}#yiv3687316796 o {font-size:0;}#yiv3687316796
#yiv3687316796photos div {float:left;width:72px;}#yiv3687316796
#yiv3687316796photos div div {border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}#yiv3687316796
#yiv3687316796photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3687316796
#yiv3687316796reco-category {font-size:77%;}#yiv3687316796
#yiv3687316796reco-desc {font-size:77%;}#yiv3687316796 .yiv3687316796replbq
{margin:4px;}#yiv3687316796 #yiv3687316796ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv3687316796 #yiv3687316796ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3687316796
#yiv3687316796ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3687316796
#yiv3687316796ygrp-mlmsg select, #yiv3687316796 input, #yiv3687316796 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv3687316796
#yiv3687316796ygrp-mlmsg pre, #yiv3687316796 code {font:115%
monospace;}#yiv3687316796 #yiv3687316796ygrp-mlmsg *
{line-height:1.22em;}#yiv3687316796 #yiv3687316796ygrp-mlmsg #yiv3687316796logo
{padding-bottom:10px;}#yiv3687316796 #yiv3687316796ygrp-msg p a
{font-family:Verdana;}#yiv3687316796 #yiv3687316796ygrp-msg
p#yiv3687316796attach-count span {color:#1E66AE;font-weight:700;}#yiv3687316796
#yiv3687316796ygrp-reco #yiv3687316796reco-head
{color:#ff7900;font-weight:700;}#yiv3687316796 #yiv3687316796ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv3687316796 #yiv3687316796ygrp-sponsor
#yiv3687316796ov li a {font-size:130%;text-decoration:none;}#yiv3687316796
#yiv3687316796ygrp-sponsor #yiv3687316796ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv3687316796
#yiv3687316796ygrp-sponsor #yiv3687316796ov ul {margin:0;padding:0 0 0
8px;}#yiv3687316796 #yiv3687316796ygrp-text
{font-family:Georgia;}#yiv3687316796 #yiv3687316796ygrp-text p {margin:0 0 1em
0;}#yiv3687316796 #yiv3687316796ygrp-text tt {font-size:120%;}#yiv3687316796
#yiv3687316796ygrp-vital ul li:last-child {border-right:none
!important;}#yiv3687316796
