Tecnologia, programação e muito Visual FoxPro.

segunda-feira, 5 de agosto de 2013

Fw: ]] XL-mania [[ database sederhana berdasarkan inputan

 

Untuk mempersingkat penulisan kode bisa dipakai perintah blok With .... End With
sehingga prosedur ini:

Sub InputData()
    Dim lrow As Long
    lrow = Sheets("Master Database").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
    Sheets("Master Database").Cells(lrow, 1).FormulaR1C1 = "=N(R[-1]C)+1"
    Sheets("Master Database").Cells(lrow, 2).Value = Sheets("Input").Range("C4")
    Sheets("Master Database").Cells(lrow, 3).Value = Sheets("Input").Range("F4")
    Sheets("Master Database").Cells(lrow, 4).Value = Sheets("Input").Range("F5")
    Sheets("Master Database").Cells(lrow, 5).Value = Sheets("Input").Range("C6")
    Sheets("Master Database").Cells(lrow, 6).Value = Sheets("Input").Range("F6")
    'Lanjutkan, mengacu kepada Cells dan Range ybs
    Sheets("Master Database").Cells(lrow, 15).Value = Sheets("Input").Range("H19")
    'Lanjutkan, mengacu kepada Cells dan Range ybs
End Sub

bisa diganti dengan:

Sub InputData()
    Dim lrow As Long
    With Sheets("Master Database")
        lrow = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
        .Cells(lrow, 1).FormulaR1C1 = "=N(R[-1]C)+1"
        .Cells(lrow, 2).Value = Sheets("Input").Range("C4")
        .Cells(lrow, 3).Value = Sheets("Input").Range("F4")
        .Cells(lrow, 4).Value = Sheets("Input").Range("F5")
        .Cells(lrow, 5).Value = Sheets("Input").Range("C6")
        .Cells(lrow, 6).Value = Sheets("Input").Range("F6")
        'Lanjutkan, mengacu kepada Cells dan Range ybs
        .Cells(lrow, 15).Value = Sheets("Input").Range("H19")
        'Lanjutkan, mengacu kepada Cells dan Range ybs
    End With
End Sub

Tanda "."(titik, tanpa spasi) harus ada.

Salam,
HK


----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Monday, 5 August 2013, 20:45
Subject: Re: ]] XL-mania [[ database sederhana berdasarkan inputan

Hai Musriadi,
Anda ingin mempercepat pekerjaan saat ini dan masa yang akan datang bukan ?

Solusi yang saya buat berupa macro (sebagian) harus anda lanjutkan sehingga anda bukan hanya mendapatkan ikan tapi juga kailnya

Caranya begini:
- Tampilkan Developer Tab dan aktifkan Macro sebelum membuka file
- Buka File
- Tekan Alt F11 secara bersamaan
- Lanjutkan Code sesuai petunjuk.
- Simpan kembali file

Cara mengatifkan Macro melalui tombol Save adalah sbb:
- Klik Developer Tab
- Klik Design Mode
- Klik kanan tombol Save
- Klik Assign Macro
- Pilih InputData

Cara mengatifkan Macro melalui tombol Clear adalah sbb:
- Klik Developer Tab
- Klik Design Mode
- Klik kanan tombol Clear
- Klik Assign Macro
- Pilih HapusData

Jika anda melakukan hal - hal di atas dengan benar maka anda sekaligus dapat mempercepat penyelesaian masalah dan mengenal/belajar aplikasi macro.

Semoga sukses.

Salam,
Hendrik Karnadi



From: MSJ Planners Block D <MSJ.PlannersBlockD@leighton.co.id>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Thursday, 1 August 2013, 14:39
Subject: ]] XL-mania [[ database sederhana berdasarkan inputan

 
Dear XL Mania,
Apakah bisa buatkan juga seperti data yang terlampir, dimana di Sheet INPUT jika sudah di klik SAVE maka otomatis masuk ke Master Database.  Saat ini saya masih kerja manual yaitu copy satu persatu, kiranya rekan XL mania berkenan untuk men solve yang saat ini saya kerjakan. Demikian. Dan terima kasih.
 
 
Salam,
Musriadi

______________________________________________________________________
This email has been scanned by the Symantec Email Security.cloud service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________




__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (3)
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Maaf moderasi terlambat karena yahoogroups sering error           |
+-------------------------------------------------------------------+
| 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.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