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]> 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]] *On Behalf Of *Jan Raisin > *Sent:* 10 April 2013 9:32 > *To:* [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]> 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 ™**** > > **** > > ** ** > > **** > > >
<<image003.png>>
<<image001.gif>>
<<image005.jpg>>
<<image004.png>>
