11 New Messages
Digest #1965
Messages
Tue Dec 11, 2012 10:47 pm (PST) . Posted by:
"Tony Bexcel"
Dear Pakar yang Budiman,
Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan membagi pada angka yang diberi warna.
Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih canggih..hehehe..
Salam,
TonyBexcel
Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan membagi pada angka yang diberi warna.
Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih canggih..hehehe.
Salam,
TonyBexcel
Wed Dec 12, 2012 1:25 am (PST) . Posted by:
"miss.jan.raisin"
Dear Tony,
coba script berikut yang ditulis di dalam sebuah modul VBE,
Option Explicit
Sub AverageColor()
Dim lRow As Long
Dim Total As Double
Dim Qty As Integer
Dim rgAvg As Range, cAvg As Range
Dim rgHitung As Range, cHitung As Range
lRow = Sheets("perhitungan").Range("c6").End(xlDown).Row
Set rgAvg = Range(Cells(6, 56), Cells(lRow, 56))
For Each cAvg In rgAvg
Set rgHitung = Range(Cells(cAvg.Row, 6), Cells(cAvg.Row, 53))
For Each cHitung In rgHitung
If cHitung.Interior.Color = cAvg.Interior.Color Then
Total = Total + cHitung.Value
Qty = Qty + 1
End If
Next cHitung
cAvg.Value = CDbl(Format(Total / Qty, "0.00"))
Total = 0
Qty = 0
Next cAvg
End Sub
lau untuk menjalankannya, coba pasang sebuah shape, command_button, atau
foto lalu assign object tersebut dengan macro yang dibuat tadi
Best Regard,
-Ms. Jan Raisin-
Pada 12 Desember 2012 13:47, Tony Bexcel <tonybexcel@yahoo.co.id > menulis:
> **
>
>
> Dear Pakar yang Budiman,
>
> Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan
> membagi pada angka yang diberi warna.
> Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih
> canggih..hehehe..
>
>
> Salam,
> TonyBexcel
>
>
>
coba script berikut yang ditulis di dalam sebuah modul VBE,
Option Explicit
Sub AverageColor(
Dim lRow As Long
Dim Total As Double
Dim Qty As Integer
Dim rgAvg As Range, cAvg As Range
Dim rgHitung As Range, cHitung As Range
lRow = Sheets("perhitungan
Set rgAvg = Range(Cells(
For Each cAvg In rgAvg
Set rgHitung = Range(Cells(
For Each cHitung In rgHitung
If cHitung.Interior.
Total = Total + cHitung.Value
Qty = Qty + 1
End If
Next cHitung
cAvg.Value = CDbl(Format(
Total = 0
Qty = 0
Next cAvg
End Sub
lau untuk menjalankannya, coba pasang sebuah shape, command_button, atau
foto lalu assign object tersebut dengan macro yang dibuat tadi
Best Regard,
-Ms. Jan Raisin-
Pada 12 Desember 2012 13:47, Tony Bexcel <tonybexcel@yahoo.
> **
>
>
> Dear Pakar yang Budiman,
>
> Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan
> membagi pada angka yang diberi warna.
> Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih
> canggih..hehehe.
>
>
> Salam,
> TonyBexcel
>
>
>
Wed Dec 12, 2012 1:56 am (PST) . Posted by:
"Tony Bexcel"
Dear Miss Jan,
Terimakasih atas solusinya...tapi saya bener2 gak ngerti yang dimaksud..excel saya masih standar seperti file yg saya lampirkan.. :(
Bila ada solusi lain yang mudah untuk pemula excel akan sangat mudah saya mengerti.
Sekali lagi terimakasih atas waktu dan solusinya.
Salam,
TonyBexcel
--- Pada Rab, 12/12/12, miss.jan.raisin <miss.jan.raisin@gmail.com > menulis:
Dari: miss.jan.raisin <miss.jan.raisin@gmail.com >
Judul: Re: [belajar-excel] Menghitung avarege warna
Kepada: belajar-excel@yahoogroups.com
Tanggal: Rabu, 12 Desember, 2012, 4:24 PM
Dear Tony,
coba script berikut yang ditulis di dalam sebuah modul VBE,
Option Explicit
Sub AverageColor()
Dim lRow As Long
Dim Total As Double
Dim Qty As Integer
Dim rgAvg As Range, cAvg As Range
Dim rgHitung As Range, cHitung As Range
lRow = Sheets("perhitungan").Range("c6").End(xlDown).Row
Set rgAvg = Range(Cells(6, 56), Cells(lRow, 56))
For Each cAvg In rgAvg
Set rgHitung = Range(Cells(cAvg.Row, 6), Cells(cAvg.Row, 53))
For Each cHitung In rgHitung
If cHitung.Interior.Color = cAvg.Interior.Color Then
Total = Total + cHitung.Value
Qty = Qty + 1
End If
Next cHitung
cAvg.Value = CDbl(Format(Total / Qty, "0.00"))
Total = 0
Qty = 0
Next cAvg
End Sub
lau untuk menjalankannya, coba pasang sebuah shape, command_button, atau foto lalu assign object tersebut dengan macro yang dibuat tadi
Best Regard,
-Ms. Jan Raisin-
Pada 12 Desember 2012 13:47, Tony Bexcel <tonybexcel@yahoo.co.id > menulis:
Dear Pakar yang Budiman,
Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan membagi pada angka yang diberi warna.
Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih canggih..hehehe..
Salam,
TonyBexcel
Terimakasih atas solusinya...
Bila ada solusi lain yang mudah untuk pemula excel akan sangat mudah saya mengerti.
Sekali lagi terimakasih atas waktu dan solusinya.
Salam,
TonyBexcel
--- Pada Rab, 12/12/12, miss.jan.raisin <miss.jan.raisin@
Dari: miss.jan.raisin <miss.jan.raisin@
Judul: Re: [belajar-excel] Menghitung avarege warna
Kepada: belajar-excel@
Tanggal: Rabu, 12 Desember, 2012, 4:24 PM
Dear Tony,
coba script berikut yang ditulis di dalam sebuah modul VBE,
Option Explicit
Sub AverageColor(
Dim lRow As Long
Dim Total As Double
Dim Qty As Integer
Dim rgAvg As Range, cAvg As Range
Dim rgHitung As Range, cHitung As Range
lRow = Sheets("perhitungan
Set rgAvg = Range(Cells(
For Each cAvg In rgAvg
Set rgHitung = Range(Cells(
For Each cHitung In rgHitung
If cHitung.Interior.
Total = Total + cHitung.Value
Qty = Qty + 1
End If
Next cHitung
cAvg.Value = CDbl(Format(
Total = 0
Qty = 0
Next cAvg
End Sub
lau untuk menjalankannya, coba pasang sebuah shape, command_button, atau foto lalu assign object tersebut dengan macro yang dibuat tadi
Best Regard,
-Ms. Jan Raisin-
Pada 12 Desember 2012 13:47, Tony Bexcel <tonybexcel@yahoo.
Dear Pakar yang Budiman,
Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan membagi pada angka yang diberi warna.
Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih canggih..hehehe.
Salam,
TonyBexcel
Wed Dec 12, 2012 3:09 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tony,
Andai pakai kolom bantu penentu start (kolom A) dan finish (kolom B), maka :
- formula kolom bantu di kolom A (start) :
=MID(E6,7,2)
- formula kolom bantu di kolom B (finish) :
=MID(E6,FIND("#",E6,9)+1,2)
- formula Activity :
=AVERAGE(INDEX($F6:$BA6,A6)*:*INDEX($F6:$BA6,B6))
Jika seluruh formula kolom bantu dimasukkan ke formula activity, maka
formula utuhnya : (tanpa kolom bantu)
=AVERAGE(INDEX($F6:$BA6,MID(E6,7,2))*:*
INDEX($F6:$BA6,MID(E6,FIND("#",E6,9)+1,2)))
Dengan meniru cara di atas, maka before activity dan after activity bisa
diperoleh dengan formula :
- formula Before (max 13 kolom sebelum activity)
-> syaratnya,
A. start sesudah week 1 (>1). Kalau tidak, before akan bernilai
0.
B. Jika jumlah kolom sebelum kurang dari 13, maka kolom-kolom
tersebut yang direrata
=IF(--MID(E6,7,2)>1,AVERAGE(INDEX($F6:$BA6,MAX(MID(E6,7,2)-13,1))*:*
INDEX($F6:$BA6,MAX(MID(E6,7,2)-1,1))),0)
- formula After (max 13 kolom sesudah activity)
-> syaratnya,
A. finish sebelum week terakhir yang ada didata. Kalau tidak,
after akan bernilai 0
B. Jika jumlah kolom setelahnya kurang dari 13, maka kolom-kolom
tersebut yang direrata
=IF(--MID(E6,FIND("#",E6,9)+1,2)<47,AVERAGE(
INDEX($F6:$BA6,MIN(MID(E6,FIND("#",E6,9)+1,2)+1,COUNTA($F$4:$BA$4)))*:*
INDEX($F6:$BA6,MIN(MID(E6,FIND("#",E6,9)+1,2)+13,COUNTA($F$4:$BA$4)))),0)
Fungsi Index termasuk kelompok fungsi-fungsi reference. Jadi hasilnya bisa
berupa reference.
Wassalam,
Kid.
2012/12/12 Tony Bexcel <tonybexcel@yahoo.co.id >
> **
>
>
> Dear Pakar yang Budiman,
>
> Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan
> membagi pada angka yang diberi warna.
> Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih
> canggih..hehehe..
>
>
> Salam,
> TonyBexcel
>
> _
>
>
Andai pakai kolom bantu penentu start (kolom A) dan finish (kolom B), maka :
- formula kolom bantu di kolom A (start) :
=MID(E6,7,2)
- formula kolom bantu di kolom B (finish) :
=MID(E6,FIND(
- formula Activity :
=AVERAGE(INDEX(
Jika seluruh formula kolom bantu dimasukkan ke formula activity, maka
formula utuhnya : (tanpa kolom bantu)
=AVERAGE(INDEX(
INDEX($F6:$BA6,
Dengan meniru cara di atas, maka before activity dan after activity bisa
diperoleh dengan formula :
- formula Before (max 13 kolom sebelum activity)
-> syaratnya,
A. start sesudah week 1 (>1). Kalau tidak, before akan bernilai
0.
B. Jika jumlah kolom sebelum kurang dari 13, maka kolom-kolom
tersebut yang direrata
=IF(--MID(E6,
INDEX($F6:$BA6,
- formula After (max 13 kolom sesudah activity)
-> syaratnya,
A. finish sebelum week terakhir yang ada didata. Kalau tidak,
after akan bernilai 0
B. Jika jumlah kolom setelahnya kurang dari 13, maka kolom-kolom
tersebut yang direrata
=IF(--MID(E6,
INDEX($F6:$BA6,
INDEX($F6:$BA6,
Fungsi Index termasuk kelompok fungsi-fungsi reference. Jadi hasilnya bisa
berupa reference.
Wassalam,
Kid.
2012/12/12 Tony Bexcel <tonybexcel@yahoo.
> **
>
>
> Dear Pakar yang Budiman,
>
> Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan
> membagi pada angka yang diberi warna.
> Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih
> canggih..hehehe.
>
>
> Salam,
> TonyBexcel
>
> _
>
>
Wed Dec 12, 2012 3:34 am (PST) . Posted by:
"Tony Bexcel"
Dear Mr.Kid
Ruuaaarrr biasaaaaa...terimakasih banyak atas solusi nya..terimakasih pada semua temans di milis ini yang juga aktif memberikan pertanyaan2 yang sangat bermanfaat..
Salam kompak selalu,
Tony
--- Pada Rab, 12/12/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
Dari: Mr. Kid <mr.nmkid@gmail.com >
Judul: Re: [belajar-excel] Menghitung avarege warna
Kepada: belajar-excel@yahoogroups.com
Tanggal: Rabu, 12 Desember, 2012, 6:08 PM
Hai Tony,
Andai pakai kolom bantu penentu start (kolom A) dan finish (kolom B), maka :
- formula kolom bantu di kolom A (start) :
=MID(E6,7,2)
- formula kolom bantu di kolom B (finish) :
=MID(E6,FIND("#",E6,9)+1,2)
- formula Activity :
=AVERAGE(INDEX($F6:$BA6,A6):INDEX($F6:$BA6,B6))
Jika seluruh formula kolom bantu dimasukkan ke formula activity, maka formula utuhnya : (tanpa kolom bantu)
=AVERAGE(INDEX($F6:$BA6,MID(E6,7,2)):INDEX($F6:$BA6,MID(E6,FIND("#",E6,9)+1,2)))
Dengan meniru cara di atas, maka before activity dan after activity bisa diperoleh dengan formula :
- formula Before (max 13 kolom sebelum activity)
-> syaratnya,
A. start sesudah week 1 (>1). Kalau tidak, before akan bernilai 0.
B. Jika jumlah kolom sebelum kurang dari 13, maka kolom-kolom tersebut yang direrata
=IF(--MID(E6,7,2)>1,AVERAGE(INDEX($F6:$BA6,MAX(MID(E6,7,2)-13,1)):INDEX($F6:$BA6,MAX(MID(E6,7,2)-1,1))),0)
- formula After (max 13 kolom sesudah activity)
-> syaratnya,
A. finish sebelum week terakhir yang ada didata. Kalau tidak, after akan bernilai 0
B. Jika jumlah kolom setelahnya kurang dari 13, maka kolom-kolom tersebut yang direrata
=IF(--MID(E6,FIND("#",E6,9)+1,2)<47,AVERAGE( INDEX($F6:$BA6,MIN(MID(E6,FIND("#",E6,9)+1,2)+1,COUNTA($F$4:$BA$4))):INDEX($F6:$BA6,MIN(MID(E6,FIND("#",E6,9)+1,2)+13,COUNTA($F$4:$BA$4)))),0)
Fungsi Index termasuk kelompok fungsi-fungsi reference. Jadi hasilnya bisa berupa reference.
Wassalam,
Kid.
2012/12/12 Tony Bexcel <tonybexcel@yahoo.co.id >
Dear Pakar yang Budiman,
Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan membagi pada angka yang diberi warna.
Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih canggih..hehehe..
Salam,
TonyBexcel
_
Ruuaaarrr biasaaaaa...
Salam kompak selalu,
Tony
--- Pada Rab, 12/12/12, Mr. Kid <mr.nmkid@gmail.
Dari: Mr. Kid <mr.nmkid@gmail.
Judul: Re: [belajar-excel] Menghitung avarege warna
Kepada: belajar-excel@
Tanggal: Rabu, 12 Desember, 2012, 6:08 PM
Hai Tony,
Andai pakai kolom bantu penentu start (kolom A) dan finish (kolom B), maka :
- formula kolom bantu di kolom A (start) :
=MID(E6,7,2)
- formula kolom bantu di kolom B (finish) :
=MID(E6,FIND(
- formula Activity :
=AVERAGE(INDEX(
Jika seluruh formula kolom bantu dimasukkan ke formula activity, maka formula utuhnya : (tanpa kolom bantu)
=AVERAGE(INDEX(
Dengan meniru cara di atas, maka before activity dan after activity bisa diperoleh dengan formula :
- formula Before (max 13 kolom sebelum activity)
-> syaratnya,
A. start sesudah week 1 (>1). Kalau tidak, before akan bernilai 0.
B. Jika jumlah kolom sebelum kurang dari 13, maka kolom-kolom tersebut yang direrata
=IF(--MID(E6,
- formula After (max 13 kolom sesudah activity)
-> syaratnya,
A. finish sebelum week terakhir yang ada didata. Kalau tidak, after akan bernilai 0
B. Jika jumlah kolom setelahnya kurang dari 13, maka kolom-kolom tersebut yang direrata
=IF(--MID(E6,
Fungsi Index termasuk kelompok fungsi-fungsi reference. Jadi hasilnya bisa berupa reference.
Wassalam,
Kid.
2012/12/12 Tony Bexcel <tonybexcel@yahoo.
Dear Pakar yang Budiman,
Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan membagi pada angka yang diberi warna.
Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih canggih..hehehe.
Salam,
TonyBexcel
_
Wed Dec 12, 2012 3:47 am (PST) . Posted by:
"miss.jan.raisin"
Dear Tony,
coba juga UDF AvgColor pada file terlampir
syntaxnya: =AvgColor(range_data , range_warna)
Best Regard,
-Ms. Jan Raisin-
Pada 12 Desember 2012 18:34, Tony Bexcel <tonybexcel@yahoo.co.id > menulis:
> **
>
>
> Dear Mr.Kid
>
> Ruuaaarrr biasaaaaa...terimakasih banyak atas solusi nya..terimakasih pada
> semua temans di milis ini yang juga aktif memberikan pertanyaan2 yang
> sangat bermanfaat..
>
> Salam kompak selalu,
> Tony
>
> --- Pada *Rab, 12/12/12, Mr. Kid <mr.nmkid@gmail.com >* menulis:
>
>
> Dari: Mr. Kid <mr.nmkid@gmail.com >
>
> Judul: Re: [belajar-excel] Menghitung avarege warna
> Kepada: belajar-excel@yahoogroups.com
> Tanggal: Rabu, 12 Desember, 2012, 6:08 PM
>
>
>
> Hai Tony,
>
> Andai pakai kolom bantu penentu start (kolom A) dan finish (kolom B), maka
> :
> - formula kolom bantu di kolom A (start) :
> =MID(E6,7,2)
> - formula kolom bantu di kolom B (finish) :
> =MID(E6,FIND("#",E6,9)+1,2)
> - formula Activity :
> =AVERAGE(INDEX($F6:$BA6,A6)*:*INDEX($F6:$BA6,B6))
>
> Jika seluruh formula kolom bantu dimasukkan ke formula activity, maka
> formula utuhnya : (tanpa kolom bantu)
> =AVERAGE(INDEX($F6:$BA6,MID(E6,7,2))*:*
> INDEX($F6:$BA6,MID(E6,FIND("#",E6,9)+1,2)))
>
> Dengan meniru cara di atas, maka before activity dan after activity bisa
> diperoleh dengan formula :
> - formula Before (max 13 kolom sebelum activity)
> -> syaratnya,
> A. start sesudah week 1 (>1). Kalau tidak, before akan bernilai
> 0.
> B. Jika jumlah kolom sebelum kurang dari 13, maka kolom-kolom
> tersebut yang direrata
> =IF(--MID(E6,7,2)>1,AVERAGE(INDEX($F6:$BA6,MAX(MID(E6,7,2)-13,1))*:*
> INDEX($F6:$BA6,MAX(MID(E6,7,2)-1,1))),0)
> - formula After (max 13 kolom sesudah activity)
> -> syaratnya,
> A. finish sebelum week terakhir yang ada didata. Kalau tidak,
> after akan bernilai 0
> B. Jika jumlah kolom setelahnya kurang dari 13, maka kolom-kolom
> tersebut yang direrata
> =IF(--MID(E6,FIND("#",E6,9)+1,2)<47,AVERAGE(
> INDEX($F6:$BA6,MIN(MID(E6,FIND("#",E6,9)+1,2)+1,COUNTA($F$4:$BA$4)))*:*
> INDEX($F6:$BA6,MIN(MID(E6,FIND("#",E6,9)+1,2)+13,COUNTA($F$4:$BA$4)))),0)
>
> Fungsi Index termasuk kelompok fungsi-fungsi reference. Jadi hasilnya bisa
> berupa reference.
>
> Wassalam,
> Kid.
>
> 2012/12/12 Tony Bexcel <tonybexcel@yahoo.co.id <http://id.mc1949.mail.yahoo.com/mc/compose?to=tonybexcel@yahoo.co.id >
> >
>
> **
>
> Dear Pakar yang Budiman,
>
> Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan
> membagi pada angka yang diberi warna.
> Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih
> canggih..hehehe..
>
>
> Salam,
> TonyBexcel
> _
>
>
>
>
coba juga UDF AvgColor pada file terlampir
syntaxnya: =AvgColor(range_
Best Regard,
-Ms. Jan Raisin-
Pada 12 Desember 2012 18:34, Tony Bexcel <tonybexcel@yahoo.
> **
>
>
> Dear Mr.Kid
>
> Ruuaaarrr biasaaaaa...
> semua temans di milis ini yang juga aktif memberikan pertanyaan2 yang
> sangat bermanfaat..
>
> Salam kompak selalu,
> Tony
>
> --- Pada *Rab, 12/12/12, Mr. Kid <mr.nmkid@gmail.
>
>
> Dari: Mr. Kid <mr.nmkid@gmail.
>
> Judul: Re: [belajar-excel] Menghitung avarege warna
> Kepada: belajar-excel@
> Tanggal: Rabu, 12 Desember, 2012, 6:08 PM
>
>
>
> Hai Tony,
>
> Andai pakai kolom bantu penentu start (kolom A) dan finish (kolom B), maka
> :
> - formula kolom bantu di kolom A (start) :
> =MID(E6,7,2)
> - formula kolom bantu di kolom B (finish) :
> =MID(E6,FIND(
> - formula Activity :
> =AVERAGE(INDEX(
>
> Jika seluruh formula kolom bantu dimasukkan ke formula activity, maka
> formula utuhnya : (tanpa kolom bantu)
> =AVERAGE(INDEX(
> INDEX($F6:$BA6,
>
> Dengan meniru cara di atas, maka before activity dan after activity bisa
> diperoleh dengan formula :
> - formula Before (max 13 kolom sebelum activity)
> -> syaratnya,
> A. start sesudah week 1 (>1). Kalau tidak, before akan bernilai
> 0.
> B. Jika jumlah kolom sebelum kurang dari 13, maka kolom-kolom
> tersebut yang direrata
> =IF(--MID(E6,
> INDEX($F6:$BA6,
> - formula After (max 13 kolom sesudah activity)
> -> syaratnya,
> A. finish sebelum week terakhir yang ada didata. Kalau tidak,
> after akan bernilai 0
> B. Jika jumlah kolom setelahnya kurang dari 13, maka kolom-kolom
> tersebut yang direrata
> =IF(--MID(E6,
> INDEX($F6:$BA6,
> INDEX($F6:$BA6,
>
> Fungsi Index termasuk kelompok fungsi-fungsi reference. Jadi hasilnya bisa
> berupa reference.
>
> Wassalam,
> Kid.
>
> 2012/12/12 Tony Bexcel <tonybexcel@yahoo.
> >
>
> **
>
> Dear Pakar yang Budiman,
>
> Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan
> membagi pada angka yang diberi warna.
> Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih
> canggih..hehehe.
>
>
> Salam,
> TonyBexcel
> _
>
>
>
>
Wed Dec 12, 2012 1:14 am (PST) . Posted by:
"PRAZT" praztmath
Dear beExceller..
Mau minta solusi bagaimana menambahkan page number di excel 2007 tetapi
halaman pertama tidak mulai no.1, melainkan mulai no.4
Thank's
PRAZTMATH T
Wed Dec 12, 2012 1:54 am (PST) . Posted by:
"miss.jan.raisin"
Dear pak Prast,
coba cari kotak First Page Number pada menu Page SetUp
[image: Gambar sisip 1]
sayangnya jika style yang dipilih adalah Page &[Page] of &[Pages] maka
beberapa nomor halaman terakhir tetap mengambil jumlah halaman yang
sesungguhnya, saran dari Jan, gunakan style Page &[Page]
Best Regard,
-Ms. Jan Raisin-
Pada 12 Desember 2012 15:31, PRAZT <praztmath@gmail.com > menulis:
> **
>
>
> Dear beExceller....****
>
> Mau minta solusi bagaimana menambahkan page number di excel 2007 tetapi
> halaman pertama tidak mulai no.1, melainkan mulai no.4****
>
> Thank's****
>
> ** **
>
> ****
>
> PRAZTMATH ™****
>
> ** **
>
>
>
coba cari kotak First Page Number pada menu Page SetUp
[image: Gambar sisip 1]
sayangnya jika style yang dipilih adalah Page &[Page] of &[Pages] maka
beberapa nomor halaman terakhir tetap mengambil jumlah halaman yang
sesungguhnya, saran dari Jan, gunakan style Page &[Page]
Best Regard,
-Ms. Jan Raisin-
Pada 12 Desember 2012 15:31, PRAZT <praztmath@gmail.
> **
>
>
> Dear beExceller..
>
> Mau minta solusi bagaimana menambahkan page number di excel 2007 tetapi
> halaman pertama tidak mulai no.1, melainkan mulai no.4****
>
> Thank's****
>
> ** **
>
> ****
>
> PRAZTMATH ™****
>
> ** **
>
>
>
Wed Dec 12, 2012 2:47 am (PST) . Posted by:
"lapendosol opik" lapendosol
Sore semuanya
Mohon bantuannya, saya lagi bikin form buat ganti password
Dimana password yg baru dibatasi minimal 6digit
Saya udah coba:
Private Sub cmdOK_Click()
If LCase(txtOld.Text) <> Sheet1.Range("b2").Value Then
MsgBox "Isi password lama dengan benar"
txtOld.Text = ""
txtOld.SetFocus
'disini saya sudah coba sisipkan untuk membatasi minimal 6digit
'tapi error, salah
ElseIf LCase(txtNew.Text) < 6digit Then
txtNew.Text = ""
txtConfirm.Text = ""
txtNew.SetFocus
ElseIf LCase(txtNew.Text) <> LCase(txtConfirm.Text) Then
MsgBox "Password baru tidak sesuai"
txtNew.Text = ""
txtConfirm.Text = ""
txtNew.SetFocus
Else
Sheet1.Range("b2").Value = LCase(txtNew.Text)
Unload Me
MsgBox "Berhasil...!!!"
End If
End Sub
Mohon bantuannya bahasa minimal 6digit yg bener seperti apa?
Trimakasih sebelumnya
Wassalam
Lapendosol
Mohon bantuannya, saya lagi bikin form buat ganti password
Dimana password yg baru dibatasi minimal 6digit
Saya udah coba:
Private Sub cmdOK_Click(
If LCase(txtOld.
MsgBox "Isi password lama dengan benar"
txtOld.Text = ""
txtOld.SetFocus
'disini saya sudah coba sisipkan untuk membatasi minimal 6digit
'tapi error, salah
ElseIf LCase(txtNew.
txtNew.Text = ""
txtConfirm.Text = ""
txtNew.SetFocus
ElseIf LCase(txtNew.
MsgBox "Password baru tidak sesuai"
txtNew.Text = ""
txtConfirm.Text = ""
txtNew.SetFocus
Else
Sheet1.Range(
Unload Me
MsgBox "Berhasil...
End If
End Sub
Mohon bantuannya bahasa minimal 6digit yg bener seperti apa?
Trimakasih sebelumnya
Wassalam
Lapendosol
Wed Dec 12, 2012 3:20 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Opik,
Kata 6digit (atau 6 char) artinya ada karakter sebanyak 6 bijik.
Untuk menghitung jumlah karakter suatu data adalah dengan fungsi Len
Membandingkan jumlah karakter bisa dilakukan sepeti :
Len("ABC")>Len("XYZ") akan menghasilkan FALSE
Wassalam,
Kid.
2012/12/12 lapendosol opik <lapendosol@yahoo.com >
> **
>
>
> Sore semuanya
> Mohon bantuannya, saya lagi bikin form buat ganti password
> Dimana password yg baru dibatasi minimal 6digit
> Saya udah coba:
>
> Private Sub cmdOK_Click()
> If LCase(txtOld.Text) <> Sheet1.Range("b2").Value Then
> MsgBox "Isi password lama dengan benar"
> txtOld.Text = ""
> txtOld.SetFocus
>
> 'disini saya sudah coba sisipkan untuk membatasi minimal 6digit
> 'tapi error, salah
> ElseIf LCase(txtNew.Text) < 6digit Then
> txtNew.Text = ""
> txtConfirm.Text = ""
> txtNew.SetFocus
>
> ElseIf LCase(txtNew.Text) <> LCase(txtConfirm.Text) Then
> MsgBox "Password baru tidak sesuai"
> txtNew.Text = ""
> txtConfirm.Text = ""
> txtNew.SetFocus
> Else
> Sheet1.Range("b2").Value = LCase(txtNew.Text)
> Unload Me
> MsgBox "Berhasil...!!!"
> End If
> End Sub
>
> Mohon bantuannya bahasa minimal 6digit yg bener seperti apa?
> Trimakasih sebelumnya
> Wassalam
>
> Lapendosol
>
>
>
Kata 6digit (atau 6 char) artinya ada karakter sebanyak 6 bijik.
Untuk menghitung jumlah karakter suatu data adalah dengan fungsi Len
Membandingkan jumlah karakter bisa dilakukan sepeti :
Len("ABC")>Len(
Wassalam,
Kid.
2012/12/12 lapendosol opik <lapendosol@yahoo.
> **
>
>
> Sore semuanya
> Mohon bantuannya, saya lagi bikin form buat ganti password
> Dimana password yg baru dibatasi minimal 6digit
> Saya udah coba:
>
> Private Sub cmdOK_Click(
> If LCase(txtOld.
> MsgBox "Isi password lama dengan benar"
> txtOld.Text = ""
> txtOld.SetFocus
>
> 'disini saya sudah coba sisipkan untuk membatasi minimal 6digit
> 'tapi error, salah
> ElseIf LCase(txtNew.
> txtNew.Text = ""
> txtConfirm.Text = ""
> txtNew.SetFocus
>
> ElseIf LCase(txtNew.
> MsgBox "Password baru tidak sesuai"
> txtNew.Text = ""
> txtConfirm.Text = ""
> txtNew.SetFocus
> Else
> Sheet1.Range(
> Unload Me
> MsgBox "Berhasil...
> End If
> End Sub
>
> Mohon bantuannya bahasa minimal 6digit yg bener seperti apa?
> Trimakasih sebelumnya
> Wassalam
>
> Lapendosol
>
>
>
Wed Dec 12, 2012 3:59 am (PST) . Posted by:
"lapendosol opik" lapendosol
Trimakasih banyak mas Kid,
Sudah berhasil
ElseIf Len(txtNew.Text) < 6 Then
bla..bla..bla..
End If
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, December 12, 2012 6:20 PM
Subject: Re: [belajar-excel] Form Ganti Password
Hai Opik,
Kata 6digit (atau 6 char) artinya ada karakter sebanyak 6 bijik.
Untuk menghitung jumlah karakter suatu data adalah dengan fungsi Len
Membandingkan jumlah karakter bisa dilakukan sepeti :
Len("ABC")>Len("XYZ") akan menghasilkan FALSE
Wassalam,
Kid.
2012/12/12 lapendosol opik <lapendosol@yahoo.com >
>
>Sore semuanya
>Mohon bantuannya, saya lagi bikin form buat ganti password
>Dimana password yg baru dibatasi minimal 6digit
>Saya udah coba:
>
>
>Private Sub cmdOK_Click()
>If LCase(txtOld.Text) <> Sheet1.Range("b2").Value Then
> MsgBox "Isi password lama dengan benar"
> txtOld.Text = ""
> txtOld.SetFocus
>
>
>'disini saya sudah coba sisipkan untuk membatasi minimal 6digit
>'tapi error, salah
> ElseIf LCase(txtNew.Text) < 6digit Then
> txtNew.Text = ""
> txtConfirm.Text = ""
> txtNew.SetFocus
>
>
> ElseIf LCase(txtNew.Text) <> LCase(txtConfirm.Text) Then
> MsgBox "Password baru tidak sesuai"
> txtNew.Text = ""
> txtConfirm.Text =
""
> txtNew.SetFocus
> Else
> Sheet1.Range("b2").Value = LCase(txtNew.Text)
> Unload Me
> MsgBox "Berhasil...!!!"
>End If
>End Sub
>
>
>
>Mohon bantuannya bahasa minimal 6digit yg bener seperti apa?
>Trimakasih sebelumnya
>Wassalam
>
>
>Lapendosol
>
Sudah berhasil
ElseIf Len(txtNew.Text) < 6 Then
bla..bla..bla.
End If
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Wednesday, December 12, 2012 6:20 PM
Subject: Re: [belajar-excel] Form Ganti Password
Hai Opik,
Kata 6digit (atau 6 char) artinya ada karakter sebanyak 6 bijik.
Untuk menghitung jumlah karakter suatu data adalah dengan fungsi Len
Membandingkan jumlah karakter bisa dilakukan sepeti :
Len("ABC")>Len(
Wassalam,
Kid.
2012/12/12 lapendosol opik <lapendosol@yahoo.
>
>Sore semuanya
>Mohon bantuannya, saya lagi bikin form buat ganti password
>Dimana password yg baru dibatasi minimal 6digit
>Saya udah coba:
>
>
>Private Sub cmdOK_Click(
>If LCase(txtOld.
> MsgBox "Isi password lama dengan benar"
> txtOld.Text = ""
> txtOld.SetFocus
>
>
>'disini saya sudah coba sisipkan untuk membatasi minimal 6digit
>'tapi error, salah
> ElseIf LCase(txtNew.
> txtNew.Text = ""
> txtConfirm.Text = ""
> txtNew.SetFocus
>
>
> ElseIf LCase(txtNew.
> MsgBox "Password baru tidak sesuai"
> txtNew.Text = ""
> txtConfirm.Text =
""
> txtNew.SetFocus
> Else
> Sheet1.Range(
> Unload Me
> MsgBox "Berhasil...
>End If
>End Sub
>
>
>
>Mohon bantuannya bahasa minimal 6digit yg bener seperti apa?
>Trimakasih sebelumnya
>Wassalam
>
>
>Lapendosol
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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:
Posting Komentar