"= CONCATENATE(A1;", ";TEXT(B1;"dd mmmm yyyy"))"2. Memisahkan Huruf Per Kolom :
"=MID($B$6;COLUMN()-COLUMN($C$6);1)"3. Ekstrak Data Dobel Per Cell :

" =ekstrak(A2)"Public Function ekstrak(x)
'==========================================
'==== Created By Heru Monas P
'==== 14 January 2014
'==== To Help Friends in EIUG
'==== semoga Bermanfaat
'==========================================
Dim pj As Long
pj = Len(x)
Dim x1 As Variant, x2 As Variant, i As Long
x1 = ""
For i = 1 To pj
x2 = Mid(x, i, 1)
If x2 <> x1 Then
ekstrak = ekstrak & x2
End If
x1 = x2
Next i
End Function
4. Pembulatan Rupiah :
"= IFERROR(IF(MID(D6;3;3)>="500";(D6+(1000-INT(MID(D6;3;3))));(D6+(500-INT(MID(D6;3;3)))));"")"5. Cari Tanggal Terendah :
6. Offset : "=OFFSET(data!$B$1;0;0;COUNTA(data!$B:$B)-0;10)"7. CSE :
"=IFERROR(INDEX($E$5:$E$21;MATCH(0;COUNTIF($G$4:G4;$E$5:$E$21);0));"")" CSE 8. Menghilangkan "DIV/0! : "=IFERROR(A1/B2;"")"9. Memisahkan Data Ganda
|
|||