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 <[email protected]>
>
>
> 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 <[email protected]>
>
> *To:* [email protected]
> *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
> 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<[email protected]>
> >
>
>>
>>
>> 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
>>
>>
>
>
>
>
