ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите перевести код
9 сообщений из 9, страница 1 из 1
Помогите перевести код
    #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:05
| Ответить | Цитировать | Написать  
Помогите перевести код
    #37110040
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
onlyoune,

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

какие строки вам тогда непонятны ?
...
Рейтинг: 0 / 0
10.02.2011, 20:36
| Ответить | Цитировать | Написать  
Помогите перевести код
    #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:50
| Ответить | Цитировать | Написать  
Помогите перевести код
    #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, 20:58
| Ответить | Цитировать | Написать  
Помогите перевести код
    #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
10.02.2011, 21:15
| Ответить | Цитировать | Написать  
Помогите перевести код
    #37111199
onlyoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
onlyoune
Гость
Пусть запоздалое, но всем спасибо за помощь.
...
Рейтинг: 0 / 0
11.02.2011, 13:21
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите перевести код
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37110096&tid=2177186]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 140ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 228ms
total:  455ms
созд. / загр.: 455ms
x
x
Закрыть


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