Koreksi cara 1. Atau bagian :
Sheets(MASA).Range(C xy)= _
worksheetfunction.Index(Sheets(BPS).Range(A3:J20),worksheetfunction.Match(ms,
Sheets(BPS).Range(A3:A20), 0), 10)
diganti menjadi :
Sheets(MASA).Range(C xy)= _
terima kasih. mau tanya lagi misalnya data awalnya itu text yg isinya
angka lebih dari 15 ketika dijalankan vba di atas hasi lnya menjadi
number. supaya hasilnya tetap text bagaimana ya
2012/10/30, Mr. Kid mr.nm...@gmail.com:
Coba :
'Dim hasil As String
Dim ms As Long
dim xy as Long
For xy
2012/10/30, Mr. Kid mr.nm...@gmail.com:
Coba :
'Dim hasil As String
Dim ms As Long
dim xy as Long
For xy = 2 To 13
ms = Sheets(MASA).Range(a xy)
if worksheetfunction.countif( Sheets(BPS).Range(A3:A20) , ms )
0 then
Sheets(MASA).Range(C xy)= _
dikomputer saya kalau pakai worksheetfunction ngga bisa tapi kalau
pakai Application bisa, kira-kira kenapa ya
beda
Sheets(MASA).Range(C xy)= _
worksheetfunction.Index(Sheets(BPS).Range(A3:J20),worksheetfunction.Match(ms,
Sheets(BPS).Range(A3:A20), 0), 10)
dibandingkan dengan ini
Pakai Excel berapa ?
Ada juga yang demikian ya...
Kalau pakai Application.worksheetfunction bisa gak ? (cuma pengen tahu saja)
Kalau bisanya pakai Application ya pakai Application saja gak perlu pakai
worksheetfunction. Hanya saja, mungkin beberapa fungsi bawaan Excel (yang
dipakai di worksheet)
saya pakai office 14, kalau ditambahain Application.WorksheetFunction
tapi untuk WorksheetFunction.CountIf tanpa ditambahan Application bisa
untuk
Sheets(MASA).Range(C xy)= _
worksheetfunction.Index(Sheets(BPS).Range(A3:J20),worksheetfunction.Match(ms,Sheets(BPS).Range(A3:A20),
0), 10)
dan
iya makasih pak kid, cuma sayang di office 14 ngga bisa menampilkan
kalender, saya search di milis ini ada langkah yang diberikan pak kid
namun setelah saya coba koq belum berhasil ya
Kalender yang mana nih ?
DateTime Picker dari Windows Common Control ?
Mungkin kalau di engine office 64Bit harus cari library yang 64bit
juga kaliya ?
Tapi, kayanya masih bisa selama diregister dalam SysWOW64
Kalau MSCalender yang ada di MSCal.ocx, memang tidak bisa lagi dan sebaiknya
pakai
saya coba buat rumus seperti ini
Dim hasil As String
Dim ms As Long
dim xy as Long
For xy = 2 To 13
ms = Sheets(MASA).Range(a xy)
hasil = Application.Index(Sheets(BPS).Range(A3:J20),
Application.Match(ms, Sheets(BPS).Range(A3:A20), False), 10)
If IsError(hasil) Then hasil = Else hasil = hasil
Coba :
'Dim hasil As String
Dim ms As Long
dim xy as Long
For xy = 2 To 13
ms = Sheets(MASA).Range(a xy)
if worksheetfunction.countif( Sheets(BPS).Range(A3:A20) , ms )
0 then
Sheets(MASA).Range(C xy)= _
10 matches
Mail list logo