Selain itu, kita di VBA kan punya property bernama *International*
Property ini anak buah langsung dari Application, dan punya parameter
buanyak sekali
antara lain *xlListSepaprator
*coba buatlah prosedur yg berisi statement
msgbox Application.International(xlListSeparator)
maka msg box akan menampilkan list separator yg sedang terpakai
kalau ndak , (koma) mungkin ; (semi colon)
artinya Excel itu selalu tahu list separator yg resmi sedang terpakai
kita tinggal memanfaatan saja "ketahuan" excel tsb
jadi makroh pak andara
di module standar di bagian general baiknya dideclare
*Pubic sp as string*
trus di prosedures yg akan menuliskan text formula
didahului dengan
sp = Application.International(xlListSeparator)
' penulisan koma atau titik kota diganti dengan variable sp
Range("E1").Select
Selection.FormatConditions.Delete
* Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(E1<(TODAY()-1) & sp & V1<=0)"
*
Selection.FormatConditions(1).Font.ColorIndex = 2
Selection.FormatConditions(1).Interior.ColorIndex = 32
Mudah mudahan ndak terlalu salah...
=ctv=
2008/9/11 Ayang <[EMAIL PROTECTED]>
> tambahin on error resume next atau on error goto... dan kombinasi
> separator
> formula yg digunakan. misal:
> **
> *On Error Resume Next*
> *Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
> "=AND(E1<(TODAY()-1);V1<=0)"*
>
>
> *On Error Resume Next*
> *Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
> "=AND(E1<(TODAY()-1):V1<=0)"*
> **
>
> ==============================================================
>
>
> *On Error goto Line1*
> *Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
> "=AND(E1<(TODAY()-1);V1<=0)"*
> **
> *Line1:*
> *Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
> "=AND(E1<(TODAY()-1):V1<=0)"*
> dst...
>
> tinggal tambahin separator formula yg digunakan dimasing2 komputer yg
> berbeda settingnya.
> memang ini bukan solusi yg smart alias boros script. mungkin dari para
> pakar
> excel punya solusi jitu :-)
>
> thx & rgds,
>
> -Ayang-
>
> On 9/9/08, andara pasuma <[EMAIL PROTECTED]> wrote:
>
>
> --
> Best Regards,
>
>
> - Ayang -
>
> Please consider the environment before printing this email.
>
> Selamat sore,
>
> Bapak dan ibu,
> Mau minta tolong nih,
>
> Saya punya sebuah macro, yang pada saat di set di computer saya ( language
> setting indonesia, separatornya pake ; )
>
> Berhubung program saya ini, akan dipakai di berbagai computer bahkan
> mungkin
> property lain, saya tidak bisa control semua computer yang mau pakai
> program
> ini.
>
> Bagaimana cara menjembataninya ya ?
>
> ( misalkan kalo Computer di setting ke English Us ( maka tulisan Formula1:=
> akan ditulis dengan FormulaR1C1) & ( Separator misalkan ada yang pakai Koma
> akan ditulus titik koma )
>
> Saya sertakan tempat pertama macro saya berhenti ( debug ( maaf saya bold
> biar lebih jelas ))
>
>
>
