trims bantuannya pak. nanti saya coba
2014-09-26 20:02 GMT+08:00 lkm jktind [email protected] [belajar-excel] < [email protected]>: > > > Ini sudah selesai . > > cara > > yg berwarna biru untuk mengisi kolom yg sudah saya warnai orange. > Bila mau di pakai . tanda petik depan nya di hapus saja (dihilangkan) > > > Sub Menggabungkan_cell1_pengetahuan() > Dim sh1, sh2 As Worksheet > Dim c, r, s, t, u As Long > Dim ha1 As String > Set sh1 = Worksheets("PENGETAHUAN") > Set sh2 = Worksheets("tabel") > > > sh1.Activate > > For r = 7 To Cells(Rows.Count, 1).End(xlUp).Row > ' For c = 7 To 45 Step 7 > ' Cells(r, c).Value = (2 * Cells(r, c - 3) + Cells(r, c - 2) + > Cells(r, c - 1)) / 4 > ' Cells(r, c + 1).Value = Cells(r, c) / 25 > ' Cells(r, c + 2).Value = > Application.WorksheetFunction.VLookup(Cells(r, c + 1), _ > sh2.Range("I3:J12"), 2) > ' Cells(r, c + 3).Value = > Application.WorksheetFunction.VLookup(Cells(r, c + 1), _ > sh2.Range("I16:J19"), 2) & " pada " & Cells(2, c - 3) > ' Next c > > For s = 19 To 16 Step -1 > With Application.WorksheetFunction > u = 1 > For c = 10 To 45 Step 7 > > If sh2.Cells(s, 10) = Left(Cells(r, c), Len(sh2.Cells(s, 10))) Then > If u = 1 Then > ha1 = ha1 & sh2.Cells(s, 10) & " pada " & Cells(2, c - 6) > & ", " > ElseIf u > 1 Then > ha1 = ha1 & Cells(2, c - 6) & ", " > End If > Cells(r, 52).Value = ha1 > u = u + 1 > End If > Next c > End With > > Next s > Cells(r, 52) = Left(Cells(r, 52), Len(Cells(r, 52)) - 2) > ha1 = "" > Next r > End Sub > > > > > 2014-09-25 18:39 GMT+07:00 lkm jktind <[email protected]>: > >> Pak . >> >> sudah saya kerjakan . dengan hasil contoh di lampiran dibawah ini . >> memang ada kelebihan spasi , dan ada 2 spasi . dan yg paling akhir pun >> ada komanya . >> baru untuk satu siswa saja . >> >> saya tidak mengurutkan data dari nilai . >> apakah juga mau di urut berdasarkan nilai angkanya ? >> >> seandainya sudah sesuai -- dan mau tinggal di pakai langsung . tinggal >> dikasih Tau saja --- >> Hasilnya mau di letakan di mana range apa ? >> datanya sangat bagus ada di mana ? >> >> Salam >> >> Lukman >> >> >> >> >> >> >> >> >> 2014-09-19 19:26 GMT+07:00 Syamsudin Rasyid [email protected] >> [belajar-excel] <[email protected]>: >> >> >>> >>> Yth. para master excell dan rekan rekan dalam group >>> Saya mengalami kesulitan dalam menggabung cell di excell, saya inginnya >>> kata-kata yang sama hanya muncul sekali. file terlampir >>> >>> -- >>> >>> >> > > -- ================================================================== - Guru Matematika dan TIK - Untuk mendapatkan informasi tentang pembelajaran yang menggunakan ICT berbasis web silhakan kunjungi http://www.syamsudin06.org ================================================================== Kelemahan adalah Kekuatan yang belum di ketahui Pemanfaatannya ==================================================================
