Re: [belajar-excel] Coret Faktur Pajak, siapa takut ?

[hendrik karnadi]

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
   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
>