15 New Messages
Digest #2453
Messages
Mon Jul 29, 2013 7:32 pm (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
coba code berikut:
'==============
Private Sub CommandButton1_Click()
Dim aSht As Worksheet
'1. check jika nama sheet sudah ada
On Error Resume Next
With ActiveWorkbook
Set aSht = .Worksheets(TextBox1.Value)
'2. jika error, maka sheet belum ada
If Err.Number Then
Set aSht = ActiveWorkbook.Worksheets.Add
aSht.Name = TextBox1.Value
Err.Clear
Else
MsgBox "sheet " & aSht.Name & " sudah ada"
End If
End With
End Sub
'==========================================
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of Andy Ajhis Ramadhan
Sent: Tuesday, July 30, 2013 8:50 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Membuat Sheets dengan Nama di Form VB
Dear,
Master Excell…
Bagaimana cara membuat kode VB untuk form "tambah Sheet" dengan ketentuan Nama Sheets yang terisi menjadi nickname sheet tersebut ? ( Soalnya Sheets.Add hanya menampilkan Nama sheets selanjutnya )
Thanks & Best Regards.
Andy Ajhis. R
'=======
Private Sub CommandButton1_
Dim aSht As Worksheet
'1. check jika nama sheet sudah ada
On Error Resume Next
With ActiveWorkbook
Set aSht = .Worksheets(
'2. jika error, maka sheet belum ada
If Err.Number Then
Set aSht = ActiveWorkbook.
aSht.Name = TextBox1.Value
Err.Clear
Else
MsgBox "sheet " & aSht.Name & " sudah ada"
End If
End With
End Sub
'=======
From: belajar-excel@
Sent: Tuesday, July 30, 2013 8:50 AM
To: belajar-excel@
Subject: [belajar-excel] Membuat Sheets dengan Nama di Form VB
Dear,
Master Excell…
Bagaimana cara membuat kode VB untuk form "tambah Sheet" dengan ketentuan Nama Sheets yang terisi menjadi nickname sheet tersebut ? ( Soalnya Sheets.Add hanya menampilkan Nama sheets selanjutnya )
Thanks & Best Regards.
Andy Ajhis. R
Mon Jul 29, 2013 8:19 pm (PDT) . Posted by:
"Andy Ajhis Ramadhan" andy_ajhis37
Wah Mkasih Bp. Zainul Ulum.
Hebat. :D Thanks so much.... Hehe
----- Pesan yang Diteruskan -----
Dari: zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 30 Juli 2013 9:32
Judul: RE: [belajar-excel] Membuat Sheets dengan Nama di Form VB
coba code berikut:
'==============
Private Sub CommandButton1_Click()
Dim aSht As Worksheet
'1. check jika nama sheet sudah ada
On Error Resume Next
With ActiveWorkbook
Set aSht = .Worksheets(TextBox1.Value)
'2. jika error, maka sheet belum ada
If Err.Number Then
Set aSht = ActiveWorkbook.Worksheets.Add
aSht.Name = TextBox1.Value
Err.Clear
Else
MsgBox "sheet " & aSht.Name & " sudah ada"
End If
End With
End Sub
'==========================================
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of Andy Ajhis Ramadhan
Sent: Tuesday, July 30, 2013 8:50 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Membuat Sheets dengan Nama di Form VB
Dear,
Master Excell…
Bagaimana cara membuat kode VB untuk form "tambah Sheet" dengan ketentuan Nama Sheets yang terisi menjadi nickname sheet tersebut ? ( Soalnya Sheets.Add hanya menampilkan Nama sheets selanjutnya )
Thanks & Best Regards.
Andy Ajhis. R
Hebat. :D Thanks so much.... Hehe
----- Pesan yang Diteruskan -----
Dari: zainul_ulum[
Kepada: belajar-excel@
Dikirim: Selasa, 30 Juli 2013 9:32
Judul: RE: [belajar-excel] Membuat Sheets dengan Nama di Form VB
coba code berikut:
'=======
Private Sub CommandButton1_
Dim aSht As Worksheet
'1. check jika nama sheet sudah ada
On Error Resume Next
With ActiveWorkbook
Set aSht = .Worksheets(
'2. jika error, maka sheet belum ada
If Err.Number Then
Set aSht = ActiveWorkbook.
aSht.Name = TextBox1.Value
Err.Clear
Else
MsgBox "sheet " & aSht.Name & " sudah ada"
End If
End With
End Sub
'=======
From: belajar-excel@
Sent: Tuesday, July 30, 2013 8:50 AM
To: belajar-excel@
Subject: [belajar-excel] Membuat Sheets dengan Nama di Form VB
Dear,
Master Excell…
Bagaimana cara membuat kode VB untuk form "tambah Sheet" dengan ketentuan Nama Sheets yang terisi menjadi nickname sheet tersebut ? ( Soalnya Sheets.Add hanya menampilkan Nama sheets selanjutnya )
Thanks & Best Regards.
Andy Ajhis. R
Mon Jul 29, 2013 8:19 pm (PDT) . Posted by:
"Andy Ajhis Ramadhan" andy_ajhis37
Thanks you mas Hendrik Karnadi...
:D Hebat.
----- Pesan yang Diteruskan -----
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Selasa, 30 Juli 2013 9:27
Judul: Re: [belajar-excel] Membuat Sheets dengan Nama di Form VB
Coba assign (tempelkan) code ini pada tombol "Tambahkan&quo
Private Sub CommandButton1_
Sheets.Add After:=Sheets(
ActiveSheet.
TextBox1.Value = ""
End Sub
Salam,
HK
____________
From: Andy Ajhis Ramadhan <andyajhisramadhan@
To: "belajar-excel@
Sent: Monday, 29 July 2013, 18:49
Subject: [belajar-excel] Membuat Sheets dengan Nama di Form VB
Dear,
Master Excell…
Bagaimana cara membuat kode VB untuk form "tambah Sheet" dengan
ketentuan Nama Sheets yang terisi menjadi nickname sheet tersebut ? (Soalnya Sheets.Add hanya menampilkan Nama sheets selanjutnya )
Thanks & Best Regards.
Andy Ajhis. R
Mon Jul 29, 2013 7:37 pm (PDT) . Posted by:
"Jan Raisin"
Maaf baru dibalas, karena harus bed rest selama beberapa hari.
coba script seperti ini:
Option Explicit
' =================================== '
' cari data dari sheet lain '
' script by: Miss Jan Raisin '
' Biak, 11 Juli 2013 '
' untuk belajar-excel@yahoogroups.com '
' revisi, Batu, Malang, 30 Juli 2013 '
' =================================== '
' awal dari prosedur
Sub Cari()
' deklarasikan semua variabel yang dibutuhkan
' sCol >> digunakan untuk menyimpan nama header kolom
' yang akan dicari, tipe datanya String
Dim sCol As String
' rgFind >> digunakan untuk menyimpan range pencarian sCol
' dari sini akan diketahui header data terletak pada kolom
berapa
Dim rgFind As Range
' rgData >> digunakan untuk menyimpan range data berdasarkan
' letak kolom yang diketahui
' posisinya mulai 1 baris setelah header
' sampai data yang paling bawah
Dim rgData As Range
' rgCell adalah setiap range atau cell di dalam rgData
Dim rgCell As Range
' iCol >> digunakan untuk menyimpan nomor kolom rgFind
Dim iCol As Integer
' lRow >> digunakan untuk untuk menyimpan nomor baris akhir data
Dim lRow As Long
' vCrit >> digunakan untuk menyimpan kriteria
' berhubung kriteria bisa diisi dengan
' huruf, angka, atau kombinasi keduanya
' maka tipe data menggunakan variant
Dim vCrit As Variant
' lakukan proteksi pada sheet cari >> Sheets("cari").Protect
' tentukan passwordnya untuk protect/unprotect >> Password:="12345"
' proteksi hanya untuk user saja, sedangkan vba tetap boleh bekerja
' >> userinterfaceonly:=True
Sheets("cari").Protect Password:="12345", userinterfaceonly:=True
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("data").Visible = xlSheetVisible
' hapus hasil pencarian sebelumnya >> .ClearContents
' mulai cell B8 >> Range("b8")
' sampai dengan data paling kanan >> .End(xlToRight)
' setara dengan menekan tombol CTRL panah_kanan
' lalu sampai data yang paling bawah >> .End(xlDown)
' setara dengan menekan tombol CTRL panah_bawah
Range(Range("b8"), Range("b8").End(xlToRight).End(xlDown)).ClearContents
' atau bisa juga dengan select seluruh data di sekitar cell B8
' >> Range("b8").CurrentRegion
' karena header di baris 7 juga ikut terpilih
' maka selectionnya harus turun 1 baris ke bawah >> .Offset(1)
' setelah itu hapus data yang ada >> .ClearContents
' Range("b8").CurrentRegion.Offset(1).ClearContents
' masukkan header kolom pencarian ke dalam variabel sCol
' asalnya dari nilai di cell C3 >> Range("c3").Value
sCol = Range("c3").Value
' masukkan kriteria pencarian ke dalam variabel vCrit
' asalnya dari nilai di cell C5 >> Range("c5").Value
vCrit = Range("c5").Value
' bekerja dengan sheet data
With Sheets("data")
' setiap object yang didahului titik berarti milik sheet data
' setiap object yang TIDAK didahului titik berarti milik sheet cari
' set lokasi rgFind
' berasal dari pencarian di sheet data cell A2 s/d J2 >>
.Range("a2:j2").Find
' yang dicari adalah sCol yaitu nilai dari cell C3 di sheet cari >>
sCol
' pencarian terhadap seluruh isi cell >> lookat:=xlWhole
' case sensitif >> MatchCase:=True
Set rgFind = .Range("a2:j2").Find(sCol, lookat:=xlWhole,
MatchCase:=True)
' setelah ditemukan, ambil nilai kolomnya >> rgFind.Column
' dan simpan ke dalam variabel iCol
iCol = rgFind.Column
' cari nilai baris data yang paling akhir >>
.Range("a2").CurrentRegion.Rows.Count
' dan simpan dalam variabel lRow
lRow = .Range("a2").CurrentRegion.Rows.Count
' atau bisa juga menggunakan script berikut
'lRow = .Cells(.Rows.Count, iCol).End(xlUp).Row
' set range data yang akan diuji nilainya >> Set rgData
' terletak pada sheet data
' mulai dari baris 3 dan kolom iCol >> .Cells(3, iCol)
' sampai dengan baris data terakhir pada kolom iCol >> .Cells(lRow,
iCol)
Set rgData = .Range(.Cells(3, iCol), .Cells(lRow, iCol))
' untuk setiap cel di dalam rgData
For Each rgCell In rgData
' cari di vCrit di setiap cell >> rgCell.Find(vCrit
' pencariannya boleh per bagian, tidak harus utuh >>
lookat:=xlPart
' boleh huruf besar atau kecil >> MatchCase:=False
Set rgFind = rgCell.Find(vCrit, lookat:=xlPart,
MatchCase:=False)
' uji apakah datanya ada atau tidak
' jika rgFind TIDAK x TIDAK ADA, maka
' atau jika ADA hasil yang sesuai, maka
' negatif x negatif = positif
' Not x Is Nothing = There is something
' Tidak x Tidak Ada = ADA
If Not rgFind Is Nothing Then
' jika datanya ada maka masuk ke proses ini
' pada area di sheet data >> .Range
' pada baris tersebut kolom 1 >> .Cells(rgCell.Row, 1)
' sampai baris tersebut kolom 10 >> .Cells(rgCell.Row, 10
' dilakukan proses copy >> .Copy
.Range(.Cells(rgCell.Row, 1), .Cells(rgCell.Row, 10)).Copy
' cari lokasi baris penulisan data yang baru di sheet cari
dengan cara
' dari baris data yang paling bawah di kolom 2 >>
Cells(Rows.Count,
2)
' pergi ke data di atasnya >> .End(xlUp)
' setara dengan menekan tombol CTRL panah_atas
' lalu turun 1 baris ke bawah >> .Offset(1)
' setara dengan menekan tombol panah_bawah
' lakukan paste special nilai dan format angkanya
' >> .PasteSpecial xlPasteValuesAndNumberFormats
Cells(Rows.Count, 2).End(xlUp).Offset(1).PasteSpecial
xlPasteValuesAndNumberFormats
' non-aktifkan proses copasnya
Application.CutCopyMode = False
' akhir dari pengujian
End If
' pindah ke cel berikutnya
Next rgCell
' akhir bekerja dengan sheet data
End With
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("data").Visible = xlSheetVeryHidden
' biar kelihatan bagus, letakan cel aktif di C5
Range("c5").Select
' akhir dari prosedur
End Sub
file terlampir
���������� ���������� ���������� ����� �������������
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
������ ��� ����� �������������
Pada 28 Juli 2013 13.05, merau23 <merau23@yahoo.com > menulis:
> **
>
>
> Dear Miss Jan Raisin,
>
> Mau tanya kalau misal databasenya di ada di sheet lain, itu bagaimana ya
> utk code VBAnya? Maaf saya tidak mengerti sama sekali dengan kode VBA. Tapi
> mau belajar :)
>
> Terimakasih
> Regards
>
coba script seperti ini:
Option Explicit
' ============
' cari data dari sheet lain '
' script by: Miss Jan Raisin '
' Biak, 11 Juli 2013 '
' untuk belajar-excel@
' revisi, Batu, Malang, 30 Juli 2013 '
' ============
' awal dari prosedur
Sub Cari()
' deklarasikan semua variabel yang dibutuhkan
' sCol >> digunakan untuk menyimpan nama header kolom
' yang akan dicari, tipe datanya String
Dim sCol As String
' rgFind >> digunakan untuk menyimpan range pencarian sCol
' dari sini akan diketahui header data terletak pada kolom
berapa
Dim rgFind As Range
' rgData >> digunakan untuk menyimpan range data berdasarkan
' letak kolom yang diketahui
' posisinya mulai 1 baris setelah header
' sampai data yang paling bawah
Dim rgData As Range
' rgCell adalah setiap range atau cell di dalam rgData
Dim rgCell As Range
' iCol >> digunakan untuk menyimpan nomor kolom rgFind
Dim iCol As Integer
' lRow >> digunakan untuk untuk menyimpan nomor baris akhir data
Dim lRow As Long
' vCrit >> digunakan untuk menyimpan kriteria
' berhubung kriteria bisa diisi dengan
' huruf, angka, atau kombinasi keduanya
' maka tipe data menggunakan variant
Dim vCrit As Variant
' lakukan proteksi pada sheet cari >> Sheets("
' tentukan passwordnya untuk protect/unprotect >> Password:="
' proteksi hanya untuk user saja, sedangkan vba tetap boleh bekerja
' >> userinterfaceonly:
Sheets("
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("
' hapus hasil pencarian sebelumnya >> .ClearContents
' mulai cell B8 >> Range("
' sampai dengan data paling kanan >> .End(xlToRight)
' setara dengan menekan tombol CTRL panah_kanan
' lalu sampai data yang paling bawah >> .End(xlDown)
' setara dengan menekan tombol CTRL panah_bawah
Range(Range(
' atau bisa juga dengan select seluruh data di sekitar cell B8
' >> Range("
' karena header di baris 7 juga ikut terpilih
' maka selectionnya harus turun 1 baris ke bawah >> .Offset(1)
' setelah itu hapus data yang ada >> .ClearContents
' Range("
' masukkan header kolom pencarian ke dalam variabel sCol
' asalnya dari nilai di cell C3 >> Range("
sCol = Range("
' masukkan kriteria pencarian ke dalam variabel vCrit
' asalnya dari nilai di cell C5 >> Range("
vCrit = Range("
' bekerja dengan sheet data
With Sheets("
' setiap object yang didahului titik berarti milik sheet data
' setiap object yang TIDAK didahului titik berarti milik sheet cari
' set lokasi rgFind
' berasal dari pencarian di sheet data cell A2 s/d J2 >>
.Range("
' yang dicari adalah sCol yaitu nilai dari cell C3 di sheet cari >>
sCol
' pencarian terhadap seluruh isi cell >> lookat:=xlWhole
' case sensitif >> MatchCase:=True
Set rgFind = .Range("
MatchCase:=True)
' setelah ditemukan, ambil nilai kolomnya >> rgFind.Column
' dan simpan ke dalam variabel iCol
iCol = rgFind.Column
' cari nilai baris data yang paling akhir >>
.Range("
' dan simpan dalam variabel lRow
lRow = .Range("
' atau bisa juga menggunakan script berikut
'lRow = .Cells(.Rows.
' set range data yang akan diuji nilainya >> Set rgData
' terletak pada sheet data
' mulai dari baris 3 dan kolom iCol >> .Cells(3, iCol)
' sampai dengan baris data terakhir pada kolom iCol >> .Cells(lRow,
iCol)
Set rgData = .Range(.Cells(
' untuk setiap cel di dalam rgData
For Each rgCell In rgData
' cari di vCrit di setiap cell >> rgCell.Find(
' pencariannya boleh per bagian, tidak harus utuh >>
lookat:=xlPart
' boleh huruf besar atau kecil >> MatchCase:=False
Set rgFind = rgCell.Find(
MatchCase:=False)
' uji apakah datanya ada atau tidak
' jika rgFind TIDAK x TIDAK ADA, maka
' atau jika ADA hasil yang sesuai, maka
' negatif x negatif = positif
' Not x Is Nothing = There is something
' Tidak x Tidak Ada = ADA
If Not rgFind Is Nothing Then
' jika datanya ada maka masuk ke proses ini
' pada area di sheet data >> .Range
' pada baris tersebut kolom 1 >> .Cells(rgCell.
' sampai baris tersebut kolom 10 >> .Cells(rgCell.
' dilakukan proses copy >> .Copy
.Range(.Cells(
' cari lokasi baris penulisan data yang baru di sheet cari
dengan cara
' dari baris data yang paling bawah di kolom 2 >>
Cells(Rows.Count,
2)
' pergi ke data di atasnya >> .End(xlUp)
' setara dengan menekan tombol CTRL panah_atas
' lalu turun 1 baris ke bawah >> .Offset(1)
' setara dengan menekan tombol panah_bawah
' lakukan paste special nilai dan format angkanya
' >> .PasteSpecial xlPasteValuesAndNum
Cells(Rows.Count, 2).End(xlUp)
xlPasteValuesAndNum
' non-aktifkan proses copasnya
Application.
' akhir dari pengujian
End If
' pindah ke cel berikutnya
Next rgCell
' akhir bekerja dengan sheet data
End With
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("
' biar kelihatan bagus, letakan cel aktif di C5
Range("
' akhir dari prosedur
End Sub
file terlampir
���������� ���������� ���������� ����� �������������
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
������ ��� ����� �������������
Pada 28 Juli 2013 13.05, merau23 <merau23@yahoo.
> **
>
>
> Dear Miss Jan Raisin,
>
> Mau tanya kalau misal databasenya di ada di sheet lain, itu bagaimana ya
> utk code VBAnya? Maaf saya tidak mengerti sama sekali dengan kode VBA. Tapi
> mau belajar :)
>
> Terimakasih
> Regards
>
Mon Jul 29, 2013 7:43 pm (PDT) . Posted by:
"Jan Raisin"
coba posting kembali dengan melampirkan sampel workbooknya.
hal ini akan memudahkan Be-Exceller yang ingin membantu memberikan solusi
���������� ���������� ���������� ����� �������������
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
������ ��� ����� �������������
Pada 29 Juli 2013 14.22, Nur <my_neiysh@yahoo.com > menulis:
> **
>
>
> Dear Be-eXeler,
>
> Mohon bantuannya untuk case mengurutkan nama kota, tanpa mengubah data
> yang (berupa angka) untuk kota tersebut. Serta bagaimana caranya memberikan
> highlight hanya pada angka minimum dan maksimum. Karena saya sudah mencoba
> dengan conditional formatting, yang diwarnai hampir semua range, bukan
> angka minimum dan maksimum saja.
>
> Terima kasih,
>
hal ini akan memudahkan Be-Exceller yang ingin membantu memberikan solusi
���������� ���������� ���������� ����� �������������
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
������ ��� ����� �������������
Pada 29 Juli 2013 14.22, Nur <my_neiysh@yahoo.
> **
>
>
> Dear Be-eXeler,
>
> Mohon bantuannya untuk case mengurutkan nama kota, tanpa mengubah data
> yang (berupa angka) untuk kota tersebut. Serta bagaimana caranya memberikan
> highlight hanya pada angka minimum dan maksimum. Karena saya sudah mencoba
> dengan conditional formatting, yang diwarnai hampir semua range, bukan
> angka minimum dan maksimum saja.
>
> Terima kasih,
>
Mon Jul 29, 2013 8:20 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Dear master.
Saya pingin menghilangkan sebagian teks berikut :
111-222-333 Menjadi 111-333
Adakah fungsi vba untuk keperluan tersebut ?
Terima kasih
<ymsgr:sendIM?heru.safrudin>;
Saya pingin menghilangkan sebagian teks berikut :
111-222-333 Menjadi 111-333
Adakah fungsi vba untuk keperluan tersebut ?
Terima kasih
<ymsgr:sendIM?
Mon Jul 29, 2013 8:25 pm (PDT) . Posted by:
"Jan Raisin"
pak Heru..
coba gunakan Left(text_nya, 3) & "-" & Right(textnya, 3)
���������� ���������� ���������� ����� �������������
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
������ ��� ����� �������������
Pada 30 Juli 2013 10.18, Heru Safrudin <superheruu@gmail.com > menulis:
> **
>
>
> Dear master�****
>
> ** **
>
> Saya pingin menghilangkan sebagian teks berikut :****
>
> ** **
>
> 111-222-333 Menjadi 111-333****
>
> ** **
>
> Adakah fungsi vba untuk keperluan tersebut ?****
>
> ** **
>
> Terima kasih****
>
> ** **
>
> ****** **
>
> ** **
>
>
>
coba gunakan Left(text_nya, 3) & "-" & Right(textnya, 3)
���������� ���������� ���������� ����� �������������
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
������ ��� ����� �������������
Pada 30 Juli 2013 10.18, Heru Safrudin <superheruu@gmail.
> **
>
>
> Dear master�****
>
> ** **
>
> Saya pingin menghilangkan sebagian teks berikut :****
>
> ** **
>
> 111-222-333 Menjadi 111-333****
>
> ** **
>
> Adakah fungsi vba untuk keperluan tersebut ?****
>
> ** **
>
> Terima kasih****
>
> ** **
>
> ****** **
>
> ** **
>
>
>
Mon Jul 29, 2013 8:30 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Heru,
Coba record macro untuk kegiatan manual berikut ini :
1. blok data yang akan dihilangkan bagian tengahnya (yaitu bagian mulai
dari dash sampai dash berikutnya diganti dengan dash saja)
2. jalankan fitur Replace (tekan CTRL H)
3. bagian Find what diisi teks berikut :
-*-
jika antara 2 dash pasti selalu terisi 3 karakter, ganti * dengan ???
4. bagian Replace with diisi karakter :
-
5. tekan Replace ALL
6. tutup dialog window replace
stop record disini.
kalo ndak salah, script VBA-nya nanti akan mirip seperti ini :
-> jika pakai -*-
Range("alamat_yang_akan_dihilangkan").Replace "-*-","-"
-> jika pakai -???-
Range("alamat_yang_akan_dihilangkan").Replace "-???-","-"
kalo ternyata salah dugaannya, mohon maaf lahir batin :)
Wassalam,
Kid.
2013/7/30 Heru Safrudin <superheruu@gmail.com >
> **
>
>
> Dear master�****
>
> ** **
>
> Saya pingin menghilangkan sebagian teks berikut :****
>
> ** **
>
> 111-222-333 Menjadi 111-333****
>
> ** **
>
> Adakah fungsi vba untuk keperluan tersebut ?****
>
> ** **
>
> Terima kasih****
>
> ** **
>
> ****** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
>
>
Coba record macro untuk kegiatan manual berikut ini :
1. blok data yang akan dihilangkan bagian tengahnya (yaitu bagian mulai
dari dash sampai dash berikutnya diganti dengan dash saja)
2. jalankan fitur Replace (tekan CTRL H)
3. bagian Find what diisi teks berikut :
-*-
jika antara 2 dash pasti selalu terisi 3 karakter, ganti * dengan ???
4. bagian Replace with diisi karakter :
-
5. tekan Replace ALL
6. tutup dialog window replace
stop record disini.
kalo ndak salah, script VBA-nya nanti akan mirip seperti ini :
-> jika pakai -*-
Range("
-> jika pakai -???-
Range("
kalo ternyata salah dugaannya, mohon maaf lahir batin :)
Wassalam,
Kid.
2013/7/30 Heru Safrudin <superheruu@gmail.
> **
>
>
> Dear master�****
>
> ** **
>
> Saya pingin menghilangkan sebagian teks berikut :****
>
> ** **
>
> 111-222-333 Menjadi 111-333****
>
> ** **
>
> Adakah fungsi vba untuk keperluan tersebut ?****
>
> ** **
>
> Terima kasih****
>
> ** **
>
> ****** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
>
>
Mon Jul 29, 2013 9:47 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Maaf ternyata penjelasan dan contoh saya yang saya berikan masih kurang
Perlu diketahui bahwa
- panjang teks berubah ubah dengan format kelipatan 3
- teks yang akan dihilangkan bisa di awal, tengah atau di akhir
Mr.Kid ,berarti pakai find and replace nggak bisa diterapkan karena teks
lain yang kebetulan sama yang berada di depan atau belakangnya bisa ikut
hilang
dari Miss Jan tidak bisa diterapkan karena posisi teks yg akan dihilangkan
posisinya tidak tentu
Biar sesuai dengan keadaan data sebenarnya tanda penghubung "-" saya
hilangkan, contoh :
111222333111 saya pingin kode 111 yg depan dihilangkan, hasil yg
diharapkan 222333111
222111333 saya pingin kode 111 dihilangkan, hasil yg diharapkan 222333
222333111222333 saya pingin kode 222 yg di tengah dihilangkan, hasil yg
diharapkan 222333111333
Bagaimana ?
<ymsgr:sendIM?heru.safrudin>;
<http://www.carajawab.com/?id=heru.safrudin >
_____
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 30 Juli 2013 10:30
To: BeExcel
Subject: Re: [belajar-excel] Memotong sebagian teks
Hai Heru,
Coba record macro untuk kegiatan manual berikut ini :
1. blok data yang akan dihilangkan bagian tengahnya (yaitu bagian mulai dari
dash sampai dash berikutnya diganti dengan dash saja)
2. jalankan fitur Replace (tekan CTRL H)
3. bagian Find what diisi teks berikut :
-*-
jika antara 2 dash pasti selalu terisi 3 karakter, ganti * dengan ???
4. bagian Replace with diisi karakter :
-
5. tekan Replace ALL
6. tutup dialog window replace
stop record disini.
kalo ndak salah, script VBA-nya nanti akan mirip seperti ini :
-> jika pakai -*-
Range("alamat_yang_akan_dihilangkan").Replace "-*-","-"
-> jika pakai -???-
Range("alamat_yang_akan_dihilangkan").Replace "-???-","-"
kalo ternyata salah dugaannya, mohon maaf lahir batin :)
Wassalam,
Kid.
2013/7/30 Heru Safrudin <superheruu@gmail.com >
Dear master.
Saya pingin menghilangkan sebagian teks berikut :
111-222-333 Menjadi 111-333
Adakah fungsi vba untuk keperluan tersebut ?
Terima kasih
Perlu diketahui bahwa
- panjang teks berubah ubah dengan format kelipatan 3
- teks yang akan dihilangkan bisa di awal, tengah atau di akhir
Mr.Kid ,berarti pakai find and replace nggak bisa diterapkan karena teks
lain yang kebetulan sama yang berada di depan atau belakangnya bisa ikut
hilang
dari Miss Jan tidak bisa diterapkan karena posisi teks yg akan dihilangkan
posisinya tidak tentu
Biar sesuai dengan keadaan data sebenarnya tanda penghubung "-" saya
hilangkan, contoh :
111222333111 saya pingin kode 111 yg depan dihilangkan, hasil yg
diharapkan 222333111
222111333 saya pingin kode 111 dihilangkan, hasil yg diharapkan 222333
222333111222333 saya pingin kode 222 yg di tengah dihilangkan, hasil yg
diharapkan 222333111333
Bagaimana ?
<ymsgr:sendIM?
<http://www.carajawa
_____
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 30 Juli 2013 10:30
To: BeExcel
Subject: Re: [belajar-excel] Memotong sebagian teks
Hai Heru,
Coba record macro untuk kegiatan manual berikut ini :
1. blok data yang akan dihilangkan bagian tengahnya (yaitu bagian mulai dari
dash sampai dash berikutnya diganti dengan dash saja)
2. jalankan fitur Replace (tekan CTRL H)
3. bagian Find what diisi teks berikut :
-*-
jika antara 2 dash pasti selalu terisi 3 karakter, ganti * dengan ???
4. bagian Replace with diisi karakter :
-
5. tekan Replace ALL
6. tutup dialog window replace
stop record disini.
kalo ndak salah, script VBA-nya nanti akan mirip seperti ini :
-> jika pakai -*-
Range("
-> jika pakai -???-
Range("
kalo ternyata salah dugaannya, mohon maaf lahir batin :)
Wassalam,
Kid.
2013/7/30 Heru Safrudin <superheruu@gmail.
Dear master.
Saya pingin menghilangkan sebagian teks berikut :
111-222-333 Menjadi 111-333
Adakah fungsi vba untuk keperluan tersebut ?
Terima kasih
Mon Jul 29, 2013 9:54 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Apa kriterianya hingga 111 atau 222 itu yang dipilih untuk dihilangkan ?
karena kurang gantengkah ?
Kid.
2013/7/30 Heru Safrudin <superheruu@gmail.com >
> **
>
>
> Maaf ternyata penjelasan dan contoh saya yang saya berikan masih kurang**
> **
>
> Perlu diketahui bahwa ****
>
> **- **panjang teks berubah ubah dengan format kelipatan 3****
>
> **- **teks yang akan dihilangkan bisa di awal, tengah atau di
> akhir ****
>
> Mr.Kid ,berarti pakai find and replace nggak bisa diterapkan karena teks
> lain yang kebetulan sama yang berada di depan atau belakangnya bisa ikut
> hilang****
>
> dari Miss Jan tidak bisa diterapkan karena posisi teks yg akan dihilangkan
> posisinya tidak tentu****
>
> Biar sesuai dengan keadaan data sebenarnya tanda penghubung �-� saya
> hilangkan, contoh :****
>
> ** **
>
> 111222333111 saya pingin kode 111 yg depan dihilangkan, hasil yg
> diharapkan 222333111****
>
> 222111333 saya pingin kode 111 dihilangkan, hasil yg diharapkan 222333 **
> **
>
> 222333111222333 saya pingin kode 222 yg di tengah dihilangkan, hasil yg
> diharapkan 222333111333 ****
>
> ** **
>
> Bagaimana ?****
>
> ** **
>
> ****** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> <http://www.carajawab.com/?id=heru.safrudin >****
>
> ****
> ------------------------------
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 30 Juli 2013 10:30
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Memotong sebagian teks****
>
> ** **
>
> ****
>
> Hai Heru,****
>
> Coba record macro untuk kegiatan manual berikut ini :****
>
> 1. blok data yang akan dihilangkan bagian tengahnya (yaitu bagian mulai
> dari dash sampai dash berikutnya diganti dengan dash saja)****
>
> 2. jalankan fitur Replace (tekan CTRL H)****
>
> 3. bagian Find what diisi teks berikut :
> -*-****
>
> jika antara 2 dash pasti selalu terisi 3 karakter, ganti * dengan ???****
>
> 4. bagian Replace with diisi karakter :
> -****
>
> 5. tekan Replace ALL****
>
> 6. tutup dialog window replace****
>
> stop record disini.****
>
> kalo ndak salah, script VBA-nya nanti akan mirip seperti ini :****
>
> -> jika pakai -*-****
>
> Range("alamat_yang_akan_dihilangkan").Replace "-*-","-"****
>
> ** **
>
> -> jika pakai -???-
> Range("alamat_yang_akan_dihilangkan").Replace "-???-","-"****
>
> ** **
>
> kalo ternyata salah dugaannya, mohon maaf lahir batin :)****
>
> ** **
>
> Wassalam,
> Kid.****
>
> ** **
>
> ** **
>
> 2013/7/30 Heru Safrudin <superheruu@gmail.com >****
>
> ****
>
> Dear master�****
>
> ****
>
> Saya pingin menghilangkan sebagian teks berikut :****
>
> ****
>
> 111-222-333 Menjadi 111-333****
>
> ****
>
> Adakah fungsi vba untuk keperluan tersebut ?****
>
> ****
>
> Terima kasih****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ** **
>
>
>
karena kurang gantengkah ?
Kid.
2013/7/30 Heru Safrudin <superheruu@gmail.
> **
>
>
> Maaf ternyata penjelasan dan contoh saya yang saya berikan masih kurang**
> **
>
> Perlu diketahui bahwa ****
>
> **- **panjang teks berubah ubah dengan format kelipatan 3****
>
> **- **teks yang akan dihilangkan bisa di awal, tengah atau di
> akhir ****
>
> Mr.Kid ,berarti pakai find and replace nggak bisa diterapkan karena teks
> lain yang kebetulan sama yang berada di depan atau belakangnya bisa ikut
> hilang****
>
> dari Miss Jan tidak bisa diterapkan karena posisi teks yg akan dihilangkan
> posisinya tidak tentu****
>
> Biar sesuai dengan keadaan data sebenarnya tanda penghubung �-� saya
> hilangkan, contoh :****
>
> ** **
>
> 111222333111 saya pingin kode 111 yg depan dihilangkan, hasil yg
> diharapkan 222333111***
>
> 222111333 saya pingin kode 111 dihilangkan, hasil yg diharapkan 222333 **
> **
>
> 222333111222333 saya pingin kode 222 yg di tengah dihilangkan, hasil yg
> diharapkan 222333111333 ****
>
> ** **
>
> Bagaimana ?****
>
> ** **
>
> ****** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> <http://www.carajawa
>
> ****
> ------------
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 30 Juli 2013 10:30
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Memotong sebagian teks****
>
> ** **
>
> ****
>
> Hai Heru,****
>
> Coba record macro untuk kegiatan manual berikut ini :****
>
> 1. blok data yang akan dihilangkan bagian tengahnya (yaitu bagian mulai
> dari dash sampai dash berikutnya diganti dengan dash saja)****
>
> 2. jalankan fitur Replace (tekan CTRL H)****
>
> 3. bagian Find what diisi teks berikut :
> -*-****
>
> jika antara 2 dash pasti selalu terisi 3 karakter, ganti * dengan ???****
>
> 4. bagian Replace with diisi karakter :
> -****
>
> 5. tekan Replace ALL****
>
> 6. tutup dialog window replace****
>
> stop record disini.****
>
> kalo ndak salah, script VBA-nya nanti akan mirip seperti ini :****
>
> -> jika pakai -*-****
>
> Range("
>
> ** **
>
> -> jika pakai -???-
> Range("
>
> ** **
>
> kalo ternyata salah dugaannya, mohon maaf lahir batin :)****
>
> ** **
>
> Wassalam,
> Kid.****
>
> ** **
>
> ** **
>
> 2013/7/30 Heru Safrudin <superheruu@gmail.
>
> ****
>
> Dear master�****
>
> ****
>
> Saya pingin menghilangkan sebagian teks berikut :****
>
> ****
>
> 111-222-333 Menjadi 111-333****
>
> ****
>
> Adakah fungsi vba untuk keperluan tersebut ?****
>
> ****
>
> Terima kasih****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ** **
>
>
>
Mon Jul 29, 2013 9:57 pm (PDT) . Posted by:
"Jan Raisin"
pak Heru..
bagaimana cara menentukan text mana yang akan dihilangkan?
apakah random terserah komputernya? atau semau-maunya user?
atau mungkin begini kali ya..
input box 1: text awal yang akan dihilangkan
input box 2: posisi awal karakter yang mau dihilangkan
input box 3: panjang karakter yang mau dihilangkan
tapi kalo benar seperti itu.. kenapa tidak dihapus manual saja xixixix ^_^
maaf,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 30 Juli 2013 11.36, Heru Safrudin <superheruu@gmail.com > menulis:
> **
>
>
> Maaf ternyata penjelasan dan contoh saya yang saya berikan masih kurang**
> **
>
> Perlu diketahui bahwa ****
>
> **- **panjang teks berubah ubah dengan format kelipatan 3****
>
> **- **teks yang akan dihilangkan bisa di awal, tengah atau di
> akhir ****
>
> Mr.Kid ,berarti pakai find and replace nggak bisa diterapkan karena teks
> lain yang kebetulan sama yang berada di depan atau belakangnya bisa ikut
> hilang****
>
> dari Miss Jan tidak bisa diterapkan karena posisi teks yg akan dihilangkan
> posisinya tidak tentu****
>
> Biar sesuai dengan keadaan data sebenarnya tanda penghubung "-" saya
> hilangkan, contoh :****
>
> ** **
>
> 111222333111 saya pingin kode 111 yg depan dihilangkan, hasil yg
> diharapkan 222333111****
>
> 222111333 saya pingin kode 111 dihilangkan, hasil yg diharapkan 222333 **
> **
>
> 222333111222333 saya pingin kode 222 yg di tengah dihilangkan, hasil yg
> diharapkan 222333111333 ****
>
> ** **
>
> Bagaimana ?****
>
> ** **
>
> ****** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> <http://www.carajawab.com/?id=heru.safrudin >****
>
> ****
> ------------------------------
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 30 Juli 2013 10:30
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Memotong sebagian teks****
>
> ** **
>
> ****
>
> Hai Heru,****
>
> Coba record macro untuk kegiatan manual berikut ini :****
>
> 1. blok data yang akan dihilangkan bagian tengahnya (yaitu bagian mulai
> dari dash sampai dash berikutnya diganti dengan dash saja)****
>
> 2. jalankan fitur Replace (tekan CTRL H)****
>
> 3. bagian Find what diisi teks berikut :
> -*-****
>
> jika antara 2 dash pasti selalu terisi 3 karakter, ganti * dengan ???****
>
> 4. bagian Replace with diisi karakter :
> -****
>
> 5. tekan Replace ALL****
>
> 6. tutup dialog window replace****
>
> stop record disini.****
>
> kalo ndak salah, script VBA-nya nanti akan mirip seperti ini :****
>
> -> jika pakai -*-****
>
> Range("alamat_yang_akan_dihilangkan").Replace "-*-","-"****
>
> ** **
>
> -> jika pakai -???-
> Range("alamat_yang_akan_dihilangkan").Replace "-???-","-"****
>
> ** **
>
> kalo ternyata salah dugaannya, mohon maaf lahir batin :)****
>
> ** **
>
> Wassalam,
> Kid.****
>
> ** **
>
> ** **
>
> 2013/7/30 Heru Safrudin <superheruu@gmail.com >****
>
> ****
>
> Dear master…****
>
> ****
>
> Saya pingin menghilangkan sebagian teks berikut :****
>
> ****
>
> 111-222-333 Menjadi 111-333****
>
> ****
>
> Adakah fungsi vba untuk keperluan tersebut ?****
>
> ****
>
> Terima kasih****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ** **
>
>
>
bagaimana cara menentukan text mana yang akan dihilangkan?
apakah random terserah komputernya? atau semau-maunya user?
atau mungkin begini kali ya..
input box 1: text awal yang akan dihilangkan
input box 2: posisi awal karakter yang mau dihilangkan
input box 3: panjang karakter yang mau dihilangkan
tapi kalo benar seperti itu.. kenapa tidak dihapus manual saja xixixix ^_^
maaf,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 30 Juli 2013 11.36, Heru Safrudin <superheruu@gmail.
> **
>
>
> Maaf ternyata penjelasan dan contoh saya yang saya berikan masih kurang**
> **
>
> Perlu diketahui bahwa ****
>
> **- **panjang teks berubah ubah dengan format kelipatan 3****
>
> **- **teks yang akan dihilangkan bisa di awal, tengah atau di
> akhir ****
>
> Mr.Kid ,berarti pakai find and replace nggak bisa diterapkan karena teks
> lain yang kebetulan sama yang berada di depan atau belakangnya bisa ikut
> hilang****
>
> dari Miss Jan tidak bisa diterapkan karena posisi teks yg akan dihilangkan
> posisinya tidak tentu****
>
> Biar sesuai dengan keadaan data sebenarnya tanda penghubung "-" saya
> hilangkan, contoh :****
>
> ** **
>
> 111222333111 saya pingin kode 111 yg depan dihilangkan, hasil yg
> diharapkan 222333111***
>
> 222111333 saya pingin kode 111 dihilangkan, hasil yg diharapkan 222333 **
> **
>
> 222333111222333 saya pingin kode 222 yg di tengah dihilangkan, hasil yg
> diharapkan 222333111333 ****
>
> ** **
>
> Bagaimana ?****
>
> ** **
>
> ****** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> <http://www.carajawa
>
> ****
> ------------
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 30 Juli 2013 10:30
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Memotong sebagian teks****
>
> ** **
>
> ****
>
> Hai Heru,****
>
> Coba record macro untuk kegiatan manual berikut ini :****
>
> 1. blok data yang akan dihilangkan bagian tengahnya (yaitu bagian mulai
> dari dash sampai dash berikutnya diganti dengan dash saja)****
>
> 2. jalankan fitur Replace (tekan CTRL H)****
>
> 3. bagian Find what diisi teks berikut :
> -*-****
>
> jika antara 2 dash pasti selalu terisi 3 karakter, ganti * dengan ???****
>
> 4. bagian Replace with diisi karakter :
> -****
>
> 5. tekan Replace ALL****
>
> 6. tutup dialog window replace****
>
> stop record disini.****
>
> kalo ndak salah, script VBA-nya nanti akan mirip seperti ini :****
>
> -> jika pakai -*-****
>
> Range("
>
> ** **
>
> -> jika pakai -???-
> Range("
>
> ** **
>
> kalo ternyata salah dugaannya, mohon maaf lahir batin :)****
>
> ** **
>
> Wassalam,
> Kid.****
>
> ** **
>
> ** **
>
> 2013/7/30 Heru Safrudin <superheruu@gmail.
>
> ****
>
> Dear master…****
>
> ****
>
> Saya pingin menghilangkan sebagian teks berikut :****
>
> ****
>
> 111-222-333 Menjadi 111-333****
>
> ****
>
> Adakah fungsi vba untuk keperluan tersebut ?****
>
> ****
>
> Terima kasih****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ** **
>
>
>
Mon Jul 29, 2013 10:07 pm (PDT) . Posted by:
"De Premor" de.premor
Miss Jan, buatkan donk addins yang bisa membaca pikiran dan kemauan
user, jadi kalau ketemu yg macam beginian kan enak
tinggal diaplikasikan ke rumus
=SUBSTITUTE(A1,BacaPikiran("Pak
Heru","Sekarang",Mode_Angka),"",BacaPikiran("Pak
Heru","Sekarang",Mode_Posisi))
Jadi rumus langsung bisa tahu kalau yang dimau itu angka 111 yang
didepan ato yg dibelakang
(^_^)
Pada 30/07/2013 11:56, Jan Raisin menulis:
> pak Heru..
>
> bagaimana cara menentukan text mana yang akan dihilangkan?
> apakah random terserah komputernya? atau semau-maunya user?
>
> atau mungkin begini kali ya..
> input box 1: text awal yang akan dihilangkan
> input box 2: posisi awal karakter yang mau dihilangkan
> input box 3: panjang karakter yang mau dihilangkan
>
> tapi kalo benar seperti itu.. kenapa tidak dihapus manual saja xixixix ^_^
>
> maaf,
>
> -Miss Jan Raisin-
>
> * Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
> *_hanya_*ke belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com > bukan dikirim japri ke
> email pribadi member milis;
> * Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan orang-orang yang sabar QS 2:153;
> * Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller
> yang memiliki waktu untuk on line, mengetahui solusi atas
> pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa
> mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS),
> selain itu Be-Excelller juga memiliki kewajiban yang harus
> dipenuhi di dunia nyata sehingga tidak selalu bisa on line setiap
> saat;
> * Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat
> nanti. اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
>
>
>
> Pada 30 Juli 2013 11.36, Heru Safrudin <superheruu@gmail.com
> <mailto:superheruu@gmail.com >> menulis:
>
> Maaf ternyata penjelasan dan contoh saya yang saya berikan masih
> kurang
>
> Perlu diketahui bahwa
>
> -panjang teks berubah ubah dengan format kelipatan 3
>
> -teks yang akan dihilangkan bisa di awal, tengah atau di akhir
>
> Mr.Kid ,berarti pakai find and replace nggak bisa diterapkan
> karena teks lain yang kebetulan sama yang berada di depan atau
> belakangnya bisa ikut hilang
>
> dari Miss Jan tidak bisa diterapkan karena posisi teks yg akan
> dihilangkan posisinya tidak tentu
>
> Biar sesuai dengan keadaan data sebenarnya tanda penghubung "-"
> saya hilangkan, contoh :
>
> 111222333111 saya pingin kode 111 yg depan dihilangkan, hasil yg
> diharapkan 222333111
>
> 222111333 saya pingin kode 111 dihilangkan, hasil yg diharapkan
> 222333
>
> 222333111222333 saya pingin kode 222 yg di tengah dihilangkan,
> hasil yg diharapkan 222333111333
>
> Bagaimana ?
>
>
> ----------------------------------------------------------
>
> *From:*belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com >
> [mailto:belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com >] *On Behalf Of *Mr. Kid
> *Sent:* 30 Juli 2013 10:30
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Memotong sebagian teks
>
> Hai Heru,
>
> Coba record macro untuk kegiatan manual berikut ini :
>
> 1. blok data yang akan dihilangkan bagian tengahnya (yaitu bagian
> mulai dari dash sampai dash berikutnya diganti dengan dash saja)
>
> 2. jalankan fitur Replace (tekan CTRL H)
>
> 3. bagian Find what diisi teks berikut :
> -*-
>
> jika antara 2 dash pasti selalu terisi 3 karakter, ganti * dengan ???
>
> 4. bagian Replace with diisi karakter :
> -
>
> 5. tekan Replace ALL
>
> 6. tutup dialog window replace
>
> stop record disini.
>
> kalo ndak salah, script VBA-nya nanti akan mirip seperti ini :
>
> -> jika pakai -*-
>
> Range("alamat_yang_akan_dihilangkan").Replace "-*-","-"
>
> -> jika pakai -???-
> Range("alamat_yang_akan_dihilangkan").Replace "-???-","-"
>
> kalo ternyata salah dugaannya, mohon maaf lahir batin :)
>
> Wassalam,
> Kid.
>
> 2013/7/30 Heru Safrudin <superheruu@gmail.com
> <mailto:superheruu@gmail.com >>
>
> Dear master…
>
> Saya pingin menghilangkan sebagian teks berikut :
>
> 111-222-333 Menjadi 111-333
>
> Adakah fungsi vba untuk keperluan tersebut ?
>
> Terima kasih
>
>
>
user, jadi kalau ketemu yg macam beginian kan enak
tinggal diaplikasikan ke rumus
=SUBSTITUTE(
Heru","
Heru","
Jadi rumus langsung bisa tahu kalau yang dimau itu angka 111 yang
didepan ato yg dibelakang
(^_^)
Pada 30/07/2013 11:56, Jan Raisin menulis:
> pak Heru..
>
> bagaimana cara menentukan text mana yang akan dihilangkan?
> apakah random terserah komputernya? atau semau-maunya user?
>
> atau mungkin begini kali ya..
> input box 1: text awal yang akan dihilangkan
> input box 2: posisi awal karakter yang mau dihilangkan
> input box 3: panjang karakter yang mau dihilangkan
>
> tapi kalo benar seperti itu.. kenapa tidak dihapus manual saja xixixix ^_^
>
> maaf,
>
> -Miss Jan Raisin-
>
> * Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
> *_hanya_*ke belajar-excel@
> <mailto:belajar-excel@
> email pribadi member milis;
> * Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan orang-orang yang sabar QS 2:153;
> * Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller
> yang memiliki waktu untuk on line, mengetahui solusi atas
> pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa
> mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS),
> selain itu Be-Excelller juga memiliki kewajiban yang harus
> dipenuhi di dunia nyata sehingga tidak selalu bisa on line setiap
> saat;
> * Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat
> nanti. اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
>
>
>
> Pada 30 Juli 2013 11.36, Heru Safrudin <superheruu@gmail.
> <mailto:superheruu@gmail.
>
> Maaf ternyata penjelasan dan contoh saya yang saya berikan masih
> kurang
>
> Perlu diketahui bahwa
>
> -panjang teks berubah ubah dengan format kelipatan 3
>
> -teks yang akan dihilangkan bisa di awal, tengah atau di akhir
>
> Mr.Kid ,berarti pakai find and replace nggak bisa diterapkan
> karena teks lain yang kebetulan sama yang berada di depan atau
> belakangnya bisa ikut hilang
>
> dari Miss Jan tidak bisa diterapkan karena posisi teks yg akan
> dihilangkan posisinya tidak tentu
>
> Biar sesuai dengan keadaan data sebenarnya tanda penghubung "-"
> saya hilangkan, contoh :
>
> 111222333111 saya pingin kode 111 yg depan dihilangkan, hasil yg
> diharapkan 222333111
>
> 222111333 saya pingin kode 111 dihilangkan, hasil yg diharapkan
> 222333
>
> 222333111222333 saya pingin kode 222 yg di tengah dihilangkan,
> hasil yg diharapkan 222333111333
>
> Bagaimana ?
>
>
> ------------
>
> *From:*belajar-excel@
> <mailto:belajar-excel@
> [mailto:belajar-excel@
> <mailto:belajar-excel@
> *Sent:* 30 Juli 2013 10:30
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Memotong sebagian teks
>
> Hai Heru,
>
> Coba record macro untuk kegiatan manual berikut ini :
>
> 1. blok data yang akan dihilangkan bagian tengahnya (yaitu bagian
> mulai dari dash sampai dash berikutnya diganti dengan dash saja)
>
> 2. jalankan fitur Replace (tekan CTRL H)
>
> 3. bagian Find what diisi teks berikut :
> -*-
>
> jika antara 2 dash pasti selalu terisi 3 karakter, ganti * dengan ???
>
> 4. bagian Replace with diisi karakter :
> -
>
> 5. tekan Replace ALL
>
> 6. tutup dialog window replace
>
> stop record disini.
>
> kalo ndak salah, script VBA-nya nanti akan mirip seperti ini :
>
> -> jika pakai -*-
>
> Range("
>
> -> jika pakai -???-
> Range("
>
> kalo ternyata salah dugaannya, mohon maaf lahir batin :)
>
> Wassalam,
> Kid.
>
> 2013/7/30 Heru Safrudin <superheruu@gmail.
> <mailto:superheruu@gmail.
>
> Dear master…
>
> Saya pingin menghilangkan sebagian teks berikut :
>
> 111-222-333 Menjadi 111-333
>
> Adakah fungsi vba untuk keperluan tersebut ?
>
> Terima kasih
>
>
>
Mon Jul 29, 2013 8:36 pm (PDT) . Posted by:
"Budi Agung" agung_teacher
para be-excel, mohon bantuannya...
saya memiliki kendala tentang penulisan fungsi terbilang pada raport, begini contohnya Nilai Akhir didapat dari beberapa perhitungan yang menghasilkan nilai 8,67632 (contoh pada value cell) dan 8,68 (pada tampilan cell setelah saya format decrease decimal 2 angka dibelakang koma) kemudian saya menggunakan fungsi terbilang yang saya download dari internet sehingga keluar Delapan koma enam tujuh. Ingin saya muncul Delapan koma enam delapan (sesuai dengan tampilan pada cell). mohon bantuan teman-teman excel, file contoh saya lampirkan...
saya memiliki kendala tentang penulisan fungsi terbilang pada raport, begini contohnya Nilai Akhir didapat dari beberapa perhitungan yang menghasilkan nilai 8,67632 (contoh pada value cell) dan 8,68 (pada tampilan cell setelah saya format decrease decimal 2 angka dibelakang koma) kemudian saya menggunakan fungsi terbilang yang saya download dari internet sehingga keluar Delapan koma enam tujuh. Ingin saya muncul Delapan koma enam delapan (sesuai dengan tampilan pada cell). mohon bantuan teman-teman excel, file contoh saya lampirkan...
Mon Jul 29, 2013 8:38 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Agung,
coba gunakan UDF terbilangnya sebagai berikut :
=Terbilang( Round( nilainya , 2 ) )
Wassalam,
Kid.
2013/7/30 Budi Agung <agung_teacher@yahoo.com >
> **
>
>
> para be-excel, mohon bantuannya...
> saya memiliki kendala tentang penulisan fungsi terbilang pada raport,
> begini contohnya Nilai Akhir didapat dari beberapa perhitungan yang
> menghasilkan nilai 8,67632 (contoh pada value cell) dan 8,68 (pada tampilan
> cell setelah saya format decrease decimal 2 angka dibelakang koma) kemudian
> saya menggunakan fungsi terbilang yang saya download dari internet sehingga
> keluar Delapan koma enam tujuh. Ingin saya muncul Delapan koma enam
> delapan (sesuai dengan tampilan pada cell). mohon bantuan teman-teman
> excel, file contoh saya lampirkan...
>
>
>
coba gunakan UDF terbilangnya sebagai berikut :
=Terbilang( Round( nilainya , 2 ) )
Wassalam,
Kid.
2013/7/30 Budi Agung <agung_teacher@
> **
>
>
> para be-excel, mohon bantuannya..
> saya memiliki kendala tentang penulisan fungsi terbilang pada raport,
> begini contohnya Nilai Akhir didapat dari beberapa perhitungan yang
> menghasilkan nilai 8,67632 (contoh pada value cell) dan 8,68 (pada tampilan
> cell setelah saya format decrease decimal 2 angka dibelakang koma) kemudian
> saya menggunakan fungsi terbilang yang saya download dari internet sehingga
> keluar Delapan koma enam tujuh. Ingin saya muncul Delapan koma enam
> delapan (sesuai dengan tampilan pada cell). mohon bantuan teman-teman
> excel, file contoh saya lampirkan...
>
>
>
Mon Jul 29, 2013 9:01 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Hi Budi,
Coba pelajari file terlampir (kayaknya dari Mbak Siti)
Salam,
HK
________________________________
From: Budi Agung <agung_teacher@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 29 July 2013, 20:23
Subject: [belajar-excel] Terbilang sesuai dengan value
para be-excel, mohon bantuannya...
saya memiliki kendala tentang penulisan fungsi terbilang pada raport, begini contohnya Nilai Akhir didapat dari beberapa perhitungan yang menghasilkan nilai 8,67632 (contoh pada value cell) dan 8,68 (pada tampilan cell setelah saya format decrease decimal 2 angka dibelakang koma) kemudian saya menggunakan fungsi terbilang yang saya download dari internet sehingga keluar Delapan koma enam tujuh. Ingin saya muncul Delapan koma enam delapan (sesuai dengan tampilan pada cell). mohon bantuan teman-teman excel, file contoh saya lampirkan...
Coba pelajari file terlampir (kayaknya dari Mbak Siti)
Salam,
HK
____________
From: Budi Agung <agung_teacher@
To: "belajar-excel@
Sent: Monday, 29 July 2013, 20:23
Subject: [belajar-excel] Terbilang sesuai dengan value
para be-excel, mohon bantuannya..
saya memiliki kendala tentang penulisan fungsi terbilang pada raport, begini contohnya Nilai Akhir didapat dari beberapa perhitungan yang menghasilkan nilai 8,67632 (contoh pada value cell) dan 8,68 (pada tampilan cell setelah saya format decrease decimal 2 angka dibelakang koma) kemudian saya menggunakan fungsi terbilang yang saya download dari internet sehingga keluar Delapan koma enam tujuh. Ingin saya muncul Delapan koma enam delapan (sesuai dengan tampilan pada cell). mohon bantuan teman-teman excel, file contoh saya lampirkan...
GROUP FOOTER MESSAGE
=====================================================================
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