Senin, 31 Oktober 2011

Re: [ExcelVBA] Text to columns, alpha characters first then numeric

 

Yes, the numeric part is always at the end of the text.
Yes, the numeric part never has any spaces in it
 
I would like the numeric part separated as a number, not text.
 
Eric Lutz

________________________________
From: David Smart <smartware.consulting@gmail.com>
To: ExcelVBA@yahoogroups.com
Sent: Monday, October 31, 2011 3:24 PM
Subject: Re: [ExcelVBA] Text to columns, alpha characters first then numeric

 

Please confirm:

1) The numeric part is always at the end of the text
2) The numeric part never has any spaces in it.

Also, do you want the numeric part separated as a number or as a string
value?

Regards, Dave S

----- Original Message -----
From: "Barry White" <imtigerwords@yahoo.com>
To: <ExcelVBA@yahoogroups.com>
Sent: Tuesday, November 01, 2011 5:51 AM
Subject: [ExcelVBA] Text to columns, alpha characters first then numeric

Howdy all,

I have example data below,

DIFF WKND PCT A 1090.52
REG 13621.58

I want the above data split into 2 columns and only ever two columns.

1. All the text or alpha characters in one column

2. All the numeric characters in another column

The result should be below:

DIFF WKND PCT A 1090.52
REG 13621.58

How do I do this? Text to columns by the "delimited space" method winds up
that the first row contains 5 columns and the second row contains two, and
the numeric portion is slotted in different columns because of it.
Eric Lutz

.

[Non-text portions of this message have been removed]

------------------------------------

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go
here: http://www.mousetrax.com/techtrax to enter the ezine, then search the
ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------Yahoo! Groups Links

-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1411 / Virus Database: 1522/3985 - Release Date: 10/30/11

[Non-text portions of this message have been removed]

__._,_.___
Recent Activity:
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___
READ MORE....

Re: [ExcelVBA] Re: Text to columns, alpha characters first then numeric

 

Just having a fiddle with this. It is possible to do it with formulas,
although it's painful.

Assuming your value is in A1 and that it will never contain an equals sign
...

