FAQ Zaloguj
Szukaj Profil
Użytkownicy Grupy
Zaloguj się, by sprawdzić wiadomości
Rejestracja
OU VB
Napisz nowy temat   Odpowiedz do tematu
Forum Projekt LBZ Strona Główna » inne » OU VB
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Dita
Administrator



Dołączył: 04 Sty 2007
Posty: 61
Przeczytał: 0 tematów

Pomógł: 1 raz

Skąd: Wiecie

 Post Wysłany: Pią 10:25, 27 Lis 2009    Temat postu: OU VB

Sub PRZYGOTOWANIE()
'
' Przygotowanie arkusz
'
' Klawisz skrótu: Ctrl+s
'
Range("A1").FormulaR1C1 = "Lp"
Range("B1").FormulaR1C1 = "Nazwa"
Range("C1").FormulaR1C1 = "Ilość"
Range("D1").FormulaR1C1 = "Cena"
Range("E1").FormulaR1C1 = "Vat"
Range("F1").FormulaR1C1 = "Rabat"
Range("G1").FormulaR1C1 = "Wartość"
Range("A1:G1").Interior.ColorIndex = 6

With Range("A1:G1").Font
.Bold = False
.Italic = False
.Bold = True
.Italic = True
.Underline = xlUnderlineStyleSingle
End With
With Range("A1:G1").Font
.Underline = xlUnderlineStyleNone
End With
With Selection.Font
.Name = "Arial CE"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
Columns("G:G").ColumnWidth = 9.86

With Range("A1:G1").Font
.Name = "Arial CE"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With

With Range("A1:G1").Font
.Name = "Times New Roman CE"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
Columns("A:G").Select
Selection.Columns.AutoFit
Range("I9").Select
Worksheets(1).Name = "Towar"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Nazwa"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Ilosc"
Range("A2").Select
End Sub

Sub uzupełnij()

Dim komorka As Object
Dim ktora As Double
Dim nazwa As String
Dim ilość As Double
Dim cena As Currency

Dim rabat As Single
Dim koszt As Byte
Dim kontrol As Byte

End Sub


Post został pochwalony 0 razy
 Powrót do góry »
Zobacz profil autora
Dita
Administrator



Dołączył: 04 Sty 2007
Posty: 61
Przeczytał: 0 tematów

Pomógł: 1 raz

Skąd: Wiecie

 Post Wysłany: Pią 10:34, 27 Lis 2009    Temat postu:

Dim komorka As Object
Dim ktora As Double
Dim nazwa As String
Dim ilosc As Double
Dim cena As Currency
Dim rabat As Single
Dim koszt As Byte
Dim kontrol As Byte

nazwa = InputBox("Podaj nazwe towaru", "Towar")
cena = InputBox("Podaj cene towaru", "Towar")


Do
ilosc = InputBox("Podaj ilość towaru", "Towar")
If Not IsNumeric(ilosc) Then
kontrol = MsgBox("zly typ wartosci dla cena", vbCritical + vbOKOnly, "Blad aplikacji")
Else
kontrol = 0
End If
Loop While (kontrol = 1)
koszt = cena * ilość

If koszt < 100 Then
rabat = 0
ElseIf koszt < 500 Then
rabat = 1
ElseIf koszt < 1000 Then
rabat = 2
ElseIf koszt > 1000 Then
rabat = 5


End If

ktora = Application.CountA(Sheets("Towar").Range("A:A")) + 1
MsgBox "Liczba zajetych komorek w kolumnie A = " & ktora, vbOKOnly, "Smile"

Range("A" & ktora).Formula = ktora - 1
Range("B" & ktora).Formula = nazwa
Range("C" & ktora).Formula = ilosc
Range("D" & ktora).Formula = CCur(cena)
Range("F" & ktora).Formula = rabat



End Sub


Post został pochwalony 0 razy
 Powrót do góry »
Zobacz profil autora
Wyświetl posty z ostatnich:   
Forum Projekt LBZ Strona Główna » inne » OU VB
Napisz nowy temat   Odpowiedz do tematu Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach




Solaris phpBB theme/template by Jakob Persson
Copyright © Jakob Persson 2003

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2002 phpBB Group