Проблема Не для идиотов.

[Epta] **Хлебная крошкa Енот** · 31.10.2011, 21:53

В общем пасаны дело тут такое. Нужно составить блок-схему по алгоритму программки VBA.
вот сам код програмки, выщитывающей стоимость в ехел.
Public Sub Stoimost()
Dim d As Long
i = 3
d = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) = "Монитор" Then
d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
Else: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d
End If
i = i + 1
Loop
Range("F2") = "Стоимость"
End Sub

Если найдутся люди, которые шарят и сделают блок схему, то буду благодарен. с меня море :devyatos::devyatos::devyatos::devyatos::devyatos: :devyatos::devyatos::devyatos::devyatos:

**FuckYou™** · 31.10.2011, 21:55

Че это за шифт индейцев майа ???

[NoOne] **Eror101** · 31.10.2011, 21:56

Точно пивас поставишь?

**aStoN!** · 31.10.2011, 21:57

Сори типуль. Я идиот.

[Epta] **Хлебная крошкa Енот** · 31.10.2011, 22:35

Цитата:

Сообщение от Eror101

Точно пивас поставишь?

стопудняк

блджад мне позарез нужна эта ебаная схема

---------- Post added at 20:21 ---------- Previous post was at 19:57 ----------

ап блеать

---------- Post added at 20:35 ---------- Previous post was at 20:21 ----------

ап ап ап . неужели нету шарящих.

9rik · 31.10.2011, 22:52

мб сотрудников инновы позвать?

[JSex] **pAwka.** · 31.10.2011, 22:54

Дуть мне в хуй...это что на програмиста проходят?

[VIP] **Кореш Голубцова** · 31.10.2011, 23:16

Ебаться в труселя,это что за азбука морзе

[♥] **ELGhoust** · 31.10.2011, 23:18

Не, братюнь если б попросил в делфи кода нахуячить то еще лады, а так идинахуй

**D!ct0r** · 31.10.2011, 23:19

Шо за хуита

31.10.2011, 21:53	#1
[Epta] Хлебная крошкa Енот Награды	Не для идиотов. В общем пасаны дело тут такое. Нужно составить блок-схему по алгоритму программки VBA. вот сам код програмки, выщитывающей стоимость в ехел. Public Sub Stoimost() Dim d As Long i = 3 d = 1 Do While Cells(i, 2) <> "" If Cells(i, 2) = "Монитор" Then d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15 Cells(i, 6) = d Else: d = Cells(i, 4) * Cells(i, 5) Cells(i, 6) = d End If i = i + 1 Loop Range("F2") = "Стоимость" End Sub Если найдутся люди, которые шарят и сделают блок схему, то буду благодарен. с меня море :devyatos::devyatos::devyatos::devyatos::devyatos: :devyatos::devyatos::devyatos::devyatos:

31.10.2011, 21:55	#2
FuckYou™ Награды	Re: Не для идиотов. Че это за шифт индейцев майа ??? __________________

31.10.2011, 21:56	#3
[NoOne] Eror101 絶望キャプテン Награды	Re: Не для идиотов. Точно пивас поставишь? __________________ НЯМ-НЯМ

31.10.2011, 21:57	#4
aStoN! хозяин шилла Награды	Re: Не для идиотов. Сори типуль. Я идиот.

31.10.2011, 22:52	#6
9rik БАТАЛФИЕЛЬД 3 ПЛАШКА Награды	Re: Не для идиотов. мб сотрудников инновы позвать? __________________ Рандом не пропьёшь:devyatos:

31.10.2011, 22:54	#7
[JSex] pAwka. В строю GladArmy. Награды	Re: Не для идиотов. Дуть мне в хуй...это что на програмиста проходят? __________________

31.10.2011, 23:16	#8
[VIP] Кореш Голубцова Награды	Re: Не для идиотов. Ебаться в труселя,это что за азбука морзе __________________ Антон «Velikolepnyj» Голубцов

31.10.2011, 23:18	#9
[♥] ELGhoust Награды	Re: Не для идиотов. Не, братюнь если б попросил в делфи кода нахуячить то еще лады, а так идинахуй __________________ Выкладывать такую хуйню модно, да?

31.10.2011, 23:19	#10
D!ct0r Доброта Награды	Re: Не для идиотов. Шо за хуита __________________

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)