Tecnologia, programação e muito Visual FoxPro.

quarta-feira, 20 de julho de 2011

Re: ]] XL-mania [[ Belajar membuat data base

 

Private Sub CommandButton1_Click()
   ' siti Vi / 21 juli 2011
   ' XL-mania #??? 
   ' (di mesage-List kok ndak ada ya )
   '----------------------------------
   SeleRec As Range, matt, 
   Dim Tbl As Range, n As Integer, i As Long

   matt = Array("Carbon Steel", "Stainless Steel 304", "Stainless Steel 316", "dlsbg")
   Set Tbl = Range("B5").CurrentRegion
   For i = Tbl.Rows.Count To 2 Step -1
      Set SeleRec = Tbl(i, 1).Resize(1, Tbl.Columns.Count)
      For n = 0 To UBound(matt)
         If n < UBound(matt) Then _
            SeleRec.Offset(n + 1, 0).Insert Shift:=xlDown
         SeleRec.Copy SeleRec(n + 1, 1)
         SeleRec(n + 1, 4) = matt(n)
      Next n
   Next
   Application.CutCopyMode = False

End Sub




2011/7/20 Sri Yansen Tanjung <sri.yansen@gmail.com>


Selamat Sore XL-Mania,

Saya dapat tugas dari kantor untuk membuat data base harga material. 
Setiap material tersebut jenisnya bisa terdiri dari beberapa buah. Salah satu contoh misalnya: untuk Monitor Regulator, sizenya terdiri dari: 2,3,4,6,8,10 dst, class/ratingnya terdiri dari 150,300,600,900 dst dan materialnya bisa terdiri dari Carbon Steel, Stainless Steel 304, Stainless Steel 316 dlsbg. Mohon bantuannya bagaimana caranya agar membuat data basenya?

terlampir data yang sudah saya buat..tetapi saya ada masalah dalam mengisikan data material dan juga vendornya. Karena jenis material dan vendor ini lebih dari satu.

wassalam, 

-- 
Sri Yansen
mobile: +62 811 938974
Taman Serua RT03/RW08
Blok D3/12 A
Serua, Bojongsari,Depok
Jawa Barat 16517


__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| tiap tanggal gajian, order buku "mengapa boss benci chart anda    |
| membludak :) ayo2 pesan yang belum punya....                      |
| www.facebook.com/pages/XL-mania/104233892978057                   |
+-------------------------------------------------------------------+
| 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