Olen kirjoittanut tällaisen koodin vba:lla yhden commandbuttonin alle. Se lisää 10 textboxia lomakkeelle.
Dim Txtbox1(0 To 10)
X = 30
For j = 0 To 10
Set Txtbox1(j) = Controls.Add("Forms.Textbox.1", , True) 'True = Visible
X = X 20
Txtbox1(j).Width = 125
Txtbox1(j).Height = 15.75
Txtbox1(j).Top = X 36
Txtbox1(j).Left = 24
Next j
Haluaisin noista luoduista uusista textboxeista siirtää tietoja excel-taulukkoon. Minkälainen koodi tarvitaan, jotta tiedän, että haluamani textboxin tieto menee juuri oikeaan paikkaan jotain toista commandbuttonia klikkaamalla?
koodi?
4
347
Vastaukset
- tätä...
Application.ActiveSheet.Range("C3") = Txtbox1(1).Text
- peetee
Eipä toimi, ilmittaa txtbox1(1):n kohdalla että Sub or Funktion not defined.
- tätä...
peetee kirjoitti:
Eipä toimi, ilmittaa txtbox1(1):n kohdalla että Sub or Funktion not defined.
Veikkaan että yritit suorittaa rivin joko;
a) ennen kuin olet lisännyt kontrollit lomakkeelle
b) toisesta aliohjelmasta, jolloin luomasi taulukko on "out of scope" (jolloin sinun on määriteltävä kontrollitaulukko "globaalisti" siten että se on kaikkien aliohjelmien käytettävissä tai muuten selvitettävä mitä kontrolleja formilla on)
Tämä koodi on kuitenkin kokeiltu ja todettu toimivaksi:
Dim Txtbox1(0 To 10)
X = 30
For j = 0 To 10
Set Txtbox1(j) = Controls.Add("Forms.Textbox.1", , True)
X = X 20
Txtbox1(j).Text = "Boksi " & j ' Ei välttämätön
Txtbox1(j).Width = 125
Txtbox1(j).Height = 15.75
Txtbox1(j).Top = X 36
Txtbox1(j).Left = 24
Next j
' Textbox(1):n arvo ("Boksi 1") soluun C3
Application.ActiveSheet.Range("C3") = Txtbox1(1).Text
kuten myös tämä:
' General
Dim Txtbox1(0 To 10)
Private Sub CommandButton1_Click()
X = 30
For j = 0 To 10
Set Txtbox1(j) = Controls.Add("Forms.Textbox.1", , True)
X = X 20
Txtbox1(j).Text = "Boksi " & j
Txtbox1(j).Width = 125
Txtbox1(j).Height = 15.75
Txtbox1(j).Top = X 36
Txtbox1(j).Left = 24
Next j
End Sub
Private Sub CommandButton2_Click()
Application.ActiveSheet.Range("C3") = Txtbox1(1).Text
End Sub - peetee
tätä... kirjoitti:
Veikkaan että yritit suorittaa rivin joko;
a) ennen kuin olet lisännyt kontrollit lomakkeelle
b) toisesta aliohjelmasta, jolloin luomasi taulukko on "out of scope" (jolloin sinun on määriteltävä kontrollitaulukko "globaalisti" siten että se on kaikkien aliohjelmien käytettävissä tai muuten selvitettävä mitä kontrolleja formilla on)
Tämä koodi on kuitenkin kokeiltu ja todettu toimivaksi:
Dim Txtbox1(0 To 10)
X = 30
For j = 0 To 10
Set Txtbox1(j) = Controls.Add("Forms.Textbox.1", , True)
X = X 20
Txtbox1(j).Text = "Boksi " & j ' Ei välttämätön
Txtbox1(j).Width = 125
Txtbox1(j).Height = 15.75
Txtbox1(j).Top = X 36
Txtbox1(j).Left = 24
Next j
' Textbox(1):n arvo ("Boksi 1") soluun C3
Application.ActiveSheet.Range("C3") = Txtbox1(1).Text
kuten myös tämä:
' General
Dim Txtbox1(0 To 10)
Private Sub CommandButton1_Click()
X = 30
For j = 0 To 10
Set Txtbox1(j) = Controls.Add("Forms.Textbox.1", , True)
X = X 20
Txtbox1(j).Text = "Boksi " & j
Txtbox1(j).Width = 125
Txtbox1(j).Height = 15.75
Txtbox1(j).Top = X 36
Txtbox1(j).Left = 24
Next j
End Sub
Private Sub CommandButton2_Click()
Application.ActiveSheet.Range("C3") = Txtbox1(1).Text
End SubOikeassa olet, nyt toimii. Pienestä johtuvat nuo probleemat tällaisella aloittelijalla.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Miksi jollain jää "talvi päälle"
Huvittaa kastoa ullkona jotain vahempaa äijää joka pukeutuu edelleen kun olisi +5 astetta lämmittä vaikka on helle keli2432233Mitä et hyväksy miehessä/naisessa josta olet kiinnostunut?
Itse en halua, että miehellä olisi lapsia!1611458Se katse silloin
Oli hetki, jolloin katseemme kohtasivat. Oli talvi vielä. Kerta toisensa jälkeen palaan tuohon jaettuun katseeseen. Tunt531310- 741075
Tiesitkö? Farmi Suomi Kirsikka Simberg on tämän julkkisnaisen tytär - Katso tyrmäävät mallikuvat!
Oho, aikamoinen ylläri. Tiesitkö?! Kirsikka Simberg on yksi tämän kauden Farmi Suomi -kisaajista. Hänellä ei ole tuttu t31029- 78950
Tuhdit oluet kauppoihin. Miksi vastustaa?
8% oluet kauppoihin mutta mikä siinä on että osa politikoista vstustaa ? Kauppa kuitenkin hinnoittelee vahvan oluen ni211933Sinua tulen kyllä ikävöimään pitkään nainen
mutta oli pakko tehdä päätös oman mielenrauhan vuoksi. Toivottavasti saat elämältä kaiken mitä haluat.45845Kohta me ei enää nähdä :(
En pääse enää uppoutumaan silmiisi enkä kuunnella ihanaa ääntäsi. Elämä on pstä.39669Kärsämäki rosvojen ja tuhopolttajien kylä?
Poliisi ampui uhkaava miestä Kärsämäellä. Ja vasta joku poltti rivitalon. Mikä riivaa Kärsämäkisiä? Joko tuulimyllyjen15660