Macht Excel-makro für die schnelle Daten-Eingabe ::: VBA ::: Excel :::

Ich habe einen job zu geben Ergebnisse der Befragung (in Papierform) zu excel.
Ich habe nie geschrieben, alle Makros in Office 🙁

Ich hier, was ich im Grunde brauchen:

  1. Ich habe vordefinierten Spalten (|A|B|...|AG|AH|)
  2. Alle Umfragen sind unterteilt in Gruppen. Alle Umfragen, die von der gleichen Gruppe haben einige (wie vordefiniert) gleichen Spalten. Es ist immer die gleiche Spalten, 'definieren' Gruppe
  3. Alle anderen Umfrage-Antworten sind in numerischen Typ [1..10].
  4. Spalten sind nicht in der gleichen Reihenfolge wie die Antworten in servey
  5. Ich will makro nehmen, dass meine Eingabe (zum Beispiel '1575'), und die erste vordefinierte Werte, die 'Gruppe' |A| |B| |C| und dann |E| = 1, |D| = 5, |F| = 7, |G| = 5, und automatisch beginnen Sie mit der Eingabe der nächsten Zeile.

Irgendetwas, das mir einen Anhaltspunkt, wie Sie schreiben, dieses makro in mehr als willkommen

Riesigen Dank für das Lesen dieser...

EDIT1: ich nehme an, die Frage ist nicht klar genug.
Ich brauche makro, das Lesen meiner Tastatur input ( '1575' ) und schreiben ganze zahlen '1' '5' '7' und '5' vordefinierten Zeilen. Jetzt habe ich eine Idee, Sie zu bilden, aber ich brauche einen event-handler, wird der Fokus zum nächsten Eingang, wenn ich eine Taste drücken, wie ich will, um zu vermeiden drücken der TAB-Taste die ganze Zeit...

Hinweis: Sie scheinen in der Gewohnheit der Zugabe von ":::" zu Ihren Fragen, damit Sie abheben mehr. Dies ist unnötig und störend. "VBA" und "Excel" sind in Ihren tags schon.
Sie haben 7 Spalten (A-G) oder 34 Spalten (A-AH), die Sie füllen möchten? Meinst du "|E| = 1, |D| = 5, |F| = 7, |G| = 5" oder meinst du "|D| = 1, |E| = 5, |F| = 7, |G| = 5" ? Was sind Ihre "vordefinierte Werte" Sie wollen in A, B und C? Ich denke, ich kann Ihnen dabei helfen, aber nicht alle verstehen
Ich habe 34 Spalten zu geben, und nun, mein problem ist, snippet, wird eine neue Zeile am Ende des Blattes, und füllen Sie es.

InformationsquelleAutor Jox | 2008-12-16

  1. 3

    Mir scheint, Sie brauchen eine kleine userform mit nur einer textbox, einen Bereich zu zeigen, die Reihenfolge der Dateneingabe, sagen:

    Gruppe A | E | D | F | G

    Und ein wenig code zu gehen mit der form, sprich:

    Dim LastCol As Integer
Dim CurRow As Integer


Private Sub UpdateCells()
Dim Col As Variant
Dim ColumnOrder As Range

'Range that specifies data entry order'
Set ColumnOrder = Range("A3:A15")

LastCol = LastCol + 1

If LastCol > WorksheetFunction.CountA(ColumnOrder) Then
    LastCol = 1
    CurRow = CurRow + 1
End If

Col = Range("A3").Offset(0, LastCol)
Range(Col & CurRow) = TextBox1.Value
TextBox1 = ""

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
    UpdateCells
End If
End Sub

Private Sub UserForm_Initialize()
CurRow = ActiveCell.Row
End Sub

    Bearbeiten, Re-Kommentar

    In Excel In die Letzte Zeile kann ein wenig schwierig sein, dass Excel nicht das Sortiment aktualisiert
    nach Streichungen, bis die Arbeitsmappe gespeichert wird. Man diese anpassen kann:

    Function FindLastRow()
'Assuming that data starts in A1'
r = ActiveSheet.UsedRange.Rows.Count
c = ActiveSheet.UsedRange.Columns.Count
FindLastRow = r
End Function

    .

    Sub LastRow()
LastRowA = ExecuteExcel4Macro("GET.DOCUMENT(10)")
LastRowB = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
End Sub

    Weitere Informationen: http://www.tek-tips.com/faqs.cfm?fid=2115

    Riesige danke... Tatsächlich, ich habe eine UserForm mit 35 Feldern (Textfelder), automatisch wechselnde Fokus auf KeyPressed. Nun, ich bin auf der Suche nach Ausschnitt wählen Sie die erste leere Zeile im Blatt, und dann um ihn zu füllen Danke Remou

    InformationsquelleAutor Fionnuala

  2. 1
    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim sText As String

    Application.EnableEvents = True

    If Target.Column = 1 Then  'Four digits entered in col A
        sText = CStr(Target.Value) 'convert to string
        If Len(sText) = 4 Then
            Target.Offset(0, 4).Value = Left$(sText, 1) 'write to E
            Target.Offset(0, 3).Value = Mid$(sText, 2, 1) 'D
            Target.Offset(0, 5).Value = Mid$(sText, 3, 1) 'F
            Target.Offset(0, 6).Value = Mid$(sText, 4, 1) 'G
        End If
    End If

    Application.EnableEvents = True

End Sub

    Geben Sie die vier Ziffern in Spalte A, diese verbreiten Sie den richtigen Spalten. Geht es in dem Arbeitsblatt-Modul, nicht um ein standard-Modul.

    InformationsquelleAutor Dick Kusleika

  3. -1

    Wenn ich verstehe die Frage richtig, Sie möchten, dass der Benutzer in der Lage sein, geben Sie nur zahlen ein, ohne mit enter oder der Pfeil zum abschließen der Eingabe.

    Beispielsweise die Eingabe von "1253216..." anstelle von "1 2 5 ..."

    Wenn das so ist, leider gibt es kein Ereignis, das entspricht einzelnen Zeichen gehen in der Formel-bar. Die einzigen Ereignisse, die aus der Ferne bezogen werden Auswahl ändern und Ändern Sie. Aber ich glaube nicht, dass es irgendeinen Weg gibt, diese zu verwenden, für diesen Zweck (Sie werden nicht ausgelöst, während der Bearbeitungsleiste eingeben).

    Einer Idee: Machen und Eintrag Spalte mit text-format, und weisen Sie die Benutzer geben Sie die Antworten in einen großen string (wie "1253216" usw.), dann setzen Sie Formeln in jeder der anderen Zellen, analysiert die N-te Zeichen aus der Eingabe-Spalte und änderungen, die es einem Wert sind. Zum Beispiel:

    Anwenden Bereich Namen "Eingänge" in die Spalte A, die Bezeichnung der Baureihe "N" , Zeile 1, dann in einer der anderen Zellen, setzen Sie diese Formel:

    =VALUE(MID(Inputs,N,1))

    Der Nachteil ist, der Benutzer wird nicht wissen, wenn Sie einige Fehler erst, nachdem Sie die Eingabe abgeschlossen haben die ganze Reihe von zahlen, und drücken Sie die EINGABETASTE, oder der Pfeil.

    InformationsquelleAutor KnomDeGuerre

Schreibe einen Kommentar