Anonymní profil clavien – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil clavien – Programujte.comAnonymní profil clavien – Programujte.com

 

Příspěvky odeslané z IP adresy 95.173.94.–

Visual Basic › jak zjistím název buňky Cell…
6. 3. 2012   #154380

Díky "zlz", vyřešeno

Range("a1").Value = Cells(38, 7).Address(True, False)

Visual Basic › Označení textového pole
5. 3. 2012   #154369

pokud to budeš dělat ve VB6 tak si oprav 5. řádek a vymaž  "Math." před slovem Round

Public Class Form1
    Dim poradi As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       >>>>>>>>>>>>>>>>> poradi = Math.Round(Rnd(1) * 10, 0)
        TextBox23.Text = poradi
        For i = 1 To 10
            If i = poradi Then
                Me.Controls("textbox" & i).Text = poradi
            End If
        Next


    End Sub
End Class

Visual Basic › Označení textového pole
5. 3. 2012   #154368

   

Visual Basic › Označení textového pole
5. 3. 2012   #154367

Tady máš to od JoDika, trochu upravené na funkční ( děláno ve VisualBasicStudio 2010 )

Public Class Form1
    Dim poradi As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        poradi = Math.Round(Rnd(1) * 10, 0)
        TextBox23.Text = poradi
        For i = 1 To 10
            If i = poradi Then
                Me.Controls("textbox" & i).Text = poradi
            End If
        Next


    End Sub
End Class

clavien
Visual Basic › hledat buňku podle vlastních…
4. 2. 2012   #153179

#5 clavien
takže jsem to vyřešil takto:

Private Sub CommandButton1_Click()
Label1.Caption = "mikro"

Dim nasel As Long
Dim datum As Date

    nasel = Application.WorksheetFunction.Match(Label1.Caption, Range("A:A"), 0)
    MsgBox "hledal jsem: " & Label1.Caption & " a našel na řádku -  " & nasel

Label2.Caption = Left(CStr(TextBox1.Text), 2)
'vezmu první 2 znaky z datum ve formátu 04.02.12 ve formátu text(string)

Cells(nasel, CInt(Label2.Caption) + 1) = "našel jsem"
'a teď si najdu buňku s parametry nasel(7) a label2(4)+1
'plus 1, protože datumy mi začínají od buňky B1 a ne A1, a doplním do buňky text "našel jsem" :)

End sub

clavien
Visual Basic › hledat buňku podle vlastních…
4. 2. 2012   #153178

#4 liborb
tak ten řádek, to zas takový problém nebyl ( když jsem využil tvůj odkaz a opsal ten kód ), ale ještě potřebuji ten sloupec

zatím mám toto:

Private Sub CommandButton1_Click()
Label1.Caption = "mikro"
TextBox1.Text = Date

Dim nasel As Long
Dim datum As Date

    nasel = Application.WorksheetFunction.Match(Label1.Caption, Range("A:A"), 0)
    MsgBox "hledal jsem: " & Label1.Caption & " a našel na řádku -  " & nasel

End Sub

- nyní jen najít ten textbox1.text , který zobrazuje aktuální datum ve sloupci...?? :(

clavien
Visual Basic › hledat buňku podle vlastních…
3. 2. 2012   #153150

#2 liborb
když já nehledám buňku, která je plná ( něco obsahuje ), já mám všechny buňky prázdné a potřebuji pouze do té buňky 

"do buňky 15. ledna a řádek Pepa Novák (který je na 22.řádku" vepsat hodnotu z labelu1, který mám na formuláři.????

clavien
Visual Basic › hledat buňku podle vlastních…
3. 2. 2012   #153141

nevíte někdo jak???

Mám první řádek kde mám datumy (řádek začíná B1 a datum začíná vždy od 1. - třeba  ledna )

první sloupec mám jména ( první jméno je na A2)

.... a nyní potřebuji do buňky 15. ledna a řádek Pepa Novák (který je na 22.řádku) vypsat nějakou hodnotu, kterou mám v labelu1 na formuláři. - a chci to tam vložit přes tlačítko, které je také na formuláři.

Možná banální věc pro někoho, ale jsem začátečník.... 

Poradíte někdo??

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý