- Beranda
- Taman Bacaan CCPB
Anda Bertanya Kami Menjawab All About Microsoft Office 2007 Word, Excel, Powerpoint
...
TS
transamin
Anda Bertanya Kami Menjawab All About Microsoft Office 2007 Word, Excel, Powerpoint
Harry
[url=ymsgr:sendIM?harry_arfianda][img]http://opi.yahoo.com/online?u=harry_arfianda&m=g&t=8[/img][/url]
Thread ini bertujuan untuk ngobrol-ngobrol menjawab pertanyaan-pertanyaan seputar penggunaan Microsoft Office 2007 Word, Excel dan Powerpoint. Office suite dari Microsoft cukup banyak digunakan di Indonesia. Hanya penggunaannya fungsi didalamnya belum maksimal. berdasarkan survei, baru 20% dari kemampuannya yang dipergunakan oleh user.
Aku tidak merasa paling pintar, jadi berharap agan-agan yang berpengalaman turut membantu sharing ilmu dengan teman-teman lain. Mudah-mudahan thread ini bisa mempermudah kaskuser dalam menggunakan Office dalam pekerjaannya maupun menyelesaikan tugas sekolah atau kuliah.
Supaya tidak terlalu melenceng jauh, pertanyaan bisa seputar :
* Advanced Charting with Excel
Tutorial Fokus pada satu kolom chart
Quote:
Fokus pada satu bagian chart
Quote:
Menggabungkan beberapa tipe chart
Quote:
Memberi penjelasan pada chart
Quote:
Membuat chart melayang
Quote:
* Dashboard Reporting with Microsoft Excel
Tutorial Dashboard Reporting with Microsoft Excel
Penyajian data secara komprehensif pada satu halaman dengan tujuan untuk mempermudah pengambilan keputusan
Quote:
* Business Analysis with Microsoft Excel (Fungsi Vlookup, IF,dll)
Tutorial Fungsi IF
Tutorial mengunci cells
Tutorial Filtering dan Max
Tutorial merubah number ke word currency
* Custom Animation With Powerpoint
* Fungsi-fungsi dalam Word
Tutorial pembuatan kolom
Tutorial Pembuatan equation
Tutorial penomoran halaman skripsi
CREDIT TO BRO SITROPOTICUS..
Thanks atas bantuan indexnya y..
Quote:
Untuk pertanyaan langsung mengenai excel, word dan powerpoint, silahkan add my YM :
harry_arfianda
aku akan coba menjawab semampuku
Quote:
.doflamingo. dan 2 lainnya memberi reputasi
3
166K
6.5K
Komentar yang asik ya
Mari bergabung, dapatkan informasi dan teman baru!
Taman Bacaan CCPB
992Thread•1.6KAnggota
Tampilkan semua post
riffa
#56
Quote:
Original Posted By kuebakpau►kk, ane mau tanya tantang exel. ada ga rumus untuk membuat 'terbilang' otomatis muncul.
misalkan : di cell 'A1' kita ketik '10.000.000'
maka di cell 'B1' otomatis tertulis 'satu juta'
jadi berapapun nominal yg diketik di cell 'A1', di cell 'B1' otomatis berubah sesuai dengan cell 'A1'
ty b4
misalkan : di cell 'A1' kita ketik '10.000.000'
maka di cell 'B1' otomatis tertulis 'satu juta'
jadi berapapun nominal yg diketik di cell 'A1', di cell 'B1' otomatis berubah sesuai dengan cell 'A1'
ty b4
Quote:
bantuin ts nya
1. buka Excel
2. tekan Alt+F11
3. klik Insert - Modul
4. copy kan macro berikut: (dicopas aja).
Code:
Function EkaDigit(N)
Dim Teks(0 To 9) As String
Teks(0) = ""
Teks(1) = "satu"
Teks(2) = "dua"
Teks(3) = "tiga"
Teks(4) = "empat"
Teks(5) = "lima"
Teks(6) = "enam"
Teks(7) = "tujuh"
Teks(8) = "delapan"
Teks(9) = "sembilan"
EkaDigit = Teks(N)
End Function
Function TriDigit(N As Integer) As String
Dim Teks As String
Dim Ratus As Integer
Dim Puluh As Integer
Dim Satu As Integer
Teks = Right("000" & Trim(Str(N)), 3)
Ratus = Val(Mid(Teks, 1, 1))
Puluh = Val(Mid(Teks, 2, 1))
Satu = Val(Mid(Teks, 3, 1))
TriDigit = ""
Select Case Ratus
Case Is = 0
TriDigit = ""
Case Is = 1
TriDigit = "seratus "
Case Is > 1
TriDigit = EkaDigit(Ratus) & " ratus "
End Select
Select Case Puluh
Case Is = 0
TriDigit = TriDigit & EkaDigit(Satu)
Case Is = 1
If Satu = 0 Then
TriDigit = TriDigit & "sepuluh"
ElseIf Satu = 1 Then
TriDigit = TriDigit & "sebelas"
Else
TriDigit = TriDigit & EkaDigit(Satu) _
& " belas"
End If
Case Is > 1
TriDigit = TriDigit & EkaDigit(Puluh) _
& " puluh " & EkaDigit(Satu)
End Select
End Function
Function Terbilang(N As Double) As String
Dim Teks As String
Dim Triliun As Integer
Dim Milyar As Integer
Dim Juta As Integer
Dim Ribu As Integer
Dim Satu As Integer
Teks = Right("000000000000000" & Trim(Str(N)), 15)
Triliun = Val(Mid(Teks, 1, 3))
Milyar = Val(Mid(Teks, 4, 3))
Juta = Val(Mid(Teks, 7, 3))
Ribu = Val(Mid(Teks, 10, 3))
Satu = Val(Mid(Teks, 13, 3))
Terbilang = ""
If Triliun > 0 Then Terbilang = Terbilang & _
TriDigit(Triliun) & " triliun "
If Milyar > 0 Then Terbilang = Terbilang & _
TriDigit(Milyar) & " milyar "
If Juta > 0 Then Terbilang = Terbilang & _
TriDigit(Juta) & " juta "
If Ribu > 0 Then Terbilang = Terbilang & _
TriDigit(Ribu) & " ribu "
If Satu > 0 Then Terbilang = Terbilang & _
TriDigit(Satu)
Terbilang = Terbilang & " rupiah"
End Function
5. tekan Alt+Q
sekarang mari kita test.
6. Masukan angka berapa saja di cell apa saja. (contoh: di cell A1 = 17250000)
7. Di cell mana saja ketik: =terbilang(A1)
8. hasilnya:
1