Új hozzászólás Aktív témák

• #50376 TillaT tag istvankeresz #50374

  Új Válasz 2023-02-02 10:42:54 #50376

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  TillaT

  tag

  válasz istvankeresz #50374 üzenetére

  Ha a cella értéke mellett más adatokra is szükséged lenne a celláról, akkor az alábbi kód is segíthet. Ez az aktív (aktívvá tett) cella adatait (cím, koordináták, érték, típus) adja vissza egy MsgBox-ban. A kódot hozzárendelheted egy billentyűkombinációhoz is és egy általad létrehozott gombhoz is.

  Sub Cellrangequery()
    Dim r As range
    Set r = Selection
    MsgBox "Range address: " & r.Address & vbNewLine & _
        "Range value: " & r.Value & vbNewLine & _
        "Range row: " & r.Row & vbNewLine & _
        "Range column: " & r.Column & vbNewLine & _
        "Range type: " & TypeName(r.Value)
End Sub

• #50375 lappy őstag istvankeresz #50374

  Új Válasz 2023-02-02 10:27:27 #50375

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz istvankeresz #50374 üzenetére

  Sub Get_Cell_Value1()

Dim CellValue As String

CellValue = Range("A1").Value

MsgBox CellValue

End Sub

Új hozzászólás Aktív témák