Buatlah sebuah UDF di module 1 berhubung akan sering terpakai, kalau perlu: workbook berisi makro UDF tsb di save as Add-In, lalu aktifkan Add-innya
Listing UDF-nya sbb:
Function NilaiPertama(Cell As Range)
' siti Vi / 16 aug 2010
Dim Formo As String
Dim Hasil As Variant
Dim i As Integer
Dim Operator
Operator = Split("+,-,*,/,^," & Chr(32), ",")
Formo = Cell.Formula
For i = 0 To UBound(Operator)
Formo = Replace(Formo, Operator(i), "|")
Next i
Hasil = Mid(Formo, 2, InStr(2, Formo, "|") - 2)
NilaiPertama = Val(Hasil)
End Function
Dengan telah punya fungsi baru tsb, maka di worksheet anda dapat
*mengambil Bilangan (Operand) pertama* pada formula aritmatik
misal formula =4282-4272.9 ada di cell A1
di cell B1 tuliskan rumus
=NilaiPertama(A1)
2010/8/14 Ezra Sangga <[email protected]>
>
>
> Dear para pakar Exel mania,
>
> Saya mohon dibantu untuk permasalahan saya ini.
>
> Setiap hari (pertanggal) saya harus mengambil Hours Meter dari setiap
unit.
> Tetapi data yang saya dapatkan dari data entri berupa formula sbb:
>
> *=4282-4272.9*. HM yg harus saya ambil setiap hari adalah 4282.
>
> bagaimana cara cepat untuk mendapatkannya, karena saya harus mlakukannya
setiap hari dengan ribuan unit.
>
> Terlampir datanya.
>
> Terima kasih sebelumnya atas bantuannya.
> Thanks & Regards
> Ezra
ctv_Udf_NilaiPertama (ezra tanya).xls
Description: MS-Excel spreadsheet
