Funktion finden Schleife VBA-Code zu finden und Informationen von Zellen auf der Grundlage von Creteria in einem anderen Clomn

-1

Ich bin neu in VBA-Programmierung, ich bin auf der Suche nach Code VBA in Excel, die dies machen kann: 1: mit einem Eingang Box kann ich die Aktionsnummer eingeben 2: Holen Sie sich die Aktionsnummer aus dem Eingabefeld und gehen Sie zu Blatt1 suchen Sie alle Zeilen mit dieser Nummer 3: summieren Sie die Werte von celles in colomn B basierend auf der gleichen Aktion Nummer und verlassen Sie die reponse in einer MSg Box (“Aktionsnummer, sume (Werte clomn B)) . 4: die gleiche Sache für Werte in colomn C enter image description here ich es hoffeFunktion finden Schleife VBA-Code zu finden und Informationen von Zellen auf der Grundlage von Creteria in einem anderen Clomn

klar ist

denken Sie

Quelle

2016-04-21 H.hisoka

klingt wie Sie haben einen guten Start auf die Anforderungen. Mein Rat ist, mit Schritt eins zu beginnen, und sobald das implementiert ist, gehe zu Schritt 2, 3 und schließe es mit Schritt 4 ab. Wenn du dich bei irgendeinem bestimmten Schritt feststeckst, poste bitte, was du versucht hast, was funktioniert hat, was nicht und dein erwartetes Ergebnis. Wenn man etwas Mühe darauf verwendet, wird man viel Hilfe bekommen. – sous2817

ok ich tue mein bestes –

Sie haben Glück, dass ich heute ein ähnliches Sub geschrieben habe :) Es löst Ihr Problem nicht, aber Sie müssen nicht auf einer leeren Seite beginnen. Spielen Sie damit, fügen Sie es Ihrem Code hinzu und passen Sie ihn an, wo es benötigt wird.

Private Sub CommandButton1_Click() 

Dim LastRow As Long 
Dim tmp As Integer 

'get the last row in this sheet (column A) 
With ActiveSheet 
    LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 
End With 

tmp = 0 
'run from 1 to the last row 
For i = 1 To LastRow 
    'search for matches 
    If Cells(i, 1).Text = TexBbox1.value Then 
     'if found, add to tmp 
     tmp = tmp + Cells(i, 1).Offset(0, 1).Value 
    End If 
Next 

MsgBox "here is your number" & tmp 

End Sub

Quelle

2016-04-21 19:18:40 Heini

danke, ich gut tray one's hande mit dabei zu tun. und ich gebe eine Antwort heute Nachmittag –

ich habe dies getan und es ist Arbeit danke: –

whay, wenn ich den Variablentyp (numaction) von Double zu Variante a ändere 0 in der Antwort bekommen ?? –

Dim numaction As Variant 
Dim LastRow As Double 
Dim tmp1 As Double 
Dim tmp2 As Double 
Dim tmp3 As Double 
Sub CommandButton1_Click() 
numaction = InputBox("entrer le numero d'action", "Frais Mosolf") 
With ActiveSheet 
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row enter code here 
End With 
tmp1 = 0 
tmp2 = 0 
tmp3 = 0 
For i = 1 To LastRow 
If Cells(i, 1).Value = numaction Then enter code here 
tmp1 = tmp1 + Cells(i, 1).Offset(0, 1).Value enter code here 
tmp2 = tmp2 + Cells(i, 1).Offset(0, 2).Value 
tmp3 = tmp3 + Cells(i, 1).Offset(0, 3).Value 
End If

Weiter

codMsgBox "here is your numbers" & " " & tmp1 & " " & tmp2 & " " & tmp3 
End Sube

whay, wenn ich als Doppel als Variante in numaction vriable Typ zu ändern, eine die Antwort 0 0 0 erhalten ist es Mittelwert des tha tmp1, tmp2, TMP3 bekommen 0

Quelle

2016-04-22 12:08:48

Funktion finden Schleife VBA-Code zu finden und Informationen von Zellen auf der Grundlage von Creteria in einem anderen Clomn

Antwort

Verwandte Themen