http___www.thecodecage.com_forumz_hr_tags__1.xml
1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9 1.10 1.11 1.12 1.13 1.14 1.15 1.16 1.17 1.18 1.19 1.20 1.21 1.22 1.23 1.24 1.25 1.26 1.27 1.28 2.1 3.1 4.1 5.1 6.1 7.1 7.2 8.1 9.1
PrivateVBA VBA CODE:Sub Down_Click() Dim i As Integer Dim leaveAlone As Boolean Dim pos As Long Dim Temp As String pos = ListBox1. ListCount - 1 For i = ListBox1. ListCount - 1 To 0 Step -1 leaveAlone = False If ListBox1. Selected(i) Then If i = pos Then leaveAlone = True End If pos = pos - 1 If Not leaveAlone Then Temp = ListBox1. List(i + 1) ListBox1. List(i + 1) = ListBox1. List(i) ListBox1. List(i) = Temp ListBox1. ListIndex = i + 1 ListBox1. Selected(i) = False ListBox1. Selected(i + 1) = True End If End If Next End SubPrivate Sub UserForm_Initialize() Dim lbtarget As MSForms. ListBox Dim rngSource As Range 'Set reference to the range of data to be filled Set rngSource = Worksheets("Sheet1"). Range("A1:C5") 'Fill the listbox Set lbtarget = Me. ListBox1 With lbtarget 'Determine number of columns . ColumnCount = 3 'Set column widths . ColumnWidths = "50;50;50" 'Insert the range of data supplied . List = rngSource. Cells. Value End With End SubVBA VBA CODE:Private Sub Up_Click() Dim i As Long Dim leaveAlone As Boolean Dim pos As Long Dim Temp As String pos = 0 For i = 0 To ListBox1. ListCount - 1 leaveAlone = False If ListBox1. Selected(i) Then If i = pos Then leaveAlone = True End If pos = pos + 1 If leaveAlone = False Then Temp = ListBox1. List(i - 1) ListBox1. List(i - 1) = ListBox1. List(i) ListBox1. List(i) = Temp ListBox1. ListIndex = i - 1 ListBox1. Selected(i) = False ListBox1. Selected(i - 1) = True End If End If Next End Sub Sub synchronize_snb() redim sn(1,9) For j=1 To 10 sn(0,j-1)=me("Textbox" &j).text Next Range("namedrange").cells(1).offset(Listbox1.listindex).resize(,10)=sn End Sub Powered by vBulletin® Version 3.8.6 Copyright ©2000 - 2012, Jelsoft Enterprises Ltd. SEO by vBSEO No part of this board, functionality or creatives may be copied or reproduced either in part or full without the express permission of The Code Cage Team. Copyright ? Simon Lloyd 2008 - 2012 We are not associated with nor employed by Microsoft in any way, we simply provide resources! All MS office icons are registered trademarks of the application they represent and are used with permission from Microsoft
1.1 2.1 3.1 4.1 5.1 6.1 7.1 8.1 9.1 10.1
Prijevodi podržava vBET 3.5.4 Powered by vBulletin ® Verzija 3.8.6 Copyright © 2000 - 2012, Jelsoft Enterprises Ltd SEO by vBSEO Predložak-Promjene koje TMS Niti jedan dio ovog odbora, funkcionalnosti i oglasi mogu se kopirati ili reproducirati ili djelomično ili u cijelosti bez izričitog dopuštenja tima Code Cage. Copyright © Simon Lloyd 2008 - 2012 Mi nisu povezani s niti zaposlen od strane Microsofta na bilo koji način, mi jednostavno osigurati sredstva! Svi MS office ikone su registrirani zaštitni znaci primjeni oni predstavljaju i koriste s dozvolom iz Microsofta