Re: [belajar-excel] Coret Faktur Pajak, siapa takut ?
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
Re: [belajar-excel] Coret Faktur Pajak, siapa takut ?
kode dari Pak Anton untuk lembar2 memang tidak dikerjakan oleh prosedur nocoret, karena semua if pelepas coret menggunakan Range(C40). Jika Range(C40) dihilangkan, lalu end with diletakkan dipaling bawah, mestinya bisa, jika setelah sheet array select ada range(c40) select kemudian with terhadap selection bukan terhadap range(c40). Silakan dicoba : Sub NoCoret() Sheets(Array(LEMBAR1, LEMBAR2)).Select Range(c40).Select With Selection .Formula = 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:=4).Font.Strikethrough = False If InStr(.Value, Left(Range(Q2).Value, 5)) 0 Then .Characters(Start:=InStr(.Value, Left(Range(Q2).Value, 5)), _ Length:=Len(Range(q2).Value) + 1).Font.Strikethrough = False End If End With End Sub 2010/5/18 hendrik karnadi hendrikkarn...@yahoo.com Thank you Mbak Siti dan Pak Anton atas tanggapannya. VBA Code Pak Anton cukup singkat, namun sayangnya LEMBAR2 nya ga mau ikutan alias CUEK BEBEK.. Salam, Hendrik Karnadi -- *From:* anton suryadi summon...@yahoo.com *To:* belajar-excel@yahoogroups.com *Sent:* Tuesday, May 18, 2010 16:40:30 *Subject:* Re: [belajar-excel] Coret Faktur Pajak, siapa takut ? 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.Strikethrou gh = False ElseIf Range(Q2). Value = Penggantian Then Range(C40) .Characters( Start:=14, Length:=11). Font.Strikethrou gh = 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.devi@ 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