Filehost.ro - gazduire fisiere
GAF
Numele forumului cit si aceasta descriere pot fi modificate accesind meniul ADMIN -> OPTIUNI 		Nou pe simpatie:
morena28
Femeie
25 ani
Bistrita Nasaud
cauta Barbat
27 - 52 ani
GAFInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
GAF / Forum Gaf /

pt facultate

 Pagini: 1  
#1
gaby
Vizitator
Sub automatizare()
'
' automatizare Macro
' Macro created 2/21/2006 by PC
'
Dim cale As String, nume As String, complet As String

cale = InputBox("introduceti calea")
nume = InputBox("introduceti numele")
complet = cale & nume


For Each doc In Documents
If doc.Name = nume Then gasit = True
Next doc

If gasit <> True Then
Documents.Open FileName:=complet
MsgBox ("l-am deschis")
Else
Documents(nume).Activate
MsgBox ("este deschis")
End If


End Sub
 
   
#2
leusor
Vizitator
CONCATENARE SAU/SI ADUNARE





Dim a As Double
Dim b As Double

Private Sub Command1_Click()
Text3.Text = Text1.Text + Text2.Text

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text))
End Sub

Private Sub Command5_Click()

If IsNumeric(Text1.Text) = False Or IsNumeric(Text2.Text) = False Then
Text3.Text = Text1.Text + Text2.Text

Else

a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a + b
End If
End Sub
 
   
#3
gaby
Vizitator
Private Sub Command1_Click()
Text1.Text = Command1.Caption
End Sub
 
   
#4
gaby
Vizitator
Private Sub Command1_Click()
list1.AddItem Text1.Text
Text1.Text = " "
End Sub

Private Sub Command2_Click()
If list1.ListIndex <> -1 Then
list1.RemoveItem list1.ListIndex
list1.Refresh
End If
End Sub

Private Sub Command3_Click()
End
End Sub

pt facultate - Private Sub Command1_Click() list1.AddItem - Forum Gaf
pt facultate – poza de gaby, in Forum Gaf · 23.4KB
 
   
#5
Gaf
Vizitator
Public nr As Integer
Public i As Integer


Private Sub Command1_Click()
List1.AddItem (Text1.Text)
Text1.Text = Empty

End Sub

Private Sub Command2_Click()
Unload Form1
End Sub

Private Sub Label4_Click()
nr = List1.ListCount
Label4.Caption = nr
End Sub

Private Sub Stergere_Click()
nr = List1.ListCount

List1.Refresh
If List1.ListIndex <> -1 Then
List1.RemoveItem (List1.ListIndex)
Else
If Text1.Text = Empty Then
MsgBox ("Selectati o intrare sau introduceti numele ei ")
Else
For i = 0 To nr
    If List1.List(i) = Text1.Text Then
    List1.RemoveItem (i)
    End If
    Next i
End If
End If

    End Sub

pt facultate - Public nr As Integer Public i As Integer Private - Forum Gaf
pt facultate – poza de Gaf, in Forum Gaf · 15.4KB
 
   
#6
GAF
Gaf-webmaster
Din: Bucresti
Postari: 379
Power point pt sesiunea stiintifica (neterminat)

http://www.filehost.ro/122092/Power_Point_pps/

_______________________________________
GAF
 
   
Pagini: 1  
Mergi la