Siiiip Ms Jan, Manjur tenan. Makasiiih....
PRAZTMATH T
From: [email protected] [mailto:[email protected]]
On Behalf Of Jan Raisin
Sent: 10 April 2013 11:37
To: [email protected]
Subject: Re: [belajar-excel] otomatis ganti sesuai nm wrkbook
coba formula berikut ini ditulis pada cell yang dimaksud
=MID(CELL("filename");FIND("[";CELL("filename"))+1;(FIND("]";CELL("filename"
))-FIND("[";CELL("filename"))-1))
>> jika regional setting adalah English maka ganti setiap tanda titik koma
yang dimerahin dengan menggunakan koma
>> untuk menghide formula, klik kanan cell, format cell, protection, beri
centrang pada Lock Cell dan Hidden, lalu protek sheet tsb
Wassalam,
-Miss Jan Raisin-
Pada 10 April 2013 11.14, PRAZT <[email protected]
<mailto:[email protected]> > menulis:
Siip Ms Jan, Ane masih bingung Gan menggunakan fungsi2 Text yg seperti anda
bilang dalam kasus ini. Mohon bantuannya..
From: [email protected] [mailto:[email protected]
<mailto:[email protected]> ] On Behalf Of Jan Raisin
Sent: 10 April 2013 9:32
To: [email protected] <mailto:[email protected]>
Subject: Re: [belajar-excel] otomatis ganti sesuai nm wrkbook
gimana kalo gak usah pake vba aja?
di cell yang ingin dimunculkan namanya diisi dengan formula ini;
=Cell("filename")
>> akan menghasilkan full name lenngkap dengan path-nya, jika ingin
mengambil nama filenya saja bisa dikombinasikan dengan fungsi2 Text
Wassalam,
-Miss Jan Raisin-
Pada 10 April 2013 09.15, PRAZT <[email protected]
<mailto:[email protected]> > menulis:
Dera para master, minta bantuan pada para master tentang masalah
berikut;
Saya menginginkan ada sebuah workbook yang saya kasih macro, jika
saya ganti nama workbook tersebut maka pada sheet1 cell B3 itu sesuai dengan
nama workbook meskipun workbooknya diganti ganti. Tetapi masih berkendala
jika sheet1 cell B3 itu ikut saya protect maka pada sheet1 cell B3 tidak
bisa secara otomatis berubah mengikuti nama workbook tersebut, mohon
pencerahannya.
Kode macro yang saya buat seperti berikut ;
Sub jajal()
ActiveCell.FormulaR1C1 = "=WkbName()"
Range("B3").Select
End Sub
(Terdapat pada sheet 1)
______________________________________________
Function WkbName()
WkbName = ActiveWorkbook.Name
End Function
(Terdapat pada macro 1)
Supaya lebih jelas saya ilustrasikan pada Ike terlampir. Syukron....
PRAZTMATH T
<<image002.png>>
<<image004.png>>
<<image006.jpg>>
<<image007.gif>>
<<image008.png>>
<<image009.jpg>>
