excel - Sort Combobox VBA -

-

I was wondering how to sort values ​​in a blanket.

I use the combo box when I disable the form because the number of values ​​continuously increases on one sheet.

I use the following code to add items: 

  Lastcell = ThisWorkbook Sheet ("1") with the combo box. Range ("F1000000"). End (xlUp) .ow + 1 = 2 i .addItem to finalcell thisWorkbook.Sheets ("1"). Cells (i, 6) Next I end with   
 I would like to add a thought to copy those values ​​in a sheet on which I Comocoks and bring them into a new sheet, it's okay Works, but it does not look like a smart option, which means that I make another sheet and then copy the values ​​and sort them instead of sorting them.  
 My question is, how do anyone directly with the original sheet? I do not know anything of the API, please, only VBA code I am checking on ARDS MSDN but I did not know how to work it.  
 Thanks and if more information is needed, please let me know.  
 PS: I they can not sort directly from the original letter because this sheet must be accompanied by a steady command   
 
 
 You can read values ​​from sheets in an array, sort it with code, and then add items.  
 This code will do this using a Kvikoort: the  
  dim Private Sub UserForm_Initialize () as long as the dim varRange () version dim lngLastRow I Find long as lngLastRow = range (. F: F ') (what: = "*", SearchOrder: = xlByRows, SearchDirection: = xlPrevious) .Row varRange = range. ( "F: F ') Resize (lngLastRow) .Cells subQuickSort varRange Me.ComboBox1.List = varRange in End Sub Public Sub subQuickSort (var1 version _ long = -1 as the optional ByVal lngLowStart, _ optional ByVal lngHighStart to = -1) long dim lngHigh as variant dim lngLow as dim varPivot long lngLowStart = IIf (lngLowStart = -1, LBoun D (var1), lngLowStart) lngHighStart = IIf (lngHighStart = -1, UBound (var1), lngHighStart) lngLow = lngLowStart lngHigh = lngHighStart varPivot = var1 ((lngLowStart + lngHighStart) \ 2, 1) while (lngLow & lt; = lngHigh) while (var1 (lngLow, 1) & lt; VarPivot and lngLow & Lt; lngHighStart) while lngLow = lngLow + 1 passes (varPivot & lt; var1 (lngHigh, 1) lngHigh & gt; lngLowStart) lngHigh = lngHigh - 1 pass then (lngLow & lt; = lngHigh) then subSwap var1, lngLow, lngHigh lngLow = lngLow + 1 lngHigh = lngHigh - 1 End If Wend so (lngLowStart & LT; lngHigh) again subQuickSort var1, lngLowStart, lngHigh end if (lngLow & LT; lngHighStart) then subQuickSort var1, lngLow, the other end of lngHighStart end in sub private sub subSwap (as bridesmaid variant, lngItem1 long, as long lngItem2) dim varTemp version as the varTemp = var (lngItem1, 1) God (lngItem1, 1) var = (lngItem2, 1) God (lngItem2, 1) = varTemp End Sub

Comments

Post a Comment

Popular posts from this blog

excel vba - How to delete Solver(SOLVER.XLAM) code -

-
After opening several examples of macro / code written, I suddenly get stuck with a code that seems safe. Solver (SOLVER.XLAM) is doing this notation and I would like to remove it from my system. I do not think this is a relativant code. Can anyone tell me what should I do? I have already installed something to remove the password but Solver is still asking for password and I can not get rid of it! itemprop = "text"> Solver Excel is add-in If you want to delete it, then Excel Application & gt; Options & gt; Add-ins & gt; Search for 'Go to' button and gt; Uncheck the solver on the list like press something (I can not give you the exact path because I have the Polish version of Excel). Trying to open Solver's VBA code is not good because it There is allegedly copyright. Besides, I do not think Solver creates any disadvantages while working with Excel or VBA.
Read more

jsp - Google line chart x-axis shrinks on transition -

-
I am using a Google line chart on my page, which refreshes every 5 seconds but weird thing It is that every refresh chart causes the line to be removed, although the size of the chart remains the same. My script - google.load ('visualization', '1', {package: ['corechart']}); Google.setOnLoadCallback (drawLine); // call clickChart when the google.load () function meets the drawLine () {var gaugeData = new google.visualization.DataTable (); GaugeData.addColumn ('string', 'time'); // X-axis gazeta.dk column ('number', 'memory'); // Y-axis gazedata.edc column ('number', 'cpu'); // Y-axis square gauge option = {title: 'system description'}; // tile of var gauge chart; Var tempArray; // store json object value from server var tempArray2; // Server gauge = Modify the json object value = new google.visualization.LineChart (document.getElementById ('line_chart_div')); SetInterval (function () {$ aja...
Read more

java - Reaching JTextField in a DocumentListener -

-
So, I ended up making a Sudoku Solver, but I want to improve it. To do this, I need to reach betterJTextField to documentListener . I am using a documentListener to read from my betterJTextFields in real-time, I have the problem that insertUpdate (DocumentEvent e) . I need to reach Better Zest Field that happened to DocumentEvent . For example, if invalid input, would be better zestfield turn red etc. I have all my better zestfield in the matrix if you should know. Each area handles a number in the Sudoku. @ Override public zero inserted (DocumentEvent e) {// Code removed which checks that the input in the fine zest field is OK. } ( JFormattedTextfield extended JTextField ) public class betterJeststeffiledJFormattedTextField {private int row; Private int column; Public BetterJustStस्टfield (format format, infinite row, EIT column) {super (format); This.row = Line; This.column = Column; // To-O Auto-Generated Constructor Stub} Public Ent Miller () {ret...
Read more