Wie man von Zeile, Spalte in Excel die A1-Schreibweise?

Gegeben, eine Zeile und Spalte (Wie Lange), wie können Sie bestimmen die spreadsheet-notation mit Hilfe von VBA in Excel (2007):

z.B.:

(R, C) = (1, 1) -> "A1"
(R, C) = (2, 1) -> "A2"
(R, C) = (2, 2) -> "B2"

So, wenn Sie hatte eine Funktion:

Function CellRef(R As Long, C As Long) As String

vorausgesetzt, dass die Funktionalität, die Sie tun könnten, so etwas wie:

Worksheet.Range(CellRef(R1, C1) + ":" + CellRef(R2, C2)).Copy

Ein wenig hintergrund, in diesem Fall ist der falsche Ansatz zu nehmen: Der Zweck von diesem ist, dass ich ein master-Blatt, die beschreibt, andere Arbeitsblätter in einer Tabelle:

WorksheetName, Range etc....

Diesem master-Blatt steuert Transformationen auf dem Blatt, aber der Range-Wert ist natürlich in Excel-notation für die bequeme später verwenden Sie in verweisen auf die Reihe. Allerdings eine routine zur Verwaltung dieser Tabelle, Bericht, Ausnahmen und Sicherstellung der Konsistenz bekommt man wirklich Dinge, die von anderen Blättern in der Zeile und Spalte, so zum Beispiel wird es eine Zeile und Spalte, wo es etwas weiß ist, beginnend und endend.

Hier ist die Funktion, die ich endete mit:

Private Function CellRef(R As Long, C As Long) As String
    CellRef = vbNullString
    On Error GoTo HandleError:
    CellRef = Replace(Mid(Application.ConvertFormula("=R" & R & "C" & C, XlReferenceStyle.xlR1C1, XlReferenceStyle.xlA1), 2), "$", "")
    Exit Function
HandleError:
End Function
InformationsquelleAutor Cade Roux | 2009-07-11
  1. 4

    Vielleicht diese ist das, was du suchst?

    • Mit einigen änderungen, das hat gut funktioniert, danke.
    • +1. Naja, posting einige, dass der code hier, oder wenigstens erklären, wie es gemacht wird, würde helfen. (Link rot eines Tages verlassen könnte, dass diese Antwort weniger hilfreich) 🙂
    InformationsquelleAutor Jimmy Chandra
  2. 3

    Spalte von Zahlen zu Buchstaben

    Column Buchstaben in Zahlen

    Gute Zeug in die Kommentare

    • Wow, Coole Sachen. Ich bin mir nicht sicher, dass alle von denen sind besser als das, was ich kam mit, basierend auf der Anwendung.ConvertFormula gefunden über die erste Antwort, obwohl.
    • Vereinbart. Ich nur der Vollständigkeit halber enthalten.
    • Das ist ein tolles blog hast du hier 😉
    InformationsquelleAutor Dick Kusleika
  3. 1

    http://support.microsoft.com/kb/833402 ist eine Microsoft-Lösung für das problem der Umrechnung von zahlen in Buchstaben (der schwierige Teil der Umwandlung von 1,1 bis A1). Das hat eigentlich die beuaty der Arbeit in anderen Anwendungen als Excel, als es stützt sich auf grundlegende VBA.

    Dann fügen Sie:

    ' Converts row and column index to Excel notation, ie (3, 2) to B3.
Private Function generateExcelNotation(row As Integer, column As Integer) As String
    ' error handling of your choice, I go for returning an empty string
    If (row < 1 Or column < 1) Then
        generateExcelNotation = ""
        Exit Function
    End If
    generateExcelNotation = ConvertToLetter(column) & row
End Function
    InformationsquelleAutor Mr. Napik
  4. 0

    Den Ausdruck 'rngTemp.Address(False, False, , , .Cells(1, 1))' zeigt die Adresse des Bereichs rngTemp in A1-Schreibweise, die nicht enthalten $s, um zu bestätigen, eine absolute Adresse. Um eine absolute Adresse ist, ersetzen Sie 'False, False,' mit ','.

    InformationsquelleAutor OneSkyWalker
Schreibe einen Kommentar