Prikaz podatka iz aktivne celice v textBox-u

Pomoč pri izdelavi makrov
Odgovori
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Prikaz podatka iz aktivne celice v textBox-u

Odgovor Napisal/-a BJ »

Pozdravljeni!
Ko formo odprem, naj bi v textboksu bil prikazan podatek iz izbrane celice.
Hvala za pomoc

Koda: Izberi vse

Option Explicit


Private Sub cmdZapri_Click()

    Unload Me
End Sub

Private Sub frm1_Initialize()
' Tukaj se zatakne. Ko formo odprem, naj bi bil v TextBox1 viden podatek iz izbrane celice
Dim c
c = ActiveCell.Value
TextBox1.Value = c.Value

End Sub

Private Sub cmdZapis_Click()
ActiveCell.FormulaR1C1 = TextBox1
ActiveCell.Value = CDbl(TextBox1.Text) + TextBox2
Unload Me
End Sub
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Prikaz podatka iz aktivne celice v textBox-u

Odgovor Napisal/-a admin »

Pozdravljeni,

Tu morate ločiti dve možnosti:

Ali uporabljate modalno okno

Ko je prikazano modalno okno (UserForm1.Show 1), tedaj uporabnik ne more pisati v tabelo, dokler je okno prikazano in zato tudi ne more spremeniti vsebine celice, kar pomeni, da lako vi vsebino celice zapišete v okno še preden okno prikažete:

Koda: Izberi vse

UserForm1.TextBox1.Value = ActiveCell.Value
UserForm1.Show 1
Ali uporabljate ne-modalno okno

Če je okno nemodalno potem pa lahko uporabnik spreminja tabelo in tam do vrednosti pač dostopite tako kot ste želeli:

Koda: Izberi vse

UserForm1.Show 0
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Re: Prikaz podatka iz aktivne celice v textBox-u

Odgovor Napisal/-a BJ »

Nallepsa hvala!
Lep dan se naprej
Odgovori