Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Подгон значений / 15 сообщений из 15, страница 1 из 1
19.09.2008, 13:02
    #35548798
akimak
akimak
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
доброго времени суток всем форумчанам! Нужна помощь. Во вложении есть файл, в котором необходимо изменять значения из столбца В(только из В), чтобы в столбце С значения равняли одному значению(числу). Например, 10.4. Все это(подгон под 10.4 всех значений) сейчас делается вручную. Как можно облегчить эту процедуру?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 13:09
    #35548825
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
Возможно тебе нужно "подбор параметра" - это в меню "сервис".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 13:14
    #35548841
akimak
akimak
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
Оно то можно... вот только таких подборов параметра мне надо раз 200(если не больше сделать)... :( А как можно сделать все сразу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 13:25
    #35548886
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub CommandButton1_Click()
    
    Dim rng As Range, rng2 As Range
    On Error Resume Next
        Set rng = Application.InputBox( _
      Prompt:="Выберите диапазон с формулами.", _
      Title:="Выберите диапазон с формулами.", Type:= 8 , Left:= 200 , Top:=- 65 )
    If rng Is Nothing Then Exit Sub
    For Each rng2 In rng.Cells
        rng2.GoalSeek Goal:= 10 . 4 , ChangingCell:=rng2.Offset( 0 , - 1 )
    Next

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 13:33
    #35548914
akimak
akimak
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
спасибо vkodor :) А как мне можно эту кнопку перенести в другой файл?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 14:03
    #35548998
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
Открой файл "123.xls" и файл с данными и нажми ctrl+q.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 14:30
    #35549079
akimak
akimak
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
скачал, открываю, а он пустой - даже листа нету
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 14:48
    #35549130
akimak
akimak
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
Мне желательно понять как такой макрос можно применить и к др. экселевским документам... поэтому и спрашиваю - как его экспортировать в др. файл?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 15:10
    #35549216
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
vkodorОткрой файл "123.xls" и файл с данными и нажми ctrl+q.
Файл "123.xls" скрыт (меню "окно"-"скрыть/отобразить").
Копируешь файл на любую машину, открываешь его, затем открываешь файл со своими данными и нажимаешь ctrl+q (или идешь в меню "сервис"-"макрос"-"макросы" и запускаешь макрос)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 15:30
    #35549284
akimak
akimak
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
все получается, спасибо :) Еще один вопрос остался - можно написать вам в личку vkodor?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 15:42
    #35549318
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
akimakвсе получается, спасибо :) Еще один вопрос остался - можно написать вам в личку vkodor?
А чем сдесь не устраивает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 15:47
    #35549341
akimak
akimak
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
Остались маленькие нюансы - ну вообщем, не хотелось бы их выкладывать на всеобщее обозрение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2008, 16:13
    #35549408
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
Пиши, адрес в профиле.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2008, 08:44
    #35551363
akimak
akimak
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
У тебя мэйл скрыт
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
11.04.2011, 12:59
    #37209862
natalitvinenko
natalitvinenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подгон значений
vkodor,
хочу сказать "спасибо"- воспользовалась рассказанным в этой теме.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Подгон значений / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 464ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176983]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 173ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 232ms
total:  464ms
x
x
Закрыть


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