Tampilkan postingan dengan label simpan file. Tampilkan semua postingan
Tampilkan postingan dengan label simpan file. Tampilkan semua postingan

Kamis, 21 Juni 2012

Kegunaan setting regional pada format angka di excel

Pertama saya jelaskan dulu dimana letak setting regional ini :
Setting regional ini letaknya di control panel --> Regional and language option spt gambar di bawah :
 <'' gambar setting regional ">
http://mymacrosformula.blogspot.com

Apa pengaruhnya regional ini pada excel?
Sangat pengaruh terutama saat kita akan menyalin atau copy paste dari aplikasi lain misal : web banking, SAP, program program perhitungan lainnya ke excel.

Rabu, 06 Juli 2011

Formula macro excel 1

ini adalah formula excel yang sering kugunakan
Norumusketerangan
1FileCopy "3 data.xls", "3 data " & Format(Date - 2, "dddd,") & Format(Date - 2, "dd mmmm yyyy") & ".xls"kegunaanya mengubah nama file menjadi nama file plu s tgl 2 hari mundur dari sekarang
2Selection.AutoFilterpasang filter atau lepaskan filter
3Range("a2:y6000").SelectSelection.ClearContentsmenghapus data pada range/ blok
4Application.Run _
"'(3) PEMBANTU LKU.xls'!HAPUS_JURNAL"
menjalankan macro yg sdh disimpan
5ActiveWorkbook.Save
ActiveWindow.Close
menyimpan file dan menutup file
6ChDir _
(Range("f1"))
ref tempat folder (diisi dengan rumus alamat folder file)
7(Range("L4")) referensi folder yg akan dibuka ditaruh di cell tertentu dengan rumus file
8=LEFT(CELL("filename";J4);SEARCH("[";CELL("filename";J4))-2)contoh formula dengan file info address
9....................... http://mymacrosformula.blogspot.com
10.....http://mymacrosformula.blogspot.com...........
11......................
12........................http://mymacrosformula.blogspot.com
13...........................
14.........http://mymacrosformula.blogspot.com...........
15Sheets("progress ").Select
Sheets("progress ").Name = "pospaid"
Sheets("progress (2)").Select
Sheets("progress (2)").Name = "pospaid rinci"
merubah nama sheet dari progress ke pospaid
16Sheets("CEK SELISIH data asli").Select
Sheets("CEK SELISIH data asli").Copy
ChDir "D:\1 interface pusat"
ActiveWorkbook.SaveAs Filename:= _
(Range("m40"))
copy sheet dan menyimpan dgn nama baru sesuai referensi di cel m40
17Selection.NumberFormat = "ddmmyyyy"format cell dengan format tanggal
18Selection.AutoFilter Field:=2, Criteria1:="ZR"filter kolom 2 dengan isi "ZR"
19Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Selectmemblok sampai cell terakhir
20Sheets("Sheet3").Name = "zrnonsapbatch"mengganti nama sheet http://mymacrosformula.blogspot.com
21ActiveWorkbook.BreakLink Name:= _
"D:\1 interface pusat\1 file induk cek interface.xls", Type:=xlExcelLinks
untuk memutuskan link dari file lain, sehingga value menjadi value tersendiri seperti tampilan
http://mymacrosformula.blogspot.com
22Rows("301:375").Select
Selection.EntireRow.HIDDEN = True

Columns("I:I").Select
Selection.EntireColumn.HIDDEN = True
menyembunyikan baris (contoh baris 301 s/d 375 dan menyembunyikan kolom (contoh kolom i) http://mymacrosformula.blogspot.com

Page View