[belajar-excel] Digest Number 1410

Milis Belajar Microsoft Excel

Messages In This Digest (25 Messages)

1a.

Re: men-tidak jadi milih cell From: Haps

1b.

Re: men-tidak jadi milih cell From: Kid Mr.

1c.

Re: men-tidak jadi milih cell From: Kid Mr.

1d.

Re: men-tidak jadi milih cell From: ppc lambda

1e.

Re: men-tidak jadi milih cell From: jkssxls Sudarsono

1f.

Re: men-tidak jadi milih cell From: jkssxls Sudarsono

2a.

Re: Bls: [belajar-excel] Help, bulan romawi From: Haps

3a.

Re: lookup untuk mendapatkan hasil yang ke-1, ke-2, dst From: jkssxls Sudarsono

3b.

Re: lookup untuk mendapatkan hasil yang ke-1, ke-2, dst From: yulian nugroho

3c.

Bls: [belajar-excel] lookup untuk mendapatkan hasil yang ke-1, ke-2, From: dwint ruswanto

3d.

Re: lookup untuk mendapatkan hasil yang ke-1, ke-2, dst From: Haps

4a.

Tanya worksheet yang tampil ketika file di buka From: Asror Al-Aliif's

4b.

Re: Tanya worksheet yang tampil ketika file di buka From: Haps

4c.

Re: Tanya worksheet yang tampil ketika file di buka From: Asror Al-Aliif's

4d.

Re: Tanya worksheet yang tampil ketika file di buka From: Haps

5.

Fungsi LARGE dengan Data Kembar From: afif farihin

6a.

Menyisipkan 3 blankcell antar kelompok data From: andri apriyadi

6b.

Re: Menyisipkan 3 blankcell antar kelompok data From: Haps

6c.

Re: Menyisipkan 3 blankcell antar kelompok data From: Haps

6d.

Bls: [belajar-excel] Menyisipkan 3 blankcell antar kelompok data From: ghozi alkatiri

6e.

Re: Menyisipkan 3 blankcell antar kelompok data From: Haps

7a.

Bls: [belajar-excel] [ask] cara menghitung jam terlambat karyawan From: Kusnadi Bin zain

8a.

Mewarnai kursor From: hartini_80@yahoo.co.id

8b.

Re: Mewarnai kursor From: hendrik karnadi

8c.

Re: Mewarnai kursor From: hartini_80@yahoo.co.id

View All Topics | Create New Topic

Messages

1a.

Re: men-tidak jadi milih cell

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Nov 23, 2011 8:46 am (PST)

penjelasan:
1.
makro dari hapsari memang dibuat dengan banyak Variable, dengan tujuan:
agar tiap tahap perjalananna enuju ke pepecahan masalah dapat mudah diikuti.
setelah faham, beberapa variable dapat di hilangkan, hanya tinggal
variables yg
memang diperlukan saja
mohon maaf jika cara itu ternyata tidak sesuai kehendak...
kemungkinan kesalahan tulis maupun salah logika juga bisa terjadi dari
haps-nya

2.
kalau ada waktu, mohon laporan mengenai bugs nya
misal ada data di *A1:B10*

urutan MULTI selection-nya
A10
A3:A6
A1
A9
B4:B5
A2
B7:B9
A7:A8
B2

Sekarang mohon dicoba "Unselect" by step mundurnya apa sudah bagus
(kalau boleh kedua makro dicoba bergantian) dengan menghadapi kondisi yg
sama

2011/11/23 Iwan ˜uryawan <iwan@asco.co.id>
>
> Ternyata harus pakai macro ya. Sebelumnya lumayan alergi kalo berurusan
sama machluk satu ini,
> akhirnya mesti kenalan juga skrg...
> Mbak Hapsari dan Pak Sudarsono terima kasih, keduanya berjalan dengan
baik. Untuk saat ini
> saya pakai coding punya Pak Sudarsono yang bisa fleksibel dalam
meng-unselect-nya dengan tambahan
> pemahaman tentang macro dari Mbak Haps.
> Salam
> | suryawan arief | iwan |

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1b.

Re: men-tidak jadi milih cell

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Nov 23, 2011 11:05 am (PST)

Coba pada jumlah cell terselect sekitar 12 kolom (seluruh row) pada file
terlampir.
Kemudian untuk unselect sebuah cell, tekan Ctrl dan klik cell yang akan di
unselect.

Moga-moga gak terlalu lama prosesnya.

Wassalam,
Kid.

2011/11/23 Kid Mr. <mr.nmkid@gmail.com>

