Tecnologia, programação e muito Visual FoxPro.

terça-feira, 12 de janeiro de 2010

Re: ]] XL-mania [[ mengunci dan mengunci

 

Ternyata tanggapan2nya lumayan membantu mencerahkan permasalahanku.. :)

Ceritanya gini aku mau bikin program kalkulasi. intinya aku cuman masukin data input ntar outputnya keluar sendiri kalo di-calculate
Sementara kalkulasinya masih mumet.. bingung bikin codenya.. hehehe

Nah yg aku tanyain kemaren tuh cmn bumbu-nya biar tambah sedap.. :D :D

Case 2 aku cancel.. akhirnya aku pake data validation.. lebih gampang.. :D
Makasih buat mbak siti & mas lahar.. ide2 sampean ber2 tak masukin ke code yg saya bikin..
Alhasil jadilah codenya sbb :

Private Sub NewSheet_Click()
   ' Create New Sheet
   Dim LembarBaru As Worksheet
   Dim NamaSheet As String
   NamaSheet = InputBox(Prompt:="Please Type New Sheet Name ", _
               Title:="RO Calculation - Creating New Sheet")
   If Len(NamaSheet) = 0 Then Exit Sub
   ActiveSheet.Copy after:=Sheets(Sheets.Count())
   Set LembarBaru = ActiveSheet
   LembarBaru.Name = NamaSheet
   LembarBaru.Move after:=Sheets(Sheets.Count)
   ActiveSheet.Range("G8:G19,B30:J36,B40:J46").ClearContents
   ActiveSheet.Range("G8").Select
End Sub

Tambahan lagi...  :D :D

kalo case iterasi biasanya kalian pake looping ato pake Goal seak formula di excell?

misalnya pake loop : metode pendekatan apa ya yg dipakai agar hasilnya konvergen?
maksudnya gini. misalkan kita kasih nilai awal = x.  ternyata hasilnya diatas set poin.
nah pendekatan apa yg dipakai utk menentukan nilai trial baru?  
bingung nih nentuinnya.. misal tak set gini new_x=x+0.001 --> kita ga tau nilai x yg baru ini akan semakin mendekati set point ato malah menjauh
masalahnya utk nilai x tertentu kadang semakin mendekati nilainya tp kadang malah menjauh dari set point --> semakin divergen

mmm... ngelu... ndas mumet..

kasih advise donK



Cheers,
VD


From:<yogan28@yahoo.co.jp>
To:XL-mania@yahoogroups.com
Date:01/08/2010 01:52 AM
Subject:Re: ]] XL-mania [[ mengunci dan mengunci
Sent by:XL-mania@yahoogroups.com





 

Dear Mr. Vidi,

Terlampir adalah jawaban dari saya untuk masalah yang Anda hadapi.

Semoga bermanfaat.

Regards,

Lahar

--- Vidi Ardyanto <
Vidi.Ardyanto@jgc-indonesia.com> wrote:

> Temans,
>
> Minta referensi code makro utk case2 berikut donk :
>
> 1. Membuat sheet baru dg menekan Command button.
> kondisi : - sheet baru ada di workbook yg sama.
> - nama sheet diinput oleh user
> - posisi sheet baru diletakkan di paling
> kanan
> (move to end)
> - command button ikut tercopy jg di sheet yg
> baru ( code jg bisa dijalanin di sheet yg baru )
> - data inputan ( misal di range B4:B10 )
> direset jadi kosong lagi
> - Active cell ada di sheet baru cell B4
> 2. Mengunci cell tertentu pada kondisi tertentu.
> kondisi : - misal if A1=0 ---> Range B5:B6 tidak bisa diinput
> - ketika coba diinput keluar ceramah kyk gini
> misal " it is not necessary to be inputed, not applicable boss..."
> - warna range dibikin jadi gray pada kondisi
> tsb
> - kondisi berubah normal kembali ketika syarat
>
> tidak terpenuhi lg
> 3. Mengunci code yg kita bikin
> kondisi : - ketika ada user mau coba lihat/mengedit codenya, dia
>
> harus punya password.
>
> sementara ini dulu.. :D:D:D
>
> cheers,
> VD
> This email and any attachments to it may be confidential and are
> intended solely for the use of the individual to whom it is addressed.
> Any views or opinions expressed are solely those of the author and do
> not necessarily represent those of PT. JGC Indonesia. If you are not the
> intended recipient of this email, you must neither take any action based
> upon its contents, nor copy or show it to anyone. Please contact the
> sender if you believe you have received this email in error.
>
>

--------------------------------------
Get the new Internet Explorer 8 optimized for Yahoo! JAPAN

http://pr.mail.yahoo.co.jp/ie8/

[attachment "Test_1.xls" deleted by Vidi Ardyanto/1158/JID/ID]
This email and any attachments to it may be confidential and are intended solely for the use of the individual to whom it is addressed. Any views or opinions expressed are solely those of the author and do not necessarily represent those of PT. JGC Indonesia. If you are not the intended recipient of this email, you must neither take any action based upon its contents, nor copy or show it to anyone. Please contact the sender if you believe you have received this email in error.

__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Resolusi 2010 XL-mania: terbitkan buku lagi... hehehe...          |  
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
.

__,_._,___

Nenhum comentário:

Arquivo do blog