Tecnologia, programação e muito Visual FoxPro.

quinta-feira, 20 de maio de 2010

Re: ]] XL-mania [[ Baca Angka di antara karakter lain.

 

kalau kemungkinan karakter lain selain angka ada tiga: titik, strip (dash) dan spasi
rumusnya
=RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,".",""),"-","")," ",""),4)

kalau semua karakter lain selain angka berkemungkinan ada di data yh mau diolah=
misal
XYZ:<000987>@gmail.com,17653oi876tg1265(8765)*kjh^543#5>kjh<gftrf@+po=*76VCXabcdefABCKJHF876&6:"po"][)(*]
ingin hasilnya = 9347
maka rumusnya lebih sederhana
=RightAngka(A2,4)

tetapi, fungsi RightAngka hanya akan ada di pc anda bila anda buat lebih dulu. spt ini

Function RightAngka(Xel As Range, Optional NumChar As Integer = 1)
   Dim n As Integer, k As String
   For n = Len(Xel) To 1 Step -1
      k = Mid(Xel, n, 1)
      If IsNumeric(k) Then
         RightAngka = k & RightAngka
         If Len(RightAngka) >= NumChar Then Exit For
      End If
   Next n 
End Function


2010/5/18 Isnanto W. Dahrojatun <isnanto.dahrojatun@gmail.com>

Dear masters,.... mohon petunjuk.
Bagaimana cara membaca angka di dalam deretan kombinasi angka dan pembatas lainnya?

Diketahui:
Kombinasi 00000309-01-000273-30-8 211006000651 211006000739 700 211006000697 900 21.10.06.01119-2 901 21.10.06.00076-4     211006019347

Ditanyakan:
Bagaimana cara memperoleh:
4 Angka Terakhir 3308 0651 0739 0697 1192 0764 9347


__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momods di tempat terpencil... moderasi lemots.                    |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
MARKETPLACE

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


Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.


Get real-time World Cup coverage on the Yahoo! Toolbar. Download now to win a signed team jersey!

.

__,_._,___

Nenhum comentário:

Arquivo do blog