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

[anton suryadi]

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
>