Kalau* HARUS dengan formula* kayaknya gak bisa, karena formula* bukan* alat untuk melakukan aksi (*menginsert baris*, menulis data di baris lain dst) Formula, katanya, hanya mengembalikan data dan itupun hanya ditampilkan di cell dimana dia ditulis.
Dengan permainan VBA dan SpinButton mungkin bisa..
Spinbutton untuk mengatur cell (G1) sbg cell kendali (digit ke berapa yg
dianggap
pembedanya).
Sedangkan VBA nya untuk mengotomatiskan penulisan data terkelompok - nya
'----------------
Private Sub CommandButton1_Click()
' Haps ( Aug 08, 2011 )
Dim vDat As Range, vOut As Range
Dim i As Long, n As Long, Pos As Integer
Set vDat = Cells(1).CurrentRegion
Set vOut = Cells(1, 3)
Pos = Len(vDat(1, 1)) - Me.SpinButton1.Value + 1
vOut.EntireColumn.ClearContents
n = 1
For i = 1 To vDat.Rows.Count
vOut(n, 1) = vDat(i, 1)
n = n + 1
If Not Mid(vDat(i + 1, 1), Pos, 1) = Mid(vDat(i, 1), Pos, 1) _
Then n = n + 1
Next i
End Sub
'----------------
cara memainkannya:
1. klik Spinbutton untuk mengubah angka di cell G1
angka ini akan dipakai sebagai penunjuk [POSISI DIGIT KE X] pada data di
kolom A
hanya saja dihitungnya dari belakang (dari kanan)
2. Klik Tombol OK
Sebelum makro menyusun data yg dikelompokkan *berdasarkan perbedaan nilai*
*pada digit Ke X tadi*, dia akan menghapus dulu data di kolom C
Mohon maaf kalau tidak berkenan dengan adanya pemrograman VBA; dihapus
saja..
2011/8/8 andri apriyadi <[email protected]>
>
> Saya punya deretan Kode yang panjang dalam satu kolom dan berharap ada
rumus untuk mengotomatisasi
> agar deret Kode ini dapat berkelompok dengan ada spasi (blank cell) yang
memisahkan antara kelompok kode
> yang satu dengan kelompok kode lainnya.
> (Contoh terlampir).
>
> Mohon bantuan para master, bagaimana rumus/formulanya agar kode-kode ini
berderet sesuai kelompok
> yang saya inginkan?
> Thx before
>
> Regards
> Andree
ctv_Mengelompokkan Deret Kode.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
