Hai Marone.. ikutan ya.. boleh kan.. tapi gak ikut urun solusi ya.. kalo mau memunculkan kata2 DATA SAMA di user form.. tinggal ketik saja di kotak Caption milik si user form..
ini Jan kutip dari pertanyaan sebelumnya: " tolong saya dibantu untuk membuat system untuk bisa memberi warning jika data sama dan menampilkan data sama sebelumnya... (file terlampir) " dan contoh yang diberikan adalah tampilan pada worksheet bukan tampilan pada user form, yang ternyata tidak sesuai dengan keinginan sdr Marone.. kalo bisa nih ya.. biar diskusinya bisa lebih nyambung dan gak seperti minta sekedar jadinya saja.. dengan cara tebak-tebakann.. bisa dikasih tau contoh tampilan yang diinginkannya di user form itu seperti apa? kalo pencet tombol ini maka tampilan di user formnya seperti ini.. dan tampilan di sheetnya seperti ini.. kalo pencet tombol itu maka tampilan di user formnya seperti itu.. dan tampilan di sheetnya seperti itu.. terus ada yang baru nih.. tombol Normal.. itu untuk apa ya? kalo tombol itu ditekan.. perubahan seperti apa yang terjadi? di user form? atau di sheet? terus itu tombol mau ditaruh di mana? di user form? apa di sheet? Kasihan Be-Exceller yang udah capek2 bantu bikin solusi tapi ternyata gak sesuai dengan keinginan.. karena tampilan akhir yang diinginkannya juga gak ada.. gitu dulu aja deh dari Jan.. tetap semangat ya.. -Miss Jan Raisin- Pada 4 Oktober 2013 11.20, marone oke <[email protected]> menulis: > ** > > > Dear DWINT RUSWANTO.... > terima kasih atas solusinya...tapi sepertinya masih ada kendala, antara > lain : > > - jika data sama, maka pada tampilan user form tertulis kata "DATA SAMA" lalu > ditampilkan seluruh data yang sama > (yg diblok kuning) pada user form > > - jika klik tombol LANJUT, maka input data dibolehkan dan tampilan > normal kembali > > - jika klik tombol BATAL. maka input data tidak boleh > > begitu clue nya...mohon maaf sudah merepotkan, karna saya masih belajar VB > terima kasih atas bantuannya > > best regard > > > ------------------------------ > *Dari:* dwint ruswanto <[email protected]> > *Kepada:* "[email protected]" <[email protected]> > *Dikirim:* Rabu, 2 Oktober 2013 15:02 > *Judul:* Bls: [belajar-excel] warning data sama dan tampilkan data sama > sebelumnya [1 Attachment] > > > Hai Marone, > > Sekedar pendapat pribadi saya, pada kasus ini hanya diperlukan 2 buah > tombol saja yaitu Batal dan Lanjut, karena pada saat ada nilai yang sama > secara otomatis akan ditampilkan nilai-nilai yang sama, sehingga user hanya > perlu untuk melanjutkan atau membatalkan inputan data. > > scriptnya sbb: > > ditulis pada sheet1: > ==================== > Private Sub Worksheet_Change(ByVal Target As Range) > Dim rgNilai As Range, celNilai As Range > Dim lRow As Long > Dim iCount As Integer > > With Target > If .Count = 1 Then > If .Column = 3 And .Row > 2 Then > lRow = Cells(Rows.Count, 3).End(xlUp).Row > Set rgNilai = Range(Cells(3, 3), Cells(lRow, 3)) > iCount = Application.WorksheetFunction.CountIf(rgNilai, .Value) > If iCount > 1 Then > For Each celNilai In rgNilai > If celNilai.Value = .Value Then > Range(celNilai.Offset(, -1), celNilai).Font.Size = > 15 > Range(celNilai.Offset(, -1), celNilai).Font.Bold = > True > Range(celNilai.Offset(, -1), > celNilai).Interior.Color = vbYellow > End If > Next celNilai > UserForm1.Show > End If > End If > End If > End With > End Sub > > > ditulis pada user form: > ======================= > Private Sub cmdLanjut_Click() > NormalLagi > Cells(lRow + 1, 2).Select > Unload Me > End Sub > > Private Sub cmdStop_Click() > NormalLagi > Range(Cells(lRow, 2), Cells(lRow, 3)).ClearContents > Cells(lRow, 2).Select > Unload Me > End Sub > > ditulis pada sebuah modul: > ========================== > Public lRow As Long > > Sub NormalLagi() > Dim rgNilai As Range, celNilai As Range > > Application.ScreenUpdating = False > lRow = Cells(Rows.Count, 3).End(xlUp).Row > Set rgNilai = Range(Cells(3, 3), Cells(lRow, 3)) > For Each celNilai In rgNilai > If celNilai.Font.Bold = True Then > Range(celNilai.Offset(, -1), celNilai).Font.Bold = False > Range(celNilai.Offset(, -1), celNilai).Font.Size = 11 > Range(celNilai.Offset(, -1), celNilai).Interior.Color = vbWhite > End If > Next celNilai > Application.ScreenUpdating = True > End Sub > > semoga sesuai dengan harapan. > > Salam, > > -dwint- > ------------------------------ > *Dari:* marone oke <[email protected]> > *Kepada:* [email protected] > *Dikirim:* Rabu, 2 Oktober 2013 11:28 > *Judul:* [belajar-excel] warning data sama dan tampilkan data sama > sebelumnya [1 Attachment] > > > Dear pakar Excel... > > tolong saya dibantu untuk membuat system untuk bisa memberi warning jika > data sama dan menampilkan data sama > sebelumnya... (file terlampir) > > terima kasih sebelumnya... > > best regard >
