Untuk ambil nilai qty : (tambahkan ke prosedur yang memicu harus terisinya sebuah control dengan nilai qty) dim sItem() as string,dblQty as double sitem=split(TbPartno.text," ") select case left$(TbPartno.text,3) case "3N1" dblqty=cdbl(sitem(2)) case "3N2" dblqty=cdbl(sitem(1)) case else dblqty=0 end select
Setelah itu, nilai dblqty bisa dipasang ke control yang Anda inginkan. Wassalam, Kid. 2012/12/6 ngademin Thohari <[email protected]> > ** > > > Be-exceller, mr. kid > > begini gambarannya, mohon maaf kalau kurang penjelasannya, berikut > lampirannya > > Pertanyaan: > 1. ada 3 data berbeda yang akan dimasukkan ke dalam data quantity > contoh : 3N2 10000 072466493D angka 10000 akan otomatis masuk kedalam > quantity > saat ini hanya bisa diinput manual > 2. contoh yang kedua: 3N1ERJ3GEY0R00V 5000 angka 5000 yang akan masuk > kedalam quantity > 3. contoh ke tiga : TAJA106M016RNJ tidak ada angka yang masuk kedalam > quantity tapi diinput dengan manual > > Terima kasih supportnya > > > amin > > ------------------------------ > *Dari:* Mr. Kid <[email protected]> > *Kepada:* [email protected] > *Dikirim:* Kamis, 6 Desember 2012 22:45 > > *Judul:* Re: [belajar-excel] tracebility part gudang > > > Pak Amin, > > Terus terang saya ndak mudeng quantity yang mana mau dimasukkan ke mana ? > Inputnya nilai quantity pakai control apa ? > Kalau dimasukkan ke listbox mau jadi item baru atau bagaimana ? > > Wassalam, > Kid. > > On Thu, Dec 6, 2012 at 10:35 PM, ngademin Thohari > <[email protected]>wrote: > > ** > > > Be-exceller > > Mr. kid minta advicenya lagi, untuk quantity belum bisa masuk kedata > remaining quantity > Offset(0, 6) penjabarannya seperti bagaimana? > > terima kasih > > amin > > > Private Sub TbPartno_Exit(ByVal Cancel As MSForms.ReturnBoolean) > Dim rngData As Range, rng As Range > Dim spart As String, sRackByPart As String > Dim dblQty As Double > Sheet3.Unprotect "Belajar-Excel" > spart = Trim$(Replace$(UCase$(TbPartno.Text), "3N1", vbNullString)) > spart = Left$(spart, InStr(spart & " ", " ") - 1) > Set rngData = Sheet3.ListObjects(1).Range > '.Range("c1").CurrentRegion.Resize(, 1).Offset(0, 4) > With rngData > '.Parent.AutoFilterMode = False > .AutoFilter 1 ', spart > .AutoFilter 5, spart > > If .Resize(, 1).SpecialCells(xlCellTypeVisible).Count > 1 Then > For Each rng In .Offset(0, > 4).Resize(1).SpecialCells(xlCellTypeVisible) > If LenB(rng.Value) <> 0 And rng.Row > 1 Then > dblQty = dblQty + rng.Offset(0, 3).Value > sRackByPart = Replace$(sRackByPart, "," & rng.Offset(0, > 6).Value, vbNullString) & "," & rng.Offset(0, 6).Value > End If > Next rng > sRackByPart = Mid$(sRackByPart, 2) > End If > ListBox1.Clear 'hapus isinya dulu > If LenB(sRackByPart) <> 0 Then > ListBox1.AddItem dblQty 'tambah item baru > TextBox1.Text = sRackByPart > Else > TextBox1.Text = "Tidak ada rack yang dipakai part " & spart > End If > TextBox1.Locked = True > '.Parent.AutoFilterMode = False > End With > Sheet3.Protect "Belajar-Excel", userinterfaceonly:=True > End Sub > > > ------------------------------ > ** > > > > > >
