Senin, 19 September 2016

[belajar-excel] Digest Number 3969

6 Messages

Digest #3969

Messages

Sun Sep 18, 2016 6:01 pm (PDT) . Posted by:

"Dede Suparman" asty_tiwul

selamat tengah malam master & rekan be-excel

mohon bantuan nya, setelah muter2 tidak ketemu jawaban

data awal :

ID BULK A BULK B
RMA 1 2
RMB 2
RMC 1
RMD 1 2

hasil yang diinginkan :

BULK A RMA 1
RMC 1
RMD 1
BULK B RMA 2
RMB 2
RMD 2

Terimakasih sebelumnya

salam
DedeSuparman

Sun Sep 18, 2016 6:26 pm (PDT) . Posted by:

"HAIRUL ALAM"

Assalamualaikum
Para Master
Sedikit masalah saya tentang penanggalan ulang tahun sekarang dan akan datang ...Bagaimana caranya agar pada kolom C7 & C8 dibuat menjadi otomatis mengikuti  tanggal pada kolom C5 dengan hasil  keterangan pada D7 & D8. seperti data terlampir
Terimakasih Banyak atas Pencerahannya
WassalamualaikumHairul Alam
Maaf saya revisi sedikit kata pada kolom B7 & B8 menjadi C7 & C8 sedangkan C7 & C8 menjadi D7 & D8

Sun Sep 18, 2016 6:35 pm (PDT) . Posted by:

"HAIRUL ALAM"

Assalamualaikum
Para Master
Sedikitmasalah saya tentang penanggalan ulangtahun sekarang dan akan datang ...Bagaimanacaranya agar pada kolom B7 & B8 dibuat menjadi otomatis mengikuti  tanggal pada kolom C5 dengan hasil  keterangan pada C7 & C8. seperti data terlapirTerimakasihbanyak atas Pencerahannya
WassalamualaikumHairul Alam

Sun Sep 18, 2016 10:00 pm (PDT) . Posted by:

"Susilo -"

Dear Hairul Alam

Coba ketik rumus berikut

Sel C7 =DATE(YEAR(TODAY()),MONTH(C5),DAY(C5))
Sel C8 =DATE(YEAR(TODAY())+1,MONTH(C5),DAY(C5))

Silakan dicoba

Terima kasih
Susilo

Pada 19 September 2016 08.16, HAIRUL ALAM ha_mj76@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> menulis:

>
>
> Assalamualaikum
>
> Para Master
>
> Sedikit masalah saya tentang penanggalan ulang tahun sekarang dan akan
> datang ...
> Bagaimana caranya agar pada kolom B7 & B8 dibuat menjadi otomatis
> mengikuti tanggal pada kolom C5 dengan hasil keterangan pada C7 & C8.
> seperti data terlapir
> Terimakasihbanyak atas Pencerahannya
>
> Wassalamualaikum
> Hairul Alam
>
>
>

Sun Sep 18, 2016 10:00 pm (PDT) . Posted by:

y.roni35

untuk kasus ini saat file dibuka dan digunakan awalnya bisa jalan namun jika berpindah ke workbook lain beberapa menit lalu kita buka workbook awal jadi eror. kalau mau di klik dibebug tidak bisa

Sun Sep 18, 2016 11:53 pm (PDT) . Posted by:

"Nang Agus"

Asalamualaikum warahmatulah,

Dear member Belajar Excel.

Saya membuat UDF sederhana untuk mengubah angka menjadi huruf.

Public Function hurufe(x As String, Optional rupiah As Boolean, Optional
koma As Boolean) As String '
Dim ewonan(6)
ewonan(1) = "ribu "
ewonan(2) = "juta "
ewonan(3) = "milyar "
ewonan(4) = "triliun "
ewonan(5) = "kuadriliun "
If (x = 0) Then
hurufe = "nol "
Exit Function
End IF

xxB = Left(x, km)
For i = 1 To (Int((Len(xxB) + 2) / 3))
tampung = Right(xxB, 3 * i)
bagian = Left(tampung, Len(tampung) - 3 * (i - 1))
If (bagian > 0) Then
If bagian = 1 Then
anu = atusan(bagian, False)
Else
anu = atusan(bagian, True)
End If
tulisan = anu & ewonan(i - 1) & tulisan
End If
Next
hurufe = tulisan
end Function

UDF tersebut hanya dapat digunakan maksimal 999.999.999.999.999 (satu
kuadriliun kurang 1)
Jika 1 kuadriliun langsung error, namun kalau inputnya diubah menjadi text
maka semua berjalan dengan normal sampai angka berapapun.
apakah karena UDF berbunyi x as string? jika diubah x as double sampai 5
milliar saja sudah error apalagi ada komanya.

Permasalahannya kalau input dalam text tidak bisa di format dan tidak bisa
dihitung.

apakah memang excel hanya mampu menghitung teliti sebanyak 15 digit saja?
(tidak dapat menampung bilangan 999.999.999.999.999.999, =>
999.999.999.999.999.000)

saya coba UDF_Leksikal milik Mas Kid:
<https://www.box.com/s/gefh85lon4avu9n66ifm>
Public Function LeNum(sText As String _
, Optional sJenis As String _
, Optional sTandaDesimal As String _
, Optional sLang As String _
, Optional sCurDec As String = "<default&gt;" _
, Optional sCurCent As String = "<default&gt;" _
, Optional sTextCon As String = "<default&gt;" _
, Optional sTextSeparator As String =
"<default&gt;" _
, Optional sCase As String _
, Optional vLang As Variant _
) As String
...
KELUAR:
Err.Clear
On Error GoTo 0
LeNum = "#NULL!"
End Function

Ternyata sama juga, sudah error kalau bilanganya 16 digit.
Apakah ini meripakan keterbatasan Excel? Adakah cara mengakalinya agar
1. UDF dapat berjalan lancar
2. Excel dapat teliti menghitung angka sampai pentaliun
(1.123.123.123.123.123.123.123.123)
Atas perhatiannya disampaikan terima kasih.
Wasalamualaikum warahmatullah.
NangAgus
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar