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

• tzimash őstag

  #37680 2018-03-31 00:59:31

  Új Válasz

  Ú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

  

  tzimash

  őstag

  Hali,

  így néz ki a táblázatom:
  

  a gombokat így generáltam:
  Dim btn As Button
Dim t As Range
usor = Range("A" & Rows.Count).End(xlUp).Row

For sor = 2 To usor Step 1
Set t = ActiveSheet.Range(Cells(sor, 10), Cells(sor, 10))
Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.Height)


With btn
.Name = "btn" & sor
.Caption = "Könyvel"
.OnAction = "button_check"
End With
Next sor

  Azt szeretném, ha a gombra kattintva az adott sorból egy-egy változóba írná a mondjuk a B, C, E, F és I, cellák értékét.
  Pl, ha az 5. sorban lévő gombra (btn5) kattintok, akkor a B5, C5, E5, F5, I5 cellák értékét szeretném megkapni.
  Ez megoldható?
  Hogyan nézne ki az a button_check sub?

  ill. még az is tervben van, hogy ha egy gomb fölé viszem az egeret, akkor az adott sorban lévő cellák hátterének színe A-I-ig megváltozzon. Ilyet lehet VBA-ban?

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