API tools faq
paste
Advertisement
NokitaKaze

Код Никиты десятилетней выдержки

NokitaKaze
Sep 5th, 2014
320
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 14.38 KB | None | 0 0
raw download clone embed print report
  1. Attribute VB_Name = "Module7"
  2. 'Private Static Function Str(i As Integer) As String
  3. Function UpStr(c As String) As String
  4. Dim c1, c2 As String
  5. c1 = "йцукенгшщзхъфывапролджэячсмитьбю"
  6. c2 = "ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ"
  7. If InStr(c1, c) <> 0 Then
  8.  UpStr = Right(Left(c2, InStr(c1, c)), 1)
  9. Else
  10.  UpStr = c
  11. End If
  12. End Function
  13.  
  14.  
  15. ' (cl) CopyLeft by <ВЫРЕЗАНО БЛЕАТЬ>
  16. Sub ЗаполнениеВсего()
  17. Attribute ЗаполнениеВсего.VB_Description = "Макрос записан 26.03.2004 <ВЫРЕЗАНО БЛЕАТЬ>"
  18. Attribute ЗаполнениеВсего.VB_ProcData.VB_Invoke_Func = " \n14"
  19. Dim i As Integer
  20. Dim s As String
  21. Dim MsgText As String
  22. Dim NumOne As Integer
  23.  
  24. MsgText = "Ошибки: "
  25. NumOne = InputBox("Введите номер первого листа", "Введите данные")
  26. If NumOne = nul Then Exit Sub
  27. For i = NumOne To NumOne + (2548 - 2487)
  28.     Select Case i
  29.      Case NumOne - 2487 + 2494: GoTo NextI
  30.      Case NumOne - 2487 + 2500: GoTo NextI
  31.      Case NumOne - 2487 + 2507: GoTo NextI
  32.      Case NumOne - 2487 + 2515: GoTo NextI
  33.      'Case NumOne - 2363 + 2425: GoTo NextI
  34.     'Case NumOne - 2363 + 1914: GoTo NextI
  35.    End Select
  36.     s$ = ""
  37.    
  38.     Sheets("Лист" + Str(i)).Select
  39.    
  40.     Range("J33").Select
  41.     If InStr(ActiveCell.Formula, "уплач") <> 0 Then GoTo Uplacheno
  42.    
  43.     Range("F32").Select
  44.     If ActiveCell.Formula <> "=C32+D32-E32" Then
  45.      If (re <> vbNo) Then re = MsgBox("Между прочим на странице" + _
  46.      Str(i) + " в ячейке F32. Повторять эту чушь?", vbCritical + _
  47.      vbYesNo, "Проблема с формулой")
  48.      MsgText = MsgText + Str(i) + "(F32)"
  49.     End If
  50.     Range("K32").Select
  51.     If ActiveCell.Formula <> "=J32+F32" Then
  52.      If (re <> vbNo) Then re = MsgBox("Между прочим на странице" + _
  53.      Str(i) + " в ячейке K32. Повторять эту чушь?", vbCritical + _
  54.      vbYesNo, "Проблема с формулой")
  55.      MsgText = MsgText + Str(i) + "(K32)"
  56.     End If
  57.     Range("J32").Select
  58.     If ActiveCell.Formula <> "=SUM(J15:J31)" Then
  59.      If (re <> vbNo) Then re = MsgBox("Между прочим на странице" + _
  60.      Str(i) + " в ячейке J32. Повторять эту чушь?", vbCritical + _
  61.      vbYesNo, "Проблема с формулой ->" + ActiveCell.Formula)
  62.      MsgText = MsgText + Str(i) + "(J32)"
  63.     End If
  64.    
  65.    
  66.     'If i = 729 Then
  67.    '   Range("J33").Select
  68.    'End If
  69.    
  70.     Range("d32").Select
  71.     n = Val(ActiveCell.FormulaR1C1)
  72.     Range("c32").Select
  73.     n = n + Val(ActiveCell.FormulaR1C1)
  74.     Range("e32").Select
  75.     n = n - Val(ActiveCell.FormulaR1C1)
  76.    
  77.     For j = 15 To 31
  78.      Range("j" + LTrim(Str(j))).Select
  79.      n = n + Val(ActiveCell.FormulaR1C1)
  80.     Next j
  81.    
  82.     suka = (n * 100) Mod 100
  83.    
  84.     z = Int(n * 10000) Mod 100
  85.     If Int(z) = 99 Then
  86.        n = (Int(n * 100) + 1) / 100
  87.     End If
  88.    
  89.     Select Case Int(n / 1000)
  90.      Case 1
  91.        s$ = "Одна тысяча"
  92.      Case 2
  93.        s$ = "Две тысячи"
  94.      Case 3
  95.        s$ = "Три тысячи"
  96.      Case 4
  97.        s$ = "Четыри тысячи"
  98.      Case 5
  99.        s$ = "Пять тысяч"
  100.      Case 6
  101.        s$ = "Шесть тысяч"
  102.      Case 7
  103.        s$ = "Семь тысяч"
  104.      Case 8
  105.        s$ = "Восемь тысяч"
  106.      Case 9
  107.        s$ = "Десять тысяч"
  108.      Case 10
  109.        s$ = "Десять тысяч"
  110.      Case 11
  111.        s$ = "Одинадцать тысяч"
  112.      Case 12
  113.        s$ = "Двенадцать тысяч"
  114.      Case 13
  115.        s$ = "Тринадцать тысяч"
  116.      Case 14
  117.        s$ = "Четырнадцать тысяч"
  118.      Case 15
  119.        s$ = "Пятнадцать тысяч"
  120.      Case 16
  121.        s$ = "Шестнадцать тысяч"
  122.      Case 17
  123.        s$ = "Семьнадцать тысяч"
  124.      Case 18
  125.        s$ = "Восемьнадцать тысяч"
  126.      Case 19
  127.        s$ = "Девятнадцать тысяч"
  128.      Case 20
  129.        s$ = "Двадцать тысяч"
  130.      Case 22
  131.        s$ = "Двадцать две тысячи"
  132.      Case 23
  133.        s$ = "Двадцать три тысячи"
  134.      Case 24
  135.        s$ = "Двадцать четыре тысячи"
  136.      Case 25
  137.        s$ = "Двадцать пять тысяч"
  138.      Case 26
  139.        s$ = "Двадцать шесть тысяч"
  140.      Case 27
  141.        s$ = "Двадцать семь тысяч"
  142.      Case 28
  143.        s$ = "Двадцать восемь тысяч"
  144.      Case 29
  145.        s$ = "Двадцать девять тысяч"
  146.      Case 30
  147.        s$ = "Тридцать тысяч"
  148.      Case 31
  149.        s$ = "Тридцать одна тысяча"
  150.      Case 32
  151.        s$ = "Тридцать две тысячи"
  152.      Case 33
  153.        s$ = "Тридцать три тысячи"
  154.      Case 34
  155.        s$ = "Тридцать четыре тысячи"
  156.      Case 35
  157.        s$ = "Тридцать пять тысяч"
  158.      Case 36
  159.        s$ = "Тридцать шесть тысяч"
  160.      Case 37
  161.        s$ = "Тридцать семь тысяч"
  162.      Case 38
  163.        s$ = "Тридцать восемь тысяч"
  164.      Case 39
  165.        s$ = "Тридцать девять тысяч"
  166.      Case 40
  167.        s$ = "Сорок тысяч"
  168.      Case 41
  169.        s$ = "Сорок одна тысяча"
  170.      Case 42
  171.        s$ = "Сорок две тысячи"
  172.      Case 43
  173.        s$ = "Сорок три тысячи"
  174.      Case 44
  175.        s$ = "Сорок четыре тысячи"
  176.      Case 45
  177.        s$ = "Сорок пять тысяч"
  178.      Case 46
  179.        s$ = "Сорок шесть тысяч"
  180.      Case 47
  181.        s$ = "Сорок семь тысяч"
  182.      Case 48
  183.        s$ = "Сорок восемь тысяч"
  184.      Case 49
  185.        s$ = "Сорок девять тысяч"
  186.      Case 50
  187.        s$ = "Пятьдесят тысяч"
  188.      Case 51
  189.        s$ = "Пятьдесят одна тысяча"
  190.      Case 52
  191.        s$ = "Пятьдесят две тысячи"
  192.      Case 53
  193.        s$ = "Пятьдесят три тысячи"
  194.      Case 54
  195.        s$ = "Пятьдесят четыре тысячи"
  196.      Case 55
  197.        s$ = "Пятьдесят пять тысяч"
  198.      Case 56
  199.        s$ = "Пятьдесят шесть тысяч"
  200.      Case 57
  201.        s$ = "Пятьдесят семь тысяч"
  202.      Case 58
  203.        s$ = "Пятьдесят восемь тысяч"
  204.      Case 59
  205.        s$ = "Пятьдесят девять тысяч"
  206.      Case 60
  207.        s$ = "Шестьдесят тысяч"
  208.      Case 61
  209.        s$ = "Шестьдесят одна тысяч"
  210.      Case 62
  211.        s$ = "Шестьдесят две тысячи"
  212.      Case 63
  213.        s$ = "Шестьдесят три тысячи"
  214.      Case 64
  215.        s$ = "Шестьдесят четыре тысячи"
  216.      Case 65
  217.        s$ = "Шестьдесят пять тысяч"
  218.      Case 66
  219.        s$ = "Шестьдесят шесть тысяч"
  220.      Case 67
  221.        s$ = "Шестьдесят семь тысяч"
  222.      Case 68
  223.        s$ = "Шестьдесят восемь тысяч"
  224.      Case 69
  225.        s$ = "Шестьдесят девять тысяч"
  226.      Case 70
  227.        s$ = "Семьдесят тысяч"
  228.      Case 0
  229.        s$ = s$
  230.      Case Else
  231.        s$ = InputBox("Всё, сам вводи!" + Str(n), "ВВЕДИ В МЕНЯ... число :)")
  232.        GoTo vse
  233.        
  234.      
  235.     End Select
  236.     s$ = s$ + " "
  237.     Select Case Int(n / 100) Mod 10
  238.       Case 1
  239.         s$ = s$ + "сто"
  240.       Case 2
  241.         s$ = s$ + "двести"
  242.       Case 3
  243.         s$ = s$ + "триста"
  244.       Case 4
  245.         s$ = s$ + "четыреста"
  246.       Case 5
  247.         s$ = s$ + "пятьсот"
  248.       Case 6
  249.         s$ = s$ + "шестьсот"
  250.       Case 7
  251.         s$ = s$ + "семьсот"
  252.       Case 8
  253.         s$ = s$ + "восемьсот"
  254.       Case 9
  255.         s$ = s$ + "девятьсот"
  256.     End Select
  257.    
  258.     s$ = s$ + " "
  259.     Select Case Int(n / 10) Mod 10
  260.        Case 1
  261.          j = (Int(n) Mod 10)
  262.          Select Case j
  263.           Case 0
  264.             s$ = s$ + "десять"
  265.           Case 1
  266.             s$ = s$ + "одинадцать"
  267.           Case 2
  268.             s$ = s$ + "двенадцать"
  269.           Case 3
  270.             s$ = s$ + "тринадцать"
  271.           Case 4
  272.             s$ = s$ + "четырнадцать"
  273.           Case 5
  274.             s$ = s$ + "пятнадцать"
  275.          
  276.          
  277.           Case 6
  278.             s$ = s$ + "шестьнадцать"
  279.           Case 7
  280.             s$ = s$ + "семьнадцать"
  281.           Case 8
  282.             s$ = s$ + "восемьнадцать"
  283.           Case 9
  284.             s$ = s$ + "девятьнадцать"
  285.          End Select
  286.          s$ = s$ + " "
  287.          GoTo opeyka
  288.        Case 2
  289.          s$ = s$ + "двадцать"
  290.        Case 3
  291.          s$ = s$ + "тридцать"
  292.        Case 4
  293.          s$ = s$ + "сорок"
  294.        Case 5
  295.          s$ = s$ + "пятьдесят"
  296.        Case 6
  297.          s$ = s$ + "шестьдесят"
  298.        Case 7
  299.          s$ = s$ + "семьдесят"
  300.        Case 8
  301.          s$ = s$ + "восемьдесят"
  302.        Case 9
  303.          s$ = s$ + "девяносто"
  304.     End Select
  305.     s$ = s$ + " "
  306.    
  307.    
  308.     'pizda = Right(ActiveCell.FormulaR1C1, 4)
  309.    
  310.     pizda = Right(n, 4)
  311.     If InStr(pizda, ".") <> 2 Then
  312.        pizda = Right(Left(pizda, 2), 1)
  313.     Else
  314.        pizda = Left(pizda, 1)
  315.     End If
  316.        
  317.     Select Case Int(n) Mod 10 'pizda '(n Mod 10)
  318.       Case "1"
  319.          s$ = s$ + "один"
  320.        Case "2"
  321.          s$ = s$ + "два"
  322.        Case "3"
  323.          s$ = s$ + "три"
  324.        Case "4"
  325.          s$ = s$ + "четыре"
  326.        Case "5"
  327.          s$ = s$ + "пять"
  328.        Case "6"
  329.          s$ = s$ + "шесть"
  330.        Case "7"
  331.          s$ = s$ + "семь"
  332.        Case "8"
  333.          s$ = s$ + "восемь"
  334.        Case "9"
  335.          s$ = s$ + "девять"
  336.     End Select
  337.        s$ = s$ + " "
  338.    
  339. opeyka:
  340.     s$ = LTrim(s$)
  341.     s$ = UpStr(Left(s$, 1)) + Right(s$, Len(s$) - 1)
  342.    
  343.     z = Int(n) Mod 100
  344.     Select Case z \ 10
  345.     Case 0, 2, 3, 4, 5, 6, 7, 8, 9
  346.      Select Case z Mod 10
  347.      Case 0, 5, 6, 7, 8, 9
  348.       s$ = s$ + " рублей"
  349.      Case 1
  350.       s$ = s$ + " рубль"
  351.      Case 2, 3, 4
  352.       s$ = s$ + " рубля"
  353.      End Select
  354.     Case 1
  355.      s$ = s$ + " рублей"
  356.     End Select
  357.  
  358.  
  359.     s$ = s$ + Str(suka) '+ " коп."
  360.    
  361.     Select Case suka \ 10
  362.     Case 0, 2, 3, 4, 5, 6, 7, 8, 9
  363.      Select Case suka Mod 10
  364.      Case 0, 5, 6, 7, 8, 9
  365.       s$ = s$ + " копеек"
  366.      Case 1
  367.       s$ = s$ + " копейка"
  368.      Case 2, 3, 4
  369.       s$ = s$ + " копейки"
  370.      End Select
  371.     Case 1
  372.      s$ = s$ + " копеек"
  373.     End Select
  374.    
  375.    
  376.    
  377.     'Int((n - Int(n)) * 100)
  378.    
  379.    
  380.    
  381.    
  382. vse:
  383.    
  384.     Range("A34").Select
  385.     ActiveCell.FormulaR1C1 = "Всего к оплате по счету-фактуре №  _" + LTrim(Str(i)) + "Г_" + s$
  386.    
  387.     Range("F42").Select
  388.     ActiveCell.FormulaR1C1 = "Главный бухгалтер __________________________ /<ВЫРЕЗАНО БЛЕАТЬ> Л.Р./"
  389.    
  390.     Range("B34:E34").Select
  391.     Selection.ClearContents
  392.     GoTo NextI
  393.  
  394. Uplacheno:
  395.     Range("A34").Select
  396.     ActiveCell.FormulaR1C1 = "Всего к оплате по счету-фактуре №  _" + LTrim(Str(i)) + "Г_уплачено!"
  397.  
  398. NextI:
  399. Next i
  400.  
  401.  
  402.  
  403. If MsgText <> "Ошибки: " Then MsgBox MsgText, vbCritical, "Ошибки"
  404. MsgBox "Дождался!" + Chr(13) + "          (cl) CopyLeft by <ВЫРЕЗАНО БЛЕАТЬ>", vbInformation, "Это я - любимый!"
  405.  
  406. End Sub
  407.  
  408. Sub SecMe()
  409. NumOne = InputBox("Введите номер первого листа", "Введите данные")
  410. If NumOne = "" Then Exit Sub
  411. For i = NumOne To NumOne + 59
  412.     Select Case i
  413.      Case NumOne + 1684 - 1677: GoTo NextI
  414.      Case NumOne + 1698 - 1677: GoTo NextI
  415.      'Case NumOne + 407 - 1677: GoTo NextI
  416.     'Case NumOne + 407 - 1677: GoTo NextI
  417.     'Case NumOne + 407 - 1677: GoTo NextI
  418.     'Case NumOne + 407 - 1677: GoTo NextI
  419.     'Case NumOne + 407 - 1677: GoTo NextI
  420.    End Select
  421.     Sheets("Лист" + Str(i)).Select
  422.     Range("i15").Select
  423.     ActiveCell.FormulaR1C1 = "0.75"
  424.     Range("i16").Select
  425.     ActiveCell.FormulaR1C1 = "6.95"
  426.     Range("i17").Select
  427.     ActiveCell.FormulaR1C1 = "305.8"
  428.     Range("i18").Select
  429.     ActiveCell.FormulaR1C1 = "4.66"
  430.     Range("i19").Select
  431.     ActiveCell.FormulaR1C1 = "305.8"
  432.     Range("i20").Select
  433.     ActiveCell.FormulaR1C1 = "0.89"
  434.     Range("i21").Select
  435.     ActiveCell.FormulaR1C1 = "0.89"
  436.    
  437.     Range("i23").Select
  438.     ActiveCell.FormulaR1C1 = "0.96"
  439.     Range("i24").Select
  440.     ActiveCell.FormulaR1C1 = "1.36"
  441.     Range("i25").Select
  442.     ActiveCell.FormulaR1C1 = "29.53"
  443.     Range("i26").Select
  444.     ActiveCell.FormulaR1C1 = "0.97"
  445.     Range("i27").Select
  446.     ActiveCell.FormulaR1C1 = "1.90"
  447.     Range("i28").Select
  448.     ActiveCell.FormulaR1C1 = "0.13"
  449.     Range("i29").Select
  450.     ActiveCell.FormulaR1C1 = "1.72"
  451.     Range("i31").Select
  452.     ActiveCell.FormulaR1C1 = "0.63"
  453.  
  454. NextI:
  455. Next i
  456. End Sub
  457.  
  458. Sub summing()
  459. Dim s As String
  460. Const NumOne = 1859
  461.  
  462. s = "СУММ("
  463. s1 = s
  464. For i = NumOne To NumOne + 30
  465.     Select Case i
  466.      Case NumOne - 1859 + 1866: GoTo NextI
  467.      Case NumOne - 1859 + 1874: GoTo NextI
  468.      Case NumOne - 1859 + 1881: GoTo NextI
  469.      Case NumOne - 1859 + 1882: GoTo NextI
  470.     End Select
  471. s = s + "'Лист" + Str(i) + "'!J32;"
  472. s1 = s1 + "'Лист" + Str(i) + "'!K32;"
  473.  
  474. NextI:
  475. Next
  476. s = s + "0)"
  477. s1 = s1 + "0)"
  478. Sheets("Сумма").Select
  479. Range("J32").Select
  480. ActiveCell.FormulaR1C1 = s
  481. Range("K32").Select
  482. ActiveCell.FormulaR1C1 = s1
  483.  
  484.  
  485. s = "СУММ("
  486. s1 = s
  487. For i = NumOne + 31 To NumOne + 61
  488.     Select Case i
  489.      Case NumOne - 1859 + 1890: GoTo NextI1
  490.      Case NumOne - 1859 + 1914: GoTo NextI1
  491.     End Select
  492. s = s + "'Лист" + Str(i) + "'!J32;"
  493. s1 = s1 + "'Лист" + Str(i) + "'!K32;"
  494.  
  495. NextI1:
  496. Next
  497.  
  498. s = s + "0)"
  499. s1 = s1 + "0)"
  500. Sheets("Сумма").Select
  501. Range("J33").Select
  502. ActiveCell.FormulaR1C1 = s
  503. Range("K33").Select
  504. ActiveCell.FormulaR1C1 = s1
  505.  
  506. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!