14 Messages
Digest #2857
1c
Re: Memotong-motong kalimat menjadi 20 karakter [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
Messages
Tue Apr 1, 2014 6:12 pm (PDT) . Posted by:
"iJaL Rezpector" rezpectori
halo semua salam kenal, wah udah lumayan lama sih ngikutin milis dan alhamdullilah banyak membantu.
sekarang saya kebetulan ada satu kasus yang belum nemu jawabanya, jadi kasusnya gini:
ada sebuah kalimat dan saya mau memotong kalimat-kalimat tersebut menjadi hanya 20 karakter, tetapi saya tidak mau jika ada kata yang terpotong. dan jika ada kata yang terpotong maka kata tersebut tidak akan masuk.
contohnya:
-saya mau pergi ke pasar siang ini
jika 20 karakter hasilnya akan:
0-saya mau pergi ke pa
-sar siang ini
yang saya mau jika ada kata yang terpotong maka katanya akan ikut kebawahnya menjadi:
-saya mau pergi ke
-pasar siang ini
bagaimana ya?
ini saya sertakan contoh excelnya.
terimakasih, semoga pertanyaan saya tidak menyalahi aturan.
salam
sekarang saya kebetulan ada satu kasus yang belum nemu jawabanya, jadi kasusnya gini:
ada sebuah kalimat dan saya mau memotong kalimat-kalimat tersebut menjadi hanya 20 karakter, tetapi saya tidak mau jika ada kata yang terpotong. dan jika ada kata yang terpotong maka kata tersebut tidak akan masuk.
contohnya:
-saya mau pergi ke pasar siang ini
jika 20 karakter hasilnya akan:
0-saya mau pergi ke pa
-sar siang ini
yang saya mau jika ada kata yang terpotong maka katanya akan ikut kebawahnya menjadi:
-saya mau pergi ke
-pasar siang ini
bagaimana ya?
ini saya sertakan contoh excelnya.
terimakasih, semoga pertanyaan saya tidak menyalahi aturan.
salam
Tue Apr 1, 2014 7:29 pm (PDT) . Posted by:
"nangAgus" nangagoez
Dear IjaL,
Coba gunakan rumus =MID(A$1;SUMPRODUCT(LEN($A$17:A17))+1;FIND("
";A$1;13+SUMPRODUCT(LEN($A$17:A17)))-SUMPRODUCT(LEN($A$17:A17)))
sudah saya coba bisa, ingat kompi saya regional setting Indonesia, Jika
engglish ubah ; menjadi ,
salam
NangAgus
On 01/04/2014 21:41, iJaL Rezpector wrote:
> halo semua salam kenal, wah udah lumayan lama sih ngikutin milis dan
> alhamdullilah banyak membantu.
> sekarang saya kebetulan ada satu kasus yang belum nemu jawabanya, jadi
> kasusnya gini:
>
> ada sebuah kalimat dan saya mau memotong kalimat-kalimat tersebut
> menjadi hanya 20 karakter, tetapi saya tidak mau jika ada kata yang
> terpotong. dan jika ada kata yang terpotong maka kata tersebut tidak
> akan masuk.
>
> contohnya:
> -saya mau pergi ke pasar siang ini
>
> jika 20 karakter hasilnya akan:
> 0-saya mau pergi ke pa
> -sar siang ini
>
> yang saya mau jika ada kata yang terpotong maka katanya akan ikut
> kebawahnya menjadi:
> -saya mau pergi ke
> -pasar siang ini
>
> bagaimana ya?
> ini saya sertakan contoh excelnya.
>
> terimakasih, semoga pertanyaan saya tidak menyalahi aturan.
> salam
>
Coba gunakan rumus =MID(A$1;SUMPRODUCT
";A$1;13+
sudah saya coba bisa, ingat kompi saya regional setting Indonesia, Jika
engglish ubah ; menjadi ,
salam
NangAgus
On 01/04/2014 21:41, iJaL Rezpector wrote:
> halo semua salam kenal, wah udah lumayan lama sih ngikutin milis dan
> alhamdullilah banyak membantu.
> sekarang saya kebetulan ada satu kasus yang belum nemu jawabanya, jadi
> kasusnya gini:
>
> ada sebuah kalimat dan saya mau memotong kalimat-kalimat tersebut
> menjadi hanya 20 karakter, tetapi saya tidak mau jika ada kata yang
> terpotong. dan jika ada kata yang terpotong maka kata tersebut tidak
> akan masuk.
>
> contohnya:
> -saya mau pergi ke pasar siang ini
>
> jika 20 karakter hasilnya akan:
> 0-saya mau pergi ke pa
> -sar siang ini
>
> yang saya mau jika ada kata yang terpotong maka katanya akan ikut
> kebawahnya menjadi:
> -saya mau pergi ke
> -pasar siang ini
>
> bagaimana ya?
> ini saya sertakan contoh excelnya.
>
> terimakasih, semoga pertanyaan saya tidak menyalahi aturan.
> salam
>
Wed Apr 2, 2014 2:53 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai iJal,
formula dalam file terlampir menggunakan asumsi :
1. pemotongan dilakukan pada karakter spasi, jadi hati-hati dengan adanya
karakter ganda apalagi sampai 20 karakter spasi
2. jika ada sebuah teks antara dua spasi berisi lebih dari 20 karakter,
maka akan diporong per 20 karakternya.
Wassalam,
Kid.
2014-04-01 21:41 GMT+07:00 iJaL Rezpector <rezpectori@yahoo.co.id>:
>
>
> halo semua salam kenal, wah udah lumayan lama sih ngikutin milis dan
> alhamdullilah banyak membantu.
> sekarang saya kebetulan ada satu kasus yang belum nemu jawabanya, jadi
> kasusnya gini:
>
> ada sebuah kalimat dan saya mau memotong kalimat-kalimat tersebut menjadi
> hanya 20 karakter, tetapi saya tidak mau jika ada kata yang terpotong. dan
> jika ada kata yang terpotong maka kata tersebut tidak akan masuk.
>
> contohnya:
> -saya mau pergi ke pasar siang ini
>
> jika 20 karakter hasilnya akan:
> 0-saya mau pergi ke pa
> -sar siang ini
>
> yang saya mau jika ada kata yang terpotong maka katanya akan ikut
> kebawahnya menjadi:
> -saya mau pergi ke
> -pasar siang ini
>
> bagaimana ya?
> ini saya sertakan contoh excelnya.
>
> terimakasih, semoga pertanyaan saya tidak menyalahi aturan.
> salam
>
>
>
formula dalam file terlampir menggunakan asumsi :
1. pemotongan dilakukan pada karakter spasi, jadi hati-hati dengan adanya
karakter ganda apalagi sampai 20 karakter spasi
2. jika ada sebuah teks antara dua spasi berisi lebih dari 20 karakter,
maka akan diporong per 20 karakternya.
Wassalam,
Kid.
2014-04-01 21:41 GMT+07:00 iJaL Rezpector <rezpectori@yahoo.co.id>:
>
>
> halo semua salam kenal, wah udah lumayan lama sih ngikutin milis dan
> alhamdullilah banyak membantu.
> sekarang saya kebetulan ada satu kasus yang belum nemu jawabanya, jadi
> kasusnya gini:
>
> ada sebuah kalimat dan saya mau memotong kalimat-kalimat tersebut menjadi
> hanya 20 karakter, tetapi saya tidak mau jika ada kata yang terpotong. dan
> jika ada kata yang terpotong maka kata tersebut tidak akan masuk.
>
> contohnya:
> -saya mau pergi ke pasar siang ini
>
> jika 20 karakter hasilnya akan:
> 0-saya mau pergi ke pa
> -sar siang ini
>
> yang saya mau jika ada kata yang terpotong maka katanya akan ikut
> kebawahnya menjadi:
> -saya mau pergi ke
> -pasar siang ini
>
> bagaimana ya?
> ini saya sertakan contoh excelnya.
>
> terimakasih, semoga pertanyaan saya tidak menyalahi aturan.
> salam
>
>
>
Tue Apr 1, 2014 6:37 pm (PDT) . Posted by:
"nangAgus" nangagoez
Kepada rekan-rekan B-excel
Asalamualaikum warahmatullah
Minta tolong untuk mengganti rumus saya agar cell tersebut menjadi blank
(kosong tidak ada isinya)
=IF(A1=0,0,A1) akan menghasilkan angka nol (0)
=IF(A1=0,"",A1) akan menghasilkan cell yang kosong, namun tidak blank (
jika digunakan rumus counta() masih dihitung)
Bagaimana caranya agar rumus dapat menghasilkan cell yang blank?
Terima kasih
waalaikumsalam warahmatullah
NangAgus
Asalamualaikum warahmatullah
Minta tolong untuk mengganti rumus saya agar cell tersebut menjadi blank
(kosong tidak ada isinya)
=IF(A1=0,0,A1) akan menghasilkan angka nol (0)
=IF(A1=0,"
jika digunakan rumus counta() masih dihitung)
Bagaimana caranya agar rumus dapat menghasilkan cell yang blank?
Terima kasih
waalaikumsalam warahmatullah
NangAgus
Tue Apr 1, 2014 7:31 pm (PDT) . Posted by:
"Jan Raisin"
Wa'alaikumsalam wr. wb.,
tidak ada satu pun formula excel yang bisa menghasilkan cel yang
benar-benar kosong...
saran dari Jan untuk menghitung tanpa cel yang kelihatannya blank,
pengujian menggunakan If( A1=0 , "" , A1)
lalu untuk menghitung jumlah cel yang tidak kosong menggunakan formula
=CountA() - CountBlank()
Wassalamu'alaikum wr. wb.,,
-Miss Jan Raisin-
Pada 2 April 2014 08.37, nangAgus <nangagoez@yahoo.co.id> menulis:
>
>
> Kepada rekan-rekan B-excel
>
> Asalamualaikum warahmatullah
>
> Minta tolong untuk mengganti rumus saya agar cell tersebut menjadi blank
> (kosong tidak ada isinya)
>
> =IF(A1=0,0,A1) akan menghasilkan angka nol (0)
> =IF(A1=0,"",A1) akan menghasilkan cell yang kosong, namun tidak blank (
> jika digunakan rumus counta() masih dihitung)
> Bagaimana caranya agar rumus dapat menghasilkan cell yang blank?
> Terima kasih
>
> waalaikumsalam warahmatullah
>
> NangAgus
> _
>
tidak ada satu pun formula excel yang bisa menghasilkan cel yang
benar-benar kosong...
saran dari Jan untuk menghitung tanpa cel yang kelihatannya blank,
pengujian menggunakan If( A1=0 , "" , A1)
lalu untuk menghitung jumlah cel yang tidak kosong menggunakan formula
=CountA() - CountBlank()
Wassalamu'alaikum wr. wb.,,
-Miss Jan Raisin-
Pada 2 April 2014 08.37, nangAgus <nangagoez@yahoo.co.id> menulis:
>
>
> Kepada rekan-rekan B-excel
>
> Asalamualaikum warahmatullah
>
> Minta tolong untuk mengganti rumus saya agar cell tersebut menjadi blank
> (kosong tidak ada isinya)
>
> =IF(A1=0,0,A1) akan menghasilkan angka nol (0)
> =IF(A1=0,"
> jika digunakan rumus counta() masih dihitung)
> Bagaimana caranya agar rumus dapat menghasilkan cell yang blank?
> Terima kasih
>
> waalaikumsalam warahmatullah
>
> NangAgus
> _
>
Tue Apr 1, 2014 8:18 pm (PDT) . Posted by:
"Joko Suryaningrat" joko369
Assalamualaikum pak Heri dan semua warga belajar excell
to d point aja, saya sangat tertarik dengan tema ini, "Row bertambah otomatis sesuai jumlah data", saya sudah mendownload file lampirannya dan mempelajari isinya selama tiga hari ini, namun sampai saat ini saya belum juga ngerti, padahal yang saya hanya ingin tahu adalah sebatas itu saja, bagaimana row bisa sesuai dengan data. untuk itu saya mohon bantuannya agar bisa dijelaskan langkah aplikasinya, karena hal ini akan sangat berguna untuk mendukung pekerjaan saya saat ini. saya lampirkan juga file contoh.
atas bantuannya dan ilmu yang disampaikan saya ucapkan terimakasih banyak.
to d point aja, saya sangat tertarik dengan tema ini, "Row bertambah otomatis sesuai jumlah data", saya sudah mendownload file lampirannya dan mempelajari isinya selama tiga hari ini, namun sampai saat ini saya belum juga ngerti, padahal yang saya hanya ingin tahu adalah sebatas itu saja, bagaimana row bisa sesuai dengan data. untuk itu saya mohon bantuannya agar bisa dijelaskan langkah aplikasinya, karena hal ini akan sangat berguna untuk mendukung pekerjaan saya saat ini. saya lampirkan juga file contoh.
atas bantuannya dan ilmu yang disampaikan saya ucapkan terimakasih banyak.
Tue Apr 1, 2014 10:12 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Pak Joko,
Kalau Row mau bertambah atau disesuaikan dengan angka yang dketik pada sel D2 maka diperlukan macro seperti ini:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Integer
lRow = Range("D2").Value + 5
If Target.Count = 1 Then
If Target.Address = "$D$2" Then
If Range("A7") <> "" Then Range("A6", _
Range("A6").End(xlDown)).EntireRow.Delete
Range("A6:A" & lRow).Select
Selection.EntireRow.Insert
Selection.FormulaR1C1 = "=N(R[-1]C)+1"
End If
End If
End Sub
Macro tsb diketik pada VBE Sheet....Sheet1(Sheet1).
Salam,
HK
On Wednesday, 2 April 2014, 10:18, Joko Suryaningrat <joko369@yahoo.com> wrote:
Assalamualaikum pak Heri dan semua warga belajar excell
to d point aja, saya sangat tertarik dengan tema ini, "Row bertambah otomatis sesuai jumlah data", saya sudah mendownload file lampirannya dan mempelajari isinya selama tiga hari ini, namun sampai saat ini saya belum juga ngerti, padahal yang saya hanya ingin tahu adalah sebatas itu saja, bagaimana row bisa sesuai dengan data. untuk itu saya mohon bantuannya agar bisa dijelaskan langkah aplikasinya, karena hal ini akan sangat berguna untuk mendukung pekerjaan saya saat ini. saya lampirkan juga file contoh.
atas bantuannya dan ilmu yang disampaikan saya ucapkan terimakasih banyak.
Kalau Row mau bertambah atau disesuaikan dengan angka yang dketik pada sel D2 maka diperlukan macro seperti ini:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Integer
lRow = Range("D2").Value + 5
If Target.Count = 1 Then
If Target.Address = "$D$2" Then
If Range("A7") <> "" Then Range("A6", _
Range("A6").End(xlDown)).EntireRow.Delete
Range("A6:A" & lRow).Select
Selection.EntireRow.Insert
Selection.FormulaR1C1 = "=N(R[-1]C)+1"
End If
End If
End Sub
Macro tsb diketik pada VBE Sheet....Sheet1(Sheet1).
Salam,
HK
On Wednesday, 2 April 2014, 10:18, Joko Suryaningrat <joko369@yahoo.com> wrote:
Assalamualaikum pak Heri dan semua warga belajar excell
to d point aja, saya sangat tertarik dengan tema ini, "Row bertambah otomatis sesuai jumlah data", saya sudah mendownload file lampirannya dan mempelajari isinya selama tiga hari ini, namun sampai saat ini saya belum juga ngerti, padahal yang saya hanya ingin tahu adalah sebatas itu saja, bagaimana row bisa sesuai dengan data. untuk itu saya mohon bantuannya agar bisa dijelaskan langkah aplikasinya, karena hal ini akan sangat berguna untuk mendukung pekerjaan saya saat ini. saya lampirkan juga file contoh.
atas bantuannya dan ilmu yang disampaikan saya ucapkan terimakasih banyak.
Tue Apr 1, 2014 10:26 pm (PDT) . Posted by:
"Heri Pamungkas ( Gmail )" dchoosen88
السَّÙ„َامُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
Semangat pagi,.
Dear Pak HK,
Pak, hehehe
karena saya masih awam sama beginian
Bisa dijelaskan bahasa manusianya pak ?!
Karena waktu saya coba ketik angka 1 kemudian 5
angka 1 masih ikut di baris bawah.
ÙˆَالسَّÙ„َامُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
Warm Regards,
On 02/04/2014 12:12, hendrik karnadi wrote:
> Pak Joko,
> Kalau Row mau bertambah atau disesuaikan dengan angka yang dketik pada
> sel D2 maka diperlukan macro seperti ini:
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim lRow As Integer
> lRow = Range("D2").Value + 5
> If Target.Count = 1 Then
> If Target.Address = "$D$2" Then
> If Range("A7") <> "" Then Range("A6", _
> Range("A6").End(xlDown)).EntireRow.Delete
> Range("A6:A" & lRow).Select
> Selection.EntireRow.Insert
> Selection.FormulaR1C1 = "=N(R[-1]C)+1"
> End If
> End If
> End Sub
>
> Macro tsb diketik pada VBE Sheet....Sheet1(Sheet1).
>
> Salam,
> HK
>
>
> On Wednesday, 2 April 2014, 10:18, Joko Suryaningrat
> <joko369@yahoo.com> wrote:
> Assalamualaikum pak Heri dan semua warga belajar excell
>
> to d point aja, saya sangat tertarik dengan tema ini, "Row bertambah
> otomatis sesuai jumlah data", saya sudah mendownload file lampirannya
> dan mempelajari isinya selama tiga hari ini, namun sampai saat ini
> saya belum juga ngerti, padahal yang saya hanya ingin tahu adalah
> sebatas itu saja, bagaimana row bisa sesuai dengan data. untuk itu
> saya mohon bantuannya agar bisa dijelaskan langkah aplikasinya, karena
> hal ini akan sangat berguna untuk mendukung pekerjaan saya saat ini.
> saya lampirkan juga file contoh.
>
> atas bantuannya dan ilmu yang disampaikan saya ucapkan terimakasih banyak.
>
>
>
>
>
Wed Apr 2, 2014 1:29 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
*** sepertinya lebih bagus kalau kasus ini di posting dengan cara compose
email agar terbentuk thread (topik) baru
Mungkin seperti file terlampir yang mencoba dengan VBA maupun tanpa VBA.
Wassalamu'alaikum Wr. Wb.
Kid.
2014-04-02 10:14 GMT+07:00 Joko Suryaningrat <joko369@yahoo.com>:
>
>
> Assalamualaikum pak Heri dan semua warga belajar excell
>
> to d point aja, saya sangat tertarik dengan tema ini, "Row bertambah
> otomatis sesuai jumlah data", saya sudah mendownload file lampirannya dan
> mempelajari isinya selama tiga hari ini, namun sampai saat ini saya belum
> juga ngerti, padahal yang saya hanya ingin tahu adalah sebatas itu saja,
> bagaimana row bisa sesuai dengan data. untuk itu saya mohon bantuannya agar
> bisa dijelaskan langkah aplikasinya, karena hal ini akan sangat berguna
> untuk mendukung pekerjaan saya saat ini. saya lampirkan juga file contoh.
>
> atas bantuannya dan ilmu yang disampaikan saya ucapkan terimakasih banyak.
>
>
>
>
*** sepertinya lebih bagus kalau kasus ini di posting dengan cara compose
email agar terbentuk thread (topik) baru
Mungkin seperti file terlampir yang mencoba dengan VBA maupun tanpa VBA.
Wassalamu'alaikum Wr. Wb.
Kid.
2014-04-02 10:14 GMT+07:00 Joko Suryaningrat <joko369@yahoo.com>:
>
>
> Assalamualaikum pak Heri dan semua warga belajar excell
>
> to d point aja, saya sangat tertarik dengan tema ini, "Row bertambah
> otomatis sesuai jumlah data", saya sudah mendownload file lampirannya dan
> mempelajari isinya selama tiga hari ini, namun sampai saat ini saya belum
> juga ngerti, padahal yang saya hanya ingin tahu adalah sebatas itu saja,
> bagaimana row bisa sesuai dengan data. untuk itu saya mohon bantuannya agar
> bisa dijelaskan langkah aplikasinya, karena hal ini akan sangat berguna
> untuk mendukung pekerjaan saya saat ini. saya lampirkan juga file contoh.
>
> atas bantuannya dan ilmu yang disampaikan saya ucapkan terimakasih banyak.
>
>
>
>
Tue Apr 1, 2014 8:18 pm (PDT) . Posted by:
"Harry" hariansyahptk
Dear BeExceller,
Mohon pencerahan akan
pertanyaan saya mengenai MemMaster yang referensi datanya dari 2 (dua) sheet yang
berbeda.
Bersama ini saya sertakan
scrip yang saya gunakan yang terdiri dari sheet DATABASE dan sheet DATA
TRANSAKSI, tetapi hasinya tidak seperti yang saya inginkan karena selalu atau bahkan
tetap mengambil dari sheet DATA TRANSAKSI sehingga sheet DATABASE sama sekali
tidak berfungsi.
Mohon pencerahaan dari
rekan-rekan BeExceller.
Terima kasih – Wassalam,
Harry
Private Sub
UserForm_Initialize()
Dim I As Long, TbHeigh As Long, TbWidth
Set MemMaster = Sheets("DATABASE").Cells(1).CurrentRegion
TbHeigh = MemMaster.Rows.Count - 1
TbWidth = MemMaster.Columns.Count - 1
Set MemMaster = MemMaster.Offset(2,
0).Resize(TbHeigh, TbWidth)
Application.EnableEvents = False
With ComboBox1
.ColumnCount = 2
.BoundColumn = 1
For
I = 1 To TbHeigh
.AddItem
.List(I - 1, 0) = MemMaster(I, 135)
Next I
End With
Application.EnableEvents = True
Set MemMaster = Sheets("DATA TRANSAKSI").Cells(1).CurrentRegion
TbHeigh = MemMaster.Rows.Count - 1
TbWidth = MemMaster.Columns.Count - 1
Set MemMaster = MemMaster.Offset(2,
0).Resize(TbHeigh, TbWidth)
Application.EnableEvents = False
With CboNOPOLKENDARAAN
.ColumnCount = 2
.BoundColumn = 1
For I = 1 To TbHeigh
.AddItem
.List(I - 1, 0) = MemMaster(I, 2)
Next I
End With
Application.EnableEvents = True
txtJAM = Format(Time, "h:mm")
End Sub
Private Sub
CboNOPOLKENDARAAN_Change()
Dim r As Integer
If CboNOPOLKENDARAAN.ListIndex > -1 Then
r = CboNOPOLKENDARAAN.ListIndex + 1
If r > 0 Then
CboNOPOLKENDARAAN.Value
= MemMaster(r, 2)
txtMODEL.Value = MemMaster(r, 3)
txtNORANGKA.Value = MemMaster(r, 4)
txtNOMESIN.Value = MemMaster(r, 5)
txtWARNA.Value = MemMaster(r, 6)
txtTAHUN.Value = MemMaster(r, 7)
txtNAMACUSTOMER.Value = MemMaster(r, 8)
txtMERKKENDARAAN.Value = MemMaster(r, 9)
txtALAMAT.Value = MemMaster(r, 10)
txtHP.Value = MemMaster(r, 11)
txtREF.Value = MemMaster(r, 12)
End If
End If
End Sub
Private Sub
ComboBox1_Change()
Dim r As Integer
If ComboBox1.ListIndex > -1 Then
r = ComboBox1.ListIndex + 1
If r > 0 Then
ComboBox1.Value =
MemMaster(r, 135)
txtSERVICESADVISOR1.Value =
MemMaster(r, 137)
End If
End If
End Sub
Private Sub
ComboBox2_Change()
Dim r As Integer
If ComboBox2.ListIndex > -1 Then
r = ComboBox2.ListIndex + 1
If r > 0 Then
ComboBox2.Value =
MemMaster(r, 135)
txtSERVICESADVISOR2.Value =
MemMaster(r, 137)
End If
End If
End Sub
Pada Senin, 31 Maret 2014 6:01, Harry <hariansyahptk@yahoo.com> menulis:
Dear BeExceller,
Assalamu'
Rekan-rekan BeExceller, saya ingin menggunakan
MemMaster yang mengambil data dari 2 (dua) sheet yang berbeda dalam 1 (satu) UserForm. Jika hanya
menggunakan 1 (satu) MemMaster, saya menggunakan Script sebagai berikut :
Private Sub UserForm_Initialize
Dim I As Long, TbHeigh As Long,
TbWidth
Set MemMaster = Sheets("
TbHeigh = MemMaster.Rows.
TbWidth = MemMaster.Columns.
- 1
Set MemMaster =
MemMaster.Offset(
Application.
With CboNOPOLKENDARAAN
.ColumnCount = 2
.BoundColumn = 1
For I = 1 To TbHeigh
.AddItem
.List(I - 1, 0) =
MemMaster(I, 2)
Next I
End With
Application.
txtJAM = Format(Time,
"h:mm"
End Sub
Private Sub CboNOPOLKENDARAAN_
Dim r As Integer
If CboNOPOLKENDARAAN.
> -1 Then
r = CboNOPOLKENDARAAN.
+ 1
If r > 0 Then
CboNOPOLKENDARAAN.
MemMaster(r, 2)
txtMODEL.Value = MemMaster(r, 3)
txtNORANGKA.
4)
txtNOMESIN.Value = MemMaster(r, 5)
txtWARNA.Value = MemMaster(r, 6)
txtTAHUN.Value = MemMaster(r, 7)
txtNAMACUSTOMER.
MemMaster(r, 8)
txtMERKKENDARAAN.
MemMaster(r, 9)
txtALAMAT.Value = MemMaster(r, 10)
txtHP.Value = MemMaster(r, 11)
txtREF.Value = MemMaster(r, 12)
End If
End If
End Sub
Dan hasilnya sesuai dengan yang diinginkan. Tapi
bagaimana cara dan Scipt-nya jika saya ingin menggunakan 2 (dua) MamMaster (dalam
1 UserForm) jika referensi yang ingin diambil dari sheet yang berbeda…???
Mohon bantuan dari rekan-rekan Master sekalian.
Terima kasih atas berkenan informasinya.
Wassalamu'
Harry
N/B:
Sheet 1 = DATABASE CUSTOMER
Sheet 2 = DATABASE BARANG
Wed Apr 2, 2014 12:29 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pada bagian general declaration dari userform, tambahkan baris :
private memmaster2 as range
lalu pada setiap prosedur yang membutuhkan data dari sheet bernama DATA
TRANSAKSI harus menggunakan memmaster2 dan bukan memmaster.
Wassalam,
Kid.
2014-04-02 9:09 GMT+07:00 Harry <hariansyahptk@yahoo.com>:
>
>
>
> Dear BeExceller,
>
> Mohon pencerahan akan pertanyaan saya mengenai MemMaster yang referensi
> datanya dari 2 (dua) sheet yang berbeda.
> Bersama ini saya sertakan scrip yang saya gunakan yang terdiri dari sheet
> DATABASE dan sheet DATA TRANSAKSI, tetapi hasinya tidak seperti yang saya
> inginkan karena selalu atau bahkan tetap mengambil dari sheet DATA
> TRANSAKSI sehingga sheet DATABASE sama sekali tidak berfungsi.
>
> Mohon pencerahaan dari rekan-rekan BeExceller.
>
> Terima kasih - Wassalam,
>
>
> Harry
>
>
> Private Sub UserForm_Initialize()
> Dim I As Long, TbHeigh As Long, TbWidth
>
> Set MemMaster = Sheets("*DATABASE*").Cells(1).CurrentRegion
> TbHeigh = MemMaster.Rows.Count - 1
> TbWidth = MemMaster.Columns.Count - 1
> Set MemMaster = MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth)
>
> Application.EnableEvents = False
> With ComboBox1
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) = MemMaster(I, 135)
> Next I
> End With
> Application.EnableEvents = True
>
> Set MemMaster = Sheets("*DATA TRANSAKSI*").Cells(1).CurrentRegion
> TbHeigh = MemMaster.Rows.Count - 1
> TbWidth = MemMaster.Columns.Count - 1
> Set MemMaster = MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth)
>
> Application.EnableEvents = False
> With CboNOPOLKENDARAAN
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) = MemMaster(I, 2)
> Next I
> End With
> Application.EnableEvents = True
> txtJAM = Format(Time, "h:mm")
>
> End Sub
>
> Private Sub CboNOPOLKENDARAAN_Change()
> Dim r As Integer
> If CboNOPOLKENDARAAN.ListIndex > -1 Then
> r = CboNOPOLKENDARAAN.ListIndex + 1
> If r > 0 Then
> CboNOPOLKENDARAAN.Value = MemMaster(r, 2)
> txtMODEL.Value = MemMaster(r, 3)
> txtNORANGKA.Value = MemMaster(r, 4)
> txtNOMESIN.Value = MemMaster(r, 5)
> txtWARNA.Value = MemMaster(r, 6)
> txtTAHUN.Value = MemMaster(r, 7)
> txtNAMACUSTOMER.Value = MemMaster(r, 8)
> txtMERKKENDARAAN.Value = MemMaster(r, 9)
> txtALAMAT.Value = MemMaster(r, 10)
> txtHP.Value = MemMaster(r, 11)
> txtREF.Value = MemMaster(r, 12)
>
> End If
> End If
> End Sub
>
> Private Sub ComboBox1_Change()
> Dim r As Integer
> If ComboBox1.ListIndex > -1 Then
> r = ComboBox1.ListIndex + 1
> If r > 0 Then
> ComboBox1.Value = MemMaster(r, 135)
> txtSERVICESADVISOR1.Value = MemMaster(r, 137)
> End If
> End If
> End Sub
>
> Private Sub ComboBox2_Change()
> Dim r As Integer
> If ComboBox2.ListIndex > -1 Then
> r = ComboBox2.ListIndex + 1
> If r > 0 Then
> ComboBox2.Value = MemMaster(r, 135)
> txtSERVICESADVISOR2.Value = MemMaster(r, 137)
> End If
> End If
> End Sub
> Pada Senin, 31 Maret 2014 6:01, Harry <hariansyahptk@yahoo.com>
> menulis:
>
> Dear BeExceller,
>
> Assalamu'alakum Wr. Wb.
>
> Rekan-rekan BeExceller, saya ingin menggunakan MemMaster yang mengambil
> data dari 2 (dua) sheet yang berbeda dalam 1 (satu) UserForm. Jika hanya
> menggunakan 1 (satu) MemMaster, saya menggunakan Script sebagai berikut :
>
> Private Sub UserForm_Initialize()
> Dim I As Long, TbHeigh As Long, TbWidth
> Set MemMaster = Sheets("DATA CUSTOMER").Cells(1).CurrentRegion
> TbHeigh = MemMaster.Rows.Count - 1
> TbWidth = MemMaster.Columns.Count - 1
> Set MemMaster = MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth)
>
> Application.EnableEvents = False
> With CboNOPOLKENDARAAN
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) = MemMaster(I, 2)
> Next I
> End With
> Application.EnableEvents = True
> txtJAM = Format(Time, "h:mm")
> End Sub
>
> Private Sub CboNOPOLKENDARAAN_Change()
> Dim r As Integer
> If CboNOPOLKENDARAAN.ListIndex > -1 Then
> r = CboNOPOLKENDARAAN.ListIndex + 1
> If r > 0 Then
> CboNOPOLKENDARAAN.Value = MemMaster(r, 2)
> txtMODEL.Value = MemMaster(r, 3)
> txtNORANGKA.Value = MemMaster(r, 4)
> txtNOMESIN.Value = MemMaster(r, 5)
> txtWARNA.Value = MemMaster(r, 6)
> txtTAHUN.Value = MemMaster(r, 7)
> txtNAMACUSTOMER.Value = MemMaster(r, 8)
> txtMERKKENDARAAN.Value = MemMaster(r, 9)
> txtALAMAT.Value = MemMaster(r, 10)
> txtHP.Value = MemMaster(r, 11)
> txtREF.Value = MemMaster(r, 12)
> End If
> End If
> End Sub
>
> Dan hasilnya sesuai dengan yang diinginkan. Tapi bagaimana cara dan
> Scipt-nya jika saya ingin menggunakan 2 (dua) MamMaster (dalam 1 UserForm)
> jika referensi yang ingin diambil dari sheet yang berbeda...???
>
> Mohon bantuan dari rekan-rekan Master sekalian.
>
> Terima kasih atas berkenan informasinya.
>
> Wassalamu'alaikum Wr. Wb.
>
>
> Harry
>
> N/B:
> Sheet 1 = DATABASE CUSTOMER
> Sheet 2 = DATABASE BARANG
>
>
>
>
private memmaster2 as range
lalu pada setiap prosedur yang membutuhkan data dari sheet bernama DATA
TRANSAKSI harus menggunakan memmaster2 dan bukan memmaster.
Wassalam,
Kid.
2014-04-02 9:09 GMT+07:00 Harry <hariansyahptk@yahoo.com>:
>
>
>
> Dear BeExceller,
>
> Mohon pencerahan akan pertanyaan saya mengenai MemMaster yang referensi
> datanya dari 2 (dua) sheet yang berbeda.
> Bersama ini saya sertakan scrip yang saya gunakan yang terdiri dari sheet
> DATABASE dan sheet DATA TRANSAKSI, tetapi hasinya tidak seperti yang saya
> inginkan karena selalu atau bahkan tetap mengambil dari sheet DATA
> TRANSAKSI sehingga sheet DATABASE sama sekali tidak berfungsi.
>
> Mohon pencerahaan dari rekan-rekan BeExceller.
>
> Terima kasih - Wassalam,
>
>
> Harry
>
>
> Private Sub UserForm_Initialize()
> Dim I As Long, TbHeigh As Long, TbWidth
>
> Set MemMaster = Sheets("*DATABASE*").Cells(1).CurrentRegion
> TbHeigh = MemMaster.Rows.Count - 1
> TbWidth = MemMaster.Columns.Count - 1
> Set MemMaster = MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth)
>
> Application.EnableEvents = False
> With ComboBox1
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) = MemMaster(I, 135)
> Next I
> End With
> Application.EnableEvents = True
>
> Set MemMaster = Sheets("*DATA TRANSAKSI*").Cells(1).CurrentRegion
> TbHeigh = MemMaster.Rows.Count - 1
> TbWidth = MemMaster.Columns.Count - 1
> Set MemMaster = MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth)
>
> Application.EnableEvents = False
> With CboNOPOLKENDARAAN
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) = MemMaster(I, 2)
> Next I
> End With
> Application.EnableEvents = True
> txtJAM = Format(Time, "h:mm")
>
> End Sub
>
> Private Sub CboNOPOLKENDARAAN_Change()
> Dim r As Integer
> If CboNOPOLKENDARAAN.ListIndex > -1 Then
> r = CboNOPOLKENDARAAN.ListIndex + 1
> If r > 0 Then
> CboNOPOLKENDARAAN.Value = MemMaster(r, 2)
> txtMODEL.Value = MemMaster(r, 3)
> txtNORANGKA.Value = MemMaster(r, 4)
> txtNOMESIN.Value = MemMaster(r, 5)
> txtWARNA.Value = MemMaster(r, 6)
> txtTAHUN.Value = MemMaster(r, 7)
> txtNAMACUSTOMER.Value = MemMaster(r, 8)
> txtMERKKENDARAAN.Value = MemMaster(r, 9)
> txtALAMAT.Value = MemMaster(r, 10)
> txtHP.Value = MemMaster(r, 11)
> txtREF.Value = MemMaster(r, 12)
>
> End If
> End If
> End Sub
>
> Private Sub ComboBox1_Change()
> Dim r As Integer
> If ComboBox1.ListIndex > -1 Then
> r = ComboBox1.ListIndex + 1
> If r > 0 Then
> ComboBox1.Value = MemMaster(r, 135)
> txtSERVICESADVISOR1.Value = MemMaster(r, 137)
> End If
> End If
> End Sub
>
> Private Sub ComboBox2_Change()
> Dim r As Integer
> If ComboBox2.ListIndex > -1 Then
> r = ComboBox2.ListIndex + 1
> If r > 0 Then
> ComboBox2.Value = MemMaster(r, 135)
> txtSERVICESADVISOR2.Value = MemMaster(r, 137)
> End If
> End If
> End Sub
> Pada Senin, 31 Maret 2014 6:01, Harry <hariansyahptk@yahoo.com>
> menulis:
>
> Dear BeExceller,
>
> Assalamu'
>
> Rekan-rekan BeExceller, saya ingin menggunakan MemMaster yang mengambil
> data dari 2 (dua) sheet yang berbeda dalam 1 (satu) UserForm. Jika hanya
> menggunakan 1 (satu) MemMaster, saya menggunakan Script sebagai berikut :
>
> Private Sub UserForm_Initialize
> Dim I As Long, TbHeigh As Long, TbWidth
> Set MemMaster = Sheets("
> TbHeigh = MemMaster.Rows.
> TbWidth = MemMaster.Columns.
> Set MemMaster = MemMaster.Offset(
>
> Application.
> With CboNOPOLKENDARAAN
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) = MemMaster(I, 2)
> Next I
> End With
> Application.
> txtJAM = Format(Time, "h:mm"
> End Sub
>
> Private Sub CboNOPOLKENDARAAN_
> Dim r As Integer
> If CboNOPOLKENDARAAN.
> r = CboNOPOLKENDARAAN.
> If r > 0 Then
> CboNOPOLKENDARAAN.
> txtMODEL.Value = MemMaster(r, 3)
> txtNORANGKA.
> txtNOMESIN.Value = MemMaster(r, 5)
> txtWARNA.Value = MemMaster(r, 6)
> txtTAHUN.Value = MemMaster(r, 7)
> txtNAMACUSTOMER.
> txtMERKKENDARAAN.
> txtALAMAT.Value = MemMaster(r, 10)
> txtHP.Value = MemMaster(r, 11)
> txtREF.Value = MemMaster(r, 12)
> End If
> End If
> End Sub
>
> Dan hasilnya sesuai dengan yang diinginkan. Tapi bagaimana cara dan
> Scipt-nya jika saya ingin menggunakan 2 (dua) MamMaster (dalam 1 UserForm)
> jika referensi yang ingin diambil dari sheet yang berbeda...??
>
> Mohon bantuan dari rekan-rekan Master sekalian.
>
> Terima kasih atas berkenan informasinya.
>
> Wassalamu'
>
>
> Harry
>
> N/B:
> Sheet 1 = DATABASE CUSTOMER
> Sheet 2 = DATABASE BARANG
>
>
>
>
Tue Apr 1, 2014 11:34 pm (PDT) . Posted by:
"Jan Raisin"
Wa'alaikumsalam wr. wb.,
thread ini tidak ada yang menanggapi karena tidak ada contoh file yang
dilampirkan, sehingga BeExceller yang ingin membantu jadi enggan karena
harus kerja bakti dahulu membuat datanya.
asumsi berdasarkan isi email anda di milis ini
asumsi:
txtbox1 = kode_barang
txtbox2 = nama_barang
txtbox3 = harga_barang
database di sheet2
input di sheet1 berasal dari masing-masing txtbox
seluruh textbox ada di sebuah userform
yang diinginkan:
txtbox1 diisi dengan kode, maka txtbox2 akan menampilkan nama_barang,
txtbox3 akan menampilkan harga_barang
persiapan hal-hal yang akan digunakan (disingkat P dengan point
masing-masing):
P1: deklarasikan sebuah variabel bertipe string untuk menyompan isi txtbox1
dim nama_variabel as string
P2: deklarasikan sebuah variabel bertipe long untuk menyimpan nomor baris
akhir database
dim nama_variabel as long
P3: deklarasikan sebuah variabel bertipe range untuk menyimpan area database
dim nama_variabel as range
P4: deklarasikan sebuah variabel bertipe range untuk menyimpan hasil
pencarian data
dim nama_variabel as range
P5: deklarasikan sebuah variabel bertipe long untuk menyimpan nomor baris
hasil pencarian jika data ditemukan
dim nama_variabel as long
solusi:
>> buat sebuah event change pada txtbox1, tujuannya jika terjadi perubahan
isi pada txtbox1 maka macro akan bekerja
>> simpan nilai txtbox1 ke dalam variabel P1,
nama_variabel = txtbox1.text
>> cari nomer baris terakhir dari database dan simpan ke dalam variabel P2,
nama_variabel = sheets("nama_sheet").range("nama_kolom" &
rows.count).end(xlup).row
>> set lokasi database dan simpan ke dalam variabel P3
set nama_variabel = sheets("nama_sheet").range( range_database )
>> set P4 untuk mencari nilai P1 di dalam P3
set nama_variabel = nama_variabel.find( nama_variabel , lookat:=xlwhole
)
>> jika P1 tidak ditemukan dalam P3 maka keluar dari prosedur
if nama_variabel is nothing then exit sub
>> jika P1 ditemukan dalam P3 maka ambil nilai barisnya lalu simpan ke
dalam variabel P5
else nama_variabel = nama_variabel.row
jika nilai P5 sudah didapat, maka masukkan nama_barang ke txtbox2 dan
harga_barang ke txtbox3 berdasarkan nomer baris P5
pada saat yang sama, anda dapat langsung mengisi sheet1 berdasarkan nomer
baris yang sudah disimpan dalam variabel P5, atau menyalin isi
masing-masing txtbox ke sheet1
logikanya adalah seperti di atas, silakan disesuaikan dengan kondisi real
yang ada. semoga solusinya gak salah2 amat ^_^
Wassalam,
-Miss Jan Raisin-
Pada 28 Maret 2014 16.15, amas solihin <amas_se@yahoo.com> menulis:
>
>
> Assalamu'alaikum semuanya.
>
> Para master mohon dibantu.
> Saya punya kasus misal saya isi TextBox1 dengan kode barang kemudian
> TextBox2 dan TextBox3 akan otomatis keluar nama beserta harga,Database
> misal di ambil di sheet2 sedangkan isian user form di isi di sheet1.
>
> Terimakasih sebelumnya.
>
> Wassalam..
>
> ----- Momod -----
> untuk memudahkan BeExceller menanggapi kasus anda
> silakan melampirkan sample workbook < 250 KB dengan cara mereply email ini
> tidak perlu melampirkan data asli yang penting mewakili kasus yang anda
> tanyakan
> ______________
>
>
>
thread ini tidak ada yang menanggapi karena tidak ada contoh file yang
dilampirkan, sehingga BeExceller yang ingin membantu jadi enggan karena
harus kerja bakti dahulu membuat datanya.
asumsi berdasarkan isi email anda di milis ini
asumsi:
txtbox1 = kode_barang
txtbox2 = nama_barang
txtbox3 = harga_barang
database di sheet2
input di sheet1 berasal dari masing-masing txtbox
seluruh textbox ada di sebuah userform
yang diinginkan:
txtbox1 diisi dengan kode, maka txtbox2 akan menampilkan nama_barang,
txtbox3 akan menampilkan harga_barang
persiapan hal-hal yang akan digunakan (disingkat P dengan point
masing-masing):
P1: deklarasikan sebuah variabel bertipe string untuk menyompan isi txtbox1
dim nama_variabel as string
P2: deklarasikan sebuah variabel bertipe long untuk menyimpan nomor baris
akhir database
dim nama_variabel as long
P3: deklarasikan sebuah variabel bertipe range untuk menyimpan area database
dim nama_variabel as range
P4: deklarasikan sebuah variabel bertipe range untuk menyimpan hasil
pencarian data
dim nama_variabel as range
P5: deklarasikan sebuah variabel bertipe long untuk menyimpan nomor baris
hasil pencarian jika data ditemukan
dim nama_variabel as long
solusi:
>> buat sebuah event change pada txtbox1, tujuannya jika terjadi perubahan
isi pada txtbox1 maka macro akan bekerja
>> simpan nilai txtbox1 ke dalam variabel P1,
nama_variabel = txtbox1.text
>> cari nomer baris terakhir dari database dan simpan ke dalam variabel P2,
nama_variabel = sheets("nama_sheet").range("nama_kolom" &
rows.count).end(xlup).row
>> set lokasi database dan simpan ke dalam variabel P3
set nama_variabel = sheets("nama_sheet").range( range_database )
>> set P4 untuk mencari nilai P1 di dalam P3
set nama_variabel = nama_variabel.find( nama_variabel , lookat:=xlwhole
)
>> jika P1 tidak ditemukan dalam P3 maka keluar dari prosedur
if nama_variabel is nothing then exit sub
>> jika P1 ditemukan dalam P3 maka ambil nilai barisnya lalu simpan ke
dalam variabel P5
else nama_variabel = nama_variabel.row
jika nilai P5 sudah didapat, maka masukkan nama_barang ke txtbox2 dan
harga_barang ke txtbox3 berdasarkan nomer baris P5
pada saat yang sama, anda dapat langsung mengisi sheet1 berdasarkan nomer
baris yang sudah disimpan dalam variabel P5, atau menyalin isi
masing-masing txtbox ke sheet1
logikanya adalah seperti di atas, silakan disesuaikan dengan kondisi real
yang ada. semoga solusinya gak salah2 amat ^_^
Wassalam,
-Miss Jan Raisin-
Pada 28 Maret 2014 16.15, amas solihin <amas_se@yahoo.com> menulis:
>
>
> Assalamu'
>
> Para master mohon dibantu.
> Saya punya kasus misal saya isi TextBox1 dengan kode barang kemudian
> TextBox2 dan TextBox3 akan otomatis keluar nama beserta harga,Database
> misal di ambil di sheet2 sedangkan isian user form di isi di sheet1.
>
> Terimakasih sebelumnya.
>
> Wassalam..
>
> ----- Momod -----
> untuk memudahkan BeExceller menanggapi kasus anda
> silakan melampirkan sample workbook < 250 KB dengan cara mereply email ini
> tidak perlu melampirkan data asli yang penting mewakili kasus yang anda
> tanyakan
> ____________
>
>
>
Wed Apr 2, 2014 2:32 am (PDT) . Posted by:
"Lazuardi Biru" lazuardi_biru84
dh
salam be exceler
selamat sore, begini master saya punya data di kolom B di isi manua,
sedangkan di kolom A pakai formula. data di kolom B selalu berubah.
maksud saya formula di kolom A selalu mengikuti data di kolom B.
kira2 ada cara gak ya master.
sudah coba pakai insert tables, kalau data di kolom B bertambah memang formula ikut bertambah,
tapi kalau data di kolom B di hapus formula gak ikut hilang.
untuk jelasnya file terlampir
salam
LB
salam be exceler
selamat sore, begini master saya punya data di kolom B di isi manua,
sedangkan di kolom A pakai formula. data di kolom B selalu berubah.
maksud saya formula di kolom A selalu mengikuti data di kolom B.
kira2 ada cara gak ya master.
sudah coba pakai insert tables, kalau data di kolom B bertambah memang formula ikut bertambah,
tapi kalau data di kolom B di hapus formula gak ikut hilang.
untuk jelasnya file terlampir
salam
LB
Wed Apr 2, 2014 2:56 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Lazuardi,
Pada Excel 2007 ke atas disediakan fitur Excel Table. Bagaimana kalau
dicoba dengan menggunakan fitur tersebut.
Andaikan data berupa nilai tanggal bertipe datetime, bagaimana jika juga
memanfaatkan format cells. Jadi dimungkinkan juga agar inputan pada kolom
tersebut sudah menampilkan nama harinya. Contohnya seperti file terlampir.
Wassalam,
Kid.
2014-04-02 16:32 GMT+07:00 Lazuardi Biru <lazuardi_biru84@yahoo.com>:
>
>
> dh
>
> salam be exceler
>
> selamat sore, begini master saya punya data di kolom B di isi manua,
> sedangkan di kolom A pakai formula. data di kolom B selalu berubah.
> maksud saya formula di kolom A selalu mengikuti data di kolom B.
> kira2 ada cara gak ya master.
> sudah coba pakai insert tables, kalau data di kolom B bertambah memang
> formula ikut bertambah,
> tapi kalau data di kolom B di hapus formula gak ikut hilang.
>
> untuk jelasnya file terlampir
>
> salam
> LB
>
>
>
Pada Excel 2007 ke atas disediakan fitur Excel Table. Bagaimana kalau
dicoba dengan menggunakan fitur tersebut.
Andaikan data berupa nilai tanggal bertipe datetime, bagaimana jika juga
memanfaatkan format cells. Jadi dimungkinkan juga agar inputan pada kolom
tersebut sudah menampilkan nama harinya. Contohnya seperti file terlampir.
Wassalam,
Kid.
2014-04-02 16:32 GMT+07:00 Lazuardi Biru <lazuardi_biru84@yahoo.com>:
>
>
> dh
>
> salam be exceler
>
> selamat sore, begini master saya punya data di kolom B di isi manua,
> sedangkan di kolom A pakai formula. data di kolom B selalu berubah.
> maksud saya formula di kolom A selalu mengikuti data di kolom B.
> kira2 ada cara gak ya master.
> sudah coba pakai insert tables, kalau data di kolom B bertambah memang
> formula ikut bertambah,
> tapi kalau data di kolom B di hapus formula gak ikut hilang.
>
> untuk jelasnya file terlampir
>
> salam
> LB
>
>
>
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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