Excel VBA
, Excel, , VBA.
Excel
Excel
Excel
Excel , . .
Excel
Excel
VBA
VBA
VBA
Private Sub Command1_Click()
Dim k1k, k1p, k2k, k2p, otrum, v As Currency
Dim kodval, kodvalp As Integer
Dim PIB, val As String
k1k = T1; USD
k1p = T2; USD
k2k = T3; EUR
k2p = T4; EUR
otrum = T5; 볺
kodval = T9;
If kodval = 1 Then T6 = "USD"
If kodval = 2 Then T6 = "EUR"
If kodval = 3 Then T6 = "."
If kodval = 1 Then v = k1k * otrum
T10 = "."
T11 = 3
If kodval = 2 Then v = k2k * otrum
T10 = "."
T11 = 3
T8 = v
If kodval <> 3 Then GoTo 1
If kodval = 3 Then kodvalp = InputBox (" USD=1;EUR=2", " ")
If kodvalp = 1 Then v = otrum / k1p
T10 = "USD"
T11 = kodvalp
T8 = v
If kodvalp <> 2 Then GoTo 1
If kodvalp = 2 Then v = otrum / k2p
T10 = "EUR"
T11 = kodvalp
T8 = v
End Sub
ϲ | |
T1 T1 | T2 |
T 3 | T 4 |
볺 볺 | |
USD (1) EUR (2) UAH(3) |
³ .
1. .
2. .
3. .
4. , - .
5. -.
6. -.
7. , .
|
|
8. . .
9. .
10. .
11. ̳ .
12. .
13. .
1. Գ .
2. Գ
3. ´ .
4. ' .
5. .
6. .
7. .
8. .
9. .
10. ..
11. - .
12. ´ .
13. ´ .
14. ᒺ .
15. .
16. .
17. .
18. ´ .
19. .
20. ϳ .
21. .
22. Գ .
23. Գ .
24. Գ .
25. Գ .
26. Գ .
27. Գ .
28. Գ .
29. Գ .
30. Գ .
31. Գ .
32. Գ .
33. Գ .
34. Գ .
35. Գ .
36. Գ .
37. Գ .
38. .
39. .
40. .
41. Գ .
42. Գ .
43. Գ .
44. .
45. Գ .
46. Գ .
47. .
|
|
48. .
49. .
50. .
51.
52. Գ .
53. .
54. .
55. .
56.
57. Գ .
58. .
59. . .
60. .
61. .
62. .
63. .
64. .
65. .
66. .
67. .
68. .
69. ³ .
70. .
71. .
72. .
1. , - .
2. Գ . Գ .
3. . .
4. . .
5. .
6. - , .
7. -: .
8. .
9. - .
10. .
11. , - .
12.
13.
14. .
15. .
16. .
17. .
18. .
19.
20. ..
21. .
22. : .
23. .
24. Գ , .
25. Գ , ( ).
26. Գ -.
27. Գ .
28. Գ .
29.
30. .
|
|
31. Գ
32.
33. - .
34. .
35. , -
36. , .
37. Գ
38. Գ .
39. .
40. .
41. .
42. .
43. Գ .
44. .
1. Excel 2007 . . . .: , 2010. - 432 .
2. Excel . , .- .: , 2007.- 304 .
3. Excel . .., .. .: , 2009. - 304 .
4. Visual Basic 6.0. .- : , 2000, - 992
5. .. . : . . .: , 2003. 799.
6. - Excel. .: , 2009. - 528 .
7. , Excel . . .- : , 2008. - 224 .
8. .. VB 6.5 VB.Net. : -, 2006. 248
9. : . . .. - .: -, 2011. 234.
10. 㳿 : / . ... .: , 2002. 542 .
11. - Excel. : , 200.- 480.
12. .., .., .. : . . . .: , 2002. 534.
13. .. .-: BHV, 2005.-384
14. . .. : , - 2009. - 224 .
15. . .. .: -, 2008. - 384 .
16. . Visual Basic: . : , 1998. 512
17. .. Visual Basic 6.0: . . .: -, 2001,- 140
18. .., ... . : .-.:, 2008.-710.
19. Excel 2007. . . - : , 2009. - 224 .
20. Excel. . - .: , 2007. - 208 .
21. Excel 2007. , . . . , . . - : , 2008. - 400 .
22. . . - - Microsoft Office. .: . 2004. 512.
23. Excel. .., .., .. : , 2006. - 344 .
24. / . .. .. . .: , 2001. 560 .
25. Excel. . . .: , 2010. - 384 .
|
|
26. Excel 2007. . .: , 2009. - 320 .
27. 2872-94. . . .
28. 2873-94. . . .
29. . .., .., .. - .: , 2005. - 384 .
30. - Project Expert ( ): / .., ...: -, 2011. - 432 .
31. .. : . . . .:, 2002. 280.
18. - http://www.lib.com.ua/
19. - http://ek-lit.agava.ru/
20. - - http://www.uintei.kiev.ua/
21. - - http://www.trader.utlc.com/
22. - http://www.meta.ua/
23. ' http://citforum.ru/
24. . .. http://www.nbuv.gov.ua/