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
440
Vastaukset 4
- 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
Uskallanko laittaa sulle viestiä?
Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S671061- 381001
- 109869
Mies joka on oikeasti kiinnostunut
Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää125856- 38743
Rauha, sopiiko
Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.77662- 51646
Tässä ovat Elämäni biisi vieraat lauantai 19.9. - Yksi vieras on kohuttu TTK-juontajaehdokas
Elämäni biisi vieraslista on harvinaisen mielenkiintoinen lauantaina. Mukana myös kohuttu TTK-juontajaehdokas, josta ei2642Ei siitä pääse yli, eikä ympäri!
Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle66631- 42629
Kunnanhallitus
Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.31626Nyt kaatuu Kuisla
Reima Kuisla hakee saneeraukseen – Joitakin velkoja on jo ulosotossa https://www.ilkkapohjalainen.fi/reima-kuisla-hakee29574Miesten (epä)viehättävyydestä kysymys
Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev125568- 49518
- 52517
- 95511
- 60484
- 45446
- 35427
Sastamalassa epäillään tappoa, kaksi otettu kiinni
Kuulemma Aarnontiellä tapahtunut Tietääkö joku enemmän?15426