coba juga, Sub NoCoret() Sheets(Array("LEMBAR1", "LEMBAR2")).Select With Range("C40") .Value = "Harga Jual / Penggantian / Uang Muka / Termijn *)" .Font.Strikethrough = True .Characters(Start:=11, Length:=3).Font.Strikethrough = False .Characters(Start:=25, Length:=3).Font.Strikethrough = False .Characters(Start:=37, Length:=3).Font.Strikethrough = False .Characters(Start:=47, Length:=3).Font.Strikethrough = False End With If Range("Q2").Value = "Harga Jual" Then Range("C40").Characters(Start:=1, Length:=10).Font.Strikethrough = False ElseIf Range("Q2").Value = "Penggantian" Then Range("C40").Characters(Start:=14, Length:=11).Font.Strikethrough = False ElseIf Range("Q2").Value = "Uang Muka" Then Range("C40").Characters(Start:=28, Length:=9).Font.Strikethrough = False ElseIf Range("Q2").Value = "Termin" Then Range("C40").Characters(Start:=40, Length:=7).Font.Strikethrough = False End If End Sub
>semoga bermanfaat ________________________________ From: stdev i <setiyowati.d...@gmail.com> To: belajar-excel@yahoogroups.com Sent: Tue, May 18, 2010 4:06:06 PM Subject: Re: [belajar-excel] Coret Faktur Pajak, siapa takut ? yup jadi mempermudah para petugas adm pajak di kantor2 ya... nah agar lebihmudah (menulis makronya); codingnya masih bisa diringkas '---workbook V1 Private Sub HargaJual() With ActiveCell .Characters( 1, 10).Font.Strikethro ugh = False .Characters( 11, 3).Font.Strikethrou gh = False .Characters( 14, 11).Font.Strikethro ugh = True .Characters( 25, 3).Font.Strikethrou gh = False .Characters( 28, 9).Font.Strikethrou gh = True .Characters( 37, 3).Font.Strikethrou gh = False .Characters( 40, 7).Font.Strikethrou gh = True .Characters( 47, 3).Font.Strikethrou gh = False End With End Sub Private Sub Penggantian( ) With ActiveCell .Characters( 1, 10).Font.Strikethro ugh = True .Characters( 11, 3).Font.Strikethrou gh = False .Characters( 14, 11).Font.Strikethro ugh = False .Characters( 25, 3).Font.Strikethrou gh = False .Characters( 28, 9).Font.Strikethrou gh = True .Characters( 37, 3).Font.Strikethrou gh = False .Characters( 40, 7).Font.Strikethrou gh = True .Characters( 47, 3).Font.Strikethrou gh = False End With End Sub Private Sub UangMuka() With ActiveCell .Characters( 1, 10).Font.Strikethro ugh = True .Characters( 11, 3).Font.Strikethrou gh = False .Characters( 14, 11).Font.Strikethro ugh = True .Characters( 25, 3).Font.Strikethrou gh = False .Characters( 28, 9).Font.Strikethrou gh = False .Characters( 37, 3).Font.Strikethrou gh = False .Characters( 40, 7).Font.Strikethrou gh = True .Characters( 47, 3).Font.Strikethrou gh = False End With End Sub Private Sub Termin() With ActiveCell .Characters( 1, 10).Font.Strikethro ugh = True .Characters( 11, 3).Font.Strikethrou gh = False .Characters( 14, 11).Font.Strikethro ugh = True .Characters( 25, 3).Font.Strikethrou gh = False .Characters( 28, 9).Font.Strikethrou gh = True .Characters( 37, 3).Font.Strikethrou gh = False .Characters( 40, 7).Font.Strikethrou gh = False .Characters( 47, 3).Font.Strikethrou gh = False End With End Sub Sub NoCoret() Sheets(Array("LEMBAR1", "LEMBAR2")).Select Range("C40").Select ActiveCell = "Harga Jual / Penggantian / Uang Muka / Termijn *)" Select Case [Q2] Case "Harga Jual": Call HargaJual Case "Penggantian": Call Penggantian Case "Uang Muka": Call UangMuka Case "Termin": Call Termin End Select Range("C39").Select End Sub atau bahkan lebih ringkas lagi karena dipakai cara mengcopy salah satu kalimat dari 4 kalimat yg sudah disiapkan (lengkap dengan coretannya) keempat kalimat itu (di S40:S43) tidak kelihatan karena kolom disembuyikann '-----workbook V2 Sub NoCoret() Sheets(Array("LEMBAR1", "LEMBAR2")).Select Range("C40").Select Select Case [Q2] Case "Harga Jual" Range("S40").Copy Case "Penggantian" Range("S41").Copy Case "Uang Muka" Range("S42").Copy Case "Termin" Range("S43").Copy End Select Range("C40").PasteSpecial xlPasteAllExceptBor ders Application. CutCopyMode = False End Sub 2010/5/18 hendrik karnadi <hendrikkarnadi@ yahoo.com> > > > > > > > > > > > > > > > > >> > >> > >Ini sekedar bagi - bagi "pengalaman kecil" mengenai Faktur Pajak. > >Faktur Pajak merupakan barang antik yang tidak boleh sembarang dicorat - >coret, tetapi repotnya ada bagian yang harus dicoret (jika tidak dicoret >"katanya" ga sah). >Repotnya lagi kalau yang harus dicoret ada banyak dan ga boleh asal/salah >coret kan bisa pegal tuh tangan kita. > >Nach, ini ada "program kecil-kecilan" yang mungkin bisa membantu. > >Salam, >Hendrik Karnadi >