Вопрос № 131007: Ув. эксперты, подскажите, ПЛИЗ!
Как из EXCELL-таблицы из данных в столбцах вырезать спецсимвол - квадратик(т.е. отображение enter).Таблица большая очень.
Реализовать это надо при пом.VBA
Заранее спасибо!
..Вопрос № 131025: Ув. Эксперты. Подскажите. Нужно убрать символ из ячеек в таблице EXCEL - квадратик - (ентер). Убрала, а результат в другой столбец записала, а обратно как значения вставить? Т.е. в столбец-родитель?
А может есть более красивые варианты? например ...Вопрос № 131102: друзья! помогите человеку, не имеющему даже представления о vba... нужно решить две задачи... средствами редактора vba сделать:
1. в тексте, набранном в word'е нужно найти и удалить фрагменты текста, заключенного в круглые скобки... то есть, откр...Вопрос № 131138: Здравствуйте!
Подскажите пожалуйста, как в access в таблицу записать некоторые данные?
А подробнее: есть таблица, нужно из vba (это будет команда кнопки) в конец таблицы записать какие-то данные, из переменных....
Вопрос № 131.007
Ув. эксперты, подскажите, ПЛИЗ!
Как из EXCELL-таблицы из данных в столбцах вырезать спецсимвол - квадратик(т.е. отображение enter).Таблица большая очень.
Реализовать это надо при пом.VBA
Заранее спасибо!
Отправлен: 07.04.2008, 15:32
Вопрос задала: Yuryeva (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 13)
Отвечает: Черников Игорь Владимирович
Здравствуйте, Yuryeva!
Этот макрос записывается автоматически, если запустить запись, а потом с помощью правка - заменить найти какой-нибудь символ и заменить, остаётся только немного его модифицировать: Asc(10) - символ возврата каретки, Asc(13) - символ перехода на новую строку (Энтер). Выберите нужный вариант, остальное удалите. Если захотите вместо этого квадратика поставить пробел, то вместо Replacement:="" поставьте Replacement:=" "
Sub Макрос4()
Cells.Replace What:=Asc(10), Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=Asc(13), Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Удачи!
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 07.04.2008, 18:45 Оценка за ответ: 5 Комментарий оценки: Спасибо. Толькл не Asc,а Chr
Вопрос № 131.025
Ув. Эксперты. Подскажите. Нужно убрать символ из ячеек в таблице EXCEL - квадратик - (ентер). Убрала, а результат в другой столбец записала, а обратно как значения вставить? Т.е. в столбец-родитель?
А может есть более красивые варианты? например - вместа квадратика, чтобы сразу пробел?...
СПАСИБО заранее.
Приложение:
Отправлен: 07.04.2008, 16:55
Вопрос задала: Yuryeva (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)
Отвечает: Черников Игорь Владимирович
Здравствуйте, Yuryeva!
Sub Макрос4()
Cells.Replace What:=Asc(13), Replacement:=" ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Удачи!
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 07.04.2008, 18:50 Оценка за ответ: 5 Комментарий оценки: Спасибо еще раз! Все оказалось гораздо проще, чем я намудрила :-)
Вопрос № 131.102
друзья! помогите человеку, не имеющему даже представления о vba... нужно решить две задачи... средствами редактора vba сделать:
1. в тексте, набранном в word'е нужно найти и удалить фрагменты текста, заключенного в круглые скобки... то есть, открывающаяся скобка - начало фрагмента, закрывающаяся, соответственно, конец.... удалить вместе со скобками...
2. известна сумма зарплаты для каждого сотрудника отдела... нужно вычислить количество сотрудников, получающих зарплату выше средней.
==
помогите, если есть возможность :)
Отправлен: 08.04.2008, 00:11
Вопрос задал: Vixerunt (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Черников Игорь Владимирович
Здравствуйте, Vixerunt!
Вот ответ на первый вопрос: (вставьте этот макрос в Ворд)
Sub Макрос2()
Selection.EndKey Unit:=wdStory
Selection.TypeText Text:=Chr(182)
Selection.HomeKey Unit:=wdStory
Do
r$ = ActiveDocument.Range(Start:=Selection.End, End:=Selection.End + 1)
If r$ = Chr(182) Then
Selection.Delete
Exit Do
End If
If r$ = "(" Then удаление = True
If r$ = ")" Then
Selection.Delete
Selection.MoveLeft Unit:=wdCharacter, Count:=1
удаление = False
End If
If удаление Then
Selection.Delete
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End If
Selection.MoveRight Unit:=wdCharacter, Count:=1
Loop
End Sub
А вот на второй:
Dim Зарплата() As Integer
Dim КоличествоСотрудников As Integer
КоличествоСотрудников = InputBox("Введите количество сотрудников", "Ввод данных")
ReDim Зарплата(КоличествоСотрудников) As Integer
For i = 1 To КоличествоСотрудников
Зарплата(i) = InputBox("Введите зарплату сотрудника " & i, "Ввод данных")
Next i
For i = 1 To КоличествоСотрудников
СредняяЗарплата = СредняяЗарплата + Зарплата(i)
Next i
СредняяЗарплата = СредняяЗарплата / КоличествоСотрудников
For i = 1 To КоличествоСотрудников
If Зарплата(i) > СредняяЗарплата Then КолСотрВышСредн = КолСотрВышСредн + 1
Next i
MsgBox ("Колличество сотрудников, получающих зарплату выше средней = " & КолСотрВышСредн)
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 08.04.2008, 20:14 Оценка за ответ: 5 Комментарий оценки: я очень Вам признателен.... огромное спасибо... выручили :)
Вопрос № 131.138
Здравствуйте!
Подскажите пожалуйста, как в access в таблицу записать некоторые данные?
А подробнее: есть таблица, нужно из vba (это будет команда кнопки) в конец таблицы записать какие-то данные, из переменных.
Отправлен: 08.04.2008, 11:04
Вопрос задал: Upgrader (статус: 6-ой класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Upgrader!
С помощью кода в приложении, Вы сможете осуществить запись переменной в поле таблицы MS Access.
Евгений.
Приложение:
Ответ отправил: Тесленко Евгений Алексеевич (статус: Студент)
Ответ отправлен: 08.04.2008, 17:58 Оценка за ответ: 5 Комментарий оценки: Да, это то что нужно!
Спасибо.
Отвечает: Черников Игорь Владимирович
Здравствуйте, Upgrader!
У меня из VB6 это происходит так:
Public connection As New ADODB.connection
Public rsa As New ADODB.Recordset
Function Подключение()
connection.ConnectionString = "Provider=MSDASQL.1;" & _
***
connection.Open
strSql = "SELECT tablica.* FROM tablica ORDER BY tablica.NAME;"
rsa.Open strSql, connection, adOpenKeyset, adLockOptimistic
rsa.MoveLast 'Пишем в последнюю
rsa.Fields(1).Value="Проба1"
rsa.Fields(2).Value="Проба2"
rsa.AddNew 'А так создаём новую
rsa.Fields(1).Value="Проба3"
rsa.Fields(2).Value="Проба4"
rsa.Update
rsa.close
End Function
Удачи!
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 08.04.2008, 20:39 Оценка за ответ: 5
