Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите перевести код / 9 сообщений из 9, страница 1 из 1
10.02.2011, 20:05
    #37110035
onlyoune
onlyoune
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести код
Помогите перевести код макроса т.е. что делает каждая строка (срок здачи 11.02.2011 в 8-00) я в этом не разбираюсь поэтому не успеваю.
Подскажите что делают строки, или как побыстрее в этом разобраться.
В заранее спасибо.


Код: plaintext
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.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
Sub Макрос1()
'ввод текста
A = InputBox("Привет! Введите в окошечко русский текст ", "Программа Latinica", ,  3860 ,  5860 )
Application.ScreenUpdating = False
If A = "" Then GoTo m3
L = Len(A)
For I =  1  To L
B = Mid(A, I,  1 )
If B = " " Then N = N & " "
For J =  3  To  91 
C = "F" & J
D = "G" & J
If B = Range(C) Then N = N & Range(D)
If B = Range(C) Then GoTo m1
Next J
N = N & ""
m1:
Next I
Range("B4").Select
   Selection.Interior.ColorIndex = xlNone
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
Range("B4") = N
L = Len(N)
Range("C4") = L
     Range("B51").Select
Selection.Cut
Range("B5").Select
ActiveSheet.Paste
Range("B51").Select
Selection.Interior.ColorIndex =  15 
Range("Z1") =  1 
    Range("B4").Select
m3:
Application.ScreenUpdating = True
End Sub
Sub Макрос2()
' очистка
Application.ScreenUpdating = False
Range("B4") = Delete
Range("C4") = Delete
    Range("B4").Select
    With Selection.Interior
        .ColorIndex =  15 
        .Pattern = xlSolid
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("B5").Select
Selection.Cut
Range("B51").Select
ActiveSheet.Paste
Range("B5").Select
Selection.Interior.ColorIndex =  15 
Range("A100").Select
Application.ScreenUpdating = True
Range("Z1") =  0 
Application.Run "Макрос1"
End Sub
Sub Auto_Open()
Application.WindowState = xlNormal
If Range("Z1") =  1  Then Application.Run "Макрос2" Else Application.Run "Макрос1"
End Sub
Sub Макрос9()
' Закрыть с сохранением
For Each W In Application.Workbooks
W.Save
Next W
Application.Quit
Application.WindowState = xlMaximized
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2011, 20:11
    #37110040
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести код
onlyoune,

еще и сроки есть? Хочется уже знать - чем же F8 Вас так не устраивает, что Вам это надо, но Вы не хотите сами это делать.
Для желающих помочь советую вот здесь еще почитать о том, что уже предлагалось.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2011, 20:26
    #37110062
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести код
авторя в этом не разбираюсь поэтому не успеваю
Это неконструктивно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2011, 20:34
    #37110078
onlyoune
onlyoune
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести код
Не было бы сроков, была бы возможность нормально разобраться, а т.к. мало времени и обращаюсь за помощью.
P.S. некоторые строки понятны, но разобраться с остальными пока не удается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2011, 20:36
    #37110081
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести код
onlyoune,

какие строки вам тогда непонятны ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2011, 20:50
    #37110096
onlyoune
onlyoune
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
L = Len(A)

If B = " " Then N = N & " "

If B = Range(C) Then N = N & Range(D)

ActiveSheet.Paste

For Each W In Application.Workbooks
W.Save
Next W
Application.Quit
Application.WindowState = xlMaximized
ну вроде только эти строчки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2011, 20:58
    #37110102
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести код
onlyoune,

Код: plaintext
Application.WindowState = xlMaximized
эта строчка бесполезная, так как перед приложение было закрыто
Код: plaintext
Application.Quit
А по сути это распахнуть эксель во весь экран.

Код: plaintext
1.
2.
3.
4.
5.
6.
' цикл по всем книгам приложения
For Each W In Application.Workbooks
' сохранение текущей книги
W.Save
' конец цикла
Next W
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2011, 21:15
    #37110119
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести код
onlyoune,

Код: plaintext
1.
2.
3.
4.
5.
6.
' количество символов в строке A
L = Len(A)
' если очередной символ "переводимой" строки пробел, - добавить к "транслитной" строке пробел
If B = " " Then N = N & " "
' если очередной символ "переводимой" строки равен содержимому ячейки C (C меняется в цикле от "F3" до "F91"),
' то добавить к "транслитной" строке содержимое ячейки D (D меняется в цикле от "G3" до "G91" синхронно с C)
If B = Range(C) Then N = N & Range(D)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2011, 13:21
    #37111199
onlyoune
onlyoune
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести код
Пусть запоздалое, но всем спасибо за помощь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите перевести код / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 416ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177186]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 126ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 224ms
total:  416ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]