> Oh udah ditutup ya.
>
> Tapi gpp, sapa tahu mau coba dengan event selection change-nya wprksheet.
> Mungkin kalau diletakkan di workbook sheet selection change event juga
> bisa jadi lebih bagus ya...
>
> Berikut script worksheet event selection change :
> Private rng As Range, rngLastAktif As Range
>
> Private Sub Worksheet_Activate()
> Set rngLastAktif = ActiveCell
> Set rng = Selection
> End Sub
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Dim rngTmp As Range
> Dim lNew As Long
>
> 'cek : obj ada isi proses terakhir
> If rngLastAktif Is Nothing Then
> Set rngLastAktif = ActiveCell
> Exit Sub
> ElseIf rng Is Nothing Then
> Set rng = Selection
> Exit Sub
> End If
>
> 'hitung : range baru
> For Each rngTmp In Selection
> If Intersect(rngTmp, rng) Is Nothing Then
> lNew = lNew + 1
> End If
> Next rngTmp
>
> 'cek by range baru
> If lNew > 0 Then 'ada
> Set rng = Target
> ElseIf rng.Count > 1 Then 'gak ada dan ter-select > 1
> Set rng = Nothing
> For Each rngTmp In Selection
> If Intersect(rngTmp, ActiveCell) Is Nothing Then
> If rng Is Nothing Then
> Set rng = rngTmp
> Else
> Set rng = Union(rngTmp, rng)
> End If
> End If
> Next rngTmp
> Application.EnableEvents = False
> rng.Select
> Application.EnableEvents = True
> End If
> Set rngLastAktif = ActiveCell
> End Sub
>
> 'sayangnya, yang dihilangkan masih satu per satu
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
>
> 2011/11/23 Iwan Ú©uryawan <iwan@asco.co.id>
>
>> **
>>
>>
>> ** Ternyata harus pakai macro ya. Sebelumnya lumayan alergi kalo
>> berurusan sama machluk satu ini, akhirnya mesti kenalan juga skrg...
>> Mbak Hapsari dan Pak Sudarsono terima kasih, keduanya berjalan dengan
>> baik. Untuk saat ini saya pakai coding punya Pak Sudarsono yang bisa
>> fleksibel dalam meng-unselect-nya dengan tambahan pemahaman tentang macro
>> dari Mbak Haps.
>>
>> *Salam
>> **| suryawan arief | iwan |
>> *
>>
>>
>> On Tue, 22 Nov 2011 13:26:33 +0700 (SE Asia Standard Time)
>> Haps <hapsari.stlizbeth@gmail.com> <hapsari.stlizbeth@gmail.com> menulis
>> begini:
>>
>> makro ini meng UnSelect *Cell yg terakhir diselect* dalam*MultiSelection,
>> *sambil
>> mengaktifkan cell yg diselect sebelum-*nya*
>> Jadi, jika di jalankan berkali kali, ia akan menselect "mundur" dengan
>> urutan kebalikan
>> dari urutan saat anda menselectnya meskipun urutannya aneh (maju-mundur
>> 'gak-genah!)
>>
>> Makro dapat di beri option untuk dijalankan dengan* Keyboard-Shortcut*,
>> misalnya
>> [ Ctrl + k ] atau [ Ctrl + Shift + K] atau huruf pilihan anda sendiri.
>>
>> Jika dirasa benar dan ada gunanya, makro ini dapat anda rekam di *Personal
>> Makro Workbook*,
>> dengan maksud agar dapat berlaku pada semua workbook yg sedang anda buka.
>>
>> f.y.i. : *Personal Workbook* selalu dibuka (sbg workbook tersembunyi)
>> pada saat excel diaktifkan.
>>
>>
>> Sub UndoLastSelect()
>> *' coded by Hapsari / nov 22, 2011*
>> *' unselect last activecell*
>> *' Kibor-Shortcut: Ctrl + Shift + K*
>> *'----------------------------------*
>> Dim SelAdrs As String, ActAdrs As String
>> Dim NewAdrs As String, NewActv As String
>> Dim Tempe As Variant
>>
>> SelAdrs = Selection.Address(False, False)
>> ActAdrs = ActiveCell.Address(False, False)
>> NewAdrs = Replace(SelAdrs, "," & ActAdrs, vbNullString)
>> Tempe = Split(NewAdrs, ",")
>> NewActv = Tempe(UBound(Tempe))
>>
>> Range(NewAdrs).Select
>> Range(NewActv).Activate
>>
>> End Sub
>>
>>
>>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1c.

Re: men-tidak jadi milih cell

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Nov 23, 2011 11:24 am (PST)

Ada yang gak pas di workbook open. Jadi, file yang lalu diabaikan saja.
Coba file terlampir yang baru ini saja ya.

Select seperti biasa, bisa manfaatkan Shift unuk membuat sebuah area
terselect, bisa menggunakan Ctrl untuk membentuk area baru terselect.
Untuk unselect, tekan tombol Ctrl dan klik sebuah cell yang sudah terselect.

Dicoba untuk jumlah cells terselect yang buanyak, siapa tahu muncul bug nya.
Jika bertemu bug, mohon kerjasama untuk laporan bugnya.

Wassalam,
Kid.

2011/11/24 Kid Mr. <mr.nmkid@gmail.com>

> Coba pada jumlah cell terselect sekitar 12 kolom (seluruh row) pada file
> terlampir.
> Kemudian untuk unselect sebuah cell, tekan Ctrl dan klik cell yang akan di
> unselect.
>
> Moga-moga gak terlalu lama prosesnya.
>
> Wassalam,
> Kid.
>
> 2011/11/23 Kid Mr. <mr.nmkid@gmail.com>
>
> Oh udah ditutup ya.
>>
>> Tapi gpp, sapa tahu mau coba dengan event selection change-nya wprksheet.
>> Mungkin kalau diletakkan di workbook sheet selection change event juga
>> bisa jadi lebih bagus ya...
>>
>> Berikut script worksheet event selection change :
>> Private rng As Range, rngLastAktif As Range
>>
>> Private Sub Worksheet_Activate()
>> Set rngLastAktif = ActiveCell
>> Set rng = Selection
>> End Sub
>>
>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> Dim rngTmp As Range
>> Dim lNew As Long
>>
>> 'cek : obj ada isi proses terakhir
>> If rngLastAktif Is Nothing Then
>> Set rngLastAktif = ActiveCell
>> Exit Sub
>> ElseIf rng Is Nothing Then
>> Set rng = Selection
>> Exit Sub
>> End If
>>
>> 'hitung : range baru
>> For Each rngTmp In Selection
>> If Intersect(rngTmp, rng) Is Nothing Then
>> lNew = lNew + 1
>> End If
>> Next rngTmp
>>
>> 'cek by range baru
>> If lNew > 0 Then 'ada
>> Set rng = Target
>> ElseIf rng.Count > 1 Then 'gak ada dan ter-select > 1
>> Set rng = Nothing
>> For Each rngTmp In Selection
>> If Intersect(rngTmp, ActiveCell) Is Nothing Then
>> If rng Is Nothing Then
>> Set rng = rngTmp
>> Else
>> Set rng = Union(rngTmp, rng)
>> End If
>> End If
>> Next rngTmp
>> Application.EnableEvents = False
>> rng.Select
>> Application.EnableEvents = True
>> End If
>> Set rngLastAktif = ActiveCell
>> End Sub
>>
>> 'sayangnya, yang dihilangkan masih satu per satu
>>
>> Wassalamualaikum Wr. Wb.
>> Kid.
>>
>>
>> 2011/11/23 Iwan Ú©uryawan <iwan@asco.co.id>
>>
>>> **
>>>
>>>
>>> ** Ternyata harus pakai macro ya. Sebelumnya lumayan alergi kalo
>>> berurusan sama machluk satu ini, akhirnya mesti kenalan juga skrg...
>>> Mbak Hapsari dan Pak Sudarsono terima kasih, keduanya berjalan dengan
>>> baik. Untuk saat ini saya pakai coding punya Pak Sudarsono yang bisa
>>> fleksibel dalam meng-unselect-nya dengan tambahan pemahaman tentang macro
>>> dari Mbak Haps.
>>>
>>> *Salam
>>> **| suryawan arief | iwan |
>>> *
>>>
>>>
>>> On Tue, 22 Nov 2011 13:26:33 +0700 (SE Asia Standard Time)
>>> Haps <hapsari.stlizbeth@gmail.com> <hapsari.stlizbeth@gmail.com>menulis begini:
>>>
>>> makro ini meng UnSelect *Cell yg terakhir diselect* dalam*MultiSelection,
>>> *sambil
>>> mengaktifkan cell yg diselect sebelum-*nya*
>>> Jadi, jika di jalankan berkali kali, ia akan menselect "mundur" dengan
>>> urutan kebalikan
>>> dari urutan saat anda menselectnya meskipun urutannya aneh (maju-mundur
>>> 'gak-genah!)
>>>
>>> Makro dapat di beri option untuk dijalankan dengan* Keyboard-Shortcut*,
>>> misalnya
>>> [ Ctrl + k ] atau [ Ctrl + Shift + K] atau huruf pilihan anda sendiri.
>>>
>>> Jika dirasa benar dan ada gunanya, makro ini dapat anda rekam di *Personal
>>> Makro Workbook*,
>>> dengan maksud agar dapat berlaku pada semua workbook yg sedang anda buka.
>>>
>>> f.y.i. : *Personal Workbook* selalu dibuka (sbg workbook tersembunyi)
>>> pada saat excel diaktifkan.
>>>
>>>
>>> Sub UndoLastSelect()
>>> *' coded by Hapsari / nov 22, 2011*
>>> *' unselect last activecell*
>>> *' Kibor-Shortcut: Ctrl + Shift + K*
>>> *'----------------------------------*
>>> Dim SelAdrs As String, ActAdrs As String
>>> Dim NewAdrs As String, NewActv As String
>>> Dim Tempe As Variant
>>>
>>> SelAdrs = Selection.Address(False, False)
>>> ActAdrs = ActiveCell.Address(False, False)
>>> NewAdrs = Replace(SelAdrs, "," & ActAdrs, vbNullString)
>>> Tempe = Split(NewAdrs, ",")
>>> NewActv = Tempe(UBound(Tempe))
>>>
>>> Range(NewAdrs).Select
>>> Range(NewActv).Activate
>>>
>>> End Sub
>>>
>>>
>>>
>>
>>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1d.

Re: men-tidak jadi milih cell

Posted by: "ppc lambda" ppc_03@sami.co.id

Wed Nov 23, 2011 4:24 pm (PST)

Mr kid VBA nya keren dan hasilnya pun menakjubkan
namun ketika yang ingin di unselect itu kolom B, kok yang ter Unselect kolom A ya??

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Thursday, November 24, 2011 2:24 AM
Subject: Re: [belajar-excel] men-tidak jadi milih cell

Ada yang gak pas di workbook open. Jadi, file yang lalu diabaikan saja.
Coba file terlampir yang baru ini saja ya.

Select seperti biasa, bisa manfaatkan Shift unuk membuat sebuah area terselect, bisa menggunakan Ctrl untuk membentuk area baru terselect.
Untuk unselect, tekan tombol Ctrl dan klik sebuah cell yang sudah terselect.

Dicoba untuk jumlah cells terselect yang buanyak, siapa tahu muncul bug nya.
Jika bertemu bug, mohon kerjasama untuk laporan bugnya.

Wassalam,
Kid.

2011/11/24 Kid Mr. <mr.nmkid@gmail.com>

Coba pada jumlah cell terselect sekitar 12 kolom (seluruh row) pada file terlampir.
Kemudian untuk unselect sebuah cell, tekan Ctrl dan klik cell yang akan di unselect.

Moga-moga gak terlalu lama prosesnya.

Wassalam,
Kid.

2011/11/23 Kid Mr. <mr.nmkid@gmail.com>

Oh udah ditutup ya.

Tapi gpp, sapa tahu mau coba dengan event selection change-nya wprksheet.
Mungkin kalau diletakkan di workbook sheet selection change event juga bisa jadi lebih bagus ya...

Berikut script worksheet event selection change :
Private rng As Range, rngLastAktif As Range

Private Sub Worksheet_Activate()
Set rngLastAktif = ActiveCell
Set rng = Selection
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngTmp As Range
Dim lNew As Long

'cek : obj ada isi proses terakhir
If rngLastAktif Is Nothing Then
Set rngLastAktif = ActiveCell
Exit Sub
ElseIf rng Is Nothing Then
Set rng = Selection
Exit Sub
End If

'hitung : range baru
For Each rngTmp In Selection
If Intersect(rngTmp, rng) Is Nothing Then
lNew = lNew + 1
End If
Next rngTmp

'cek by range baru
If lNew > 0 Then 'ada
Set rng = Target
ElseIf rng.Count > 1 Then 'gak ada dan ter-select > 1
Set rng = Nothing
For Each rngTmp In Selection
If Intersect(rngTmp, ActiveCell) Is Nothing Then
If rng Is Nothing Then
Set rng = rngTmp
Else
Set rng = Union(rngTmp, rng)
End If
End If
Next rngTmp
Application.EnableEvents = False
rng.Select
Application.EnableEvents = True
End If
Set rngLastAktif = ActiveCell
End Sub

'sayangnya, yang dihilangkan masih satu per satu

Wassalamualaikum Wr. Wb.
Kid.

2011/11/23 Iwan Ú©uryawan <iwan@asco.co.id>

Ternyata harus pakai macro ya. Sebelumnya lumayan alergi kalo berurusan sama machluk satu ini, akhirnya mesti kenalan juga skrg...
Mbak Hapsari dan Pak Sudarsono terima kasih, keduanya berjalan dengan baik. Untuk saat ini saya pakai coding punya Pak Sudarsono yang bisa fleksibel dalam meng-unselect-nya dengan tambahan pemahaman tentang macro dari Mbak Haps.

Salam
| suryawan arief | iwan |

On Tue, 22 Nov 2011 13:26:33 +0700 (SE Asia Standard Time)
Haps <hapsari.stlizbeth@gmail.com> menulis begini:

makro ini meng UnSelect Cell yg terakhir diselect dalam MultiSelection, sambil
mengaktifkan cell yg diselect sebelum-nya
Jadi, jika di jalankan berkali kali, ia akan menselect "mundur" dengan urutan kebalikan
dari urutan saat anda menselectnya meskipun urutannya aneh (maju-mundur 'gak-genah!)

Makro dapat di beri option untuk dijalankan dengan Keyboard-Shortcut, misalnya
[ Ctrl + k ] atau [ Ctrl + Shift + K] atau huruf pilihan anda sendiri.

Jika dirasa benar dan ada gunanya, makro ini dapat anda rekam di Personal Makro Workbook,
dengan maksud agar dapat berlaku pada semua workbook yg sedang anda buka.

f.y.i. : Personal Workbook selalu dibuka (sbg workbook tersembunyi) pada saat excel diaktifkan.

Sub UndoLastSelect()
' coded by Hapsari / nov 22, 2011
' unselect last activecell
' Kibor-Shortcut: Ctrl + Shift + K
'----------------------------------
Dim SelAdrs As String, ActAdrs As String
Dim NewAdrs As String, NewActv As String
Dim Tempe As Variant

SelAdrs = Selection.Address(False, False)
ActAdrs = ActiveCell.Address(False, False)
NewAdrs = Replace(SelAdrs, "," & ActAdrs, vbNullString)
Tempe = Split(NewAdrs, ",")
NewActv = Tempe(UBound(Tempe))

Range(NewAdrs).Select
Range(NewActv).Activate

End Sub

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1e.

Re: men-tidak jadi milih cell

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Wed Nov 23, 2011 9:45 pm (PST)

cara alternatif : ' Deklarasi Win API yg akan digunakan , istilah mudahnya 'Daftarkan'Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer' konstata untuk nilai balik saat penekanan [Ctrl]
Private Const VK_CONTROL As Long = &H11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If GetKeyState(VK_CONTROL) >= 0 Then GoTo lab_lompati
'buat dgn format pembatas ","
strdaerah = ""
For Each sel In Target
strdaerah = strdaerah & "," & sel.Address
Next
strdaerah = Mid(strdaerah, 2)
' cari koma terakhir
revdaerah = StrReverse(strdaerah)
posisikomaterakhir = InStr(1, revdaerah, ",", vbTextCompare)
If posisikomaterakhir <= 1 Then GoTo lab_lompati
' daerah yang terakhir dipilih
daerahterakhir = StrReverse(Mid(revdaerah, 1, posisikomaterakhir - 1))
posisikomaterakhir = Len(strdaerah) - Len(daerahterakhir)
' ganti mudah mengganti/menghilangkan
ganti = "," & daerahterakhir' jika penambahan sel sudah ada berakhir unselect
' penambahan sel belum ada berarti select
If InStr(1, strdaerah, daerahterakhir, vbTextCompare) < posisikomaterakhir Then
'jika diposisi awal maka di tambahkan ","
strmodif = "," & strdaerah
strdaerah = WorksheetFunction.Substitute(Arg1:=strmodif, arg2:=ganti, arg3:="")
End If
' jika ada "," pada awal
If Left(strdaerah, 1) = "," Then
strdaerah = Mid(strdaerah, 2)
End If
' pilih ulang
Range(strdaerah).Select
Range(strdaerah).Activate
lab_lompati:End Sub

======================================
mods note:
maaf posting ini masuk ke folder spamm
======================================

To: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 07:23:33 +0700

Mr kid VBA nya keren dan hasilnya pun
menakjubkan
namun ketika yang ingin di unselect itu kolom B,
kok yang ter Unselect kolom A ya??


Terimakasih
Best
Regard
<>.<>.<>.<>.<>.<>.
Sidoel
----- Original Message -----

From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Thursday, November 24, 2011 2:24 AM

Ada yang gak pas di workbook open. Jadi, file yang lalu diabaikan
saja.
Coba file terlampir yang baru ini saja ya.

Select seperti
biasa, bisa manfaatkan Shift unuk membuat sebuah area terselect, bisa
menggunakan Ctrl untuk membentuk area baru terselect.
Untuk unselect, tekan
tombol Ctrl dan klik sebuah cell yang sudah terselect.

Dicoba untuk
jumlah cells terselect yang buanyak, siapa tahu muncul bug nya.
Jika
bertemu bug, mohon kerjasama untuk laporan
bugnya.

Wassalam,
Kid.

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1f.

Re: men-tidak jadi milih cell

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Wed Nov 23, 2011 9:57 pm (PST)

* supaya leih rapih saya ubah


cara alternatif : ' Deklarasi Win API yg akan digunakan , istilah mudahnya 'Daftarkan' Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer' konstata untuk nilai balik saat penekanan [Ctrl]

Private Const VK_CONTROL As Long = &H11

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If GetKeyState(VK_CONTROL) >= 0 Then GoTo lab_lompati

'buat dgn format pembatas ","

strdaerah = ""

For Each sel In Target

strdaerah = strdaerah & "," & sel.Address
Next

strdaerah = Mid(strdaerah, 2)

' cari koma terakhir

revdaerah = StrReverse(strdaerah)

posisikomaterakhir = InStr(1, revdaerah, ",", vbTextCompare)

If posisikomaterakhir <= 1 Then GoTo lab_lompati

' daerah yang terakhir dipilih

daerahterakhir = StrReverse(Mid(revdaerah, 1, posisikomaterakhir - 1))

posisikomaterakhir = Len(strdaerah) - Len(daerahterakhir)

' ganti mudah mengganti/menghilangkan

ganti = "," & daerahterakhir' jika penambahan sel sudah ada berakhir unselect

' penambahan sel belum ada berarti select

If InStr(1, strdaerah, daerahterakhir, vbTextCompare) < posisikomaterakhir Then

'jika diposisi awal maka di tambahkan ","

strmodif = "," & strdaerah

strdaerah = WorksheetFunction.Substitute(Arg1:=strmodif, arg2:=ganti, arg3:="")

End If

' jika ada "," pada awal

If Left(strdaerah, 1) = "," Then

strdaerah = Mid(strdaerah, 2)

End If

' pilih ulang

Range(strdaerah).Select

Range(strdaerah).Activate

lab_lompati:End Sub

======================================

mods note:

maaf posting ini masuk ke folder spamm

======================================

To: belajar-excel@yahoogroups.com

Date: Thu, 24 Nov 2011 07:23:33 +0700

Mr kid VBA nya keren dan hasilnya pun

menakjubkan

namun ketika yang ingin di unselect itu kolom B,

kok yang ter Unselect kolom A ya??

Terimakasih

Best

Regard

<>.<>.<>.<>.<>.<>.

Sidoel

----- Original Message -----

From: Kid Mr.

To: belajar-excel@yahoogroups.com

Sent: Thursday, November 24, 2011 2:24 AM

Ada yang gak pas di workbook open. Jadi, file yang lalu diabaikan

saja.

Coba file terlampir yang baru ini saja ya.

Select seperti

biasa, bisa manfaatkan Shift unuk membuat sebuah area terselect, bisa

menggunakan Ctrl untuk membentuk area baru terselect.

Untuk unselect, tekan

tombol Ctrl dan klik sebuah cell yang sudah terselect.

Dicoba untuk

jumlah cells terselect yang buanyak, siapa tahu muncul bug nya.

Jika

bertemu bug, mohon kerjasama untuk laporan

bugnya.

Wassalam,

Kid.

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

2a.

Re: Bls: [belajar-excel] Help, bulan romawi

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Nov 23, 2011 9:29 am (PST)

=ROMAN(TEXT(NOW();"mm"))
*kok dibilang gagal, bg mana nih*
*
*
Jangan-jangan hanya soal setting *tanda pemisah argument* (list separator)
setting pak undang = *;* (titik kamal / semi colon)
setting pak cakep = *,* (koma / comma)

=ROMAN(TEXT(NOW()*,*"mm"))
=ROMAN(TEXT(NOW()*;*"m"))
=ROMAN(--TEXT(NOW()*,*"mm"))
=ROMAN(--TEXT(NOW()*;*"m"))

memang lebih pendek
=ROMAN(MONTH(NOW())
=ROMAN(MONTH(TODAY())
tidak ada tanda pemisah argument, jadi tidak mungkin salah karena
adanya perbedaan regional setting.

Note:
Walaupun hanya contoh, pemakaian fungsi NOW() yg hanya akan diambil nilai
bulannya
adalah berlebihan; karena hasil fungsi NOW() selain data tanggal juga
terdapat data time

2011/11/23 Asror Al-Aliif's <asrorcakep@yahoo.com>

> **
>
> *Masih gagal*, lagi dicoba2 nee,...
> Asror
>
> ------------------------------
> *From: * Undang Satrianie <und4nk@rocketmail.com>
> *Date: *Wed, 23 Nov 2011 19:53:51 +0800 (SGT)
> *Subject: *Bls: [belajar-excel] Help, bulan romawi
>
> Coba :
> =ROMAN(TEXT(NOW();"mm"))
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3a.

Re: lookup untuk mendapatkan hasil yang ke-1, ke-2, dst

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Wed Nov 23, 2011 5:29 pm (PST)

Sorot misal M21:P21 , buat rumus array formula (caranya , letakkan kursor di formula bar, ketik rumus di bawah ini ,

lalu tekan [Ctrl] dan [Shift] bersamaan , jangan lepas , lalu tekan [Enter] )

=INDEX( $D$7:$D$11 , MOD(SMALL(IF(( $C$7:$C$11=$G$7 ),

COUNTIF( $D$7:$D$11 , "<="&$D$7:$D$11 ) *100+ ( ROW( $1:$5 ))), COLUMN(1:4) ), 100 ))

Sorot misal M22:P22 , buat rumus array formula (caranya , letakkan kursor di formula bar, ketik rumus di bawah ini ,

lalu tekan [Ctrl] dan [Shift] bersamaan , jangan lepas , lalu tekan [Enter] )

=INDEX( $D$7:$D$11 , MOD(SMALL(IF(( $C$7:$C$11=$H$7 ),

COUNTIF( $D$7:$D$11 , "<="&$D$7:$D$11 ) *100+ ( ROW( $1:$5 ))), COLUMN(1:4) ), 100 ))

berubahan terletak row( 1:1 ) menjadi Column( 1:4 ) dan cara penulisan rumus array

hasilnya :

Buah
anggur
jeruk
pepaya
#NUM!



Hewan
ayam
kucing
#NUM!



To: belajar-excel@yahoogroups.com
From: yuliannug@gmail.com
Date: Wed, 23 Nov 2011 18:26:32 +0700
Subject: Re: [belajar-excel] lookup untuk mendapatkan hasil yang ke-1, ke-2, dst

mantap,
cik gu haps, terimakaseh
pakdhe sudarsono, matur tengkyu
om ghozi, kamsia ....

ada soalan lagi bagaimana kalo lookup-nya horizontal
sudah kucoba 'niru2' cara om ghozi gak bisa
pake cara cik gu haps mumetz, gak ngerti ;-)

dibantu ya

salam
YN

On Wed, Nov 23, 2011 at 1:24 AM, Haps <hapsari.stlizbeth@gmail.com> wrote:

array formula multi hasil

=IF(ISNUMBER(SMALL(IF(C7:C11=J7,ROW(1:5)),ROW(1:5))),

OFFSET(D6,SMALL(IF(C7:C11=J7,ROW(1:5)),ROW(1:5)),0),"")

ARRAY FORMULA MULTI HASIL yang ditulis sekaligus di Range G8:G11

C-A-R-A-N-Y-A :1. Blok / Select Range G8:G112. Tuliskan rumusnya di Formula Bar3. Akhiri dengan menekan Tombol [Ctrl] + [Shift], tahan, lalu tekan [ENTER]

4. Lepaskan penekanan 3 tombol
5. Tarik napas...

On Tue, Nov 22, 2011 at 7:07 PM, yulian nugroho <yuliannug@gmail.com> wrote:

Kawans,
Saya sudah coba2 otak-atik beberapa kali tapi hasilnya tak betul;
=IF(ISNUMBER(SMALL(IF(C7:C11=J7,ROW(1:5)),ROW(1:5))),OFFSET(D6,SMALL(IF(C7:C11=J7,ROW(1:5)),ROW(1:5)),0),""),

hasilnya : kosong
=IF(ISNUMBER(SMALL(IF(C7:C11=G7,ROW(1:5)),ROW(1:5))),OFFSET(D6,SMALL(IF(C7:C11=G7,ROW(1:5)),ROW(1:5)),0),""),
hasilnya : hanya bekerja di cell G8 saja=IF(ISNUMBER(SMALL(IF(C7:C11=G7,ROW(1:5)),ROW(1:5))),OFFSET(D6,SMALL(IF(C7:C11=G7,ROW(1:5)),ROW(1:5)),0),""),

hasilnya : hanya bekerja di cell G8 saja=IF(ISNUMBER(SMALL(IF(C7:C11=G7,ROW(1:5)),ROW(1:5))),OFFSET($D$6,SMALL(IF(C7:C11=G7,ROW(1:5)),ROW(1:5)),0),""),
hasilnya : hanya bekerja di cell G8 saja

=IF(ISNUMBER(SMALL(IF(C7:C11=G$7,ROW(1:5)),ROW(1:5))),OFFSET($D$6,SMALL(IF(C7:C11=G$7,ROW(1:5)),ROW(1:5)),0),""),
hasilnya : hanya bekerja di cell G8 & G9 saja=IF(ISNUMBER(SMALL(IF(C$7:C$11=G$7,ROW(1:5)),ROW(1:5))),OFFSET($D$6,SMALL(IF(C$7:C$11=G$7,ROW(1:5)),ROW(1:5)),0),""), hasilnya : hanya bekerja di cell G8 & G9 saja

On Tue, Nov 22, 2011 at 6:25 PM, Haps <hapsari.stlizbeth@gmail.com> wrote:

biasanya beginiarray formula multi hasil =IF(ISNUMBER(SMALL(IF(C7:C11=J7,ROW(1:5)),ROW(1:5))),

OFFSET(D6,SMALL(IF(C7:C11=J7,ROW(1:5)),ROW(1:5)),0),"")

--
Thanks & Regards
Yulian Nugroho

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (14)

3b.

Re: lookup untuk mendapatkan hasil yang ke-1, ke-2, dst

Posted by: "yulian nugroho" yuliannug@gmail.com   yuliannug

Wed Nov 23, 2011 7:21 pm (PST)

cik gu, berjaya .... terimakasih
tentang row(1:1) dan column(1:5) dimaksudkan buat apa ya?

salam
YN

> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: yuliannug@gmail.com
> Date: Wed, 23 Nov 2011 18:26:32 +0700
>
> mantap,
> cik gu haps, terimakaseh
> pakdhe sudarsono, matur tengkyu
> om ghozi, kamsia ....
>
> ada soalan lagi bagaimana kalo lookup-nya horizontal
> sudah kucoba 'niru2' cara om ghozi gak bisa
> pake cara cik gu haps mumetz, gak ngerti ;-)
>
> dibantu ya
> salam
> YN
>
> On Wed, Nov 23, 2011 at 1:24 AM, Haps <hapsari.stlizbeth@gmail.com> wrote:
>
> ARRAY FORMULA MULTI HASIL yang ditulis *sekaligus** di Range G8:G11*
> C-A-R-A-N-Y-A :
> 1. Blok / Select Range G8:G11
> 2. Tuliskan rumusnya di Formula Bar
> 3. Akhiri dengan menekan Tombol [Ctrl] + [Shift], tahan, lalu tekan
> [ENTER]
> 4. Lepaskan penekanan 3 tombol
> 5. Tarik napas...

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (14)

3c.

Bls: [belajar-excel] lookup untuk mendapatkan hasil yang ke-1, ke-2,

Posted by: "dwint ruswanto" dwint.ruswanto@yahoo.co.id   dwint.ruswanto

Wed Nov 23, 2011 7:27 pm (PST)

urun rembuk ya..
 
row (1:1) artinya jumlah baris atau tinggi baris = 1; jumlah baris yang digunakan dalam rujukan 
column (1:5) artinya jumlah kolom atau lebar kolom = 5; jumlah kolom yang digunakan dalam rujukan
 
cmiiw.. karena saya tidak mengikuti dari awal
 
wassalam
 
dwint


________________________________
Dari: yulian nugroho <yuliannug@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 24 November 2011 9:44
Judul: Re: [belajar-excel] lookup untuk mendapatkan hasil yang ke-1, ke-2, dst


 

cik gu, berjaya .... terimakasih
tentang row(1:1) dan column(1:5) dimaksudkan buat apa ya?

salam
YN

> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: yuliannug@gmail.com
> Date: Wed, 23 Nov 2011 18:26:32 +0700
>
> mantap,
> cik gu haps, terimakaseh
> pakdhe sudarsono, matur tengkyu
> om ghozi, kamsia ....
>
> ada soalan lagi bagaimana kalo lookup-nya horizontal
> sudah kucoba 'niru2' cara om ghozi gak bisa
> pake cara cik gu haps mumetz, gak ngerti ;-)
>
> dibantu ya
> salam
> YN
>
> On Wed, Nov 23, 2011 at 1:24 AM, Haps <hapsari.stlizbeth@gmail.com> wrote:
>
> ARRAY FORMULA MULTI HASIL yang ditulis *sekaligus** di Range G8:G11*
> C-A-R-A-N-Y-A :
> 1. Blok / Select Range G8:G11
> 2. Tuliskan rumusnya di Formula Bar
> 3. Akhiri dengan menekan Tombol [Ctrl] + [Shift], tahan, lalu tekan
> [ENTER]
> 4. Lepaskan penekanan 3 tombol
> 5. Tarik napas...

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (14)

3d.

Re: lookup untuk mendapatkan hasil yang ke-1, ke-2, dst

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Nov 23, 2011 8:26 pm (PST)

*=Row(1:100)*
jika di tulis di 1 cell tanpa dienter dengan C+S+E, hanya menghasilkan 1
Kalau ditulis di 100 cell SEBARIS secara sekaligus dan di-enter secara
ArrayFormula, misalnya di F134:F233, hasilnya adalah angka urut 1 sampai
100.
Jadi Row(1:100) yg di enter sebagai ArrayFormula tugasnya *membuat nomor
urut*

Nantinya nomor-urut itu mungkin akan dikalikan dengan array lain dlm satu
rumus (hasil suatu rumus misal IF(bla bla bla) yg hasilnya (multi
hasil) {False;
True; True; False; False; True dst sampai 100 data).
Maka hasil perkaliannya bisa anda bayangkan sendiri :
Data yg sejajar dengan TRUE akan tetap uncul nomor urutnya; Sedangkan data
yg sejajar dengan FALSE, akan muncul 0 (false)
Kira kira bentuk array hasil perkalian nomor urut dan array false-true: {False;
2; 3; False; False; 6; dst sampai 100 data)

Kelanjutannya, seandainya rumus tersebut belum selesai tetapi masih
dibingkai oleh Fungsi SMALL
=Semoll(RUMUS, AngkaUrutUntukSemoll)

Hasil array nya seerti ini *{2; 3; 6; False; False; False; dst sampai 100
data)*
Artinya terjadi PENGUMPULAN DATA KE ATAS ( atau ke KIRI) dan URUT; serta
membuang FALSE ke bawah atau ke kanan)

Dalam FORMULA SORTING, Angka itulah yg dimanfaatkan oleh fungsi INDEX atau
OFFSET untuk memanggil data sebanarnya

CMIIW.--
mudah mudahan tidak terlau jauh ngawurrnya...

2011/11/24 yulian nugroho <yuliannug@gmail.com>
>
> *tentang row(1:1) dan column(1:5) dimaksudkan buat apa ya?*
>
> salam
> YN

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (14)

4a.

Tanya worksheet yang tampil ketika file di buka

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Wed Nov 23, 2011 8:02 pm (PST)

Selamat pagi,

Rekan, mau tanya nee, saya punya file excel, itu berisi worksheets banyak, 1,2,3....10, bagaimana caranya agar ketika file dibuka itu langsung ke worksheet tertentu,
Mohon bantuannya yaa?
Terimakasih.

Asror

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

4b.

Re: Tanya worksheet yang tampil ketika file di buka

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Nov 23, 2011 8:09 pm (PST)

kalau boleh diberi makro;
makronya memanfaatkan event workbook_Open
ditulis di module ThisWorkbook

Private Sub Workbook_Open()
Sheets("SheetYgAktifJikaBookDibuka").*Activate*
End Sub

2011/11/24 Asror Al-Aliif's <asrorcakep@yahoo.com>
> Selamat pagi,
> Rekan, mau tanya nee, saya punya file excel, itu berisi worksheets
banyak, 1,2,3....10, bagaimana caranya agar ketika file dibuka itu langsung
ke worksheet tertentu,
> Mohon bantuannya yaa?
> Terimakasih.
> Asror

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

4c.

Re: Tanya worksheet yang tampil ketika file di buka

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Wed Nov 23, 2011 8:36 pm (PST)

Mbak haps,
Saya sudah mencoba yang dari mbak haps, tapi di code "sheets" itu jadi merah, bis tuh aku coba pake tulisan ini :

Sub auto_open()
Sheet1.active
End sub

Berhasil dee,
Makasi ia rekan2 be excel,...

Asror

=============================================
MODS NOTE
Excelnya CAP-APA ya, kok bisa lain?
di excelku code dari mbak Haps tampil dan
berjalan dengan anggunnya

Sheet1 : adalah CODENAME
Sheets("NamaSheet") adalah sheet yg dirujuk
melalui NAMA TAB-nya (Name nya)

Sub Auto Open boleh ditulis di Module Standar
Sub Workbook_Open() HARUS ditulis di Module
ThisWorkbook
=============================================

-----Original Message-----
From: Haps <hapsari.stlizbeth@gmail.com>
Date: Thu, 24 Nov 2011 11:09:23

kalau boleh diberi makro;
makronya memanfaatkan event workbook_Open
ditulis di module ThisWorkbook

Private Sub Workbook_Open()
Sheets("SheetYgAktifJikaBookDibuka").*Activate*
End Sub

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

4d.

Re: Tanya worksheet yang tampil ketika file di buka

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Nov 23, 2011 8:58 pm (PST)

thanks mods,

dan... untuk keperluan pembelajaran; banyak penulis makro lebih menyebut *
Sheets("NamaSheet")*
daripada *CodeNamenya,* karena antara lain CodeName belum tentu sama dengan
Tab Name
dan pemula kebanyakan belum memperhatikan sampai ke sini
[image: codeName of Sheet.PNG]

maksud contoh dari Haps yg tadi itu: di workbook anda harus ada sheet yg
tabnya bernama:
*("**SheetYgAktifJikaBookDibuka"), '*gitu lochch...

2011/11/24 Asror Al-Aliif's <asrorcakep@yahoo.com>

> Mbak haps,
> Saya sudah mencoba yang dari mbak haps, tapi di code "sheets" itu jadi
> merah, bis tuh aku coba pake tulisan ini :
>
> Sub auto_open()
> Sheet1.active
> End sub
>
> Berhasil dee,
> Makasi ia rekan2 be excel,...
>
> Asror
>
>
> =============================================
> MODS NOTE
> Excelnya CAP-APA ya, kok bisa lain?
> di excelku code dari mbak Haps tampil dan
> berjalan dengan anggunnya
>
> Sheet1 : adalah CODENAME
> Sheets("NamaSheet") adalah sheet yg dirujuk
> melalui NAMA TAB-nya (Name nya)
>
> Sub Auto Open boleh ditulis di Module Standar
> Sub Workbook_Open() HARUS ditulis di Module
> ThisWorkbook
> =============================================
>
>
> -----Original Message-----
> From: Haps <hapsari.stlizbeth@gmail.com>
> Date: Thu, 24 Nov 2011 11:09:23
>
> kalau boleh diberi makro;
> makronya memanfaatkan event workbook_Open
> ditulis di module ThisWorkbook
>
> Private Sub Workbook_Open()
> Sheets("SheetYgAktifJikaBookDibuka").*Activate*
> End Sub

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

5.

Fungsi LARGE dengan Data Kembar

Posted by: "afif farihin" farick03@yahoo.com   farick03

Wed Nov 23, 2011 8:29 pm (PST)

Assm, Expert Excel

saya nubie di grup ini, setelah baca2 akhirnya memberanikan diri utk bergabung
dan diskusi.abis explore mail archive, tempat belajar excel, saya ada persoalan yg
banyak serupa dgn tmn2 di grup, tp sy kondisikan di file saya tetep gk bs ya..
Nah, saya lampirkan file yg beberapa hari ini berputar2 otak utk mencari
solusi..
Begini maksudnya, di sheet "talent pool" adalah hasil akhir utk
mengurutkan nilai orang2 dr yg tertinggi sampai yg terendah (saya menggunakan
fungsi large), ohya referensi data dari sheet "suksesi jab", nah
masalahnya ketika ada nilai yg kembar, maka nama orangnya pun ikutan kembar
sesuai dgn nama yg paling atas kembarnya, puyeng saya ini, hehehhe...
gimana caranya ya biar di sheet "talent pool" tersebut bs otomatis nilai
berurut dr yg tertinggi termasuk nama2 pemilik nilai tsb..
Mohon pencerahannya..

Wassm,

Farick

________________________________

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

6a.

Menyisipkan 3 blankcell antar kelompok data

Posted by: "andri apriyadi" andreemobile@yahoo.co.id   andreemobile

Wed Nov 23, 2011 10:32 pm (PST)

Dear Pakar excel,

Mohon bantuannya, bagaimana formulanya agar deretdata bisa dipisahkan dengan 3 baris blank cell antar kelompoknya?

(contoh terlampir)

awal        hasil

1                1
1                1

1                1

2

2

3

4                2

4                2

4

5

6

6                3
                  dst..

     

Thank atas bantuannya!

Regards

Andree

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

6b.

Re: Menyisipkan 3 blankcell antar kelompok data

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Nov 23, 2011 11:02 pm (PST)

Pilih Range nya misal A2:A55
Jalankan Makro nya (di workbook contoh; menjalankan makronya dengan
menekan tombol [Ctrl] + [Shift], [I]

Jika gagal,
cara lain tekan ALt + F8 pilih nama makronya > RUN

'------ vba code nya ---
Sub Insert3Row()
Dim Col As Range, n As Long, m As Long
Set Col = Selection
For n = Col.Rows.Count - 1 To 1 Step -1
m = n + 1
If Not Col(n) = Col(m) Then _
Col(m).Resize(3, 1).Insert Shift:=xlDown
Next
End Sub

2011/11/24 andri apriyadi <andreemobile@yahoo.co.id>

> **
> Dear Pakar excel,
> Mohon bantuannya, bagaimana formulanya agar deretdata bisa dipisahkan
> dengan 3 baris blank cell antar kelompoknya?
> (contoh terlampir)
> awal hasil
> 1 1
> 1 1
> 1 1
> 2
> 2
> 3
> 4 2
> 4 2
> 4
> 5
> 6
> 6 3
> dst..
>
> Thank atas bantuannya!
>
> Regards
> Andree
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

6c.

Re: Menyisipkan 3 blankcell antar kelompok data

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Nov 23, 2011 11:52 pm (PST)

Kalau inginnya dengan cara *menuliskan FORMULA...*

Kita kira-kira dulu HASIL-nya akan menempati *sebanyak berapa baris ?*
Dlm contoh, hasil menempati 69 cells sekolom (69 baris, dlm kolom tunggal)

Jadi, *selectlah dulu misal range C2:C70 *
Tuliskan Formula di FORMULA BAR : *=Insert3Row(A2:A55,3)*
*A2:A55* adalah Range yg dirujuk
*3* adalah banyaknya Penyisipan Cells Blank tiap antar grup-data-kembar
(jadi banyaknya cell yg diinsert per grup; bisa diubah-ubah melalui
formulanya)

Formula Array tsb Jangan hanya di enter tetapi di pencetlah: *Ctrl + Shift
, ENTER*

Sayang sekali formula itu mengandung FUNGSI buatan sendiri (bernama *
Insert3Row*)
yg keberadaannya karena rekayasa makro

Function Insert3Row(Col As Range, vIns As Integer)
Dim n As Long, i As Long, u As Integer
Dim Ar()

For n = 1 To Col.Rows.Count
If Col(n, 1) = Col(n + 1, 1) Then
i = i + 1: ReDim Preserve Ar(1 To i)
Ar(i) = Col(n, 1)
Else
i = i + 1: ReDim Preserve Ar(1 To i)
Ar(i) = Col(n, 1)
i = i + vIns: ReDim Preserve Ar(1 To i)
For u = 0 To vIns - 1
Ar(i - u) = vbNullString
Next u
End If
Next
Insert3Row = WorksheetFunction.Transpose(Ar)
End Function

2011/11/24 Haps <hapsari.stlizbeth@gmail.com>

> Pilih Range nya misal A2:A55
> Jalankan Makro nya (di workbook contoh; menjalankan makronya dengan
> menekan tombol [Ctrl] + [Shift], [I]
>
> Jika gagal,
> cara lain tekan ALt + F8 pilih nama makronya > RUN
>
> '------ vba code nya ---
> Sub Insert3Row()
> Dim Col As Range, n As Long, m As Long
> Set Col = Selection
> For n = Col.Rows.Count - 1 To 1 Step -1
> m = n + 1
> If Not Col(n) = Col(m) Then _
> Col(m).Resize(3, 1).Insert Shift:=xlDown
> Next
> End Sub
>
>
>
> 2011/11/24 andri apriyadi <andreemobile@yahoo.co.id>
>
>> **
>> Dear Pakar excel,
>> Mohon bantuannya, bagaimana formulanya agar deretdata bisa dipisahkan
>> dengan 3 baris blank cell antar kelompoknya?
>> (contoh terlampir)
>> awal hasil
>> 1 1
>> 1 1
>> 1 1
>> 2
>> 2
>> 3
>> 4 2
>> 4 2
>> 4
>> 5
>> 6
>> 6 3
>> dst..
>>
>> Thank atas bantuannya!
>>
>> Regards
>> Andree
>>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

6d.

Bls: [belajar-excel] Menyisipkan 3 blankcell antar kelompok data

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Thu Nov 24, 2011 1:53 am (PST)

tulis formula di C2 sheet solusi

=IF(ROWS(C$1:C1)=1;$A$2;IF(COUNTIF(C$1:C1;C1)<COUNTIF($A$2:$A$55;C1);C1;IF(COUNTIF(C$1:C1;C1)=COUNTIF($A$2:$A$55;C1);"";IF(COUNTBLANK(C$1:C1)<SUMPRODUCT((C1:C$2<>"")/COUNTIF(C1:C$2;C1:C$2&""))*3;"";INDEX($A$2:$A$55;COUNT(C1:C$2)+1)))))

copy ke bawah sampai tuntas (keluar nilai #REF!)

wassalam

Ghozi Alkatiri

________________________________
Dari: andri apriyadi <andreemobile@yahoo.co.id>
Kepada: Belajar Excel <belajar-excel@yahoogroups.com>
Dikirim: Kamis, 24 November 2011 13:31
Judul: [belajar-excel] Menyisipkan 3 blankcell antar kelompok data


 
Dear Pakar excel,

Mohon bantuannya, bagaimana formulanya agar deretdata bisa dipisahkan dengan 3 baris blank cell antar kelompoknya?

(contoh terlampir)

awal        hasil

1                1
1                1

1                1

2

2

3

4                2

4                2

4

5

6

6                3
                  dst..

     

Thank atas bantuannya!

Regards

Andree

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

6e.

Re: Menyisipkan 3 blankcell antar kelompok data

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Thu Nov 24, 2011 3:08 am (PST)

Great !!, Rumus pak Ghozi Ruarrr-Biasa...,
tetapi sepertinya belum di maksudkan untuk menghandle* data TEXT*
CMIIW

Mari kita cari solusinya untuk data text juga..

2011/11/24 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

> **
> tulis formula di C2 sheet solusi
>
> =IF(ROWS(C$1:C1)=1;$A$2;IF(COUNTIF(C$1:C1;C1)<COUNTIF($A$2:$A$55;C1);C1;
>
IF(COUNTIF(C$1:C1;C1)=COUNTIF($A$2:$A$55;C1);"";IF(COUNTBLANK(C$1:C1)<SUMPRODUCT((C1:C$2<>"")/
>
>
COUNTIF(C1:C$2;C1:C$2&""))*3;"";INDEX($A$2:$A$55;COUNT(C1:C$2)+1)))))
> copy ke bawah sampai tuntas (keluar nilai #REF!)
>
> wassalam
>
> Ghozi Alkatiri
>
> ------------------------------
> *Dari:* andri apriyadi <andreemobile@yahoo.co.id>
> *Dikirim:* Kamis, 24 November 2011 13:31
> *Judul:* [belajar-excel] Menyisipkan 3 blankcell antar kelompok data
>
> Dear Pakar excel,
> Mohon bantuannya, bagaimana formulanya agar deretdata bisa dipisahkan
> dengan 3 baris blank cell antar kelompoknya?
> (contoh terlampir)
>
> awal hasil
> 1 1
> 1 1
> 1 1
> 2
> 2
> 3
> 4 2
> 4 2
> 4
> 5
> 6
> 6 3
> dst..
>
> Thank atas bantuannya!
> Regards
> Andree
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

7a.

Bls: [belajar-excel] [ask] cara menghitung jam terlambat karyawan

Posted by: "Kusnadi Bin zain" kbinzain@yahoo.co.id   kbinzain

Wed Nov 23, 2011 11:58 pm (PST)

seperti inikah maksudnya.....

________________________________
Dari: angelicavoc <angelicavoc@yahoo.com>
Dikirim: Selasa, 22 November 2011 13:16
Judul: [belajar-excel] [ask] cara menghitung jam terlambat karyawan
 
selamat siang semuanya, mohon petunjuk untuk olah data saya.

saya ingin menghitung berapa banyak karyawan yang terlambat masuk kerja dan dan berapa waktu keterlambatan tiap karyawan,

terima kasih

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

8a.

Mewarnai kursor

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Thu Nov 24, 2011 12:44 am (PST)

Dear All,
Ada yg tau ndak ya, bagaimana cara mewarnai kursor? Contohx jika kursor ada di cell A1 maka cell A1 akan berwarna merah, jika berpindah ke A2 maka cell A2 yg akan berwarna merah, cell A1 kembali putih.
Jika ada yg tau caranya bisa sharing2 dong
Thanks
Salam
Tiny
Powered by Telkomsel BlackBerry®

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

8b.

Re: Mewarnai kursor

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Thu Nov 24, 2011 1:58 am (PST)

Dear Hartini,
Sebenarnya yang layak menjawab adalah Mbak Siti, karena yang saya lampirkan ini adalah program buatan beliau.
 
Salam,
Hendrik Karnadi

________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 24 November 2011, 15:44
Subject: [belajar-excel] Mewarnai kursor

Dear All,
Ada yg tau ndak ya, bagaimana cara mewarnai kursor? Contohx jika kursor ada di cell A1 maka cell A1 akan berwarna merah, jika berpindah ke A2 maka cell A2 yg akan berwarna merah, cell A1 kembali putih.
Jika ada yg tau caranya bisa sharing2 dong
Thanks
Salam
Tiny
Powered by Telkomsel BlackBerry®

------------------------------------

----------------------------------------------------------
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
----------------------------------------------------------Yahoo! Groups Links

    http://docs.yahoo.com/info/terms/

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

8c.

Re: Mewarnai kursor

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Thu Nov 24, 2011 2:52 am (PST)

Dear,
Benar pak seperti itu yg saya mau, berarti pakai bahasa VB ya pak, kalo saya buka sheet lain berarti bahasa VB yg ada saya copy di worksheet yg baru ya pak?
Cara manual or pakai conditional formatting ada ndak ya?
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 01:58:23
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mewarnai kursor

Dear Hartini,
Sebenarnya yang layak menjawab adalah Mbak Siti, karena yang saya lampirkan ini adalah program buatan beliau.
 
Salam,
Hendrik Karnadi


________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 24 November 2011, 15:44
Subject: [belajar-excel] Mewarnai kursor

Dear All,
Ada yg tau ndak ya, bagaimana cara mewarnai kursor? Contohx jika kursor ada di cell A1 maka cell A1 akan berwarna merah, jika berpindah ke A2 maka cell A2 yg akan berwarna merah, cell A1 kembali putih.
Jika ada yg tau caranya bisa sharing2 dong
Thanks
Salam
Tiny
Powered by Telkomsel BlackBerry®

------------------------------------

----------------------------------------------------------
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
----------------------------------------------------------Yahoo! Groups Links



    http://docs.yahoo.com/info/terms/

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

Recent Activity

•  28
  New Members

Visit Your Group

Yahoo! Groups

Parenting Zone

Resources and tips

for parents

Yahoo! Groups

Cat Group

Join a group for

people who love cats

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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
---------------------------------------------------------------------

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

---

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe