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?
Peksu_
4
357
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
Suomi on täysin sekaisin
Jo ties monettako päivää hirveä itku ja poru jostain helvetin nilviäisistä. https://www.is.fi/taloussanomat/art-20000104504859Ensimmäisestä kohtaamisesta saakka
minulla on ollut hämmentynyt olo. Miten voit tuntua siltä, että olisin tuntenut sinut aina? Sinun kanssasi on yhtä aikaa151732Aivan täysin tahallinen teko
Ei mitään puolusteluja, eikä selittelyitä. Kuljettajalle kerrottiin asiasta siinä paikanpäällä, mutta silti hän ajoi ves941478Suomussalmi saatu vihdoin maailmankartalle!
Nyt kun Suomussalmi on vihdoin viimein saatu ennennäkemättömällä tavalla maailman tietoisuuteen niin voitaisiin järjestä531359Olet saanut minut sekoamaan
Tunteiden ristiaallokossa vellominen on ollut melkoinen kokemus. Ei kukaan ole saanut minua niin raiteiltaan kuin sinä.231337Mainehaitta metsäkonefirmalle
Hukkajoen tapahtumista liikkuu paljon huhuja. Eikö kannattaisi julkaista raakkuja tuhonneen metsäkoneyrityksen nimi, kos531228Oho! Maajussi-Kallelta pakit saanut morsioehdokas Miss Suomi -kisoissa! Tunnistaisitko hänet nyt?
Hmm, tunnistaisitko?!? Onnea missihulinoihin! Lue lisää ja katso kuvat: https://www.suomi24.fi/viihde/oho-maajussi-01075Myönnän sinulle nyt
Että olen erittäin mustasukkainen sinusta jo nyt. Ikävä on tämä tunne, kun tietämättömyyden solista nousee myrkkyä miele541010Pysytäänkö nainen
edelleen yhtä viileän tyynenä kun nähdään. Uskotko että tahtoessani saisin murettua tyyneytesi hyvin helposti.57895Olen käyttäytynyt ristiriitaisesti
eikä minusta varmaankaan ota mitään selvää. Se johtuu siitä, kun järki sanoo ei, ei, ei ja sydän sanoo kyllä, kyllä, kyl61879