4 Maret 2013

Nama Depan dan Nama Belakang

Disini saya akan share beberapa formula untuk memisahkan Nama Depan, Nama Tengah dan Nama Belakang, serta formula untuk. Dan formula untuk konversi nama dari pola Nama Depan & Nama Belakang menjadi Nama Belakang & Nama Depan maupun sebaliknya, serta beberapa trik rumus yang lainnya. Satu-persatu kasusnya, yaitu

Kasus A






Rumus Nama Depan:
=LEFT(A2;SEARCH(" ";A2;1)-1)
Rumus Nama Belakang
=TRIM(RIGHT(SUBSTITUTE(A2;" ";REPT(" ";99));99))

Kasus B






Rumus Nama Depan:
=LEFT(A7;SEARCH(" ";A7;1)-1)
Rumus Nama Tengah:
=TRIM(MID(SUBSTITUTE(A7;" ";REPT(" ";99));100;99))
Rumus Nama Belakang:
=TRIM(RIGHT(SUBSTITUTE(A7;" ";REPT(" ";99));99))

Kasus C








Rumus menghilangkan sebutan atau gelar di depan nama:
=TRIM(RIGHT(A12;LEN(A12)-SEARCH(" ";A12)))

Kasus D










Rumus konversi:
=MID(A18;SEARCH(" ";A18)+1;50)&" "&LEFT(A18;SEARCH(" ";A18;1)-2)

Kasus E










Rumus konversi:
=TRIM(RIGHT(SUBSTITUTE(A24;" ";REPT(" ";99));99))&", "&LEFT(A24;(FIND("|";SUBSTITUTE(A24;" ";"|";2)))-1)

Kasus F










Rumus memisahkan teks nama yang tanpa spasi tetapi harus ada huruf kapitalnya pada setiap awal kata karena untuk penanda
=TRIM(MID($A30;(SMALL(FIND(0;SUBSTITUTE($A30;CHAR(ROW(INDIRECT("65:90")));0)&0);COLUMNS($A$1:A$1)));(SMALL(FIND(0;SUBSTITUTE($A30;CHAR(ROW(INDIRECT("65:90")));0)&0);COLUMNS($A$1:A$1)+1))-(SMALL(FIND(0;SUBSTITUTE($A30;CHAR(ROW(INDIRECT("65:90")));0)&0);COLUMNS($A$1:A2)))))

*rumus ini rumus array, you need to be sure press all together CTRL+SHIFT+ENTER button, ENTER alone don't works

Kasus G










Rumus menambahkan spasi pada teks nama yang tidak ada spasinya dan minimal harus ada huruf kapital setiap awal kata.
=TRIM(LEFT(A35;MIN(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))))))&" "&MID(A35;1+MIN(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1)))));SMALL(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))));2)-MIN(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))))))&" "&LEFT(REPLACE(A35;1;SMALL(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))));2);"");MIN(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(REPLACE(A35;1;SMALL(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))));2);"");2;255)&(CHAR(64+COLUMN($A$1:$W$1))))))&" "&SUBSTITUTE(SUBSTITUTE(REPLACE(A35;1;SMALL(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))));2);"");LEFT(REPLACE(A35;1;SMALL(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))));2);"");MIN(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(REPLACE(A35;1;SMALL(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))));2);"");2;255)&(CHAR(64+COLUMN($A$1:$W$1))))));"");MID(REPLACE(A35;1;SMALL(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))));2);"");MIN(FIND(ROW($1:$10)-1;REPLACE(A35;1;SMALL(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))));2);"")&5^19));255);"")&" "&MID(REPLACE(A35;1;SMALL(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))));2);"");MIN(FIND(ROW($1:$10)-1;REPLACE(A35;1;SMALL(FIND(CHAR(64+COLUMN($A$1:$W$1));MID(A35;2;255)&(CHAR(64+COLUMN($A$1:$W$1))));2);"")&5^19));255))

rumus terakhir ini juga rumus array, jangan lupa caranya yaaa...
FILE LATUHAN

4 komentar:

  1. Terima kasih pak.. sangat bermanfaat

    BalasHapus
    Balasan
    1. kita mau menghilang gelar misal: Dr. dr. Karim menjadi Karim

      Hapus
  2. kita mau menghilangkan gelar Misalnya: Dr. dr. Karim menjadi Karim

    BalasHapus
  3. Jika anda punya nama di cell A1, tempatkan rumus ini di B1

    =MID(A1;1+FIND("~";SUBSTITUTE(A1;" ";"~";2));255)

    BalasHapus