.


:




:

































 

 

 

 


Excel





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/

 

 





:


: 2016-07-29; !; : 1179 |


:

:

, , 1:10
==> ...

1750 - | 1694 -


© 2015-2024 lektsii.org - -

: 0.072 .