=LEFT(A1,FIND("=",SUBSTITUTE(A1," ","=",LEN(A1)-LEN(SUBSTITUTE(A1,"
",""))))-1)
=VALUE(MID(A1,FIND("=",SUBSTITUTE(A1," ","=",LEN(A1)-LEN(SUBSTITUTE(A1,"
",""))))+1,99))

The second SUBSTITUTE() removes all spaces, allowing the number of spaces in
the string to be counted by comparing the new length.
The first SUBSTITUTE() replaces the last space with an equals sign, so that
the FIND() can find it and break the string.

All this because there is no "find backwards" in the built-in Excel
functions (2003 anyway).

So, a little bit of VBA gets you much simpler formula.

Option Explicit

Public Function FindLast(ToFind As String, InText As String) As Integer
FindLast = InStrRev(InText, ToFind)
End Function

and the formulas then simplify to

=LEFT(A1,FindLast(" ",A1)-1)
=VALUE(MID(A1,FindLast(" ",A1)+1,99))

Of course, you could do the lot with VBA, but there's not much gain, and
you'll find FindLast() useful at other times too.

Regards, Dave S

--- In ExcelVBA@yahoogroups.com, Barry White <imtigerwords@...> wrote:
>
> Howdy all,
>
> I have example data below,
>
> DIFF WKND PCT A 1090.52
> REG 13621.58
>
> I want the above data split into 2 columns and only ever two columns.
>
> 1. All the text or alpha characters in one column
>
> 2. All the numeric characters in another column
>
> The result should be below:
>
> DIFF WKND PCT A 1090.52
> REG 13621.58
>
> How do I do this? Text to columns by the "delimited space" method winds up
> that the first row contains 5 columns and the second row contains two, and
> the numeric portion is slotted in different columns because of it.
> Eric Lutz
>
> .
>
>
>
> [Non-text portions of this message have been removed]
>

------------------------------------

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go
here: http://www.mousetrax.com/techtrax to enter the ezine, then search the
ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------Yahoo! Groups Links

-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1411 / Virus Database: 2092/3985 - Release Date: 10/30/11

__._,_.___
Recent Activity:
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___
READ MORE....

[ExcelVBA] Re: Text to columns, alpha characters first then numeric

 


Two ideas:

- Parse it as a string variable, which it will be, [mid(String,n,1) in a (n) loop] until you get a digit, then do your split with something like LEFT(String,LEN(s)-nn)and RIGHT(String,LEN(s)-nn).

- If you know the number is always last, then parse it for a space from the right.

Your results example doesn't work on Yahoo. It doesn't show tabs, but no problem.
--
73, Steve

--- In ExcelVBA@yahoogroups.com, Barry White <imtigerwords@...> wrote:
>
> Howdy all,
>  
> I have example data below,
>  
> DIFF WKND PCT A 1090.52
> REG 13621.58
>  
> I want the above data split into 2 columns and only ever two columns.
>  
> 1. All the text or alpha characters in one column
>  
> 2. All the numeric characters in another column
>  
> The result should be below:
>  
> DIFF WKND PCT A 1090.52
> REG  13621.58
>
> How do I do this?  Text to columns by the "delimited space" method winds up that the first row contains 5 columns and the second row contains two, and the numeric portion is slotted in different columns because of it.
> Eric Lutz
>  
> .
>
>
>
> [Non-text portions of this message have been removed]
>

__._,_.___
Recent Activity:
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___
READ MORE....

Re: [ExcelVBA] Text to columns, alpha characters first then numeric

 

Please confirm:

1) The numeric part is always at the end of the text
2) The numeric part never has any spaces in it.

Also, do you want the numeric part separated as a number or as a string
value?

Regards, Dave S

----- Original Message -----
From: "Barry White" <imtigerwords@yahoo.com>
To: <ExcelVBA@yahoogroups.com>
Sent: Tuesday, November 01, 2011 5:51 AM
Subject: [ExcelVBA] Text to columns, alpha characters first then numeric

Howdy all,

I have example data below,

DIFF WKND PCT A 1090.52
REG 13621.58

I want the above data split into 2 columns and only ever two columns.

1. All the text or alpha characters in one column

2. All the numeric characters in another column

The result should be below:

DIFF WKND PCT A 1090.52
REG 13621.58

How do I do this? Text to columns by the "delimited space" method winds up
that the first row contains 5 columns and the second row contains two, and
the numeric portion is slotted in different columns because of it.
Eric Lutz

.

[Non-text portions of this message have been removed]

------------------------------------

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go
here: http://www.mousetrax.com/techtrax to enter the ezine, then search the
ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------Yahoo! Groups Links

-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1411 / Virus Database: 1522/3985 - Release Date: 10/30/11

__._,_.___
Recent Activity:
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___
READ MORE....

[ExcelVBA] Text to columns, alpha characters first then numeric

 

Howdy all,
 
I have example data below,
 
DIFF WKND PCT A 1090.52
REG 13621.58
 
I want the above data split into 2 columns and only ever two columns.
 
1. All the text or alpha characters in one column
 
2. All the numeric characters in another column
 
The result should be below:
 
DIFF WKND PCT A 1090.52
REG  13621.58

How do I do this?  Text to columns by the "delimited space" method winds up that the first row contains 5 columns and the second row contains two, and the numeric portion is slotted in different columns because of it.
Eric Lutz
 
.

[Non-text portions of this message have been removed]

__._,_.___
Recent Activity:
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___
READ MORE....

[belajar-excel] Digest Number 1382

Messages In This Digest (15 Messages)

Messages

1a.

Bls: [belajar-excel] Menyisipkan data di kolom sebelah

Posted by: "Amar luqman Hakim" amarluqmanhakim@yahoo.com   amarluqmanhakim

Sun Oct 30, 2011 7:14 am (PDT)



yo

--- Mods ---
Maksudnya apa ya ?
Moga-moga ada penjelasan yang lebih baik.
------------

________________________________
Dari: jkssxls Sudarsono <jkssxls@hotmail.com>
Kepada: Belajar-Excel Yahoo Groups <belajar-excel@yahoogroups.com>
Dikirim: Sabtu, 29 Oktober 2011 14:52
Judul: RE: [belajar-excel] Menyisipkan data di kolom sebelah

 
 

Pelajaran berlanjut ( seperti sekolah saja ya... ) :
ada data misal di range c7:c11 :

a
b
c
d
e
bila kita gunakan rumus : {=INDEX(C7:C11, ROW(2:3) )} hasilnya di range F7:F9 :

b
c
#N/A
bila kita gunakan rumus : { =INDEX(C7:C11, COLUMN(2:3) ) } hasilnya di I7:K7 :

a b c
Jadi penggunaan Row sbg index dapat dihandalkan dibandingkan Column
fungsi dibawah ini adalah mengambil data sesuai posisi indeks yg diinginkan :
option base 1
Function AmbilArray(arraysumber, posambil)
   Dim jumambil As Variant
   jumdata = UBound(arraysumber)
   jumambil = UBound(posambil)
   Dim arrayhasil As Variant
' yg diinginkan kadang tak memenuhi syarat alias isi array kosong
   ReDim arrayhasil(jumambil)
   xarraysumber = WorksheetFunction.Transpose(arraysumber)
'ambil data yg diinginkan
   ygsesuai = 0
   For i = 1 To jumdata
' jika isi array kosong
     perror = IsError(xarraysumber(i))
     For j = 1 To jumambil
' sesuai dgn yg diinginkan dan tak kosong
       If (i = posambil(j)) And Not perror Then
         ygsesuai = ygsesuai + 1
         arrayhasil(ygsesuai) = xarraysumber(i)
       End If
     Next j
   Next i
'hasil sesuai data yg ada
   Dim hasilnya As Variant
   ReDim hasilnya(ygsesuai)
   For i = 1 To ygsesuai
      hasilnya(i) = arrayhasil(i)
   Next i
   AmbilArray = WorksheetFunction.Transpose(hasilnya)
End Function

rumus di range N7:N11 : {=IF( C7:C11>"b" , C7:C11 )} hasilnya :

FALSE
FALSE
c
d
e
rumus di range Q7 : { =AmbilArray( IF(C7:C11>"c",C7:C11,null) , {3,5} ) }    hasil :

e
 
rumus di range  T7:T8  :  {=AmbilArray(    IF(C7:C11>"c",C7:C11,null)  ,  {3,5}  )  }  hasil :

  e
  e
 
Rumus di range W7:W8  :   {=AmbilArray( IF(C7:C11>="c",C7:C11,null) , {3,5} ) } hasil :

c
  e
 
Rumus di range Z7:Z9  : {=AmbilArray( IF(C7:C11>="c",C7:C11,null) , {3,5} ) } hasil :

  c
  e
  #N/A
 
Dari contoh2 di atas, dapat di ambil kesimpulan :
1. Penggunaan Row dapat dihandalkan
2. jika array mempunyai jumlah item 1 ( satu ) , maka rumus array jika dibuat pada range yg melebihi , tidak akan menghasilkan #N/A
 
 
sekarang saya akan gunakan collection
 
option base 1
Function AmbilArray_Col(arraysumber, posambil)
    Dim jumambil As Variant
    jumdata = UBound(arraysumber)
    jumambil = UBound(posambil)
    Dim koleksi As New Collection
' yg diinginkan kadang tak memenuhi syarat alias isi array kosong
        xarraysumber = WorksheetFunction.Transpose(arraysumber)
'ambil data yg diinginkan
    ygsesuai = 0
   For i = 1 To jumdata
' jika isi array kosong
      perror = IsError(xarraysumber(i))
      For j = 1 To jumambil
' sesuai dgn yg diinginkan dan tak kosong
        If (i = posambil(j)) And Not perror Then
          koleksi.Add Item:=xarraysumber(i)
        End If
      Next j
    Next i
'hasil sesuai data yg ada
    Dim hasilnya As Variant
    ReDim hasilnya( koleksi.Count )
    For i = 1 To koleksi.Count
       hasilnya(i) = koleksi.Item(i)
    Next i
    AmbilArray_Col = WorksheetFunction.Transpose(hasilnya)
End Function

 
Penggunaan mirip dgn fungsi AmbilArray , seperti  {=AmbilArray_col( IF(  C7:C11>="c"  , C7:C11  ,null), {3,5} ) }
Jadi kesimpulannya lebih baik gunakan Coolection jika jumlah item tak dapat dipastikan.
 
Selamat Belajar membuat Fungsi Array Formula sendiri.
 

________________________________
To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Thu, 27 Oct 2011 03:48:49 +0000
Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah

 

Tambahan penggunaan row dan column .
 

1
2
3
4
5  
{=INDEX(D7:D11,   ROW(2:3)   )} akan menghasilkan keluaran  :
 

2
3
#N/A
{=INDEX(D7:D11,  COLUMN(2:3)  )} akan menghasilkan keluaran :
 

1 2 3
 
walaupun kita hanya ingin memilih indeks ke 2 dan 3 , penggunaan Column tidak mendukung hal itu .
________________________________
To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Wed, 26 Oct 2011 09:43:23 +0000
Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah

 
* ada pola baru dgn transpose nih

sekarang kita bermain dengan posisi data pada baris :

1
2
3
4
5
6
7
8
9
10
 
dan mengubah menjadi :

1 4 7 10
2 5 8 #REF!
3 6 9 #REF!
kita dapat menggunakan : {=INDEX(B3:B12,ROW(1:3)+  {0,3,6,9}  )}
tapi saya gunakan :
 
{=INDEX(B3:B12,ROW(1:3)+  3*(COLUMN(1:4)-1)  )}
 
untuk mengubah menjadi :
1 2 3
4 5 6
7 8 9
10 #REF! #REF!

kita dapat menggunakan  : {=INDEX(B3:B12,   COLUMN(1:3)+ TRANSPOSE({0,3,6,9})  )}
tapi saya gunakan :
{=INDEX(B3:B12,  COLUMN(1:3) +  3*(ROW(1:4)-1)       )}

________________________________
To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Tue, 25 Oct 2011 13:35:18 +0000
Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah

 
pola 1,2,1,2 atau 1,2,3,1,2,3 atau 1,2,3,4,1,2,3,4
dapat diakali dengan cara ?
{=MOD(ROW(1:20)-1,2)+1}  --> 1,2,1,2              ...
{=MOD(ROW(1:20)-1,3)+1}  --> 1,2,3,1,2,3         ...
{=MOD(ROW(1:20)-1,4)+1}  --> 1,2,3,4,1,2,3,4    ...
 
pola 1,1,2,2,..   atau 1,1,1,2,2,2, ..
{=CEILING(ROW(1:20)/2,1)}   ---> 1,1,2,2        ...
{=CEILING(ROW(1:20)/3,1)}   ---> 1,1,1,2,2,2   ...

misal :
1 2 3
4 5 6
7 8 9
10 11 12
13 14 15
16 17 18
19 20  
menjadi :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 gunakan :
{=INDEX(B16:D22,   CEILING(ROW(1:20)/3,1)   ,   MOD(ROW(1:20)-1,3)+1   ) }
silakan berkreasi dgn pola-pola bilangan lainnya.....

 

________________________________
To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Tue, 25 Oct 2011 13:25:25 +0000
Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah

 
gunakan array formula :
{=INDEX(B3:C12,   CEILING(ROW(1:20)/2,1)  ,   IF(ISEVEN(ROW(1:20)),2,1)    )}
 
rumus ini berpola  {{1,1},{1,2},{2,1},{2,2},{3,1},{3,2}  ... {10,1},{10,2}}
 
CEILING(ROW(1:20)/2,1) dapat diganti oleh ROUNDUP(ROW(1:20)/2,1)
IF(ISEVEN(ROW(1:20)),2,1) dapat diganti IF(ISODD(ROW(1:20)),1,2)    ' ini masa saja

 

________________________________
To: belajar-excel@yahoogroups.com
From: sc0rpi0_b0y82@yahoo.com
Date: Tue, 25 Oct 2011 16:58:45 +0800
Subject: [belajar-excel] Menyisipkan data di kolom sebelah

 
Kepada para suhu X-cel

Mohon pencerahan untuk kasus newbie yang pertama, kalo bisa jangan pake macro

Thanks

1b.

Re: Bls: [belajar-excel] Menyisipkan data di kolom sebelah

Posted by: "Luqman Elhakim" luqmanelhakim@ymail.com   luqmanelhakim@ymail.com

Sun Oct 30, 2011 8:16 pm (PDT)



maaf salah kirim.

>________________________________
>From: Amar luqman Hakim <amarluqmanhakim@yahoo.com>
>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>Sent: Sunday, October 30, 2011 9:03 PM
>Subject: Bls: [belajar-excel] Menyisipkan data di kolom sebelah
>
>

>yo
>
>--- Mods ---
>Maksudnya apa ya ?
>Moga-moga ada penjelasan yang lebih baik.
>------------
>
>________________________________
>Dari: jkssxls Sudarsono <jkssxls@hotmail.com>
>Kepada: Belajar-Excel Yahoo Groups <belajar-excel@yahoogroups.com>
>Dikirim: Sabtu, 29 Oktober 2011 14:52
>Judul: RE: [belajar-excel] Menyisipkan data di kolom sebelah
>


>
>Pelajaran berlanjut ( seperti sekolah saja ya... ) :
>ada data misal di range c7:c11 :
>
>a
>b
>c
>d
>e
>bila kita gunakan rumus : {=INDEX(C7:C11, ROW(2:3) )} hasilnya di range F7:F9 :
>
>b
>c
>#N/A
>bila kita gunakan rumus : { =INDEX(C7:C11, COLUMN(2:3) ) } hasilnya di I7:K7 :
>
>a b c
>Jadi penggunaan Row sbg index dapat dihandalkan dibandingkan Column
>fungsi dibawah ini adalah mengambil data sesuai posisi indeks yg diinginkan :
>option base 1
>Function AmbilArray(arraysumber, posambil)
>   Dim jumambil As Variant
>   jumdata = UBound(arraysumber)
>   jumambil = UBound(posambil)
>   Dim arrayhasil As Variant
>' yg diinginkan kadang tak memenuhi syarat alias isi array kosong
>   ReDim arrayhasil(jumambil)
>   xarraysumber = WorksheetFunction.Transpose(arraysumber)
>'ambil data yg diinginkan
>   ygsesuai = 0
>   For i = 1 To jumdata
>' jika isi array kosong
>     perror = IsError(xarraysumber(i))
>     For j = 1 To jumambil
>' sesuai dgn yg diinginkan dan tak kosong
>       If (i = posambil(j)) And Not perror Then
>         ygsesuai = ygsesuai + 1
>         arrayhasil(ygsesuai) = xarraysumber(i)
>       End If
>     Next j
>   Next i
>'hasil sesuai data yg ada
>   Dim hasilnya As Variant
>   ReDim hasilnya(ygsesuai)
>   For i = 1 To ygsesuai
>      hasilnya(i) = arrayhasil(i)
>   Next i
>   AmbilArray = WorksheetFunction.Transpose(hasilnya)
>End Function
>
>rumus di range N7:N11 : {=IF( C7:C11>"b" , C7:C11 )} hasilnya :
>
>FALSE
>FALSE
>c
>d
>e
>rumus di range Q7 : { =AmbilArray( IF(C7:C11>"c",C7:C11,null) , {3,5} ) }    hasil :
>
>e

>rumus di range  T7:T8  :  {=AmbilArray(    IF(C7:C11>"c",C7:C11,null)  ,  {3,5}  )  }  hasil :
>
>  e
>  e

>Rumus di range W7:W8  :   {=AmbilArray( IF(C7:C11>="c",C7:C11,null) , {3,5} ) } hasil :
>
>c
>  e

>Rumus di range Z7:Z9  : {=AmbilArray( IF(C7:C11>="c",C7:C11,null) , {3,5} ) } hasil :
>
>  c
>  e
>  #N/A

>Dari contoh2 di atas, dapat di ambil kesimpulan :
>1. Penggunaan Row dapat dihandalkan
>2. jika array mempunyai jumlah item 1 ( satu ) , maka rumus array jika dibuat pada range yg melebihi , tidak akan menghasilkan #N/A


>sekarang saya akan gunakan collection

>option base 1
>Function AmbilArray_Col(arraysumber, posambil)
>    Dim jumambil As Variant
>    jumdata = UBound(arraysumber)
>    jumambil = UBound(posambil)
>    Dim koleksi As New Collection
>' yg diinginkan kadang tak memenuhi syarat alias isi array kosong
>        xarraysumber = WorksheetFunction.Transpose(arraysumber)
>'ambil data yg diinginkan
>    ygsesuai = 0
>   For i = 1 To jumdata
>' jika isi array kosong
>      perror = IsError(xarraysumber(i))
>      For j = 1 To jumambil
>' sesuai dgn yg diinginkan dan tak kosong
>        If (i = posambil(j)) And Not perror Then
>          koleksi.Add Item:=xarraysumber(i)
>        End If
>      Next j
>    Next i
>'hasil sesuai data yg ada
>    Dim hasilnya As Variant
>    ReDim hasilnya( koleksi.Count )
>    For i = 1 To koleksi.Count
>       hasilnya(i) = koleksi.Item(i)
>    Next i
>    AmbilArray_Col = WorksheetFunction.Transpose(hasilnya)
>End Function
>

>Penggunaan mirip dgn fungsi AmbilArray , seperti  {=AmbilArray_col( IF(  C7:C11>="c"  , C7:C11  ,null), {3,5} ) }
>Jadi kesimpulannya lebih baik gunakan Coolection jika jumlah item tak dapat dipastikan.

>Selamat Belajar membuat Fungsi Array Formula sendiri.

>
>________________________________
>To: belajar-excel@yahoogroups.com
>From: jkssxls@hotmail.com
>Date: Thu, 27 Oct 2011 03:48:49 +0000
>Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah
>

>
>Tambahan penggunaan row dan column .

>
>1
>2
>3
>4
>5  
>{=INDEX(D7:D11,   ROW(2:3)   )} akan menghasilkan keluaran  :

>
>2
>3
>#N/A
>{=INDEX(D7:D11,  COLUMN(2:3)  )} akan menghasilkan keluaran :

>
>1 2 3

>walaupun kita hanya ingin memilih indeks ke 2 dan 3 , penggunaan Column tidak mendukung hal itu .
>________________________________
>To: belajar-excel@yahoogroups.com
>From: jkssxls@hotmail.com
>Date: Wed, 26 Oct 2011 09:43:23 +0000
>Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah
>

>* ada pola baru dgn transpose nih
>
>sekarang kita bermain dengan posisi data pada baris :
>
>1
>2
>3
>4
>5
>6
>7
>8
>9
>10

>dan mengubah menjadi :
>
>1 4 7 10
>2 5 8 #REF!
>3 6 9 #REF!
>kita dapat menggunakan : {=INDEX(B3:B12,ROW(1:3)+  {0,3,6,9}  )}
>tapi saya gunakan :

>{=INDEX(B3:B12,ROW(1:3)+  3*(COLUMN(1:4)-1)  )}

>untuk mengubah menjadi :
>1 2 3
>4 5 6
>7 8 9
>10 #REF! #REF!
>
>kita dapat menggunakan  : {=INDEX(B3:B12,   COLUMN(1:3)+ TRANSPOSE({0,3,6,9})  )}
>tapi saya gunakan :
>{=INDEX(B3:B12,  COLUMN(1:3) +  3*(ROW(1:4)-1)       )}
>
>________________________________
>To: belajar-excel@yahoogroups.com
>From: jkssxls@hotmail.com
>Date: Tue, 25 Oct 2011 13:35:18 +0000
>Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah
>

>pola 1,2,1,2 atau 1,2,3,1,2,3 atau 1,2,3,4,1,2,3,4
>dapat diakali dengan cara ?
>{=MOD(ROW(1:20)-1,2)+1}  --> 1,2,1,2              ...
>{=MOD(ROW(1:20)-1,3)+1}  --> 1,2,3,1,2,3         ...
>{=MOD(ROW(1:20)-1,4)+1}  --> 1,2,3,4,1,2,3,4    ...

>pola 1,1,2,2,..   atau 1,1,1,2,2,2, ..
>{=CEILING(ROW(1:20)/2,1)}   ---> 1,1,2,2        ...
>{=CEILING(ROW(1:20)/3,1)}   ---> 1,1,1,2,2,2   ...
>
>misal :
>1 2 3
>4 5 6
>7 8 9
>10 11 12
>13 14 15
>16 17 18
>19 20  
>menjadi :
>1
>2
>3
>4
>5
>6
>7
>8
>9
>10
>11
>12
>13
>14
>15
>16
>17
>18
>19
>20
> gunakan :
>{=INDEX(B16:D22,   CEILING(ROW(1:20)/3,1)   ,   MOD(ROW(1:20)-1,3)+1   ) }
>silakan berkreasi dgn pola-pola bilangan lainnya.....
>

>
>________________________________
>To: belajar-excel@yahoogroups.com
>From: jkssxls@hotmail.com
>Date: Tue, 25 Oct 2011 13:25:25 +0000
>Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah
>

>gunakan array formula :
>{=INDEX(B3:C12,   CEILING(ROW(1:20)/2,1)  ,   IF(ISEVEN(ROW(1:20)),2,1)    )}

>rumus ini berpola  {{1,1},{1,2},{2,1},{2,2},{3,1},{3,2}  ... {10,1},{10,2}}

>CEILING(ROW(1:20)/2,1) dapat diganti oleh ROUNDUP(ROW(1:20)/2,1)
>IF(ISEVEN(ROW(1:20)),2,1) dapat diganti IF(ISODD(ROW(1:20)),1,2)    ' ini masa saja
>

>
>________________________________
>To: belajar-excel@yahoogroups.com
>From: sc0rpi0_b0y82@yahoo.com
>Date: Tue, 25 Oct 2011 16:58:45 +0800
>Subject: [belajar-excel] Menyisipkan data di kolom sebelah
>

>Kepada para suhu X-cel
>
>Mohon pencerahan untuk kasus newbie yang pertama, kalo bisa jangan pake macro
>
>Thanks
>
>
>
>
>
1c.

Re: Menyisipkan data di kolom sebelah

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Sun Oct 30, 2011 11:08 pm (PDT)



*[ Mohon maaf, O.O.T ]*
*---------------------*
Dengan posting hanya sebaris (bahka se "kata") itu,......
Mungkin maksud Pak Amar : meng-iya-kan pelajaran dari pak jkssxls
Sebetulnya *OneLiner Posting* seperti itu, termasuk *tidak memenuhi *
*imbauan **/peraturan milis.. *

Mengenai posting mulai yg ke3 atau ke4 sampai terakhir (ke 9) dari pak
jkssxls, dengan posting OOT beruntun-nya itu, mungkin maksudnya :
"Menjawab pertanyaan Pak Scorpio Alon tetapi sudah melebihi hal yg
ditanyakan (sudah OOT tetapi tanpa bilang OOT )"

Menurut pendapatku, pelajaran yg disampaikan cukup bagus, walaupun
hal sejenis sudah pernah ada yg menyampaikan di milis (dengan formula
variasi lain, yg seingat saya lebih pendek).

Posting itu, sekali lagi menurut pendapat saya saja, akan lebih bagus lagi
jika di-SATUKAN dlm *satu paket*, kemudian
* bisa diposted dlm TOPIK BARU (agar tidak OOT)
* atau di-unggah ke area FILES di milis ini (melalui moderator)
* atau bisa juga ditulis dalam posting secara Serial..

Saya berpendapat bahwa posting sudah OOT karena Subjectnya
adalah: "Menyisipkan data *di kolom sebelah*"
sementara penjelasan Bapak jkssxls mulai posting ke 3 atau 4 sampai
yang terahir (posting ke 9 ) sudah keluar dari topik tsb.

Agak istimewa juga: satu orang menanggapi 1 topik sampai 9 kali, sedangkan
sifat milis bukan sepeti chattting, di mana tulisan di milis ditulis tidak
terlalu
tergesa-gesa (agar tidak perlu sering diralat & revisi ) sedangkan di
chatting
semuanya serba spontan.. karena lawan bicara menungggu di depan komputer
di seberang sana...

Juga ada satu hal yg sebaiknya diingat:
Nasehat / palajaran yg diberikan biasanya hanya akan didengar / dibaca
oleh pihak lain KALAU statusnya DITANYA-KAN

Hal yg *tidak ditanyakan tetapi kita jelaskan dengan volume yg cukup *
*besar, *biasanya tidak dibaca oleh audience..
(jadi sebaiknya jangan kecewa, karena 'psikologi masa' memang seperti itu)

Jika kita lihat bahwa Pak Scorpio Alon pun, hanya sekali saja menanggapi
tangapan2 dari members lain (itu pun hanya mengquote jawaban dari Bp Ghozi
),
kita sudah dapat menyimpulkan sendiri sikap kak Scropio Alon (tentu saja
kesimpulan kita bisa salah)

Mohon maaf posting ini pun OOT (out of topic) tetapi diusahakan untuk
diposted
terdorong oleh *rasa sayang kepada milis dan semua members & moderatos-nya*
dan sama sekali* bukan* untuk memperngaruhi pendapat members lailn bahwa
hal
spt itu dilarang...

CMIIW
salam sayang, warm regards & wassalamualaikum wr wb.
-haps-

*2011/10/30 Amar luqman Hakim <amarluqmanhakim@yahoo.com>
*
>
> * *
>
> *yo
> *
> --- Mods ---
> Maksudnya apa ya ?
> Moga-moga ada penjelasan yang lebih baik.
> ------------
> ________________________________
> Dari: jkssxls Sudarsono <jkssxls@hotmail.com>
> Dikirim: Sabtu, 29 Oktober 2011 14:52
>
> Pelajaran berlanjut ( seperti sekolah saja ya... ) :
>
> ada data misal di range c7:c11 :
> a
> b
> c
> d
> e
> bila kita gunakan rumus : {=INDEX(C7:C11, ROW(2:3) )} hasilnya di range
> F7:F9 :
>
> b
> c
> #N/A
> bila kita gunakan rumus : { =INDEX(C7:C11, COLUMN(2:3) ) } hasilnya di
> I7:K7 :
>
> a b c
> Jadi penggunaan Row sbg index dapat dihandalkan dibandingkan Column
> fungsi dibawah ini adalah mengambil data sesuai posisi indeks yg
> diinginkan :
> option base 1
> Function AmbilArray(arraysumber, posambil)
> Dim jumambil As Variant
> jumdata = UBound(arraysumber)
> jumambil = UBound(posambil)
> Dim arrayhasil As Variant
> ' yg diinginkan kadang tak memenuhi syarat alias isi array kosong
> ReDim arrayhasil(jumambil)
> xarraysumber = WorksheetFunction.Transpose(arraysumber)
> 'ambil data yg diinginkan
> ygsesuai = 0
> For i = 1 To jumdata
> ' jika isi array kosong
> perror = IsError(xarraysumber(i))
> For j = 1 To jumambil
> ' sesuai dgn yg diinginkan dan tak kosong
> If (i = posambil(j)) And Not perror Then
> ygsesuai = ygsesuai + 1
> arrayhasil(ygsesuai) = xarraysumber(i)
> End If
> Next j
> Next i
> 'hasil sesuai data yg ada
> Dim hasilnya As Variant
> ReDim hasilnya(ygsesuai)
> For i = 1 To ygsesuai
> hasilnya(i) = arrayhasil(i)
> Next i
> AmbilArray = WorksheetFunction.Transpose(hasilnya)
> End Function
>
> rumus di range N7:N11 : {=IF( C7:C11>"b" , C7:C11 )} hasilnya :
>
> FALSE
> FALSE
> c
> d
> e
> rumus di range Q7 : { =AmbilArray( IF(C7:C11>"c",C7:C11,null) , {3,5} ) }
> hasil :
>
> e
>
> rumus di range T7:T8 : {=AmbilArray( IF(C7:C11>"c",C7:C11,null) ,
> {3,5} ) } hasil :
> e
> e
>
> Rumus di range W7:W8 : {=AmbilArray( IF(C7:C11>="c",C7:C11,null) ,
> {3,5} ) } hasil :
>
> c
> e
>
> Rumus di range Z7:Z9 : {=AmbilArray( IF(C7:C11>="c",C7:C11,null) , {3,5}
> ) } hasil :
>
> c
> e
> #N/A
>
> Dari contoh2 di atas, dapat di ambil kesimpulan :
> 1. Penggunaan Row dapat dihandalkan
> 2. jika array mempunyai jumlah item 1 ( satu ) , maka rumus array jika
> dibuat pada range yg melebihi , tidak akan menghasilkan #N/A
>
>
> sekarang saya akan gunakan collection
>
> option base 1
> Function AmbilArray_Col(arraysumber, posambil)
> Dim jumambil As Variant
> jumdata = UBound(arraysumber)
> jumambil = UBound(posambil)
> Dim koleksi As New Collection
> ' yg diinginkan kadang tak memenuhi syarat alias isi array kosong
> xarraysumber = WorksheetFunction.Transpose(arraysumber)
> 'ambil data yg diinginkan
> ygsesuai = 0
> For i = 1 To jumdata
> ' jika isi array kosong
> perror = IsError(xarraysumber(i))
> For j = 1 To jumambil
> ' sesuai dgn yg diinginkan dan tak kosong
> If (i = posambil(j)) And Not perror Then
> koleksi.Add Item:=xarraysumber(i)
> End If
> Next j
> Next i
> 'hasil sesuai data yg ada
> Dim hasilnya As Variant
> ReDim hasilnya( koleksi.Count )
> For i = 1 To koleksi.Count
> hasilnya(i) = koleksi.Item(i)
> Next i
> AmbilArray_Col = WorksheetFunction.Transpose(hasilnya)
> End Function
>
> Penggunaan mirip dgn fungsi AmbilArray , seperti {=AmbilArray_col( IF(
> C7:C11>="c" , C7:C11 ,null), {3,5} ) }
> Jadi kesimpulannya lebih baik gunakan Coolection jika jumlah item tak
> dapat dipastikan.
>
> Selamat Belajar membuat Fungsi Array Formula sendiri.
>
>
1d.

Re: Menyisipkan data di kolom sebelah

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Sun Oct 30, 2011 11:17 pm (PDT)



BeExceler semuanya,

Saran mbak Haps ini patut dipertimbangkan.

Posting one liner tidak dianjurkan oleh milis.
Mengembangkan solusi dengan berbagai varian kasus dan solusi adalah
perbuatan yang baik. Kebaikan tersebut akan lebih tampak kebaikannya ketika
dirangkum menjadi satu cerita yang utuh dalam satu posting yang disertai
workbook berisi beberapa sheet tentang masing-masing proses pengembangannya.
Hal ini akan membuat BeExceler yang bergairah dalam belajar ini akan lebih
mudah serta utuh merenunginya.

Wassalamualaikum Wr. Wb.
Kid.

2011/10/31 Haps <hapsari.stlizbeth@gmail.com>

> **
>
>
> *[ Mohon maaf, O.O.T ]*
> *---------------------*
> Dengan posting hanya sebaris (bahka se "kata") itu,......
> Mungkin maksud Pak Amar : meng-iya-kan pelajaran dari pak jkssxls
> Sebetulnya *OneLiner Posting* seperti itu, termasuk *tidak memenuhi *
> *imbauan **/peraturan milis.. *
>
> Mengenai posting mulai yg ke3 atau ke4 sampai terakhir (ke 9) dari pak
> jkssxls, dengan posting OOT beruntun-nya itu, mungkin maksudnya :
> "Menjawab pertanyaan Pak Scorpio Alon tetapi sudah melebihi hal yg
> ditanyakan (sudah OOT tetapi tanpa bilang OOT )"
>
> Menurut pendapatku, pelajaran yg disampaikan cukup bagus, walaupun
> hal sejenis sudah pernah ada yg menyampaikan di milis (dengan formula
> variasi lain, yg seingat saya lebih pendek).
>
> Posting itu, sekali lagi menurut pendapat saya saja, akan lebih bagus lagi
> jika di-SATUKAN dlm *satu paket*, kemudian
> * bisa diposted dlm TOPIK BARU (agar tidak OOT)
> * atau di-unggah ke area FILES di milis ini (melalui moderator)
> * atau bisa juga ditulis dalam posting secara Serial..
>
> Saya berpendapat bahwa posting sudah OOT karena Subjectnya
> adalah: "Menyisipkan data *di kolom sebelah*"
> sementara penjelasan Bapak jkssxls mulai posting ke 3 atau 4 sampai
> yang terahir (posting ke 9 ) sudah keluar dari topik tsb.
>
> Agak istimewa juga: satu orang menanggapi 1 topik sampai 9 kali, sedangkan
> sifat milis bukan sepeti chattting, di mana tulisan di milis ditulis tidak
> terlalu
> tergesa-gesa (agar tidak perlu sering diralat & revisi ) sedangkan di
> chatting
> semuanya serba spontan.. karena lawan bicara menungggu di depan komputer
> di seberang sana...
>
> Juga ada satu hal yg sebaiknya diingat:
> Nasehat / palajaran yg diberikan biasanya hanya akan didengar / dibaca
> oleh pihak lain KALAU statusnya DITANYA-KAN
>
> Hal yg *tidak ditanyakan tetapi kita jelaskan dengan volume yg cukup *
> *besar, *biasanya tidak dibaca oleh audience..
> (jadi sebaiknya jangan kecewa, karena 'psikologi masa' memang seperti itu)
>
> Jika kita lihat bahwa Pak Scorpio Alon pun, hanya sekali saja menanggapi
> tangapan2 dari members lain (itu pun hanya mengquote jawaban dari Bp Ghozi
> ),
> kita sudah dapat menyimpulkan sendiri sikap kak Scropio Alon (tentu saja
> kesimpulan kita bisa salah)
>
> Mohon maaf posting ini pun OOT (out of topic) tetapi diusahakan untuk
> diposted
> terdorong oleh *rasa sayang kepada milis dan semua members & moderatos-nya
> *
> dan sama sekali* bukan* untuk memperngaruhi pendapat members lailn bahwa
> hal
> spt itu dilarang...
>
> CMIIW
> salam sayang, warm regards & wassalamualaikum wr wb.
> -haps-
>
>
>
> *2011/10/30 Amar luqman Hakim <amarluqmanhakim@yahoo.com>
> *
>
>> * *
>>
>> *yo
>> *
>> --- Mods ---
>> Maksudnya apa ya ?
>> Moga-moga ada penjelasan yang lebih baik.
>> ------------
>> ________________________________
>> Dari: jkssxls Sudarsono <jkssxls@hotmail.com>
>> Dikirim: Sabtu, 29 Oktober 2011 14:52
>>
>> Pelajaran berlanjut ( seperti sekolah saja ya... ) :
>>
>> ada data misal di range c7:c11 :
>> a
>> b
>> c
>> d
>> e
>> bila kita gunakan rumus : {=INDEX(C7:C11, ROW(2:3) )} hasilnya di range
>> F7:F9 :
>>
>> b
>> c
>> #N/A
>> bila kita gunakan rumus : { =INDEX(C7:C11, COLUMN(2:3) ) } hasilnya di
>> I7:K7 :
>>
>> a b c
>> Jadi penggunaan Row sbg index dapat dihandalkan dibandingkan Column
>> fungsi dibawah ini adalah mengambil data sesuai posisi indeks yg
>> diinginkan :
>> option base 1
>> Function AmbilArray(arraysumber, posambil)
>> Dim jumambil As Variant
>> jumdata = UBound(arraysumber)
>> jumambil = UBound(posambil)
>> Dim arrayhasil As Variant
>> ' yg diinginkan kadang tak memenuhi syarat alias isi array kosong
>> ReDim arrayhasil(jumambil)
>> xarraysumber = WorksheetFunction.Transpose(arraysumber)
>> 'ambil data yg diinginkan
>> ygsesuai = 0
>> For i = 1 To jumdata
>> ' jika isi array kosong
>> perror = IsError(xarraysumber(i))
>> For j = 1 To jumambil
>> ' sesuai dgn yg diinginkan dan tak kosong
>> If (i = posambil(j)) And Not perror Then
>> ygsesuai = ygsesuai + 1
>> arrayhasil(ygsesuai) = xarraysumber(i)
>> End If
>> Next j
>> Next i
>> 'hasil sesuai data yg ada
>> Dim hasilnya As Variant
>> ReDim hasilnya(ygsesuai)
>> For i = 1 To ygsesuai
>> hasilnya(i) = arrayhasil(i)
>> Next i
>> AmbilArray = WorksheetFunction.Transpose(hasilnya)
>> End Function
>>
>> rumus di range N7:N11 : {=IF( C7:C11>"b" , C7:C11 )} hasilnya :
>>
>> FALSE
>> FALSE
>> c
>> d
>> e
>> rumus di range Q7 : { =AmbilArray( IF(C7:C11>"c",C7:C11,null) , {3,5} ) }
>> hasil :
>>
>> e
>>
>> rumus di range T7:T8 : {=AmbilArray( IF(C7:C11>"c",C7:C11,null) ,
>> {3,5} ) } hasil :
>> e
>> e
>>
>> Rumus di range W7:W8 : {=AmbilArray( IF(C7:C11>="c",C7:C11,null) ,
>> {3,5} ) } hasil :
>>
>> c
>> e
>>
>> Rumus di range Z7:Z9 : {=AmbilArray( IF(C7:C11>="c",C7:C11,null) , {3,5}
>> ) } hasil :
>>
>> c
>> e
>> #N/A
>>
>> Dari contoh2 di atas, dapat di ambil kesimpulan :
>> 1. Penggunaan Row dapat dihandalkan
>> 2. jika array mempunyai jumlah item 1 ( satu ) , maka rumus array jika
>> dibuat pada range yg melebihi , tidak akan menghasilkan #N/A
>>
>>
>> sekarang saya akan gunakan collection
>>
>> option base 1
>> Function AmbilArray_Col(arraysumber, posambil)
>> Dim jumambil As Variant
>> jumdata = UBound(arraysumber)
>> jumambil = UBound(posambil)
>> Dim koleksi As New Collection
>> ' yg diinginkan kadang tak memenuhi syarat alias isi array kosong
>> xarraysumber = WorksheetFunction.Transpose(arraysumber)
>> 'ambil data yg diinginkan
>> ygsesuai = 0
>> For i = 1 To jumdata
>> ' jika isi array kosong
>> perror = IsError(xarraysumber(i))
>> For j = 1 To jumambil
>> ' sesuai dgn yg diinginkan dan tak kosong
>> If (i = posambil(j)) And Not perror Then
>> koleksi.Add Item:=xarraysumber(i)
>> End If
>> Next j
>> Next i
>> 'hasil sesuai data yg ada
>> Dim hasilnya As Variant
>> ReDim hasilnya( koleksi.Count )
>> For i = 1 To koleksi.Count
>> hasilnya(i) = koleksi.Item(i)
>> Next i
>> AmbilArray_Col = WorksheetFunction.Transpose(hasilnya)
>> End Function
>>
>> Penggunaan mirip dgn fungsi AmbilArray , seperti {=AmbilArray_col( IF(
>> C7:C11>="c" , C7:C11 ,null), {3,5} ) }
>> Jadi kesimpulannya lebih baik gunakan Coolection jika jumlah item tak
>> dapat dipastikan.
>>
>> Selamat Belajar membuat Fungsi Array Formula sendiri.
>>
>>
>>
>
2a.

Re: lockup dan formula.xls

Posted by: "stefen" stefen@kofi.co.id

Sun Oct 30, 2011 8:36 pm (PDT)



Thanks to all yg sudah bantu
case saya tutup dan solusi yang di berikan sangat memuaskan
GBU

_____

From: belajar-excel@yahoogroups.com
On Behalf Of STDEV(i)
Sent: 17 October 2011 07:24

2011/10/17 STDEV(i) <setiyowati.devi@gmail.com>

(1) aktifkan sheet RESULT
(2) Select / blok: range H6:AA22
(3) klik menu: Format > Conditional Formatting
(4) buat kondisi dengan FORMULA IS =SUM(C6:H6) = 0

berikan format misalnya pattern/backround merah

sebelumnya ndak ada tulisan "part" (ditabel judul kolom C kan juga
dikosongkan),
kok tiba-tiba ada kata, "PART TERSEBUT", jadi kita agak binun' nih..:
yg namanya part itu yang mana ?, kan tidak semua orang disini bekerja di
kofi
sehingga bisa melihat "data angka tertentu" lalu langsung tahu: nah itu =
"PART" !!
(ini gak seriyus, hanya bercanda sebentar... he he...)
3a.

Bls: [belajar-excel] sistem Cuti

Posted by: "tuti andrayani" andrayani_lee@yahoo.co.id   andrayani_lee

Sun Oct 30, 2011 10:57 pm (PDT)



Dear Pa Agung,
Terimakasih penjelasannya.

Regards,
Tuti

________________________________
Dari: "agung_widodo@sanyo.com" <agung_widodo@sanyo.com>
Dikirim: Sabtu, 29 Oktober 2011 11:47

Dear Tuti,
Kalau mau dirinci dengan tanggal selama setahun dan mau dibandingkan dengan tanggal join mungkin bisa dengan formula sederhana sebagai berikut :
Di G5, ketikkan formula sebagai berikut :
=IF($D5=G2,12,"")
Bacanya : Jika tanggal disitu sama dengan tanggal yang disini, maka kapling ini diisi angka 12 kalo nggak sama, kosongin saja
Copykan ke samping
Semoga sesuai keinginan.

Wassalam
Agung Widodo

________________________________
From:belajar-excel@yahoogroups.com
On Behalf Of tuti andrayani
Sent: Friday, October 28, 2011 11:26 AM

Dear All,
Terimakasih untuk respon-responnya, sedikit-sedikit bisa saya ambil untuk pembuatan aplikasi tersebut.
Untk Pa Agung dan rekan lainnya juga .... jika kita mau ambil tanggal persis jatuh tempo, bukan hanya bulannya saja rumusnya gimana ya Pa?Misal : jika tanggal ini = hari jatuh tempo maka tambahkan angka 12 ke kolom ini, tetapi jika tidak sama dengan jatuh tempo atau tahun jatuh temposama dengan tahun join date munculkan angka 0 (untuk lebih jelasnya file excell saya lampirkan )

Terimakasih
Tuti


4a.

Fw: Bagaimana Memindahkan data kedalam rekap dgn macro

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Sun Oct 30, 2011 11:17 pm (PDT)



Dear all,
Saya baru diajarin macro ama temen, tp kok saya lihat dibandingkan dgn yg dibuat oleh rekan2 dan mod beda ya, lebih ribet dr yg biasa saya lihat di millis,trs macro yg dibuat teman saya tidak bisa merekap sempurna, ada yg bisa membantukah untuk menyempurnakannya.
Thanks b4
Salam
Tiny

Powered by Telkomsel BlackBerry�

-----Original Message-----
From: dwa_spv_fin@bukitmakmur.com
Date: Mon, 31 Oct 2011 13:09:59
To: <hartini_80@yahoo.co.id>
Subject: Bagaimana Memindahkan data kedalam rekap dgn macro

Best Regards,
HARTINI
Finance Department
PT. BUMA - DWA
(P) +62-21-6613636 ext. 33161
(E) dwa_spv_fin@bukitmakmur.com
4b.

Re: Fw: Bagaimana Memindahkan data kedalam rekap dgn macro

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Oct 31, 2011 1:51 am (PDT)



Dear Tiny,

Coba file terlampir yang berusaha memanfaatkan kelebihan Excel sebagai data
grid.
Form bisa disusun sekaligus berstruktur rekapnya, jadi proses salin tinggal
copas.

Asumsinya,
- semua data yang diinput akan bersambung terus menerus (tidak ada baris
kosong).
- jumlah baris input memiliki batas maksimal, meskipun dinamis (kadang
sebaris kadang 5 baris)

Untuk coba dengan cara loop, non aktifkan cara selain loop, lalu aktifkan
baris dim lJnsPsn dan seluruh baris bagian dengan loop.
Untuk coba dengan cara series (non loop), non aktifkan baris dim lJnsPsn
dan seluruh baris bagian dengan loop, lalu aktifkan seluruh bagian dengan
cara selain loop

Regards.
Kid.

2011/10/31 <hartini_80@yahoo.co.id>

> **
>
>
> **Dear all,
> Saya baru diajarin macro ama temen, tp kok saya lihat dibandingkan dgn yg
> dibuat oleh rekan2 dan mod beda ya, lebih ribet dr yg biasa saya lihat di
> millis,trs macro yg dibuat teman saya tidak bisa merekap sempurna, ada yg
> bisa membantukah untuk menyempurnakannya.
> Thanks b4
> Salam
> Tiny
> Powered by Telkomsel BlackBerry�
> ------------------------------
> *From: * dwa_spv_fin@bukitmakmur.com
> *Date: *Mon, 31 Oct 2011 13:09:59 +0700
> *To: *<hartini_80@yahoo.co.id>
> *Subject: *Bagaimana Memindahkan data kedalam rekap dgn macro
>
>
> Best Regards,
> HARTINI
> Finance Department
> PT. BUMA - DWA
> (P) +62-21-6613636 ext. 33161
> (E) dwa_spv_fin@bukitmakmur.com
>
>
>
4c.

Re: Fw: Bagaimana Memindahkan data kedalam rekap dgn macro

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Mon Oct 31, 2011 2:04 am (PDT)



Terima kasih banyak ya Mr Kid, btw jika tidak keberatan boleh diajarin kah, cara membaca macronya, biar kedepannya bisa buat sendiri, thanks sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry�

-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 31 Oct 2011 15:51:28
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Fw: Bagaimana Memindahkan data kedalam rekap dgn macro

Dear Tiny,

Coba file terlampir yang berusaha memanfaatkan kelebihan Excel sebagai data
grid.
Form bisa disusun sekaligus berstruktur rekapnya, jadi proses salin tinggal
copas.

Asumsinya,
- semua data yang diinput akan bersambung terus menerus (tidak ada baris
kosong).
- jumlah baris input memiliki batas maksimal, meskipun dinamis (kadang
sebaris kadang 5 baris)

Untuk coba dengan cara loop, non aktifkan cara selain loop, lalu aktifkan
baris dim lJnsPsn dan seluruh baris bagian dengan loop.
Untuk coba dengan cara series (non loop), non aktifkan baris dim lJnsPsn
dan seluruh baris bagian dengan loop, lalu aktifkan seluruh bagian dengan
cara selain loop

Regards.
Kid.

2011/10/31 <hartini_80@yahoo.co.id>

> **
>
>
> **Dear all,
> Saya baru diajarin macro ama temen, tp kok saya lihat dibandingkan dgn yg
> dibuat oleh rekan2 dan mod beda ya, lebih ribet dr yg biasa saya lihat di
> millis,trs macro yg dibuat teman saya tidak bisa merekap sempurna, ada yg
> bisa membantukah untuk menyempurnakannya.
> Thanks b4
> Salam
> Tiny
> Powered by Telkomsel BlackBerry�
> ------------------------------
> *From: * dwa_spv_fin@bukitmakmur.com
> *Date: *Mon, 31 Oct 2011 13:09:59 +0700
> *To: *<hartini_80@yahoo.co.id>
> *Subject: *Bagaimana Memindahkan data kedalam rekap dgn macro
>
>
> Best Regards,
> HARTINI
> Finance Department
> PT. BUMA - DWA
> (P) +62-21-6613636 ext. 33161
> (E) dwa_spv_fin@bukitmakmur.com
>
>
>

4d.

Re: Fw: Bagaimana Memindahkan data kedalam rekap dgn macro

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Oct 31, 2011 2:15 am (PDT)



hehehe...
sudah ada keterangan per baris dan per blok prosesnya.
Malah bagian paling bawah tentang setting balik dibiarkan tetap dengan
keterangan saat di-off-kan, kecuali bagian set balik calculation

With Application
.EnableEvents = True 'turn off seluruh
event, supaya tidak mengganggu proses
.ScreenUpdating = True 'mengurangi
blinking selama proses dan mempercepat proses
.Calculation = lCalc 'kembalikan setting
calculation ke pilihan user
End With

agar lebih mudah melihat kaitannya dengan baris atas, dan perubahan nilai
yang dilakukan.

Garis besar proses adalah :
1. unhide seluruh kolom data
2. lakukan autofilter berdasar kolom cek (kolom A) pilih yang lebih dari 0
alias data valid
3. mulai proses dengan hide kolom tak dipakai (saat mau copy prasmanan,
kolom-kolom meal di hide
4. copy hasil filter yang tampak saja (copy special) yang sudah di-offset 1
kolom ke kanan (supaya kolom A gak ikut) dan offset 2 baris kebawah supaya
header gak ikut.
5. paste spesial nilainya beserta format number nya saja ke sheet rekap
pada cell di kolom A, di baris hasil offset dari A1, sejumlah baris yang
ada di sheet rekap, dengan opsi, seluruh cell yang blank di-skip (dicuekin
alias gak usah di paste)
6. unhide lagi yang tadi dihide
7. hide kolom-kolom bantu
8. hilangkan autofilter
9. kirim pesan selesai.

Justru yang lebih penting adalah penyusunan form input yang memiliki
struktur sama dengan struktur sheet rekapnya (database-nya).
Pengembangan lebih lanjut mungkin tentang menghindari data yang duplikasi
recordnya saat akan di save.
Hal seperti ini juga pernah dijabarkan dimilis. Coba search dimilis.

Regards.
Kid.

2011/10/31 <hartini_80@yahoo.co.id>

> **
>
>
> ** Terima kasih banyak ya Mr Kid, btw jika tidak keberatan boleh diajarin
> kah, cara membaca macronya, biar kedepannya bisa buat sendiri, thanks
> sebelumnya
>
> Salam
> Tiny
> Powered by Telkomsel BlackBerry�
> ------------------------------
> *From: * "Kid Mr." <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 31 Oct 2011 15:51:28 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Fw: Bagaimana Memindahkan data kedalam
> rekap dgn macro
>
>
>
> Dear Tiny,
>
> Coba file terlampir yang berusaha memanfaatkan kelebihan Excel sebagai
> data grid.
> Form bisa disusun sekaligus berstruktur rekapnya, jadi proses salin
> tinggal copas.
>
> Asumsinya,
> - semua data yang diinput akan bersambung terus menerus (tidak ada baris
> kosong).
> - jumlah baris input memiliki batas maksimal, meskipun dinamis (kadang
> sebaris kadang 5 baris)
>
> Untuk coba dengan cara loop, non aktifkan cara selain loop, lalu aktifkan
> baris dim lJnsPsn dan seluruh baris bagian dengan loop.
> Untuk coba dengan cara series (non loop), non aktifkan baris dim lJnsPsn
> dan seluruh baris bagian dengan loop, lalu aktifkan seluruh bagian dengan
> cara selain loop
>
> Regards.
> Kid.
>
> 2011/10/31 <hartini_80@yahoo.co.id>
>
>> **
>>
>>
>> **Dear all,
>> Saya baru diajarin macro ama temen, tp kok saya lihat dibandingkan dgn yg
>> dibuat oleh rekan2 dan mod beda ya, lebih ribet dr yg biasa saya lihat di
>> millis,trs macro yg dibuat teman saya tidak bisa merekap sempurna, ada yg
>> bisa membantukah untuk menyempurnakannya.
>> Thanks b4
>> Salam
>> Tiny
>> Powered by Telkomsel BlackBerry�
>> ------------------------------
>> *From: * dwa_spv_fin@bukitmakmur.com
>> *Date: *Mon, 31 Oct 2011 13:09:59 +0700
>> *To: *<hartini_80@yahoo.co.id>
>> *Subject: *Bagaimana Memindahkan data kedalam rekap dgn macro
>>
>>
>> Best Regards,
>> HARTINI
>> Finance Department
>> PT. BUMA - DWA
>> (P) +62-21-6613636 ext. 33161
>> (E) dwa_spv_fin@bukitmakmur.com
>>
>>
>
>
4e.

Re: Fw: Bagaimana Memindahkan data kedalam rekap dgn macro

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Mon Oct 31, 2011 2:27 am (PDT)



Saya coba pelajari Mr. Kid, thanks ya
Powered by Telkomsel BlackBerry�

-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 31 Oct 2011 16:15:30
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Fw: Bagaimana Memindahkan data kedalam rekap dgn macro

hehehe...
sudah ada keterangan per baris dan per blok prosesnya.
Malah bagian paling bawah tentang setting balik dibiarkan tetap dengan
keterangan saat di-off-kan, kecuali bagian set balik calculation

With Application
.EnableEvents = True 'turn off seluruh
event, supaya tidak mengganggu proses
.ScreenUpdating = True 'mengurangi
blinking selama proses dan mempercepat proses
.Calculation = lCalc 'kembalikan setting
calculation ke pilihan user
End With

agar lebih mudah melihat kaitannya dengan baris atas, dan perubahan nilai
yang dilakukan.

Garis besar proses adalah :
1. unhide seluruh kolom data
2. lakukan autofilter berdasar kolom cek (kolom A) pilih yang lebih dari 0
alias data valid
3. mulai proses dengan hide kolom tak dipakai (saat mau copy prasmanan,
kolom-kolom meal di hide
4. copy hasil filter yang tampak saja (copy special) yang sudah di-offset 1
kolom ke kanan (supaya kolom A gak ikut) dan offset 2 baris kebawah supaya
header gak ikut.
5. paste spesial nilainya beserta format number nya saja ke sheet rekap
pada cell di kolom A, di baris hasil offset dari A1, sejumlah baris yang
ada di sheet rekap, dengan opsi, seluruh cell yang blank di-skip (dicuekin
alias gak usah di paste)
6. unhide lagi yang tadi dihide
7. hide kolom-kolom bantu
8. hilangkan autofilter
9. kirim pesan selesai.

Justru yang lebih penting adalah penyusunan form input yang memiliki
struktur sama dengan struktur sheet rekapnya (database-nya).
Pengembangan lebih lanjut mungkin tentang menghindari data yang duplikasi
recordnya saat akan di save.
Hal seperti ini juga pernah dijabarkan dimilis. Coba search dimilis.

Regards.
Kid.

2011/10/31 <hartini_80@yahoo.co.id>

> **
>
>
> ** Terima kasih banyak ya Mr Kid, btw jika tidak keberatan boleh diajarin
> kah, cara membaca macronya, biar kedepannya bisa buat sendiri, thanks
> sebelumnya
>
> Salam
> Tiny
> Powered by Telkomsel BlackBerry�
> ------------------------------
> *From: * "Kid Mr." <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 31 Oct 2011 15:51:28 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Fw: Bagaimana Memindahkan data kedalam
> rekap dgn macro
>
>
>
> Dear Tiny,
>
> Coba file terlampir yang berusaha memanfaatkan kelebihan Excel sebagai
> data grid.
> Form bisa disusun sekaligus berstruktur rekapnya, jadi proses salin
> tinggal copas.
>
> Asumsinya,
> - semua data yang diinput akan bersambung terus menerus (tidak ada baris
> kosong).
> - jumlah baris input memiliki batas maksimal, meskipun dinamis (kadang
> sebaris kadang 5 baris)
>
> Untuk coba dengan cara loop, non aktifkan cara selain loop, lalu aktifkan
> baris dim lJnsPsn dan seluruh baris bagian dengan loop.
> Untuk coba dengan cara series (non loop), non aktifkan baris dim lJnsPsn
> dan seluruh baris bagian dengan loop, lalu aktifkan seluruh bagian dengan
> cara selain loop
>
> Regards.
> Kid.
>
> 2011/10/31 <hartini_80@yahoo.co.id>
>
>> **
>>
>>
>> **Dear all,
>> Saya baru diajarin macro ama temen, tp kok saya lihat dibandingkan dgn yg
>> dibuat oleh rekan2 dan mod beda ya, lebih ribet dr yg biasa saya lihat di
>> millis,trs macro yg dibuat teman saya tidak bisa merekap sempurna, ada yg
>> bisa membantukah untuk menyempurnakannya.
>> Thanks b4
>> Salam
>> Tiny
>> Powered by Telkomsel BlackBerry�
>> ------------------------------
>> *From: * dwa_spv_fin@bukitmakmur.com
>> *Date: *Mon, 31 Oct 2011 13:09:59 +0700
>> *To: *<hartini_80@yahoo.co.id>
>> *Subject: *Bagaimana Memindahkan data kedalam rekap dgn macro
>>
>>
>> Best Regards,
>> HARTINI
>> Finance Department
>> PT. BUMA - DWA
>> (P) +62-21-6613636 ext. 33161
>> (E) dwa_spv_fin@bukitmakmur.com
>>
>>
>
>

5a.

Memotong kalimat

Posted by: "bagusejogja" bagusejogja@yahoo.com   bagusejogja

Mon Oct 31, 2011 1:45 am (PDT)



Salam temen temen....
saya mau berbagi masalah yang saya lampirkan.

Masalahnya yang saya hadapi :
Bagaimana mengambil kata ke 1 dan ke 2 atau kata ke 2 dan ke 3 dari suatu kalimat yang terdiri dari 3 atau lebih kata.
terimakasih sebulumnya teemen temen pecinta ecxcel...
5b.

Re: Memotong kalimat

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Oct 31, 2011 1:58 am (PDT)



Hai Jog,

Data memiliki delimiter ' - '
1. Ambil sebelum delimiter kedua :
=TRIM(LEFT(B5,FIND(" - ",B5,FIND(" - ",B5)+3)-1))

2. Ambil setelah delimiter pertama :
=TRIM(MID(B5,FIND(" - ",B5)+3,LEN(B5)))

Wassalam.
Kid.

2011/10/31 bagusejogja <bagusejogja@yahoo.com>

> **
>
>
> Salam temen temen....
> saya mau berbagi masalah yang saya lampirkan.
> Masalahnya yang saya hadapi :
> Bagaimana mengambil kata ke 1 dan ke 2 atau kata ke 2 dan ke 3 dari suatu
> kalimat yang terdiri dari 3 atau lebih kata.
> terimakasih sebulumnya teemen temen pecinta ecxcel...
>
>
>
>
5c.

Re: Memotong kalimat

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Mon Oct 31, 2011 3:07 am (PDT)



Rumus 1: versi dipanjang-panjang-kan biar panjang

=LEFT(B5,LEN(B5)-LEN(MID(B5,1+FIND("|",SUBSTITUTE(B5,"-","|",LEN(B5)-LEN(SUBSTITUTE(B5,"-","")))),99))-2)

Baru terasa gunanya jika mencari *penggalan kalimat ke "BANYAK"* misalnya
ke *15 *
( lihat di : http://www.box.net/shared/3tchnn3pu9 )

2011/10/31 Kid Mr. <mr.nmkid@gmail.com>

> **
>
> Hai Jog,
> Data memiliki delimiter ' - '
> 1. Ambil sebelum delimiter kedua :
> =TRIM(LEFT(B5,FIND(" - ",B5,FIND(" - ",B5)+3)-1))
> 2. Ambil setelah delimiter pertama :
> =TRIM(MID(B5,FIND(" - ",B5)+3,LEN(B5)))
>
> Wassalam.
> Kid.
>
> > 2011/10/31 bagusejogja <bagusejogja@yahoo.com>
> >>
> >> Salam temen temen....
> >> saya mau berbagi masalah yang saya lampirkan.
> >> Masalahnya yang saya hadapi :
> >> Bagaimana mengambil kata ke 1 dan ke 2 atau kata ke 2 dan ke 3 dari
> suatu kalimat yang terdiri dari 3 atau lebih kata.
> >> terimakasih sebulumnya teemen temen pecinta ecxcel...
>
5d.

Bls: [belajar-excel] Memotong kalimat

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Mon Oct 31, 2011 6:11 am (PDT)



urun rembug
jawaban

1. =LEFT(B5;FIND("-";B5;FIND("-";B5)+1)-1)

2. =MID(B5;FIND("-";B5)+1;LEN(B5))

wassalam

Ghozi Alkatiri

________________________________
Dari: bagusejogja <bagusejogja@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Senin, 31 Oktober 2011 15:39
Judul: [belajar-excel] Memotong kalimat

 
Salam temen temen....
saya mau berbagi masalah yang saya lampirkan.

Masalahnya yang saya hadapi :
Bagaimana mengambil kata ke 1 dan ke 2 atau kata ke 2 dan ke 3 dari suatu kalimat yang terdiri dari 3 atau lebih kata.
terimakasih sebulumnya teemen temen pecinta ecxcel...

Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Mental Health Zone

Learn about issues

Find support

Cat Groups

on Yahoo! Groups

Share pictures &

stories about cats.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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
---------------------------------------------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

READ MORE....