Subscribe to:
Post Comments (Atom)
-
Code.gs function doGet ( request ) { return HtmlService . createTemplateFromFile ( 'Index' ). evaluate (); } function ...
-
ESP8266 is an integrated circuit with a microcontroller allowing connection in WiFi. In this video, we will study this WIFI module and learn...
-
Code JavaScript function isOnSnake (x: number , y: number ) { for ( let body of snake) { if (body.x() == x &&...
Dear Hay, you share with me this code ? or ready excell ?
ReplyDeleteHI Hay, ou share with me this code ? or ready excell ?
ReplyDeleteDim criterian
ReplyDeletePrivate Sub ComboBox1_Change()
Dim c As Integer
Dim column_headers
column_headers = Array("A", "B", "C", "D", "E", "F", "G", "H", "I")
For c = 1 To 9
If Arkusz1.Cells(1, c).Value = Me.ComboBox1.Value Then
criterion = column_headers(c - 1)
End If
Next
Arkusz1.Cells(1, "K").Value = criterion
Me.ListBox1.Clear
Me.TextBox1.Value = ""
Me.TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
If Me.TextBox1 = "" Then
Me.ListBox1.Clear
Exit Sub
End If
Me.ListBox1.Clear
Dim r, last_row As Integer
last_row = Arkusz1.Range("A10000").End(xlUp).Row
For r = 2 To last_row
a = Len(Me.TextBox1.Text)
If UCase(Left(Arkusz1.Cells(r, criterion).Value, a)) = UCase(Me.TextBox1.Text) Then
With Me.ListBox1
.AddItem Arkusz1.Cells(r, "A").Value
.List(.ListCount - 1, 1) = Arkusz1.Cells(r, "B").Value
.List(.ListCount - 1, 2) = Arkusz1.Cells(r, "C").Value
.List(.ListCount - 1, 3) = Arkusz1.Cells(r, "D").Value
.List(.ListCount - 1, 4) = Arkusz1.Cells(r, "E").Value
.List(.ListCount - 1, 5) = Arkusz1.Cells(r, "F").Value
.List(.ListCount - 1, 6) = Arkusz1.Cells(r, "G").Value
.List(.ListCount - 1, 7) = Arkusz1.Cells(r, "H").Value
.List(.ListCount - 1, 8) = Arkusz1.Cells(r, "I").Value
End With
End If
Next r
End Sub
Private Sub UserForm_Initialize()
Dim c As Integer
For c = 1 To 9
Me.ComboBox1.AddItem Arkusz1.Cells(1, c).Value
Next
With Me.ListBox1
.ColumnCount = 9
.ColumnWidths = "80;80;80;80;80;80;80;80;80"
End With
End Sub
WHAT I Wrong ?