Libreoffice : verweisen auf Zellen in einem anderen Arbeitsblatt per FIND(), LOOKUP(), oder GENAU()?

Ich versuche zu lernen LibreOffice-scripting-Fähigkeiten, und haben ein bestimmtes Szenario, dass ich nicht in der Lage, um herauszufinden.

Was ich versuche zu tun ist, um den Wert aus einem anderen Arbeitsblatt, indem Sie eine Suche nach einem bestimmten Wert in einer benachbarten Zelle.

Zum Beispiel, können sagen, ich habe zwei Arbeitsblätter:

Worksheet1

Libreoffice : verweisen auf Zellen in einem anderen Arbeitsblatt per FIND(), LOOKUP(), oder GENAU()?

Und Worksheet2

Libreoffice : verweisen auf Zellen in einem anderen Arbeitsblatt per FIND(), LOOKUP(), oder GENAU()?

Was ich versuche zu tun, ist füllen Sie den jeweiligen Wert in Worksheet1, Spalte B mit den zugehörigen Wert aus Worksheet2, Spalte B. Die Art, wie ich versuche, dies zu tun ist, um eine Anweisung zu schreiben, die findet und nutzt den Monat, in Worksheet1 als Suchkriterium gegen Worksheet2, Spalte C.

Bisher hatte ich nicht viel Glück, aber hier ist was ich versucht habe, mit zu arbeiten:

='Worksheet2'.$C.FIND('Worksheet1'.$A1).$B1

Dies ist mehr als wahrscheinlich falsch, aber ich versuche auszudrücken, die Logik, die "in Worksheet2, finden Sie den Wert von Worksheet1:$A1, und geben Sie mir den Wert aus Worksheet2:$B1"

Was es im wesentlichen ankommt, ist, dass ich noch nicht verstehen, die syntax und Paradigmen dieser Sprache.

Irgendwelche Gedanken auf, wie ich erreichen kann, was ich versuche zu tun, vor?

Auch, ich wäre daran interessiert, alle links für online-tutorials zu dieser Sprache (LibreOffice Basic?)

Vielen Dank im Voraus!

InformationsquelleAutor jblue | 2013-03-28

  1. 3

    Gibt es eine Funktion namens SVERWEIS, die Sie vielleicht ausprobieren möchten.

    Syntax für dein Beispiel wäre:

    =VLOOKUP(A1,'Worksheet2'.B1:C12,1)
    Nicht sicher, warum, aber kann nicht ankommen dieses zu wirken..

    InformationsquelleAutor aggh

  2. 1

    Ich einfach an eine routine von mir, zu deinem problem. Es sollte funktionieren...
    Vorausgesetzt, beide Blätter haben keine leeren Zeilen:

    Sub MergeSheets

Dim Ind as Integer
Dim oSheet1, oSheet2
Dim oDocument as Object

  oDocument = thisComponent

  ' Destination Sheet
  dSheet = oDocument.getSheets().getByName("Worksheet1")

  ' Origin Sheet
  oSheet = oDocument.getSheets().getByName("Worksheet2")

  oCount = 0
  oCell = oSheet.getCellByPosition(0,oCount)
  while oCell.Formula <> ""

    ' Search for the matching line
    dCount = 0 
    dCell = dSheet.getCellByPosition(2,0)
    while dCell.Formula <> "" and dCell.Formula <> oCell.Formula
       dCount = dCount + 1
       dCell = dSheet.getCellByPosition(2,dCount)
    wend

    ' Set Value to the destination cell
    ' If Key was not found, the last empty line will be used
    fCell = dSheet.getCellByPosition(1,dCount)
    if fCell.Formula = ""
       fCell.Formula = "="+oSheet.getCellByPosition(1,dCount).Formula
    else
       fCell.Formula = fCell.Formula+'+'+oSheet.getCellByPosition(1,dCount).Formula
    end if

    oCount = oCount + 1
    oCell = oSheet.getCellByPosition(0,oCount)

  wend

End Sub

    InformationsquelleAutor Josir

Schreibe einen Kommentar