Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2012, 22:11   #1
nord712
Новичок
Джуниор
 
Регистрация: 23.05.2012
Сообщений: 2
По умолчанию задание в excel

помогите пожалуйста!! сделайте задания 1,3. срочно надо до завтра до 10:00 мск.
Изображения
Тип файла: jpg Scan20001.jpg (123.4 Кб, 155 просмотров)

Последний раз редактировалось nord712; 23.05.2012 в 22:18.
nord712 вне форума Ответить с цитированием
Старый 23.05.2012, 22:18   #2
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Принимаю участие в тендере.
Демпингую ,цену выставляю десять соток и на вебмани.
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 23.05.2012, 22:22   #3
nord712
Новичок
Джуниор
 
Регистрация: 23.05.2012
Сообщений: 2
По умолчанию

за косарь чтоли??
nord712 вне форума Ответить с цитированием
Старый 23.05.2012, 22:45   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
Сообщение от nord712 Посмотреть сообщение
за косарь чтоли??
Это очень даже неплохое предложение по цене, с учетом срочности.
Или вы думали, что мы бросимся бесплатно (и в срочном порядке) решать ваши задачки?
EducatedFool вне форума Ответить с цитированием
Старый 24.05.2012, 05:12   #5
Djeki
Форумчанин
 
Регистрация: 24.01.2011
Сообщений: 136
По умолчанию

Цитата:
Сообщение от nord712 Посмотреть сообщение
за косарь чтоли??
За такую работу и учитывая срочность - косарь маловато будет.
Djeki вне форума Ответить с цитированием
Старый 24.05.2012, 10:25   #6
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

И ещё соточка за моральный ущерб при просмотре картинки.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 24.05.2012, 10:46   #7
Djeki
Форумчанин
 
Регистрация: 24.01.2011
Сообщений: 136
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
И ещё соточка за моральный ущерб при просмотре картинки.
Соточка - это за поворот картинки на 90 градусов, а там надо повернуть на 180.. Так что две соточки плюс - справедливая надбавка за кривизну картинки..
Djeki вне форума Ответить с цитированием
Старый 24.05.2012, 11:02   #8
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Ну тогда уж и за то, что сперва её нужно сохранить и открывать спецпрограммой (не знаю, Пайнт может поворачивать?)
С другой стороны, может быть кто-то открывает картинку на планшете, мобиле или имеет другой поворотный дисплей
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 24.05.2012 в 11:24.
Hugo121 вне форума Ответить с цитированием
Старый 24.05.2012, 12:24   #9
aballtooth
 
Регистрация: 25.11.2011
Сообщений: 3
По умолчанию

Есть олин рабочий лист с одной таблицей Excel. Еа основании этой таблицы надо сформировать другой рабочий лист с похожей таблицей, но столбцы должны быть в другом порудке (я знаю в каком именно). Можно, конечно, вручную копировать столбцы из одного рабочего листа в нужное место другого рабочего листа, но слишком много файлов и на это уйдет очень много времени. Я написал макрос на Visual Basic, который должен был бы автоматически создавать новый рабочий лист и присваивать каждому столбцу созданного рабочего листа, другой столбец старого рабочего листа. Но этот макрос у меня не работает. Подскажите, пожалуйста, что я делаю не так:

Option Explicit
Dim carriageWorkbook As Workbook
Sub convertShippingDocument()
Dim givzWorkSheet As Worksheet
Dim utlcWorkSheet As Worksheet
Dim name As String
Dim i As Integer
carriageWorkbook = Application.Workbooks(1)
'carriageWorkbook.Activate'
utlcWorkSheet = carriageWorkbook.Worksheets(1)
givzWorkSheet = carriageWorkbook.Worksheets.Add()
givzWorkSheet.Visible = xlSheetVisible
For i = 6 To utlcWorkSheet.Rows.Count
givzWorkSheet.Cells(i - 5, 1) = utlcWorkSheet.Cells(i, 6)
givzWorkSheet.Cells(i - 5, 2) = utlcWorkSheet.Cells(i, 3)
givzWorkSheet.Cells(i - 5, 3) = utlcWorkSheet.Cells(i, 5)
givzWorkSheet.Cells(i - 5, 4) = utlcWorkSheet.Cells(i, 8)
givzWorkSheet.Cells(i - 5, 5) = utlcWorkSheet.Cells(i, 10)
givzWorkSheet.Cells(i - 5, 6) = utlcWorkSheet.Cells(i, 11)
givzWorkSheet.Cells(i - 5, 7) = utlcWorkSheet.Cells(i, 14)
givzWorkSheet.Cells(i - 5, 8) = utlcWorkSheet.Cells(i, 9)
givzWorkSheet.Cells(i - 5, 9) = utlcWorkSheet.Cells(i, 12)
givzWorkSheet.Cells(i - 5, 10) = utlcWorkSheet.Cells(i, 13)
givzWorkSheet.Cells(i - 5, 11) = utlcWorkSheet.Cells(i, 16)
givzWorkSheet.Cells(i - 5, 12) = utlcWorkSheet.Cells(i, 17)
givzWorkSheet.Cells(i - 5, 13) = utlcWorkSheet.Cells(i, 15)
givzWorkSheet.Cells(i - 5, 14) = utlcWorkSheet.Cells(i, 18) * 1000
givzWorkSheet.Cells(i - 5, 15) = utlcWorkSheet.Cells(i, 19)
givzWorkSheet.Cells(i - 5, 16) = utlcWorkSheet.Cells(i, 21)
givzWorkSheet.Cells(i - 5, 17) = utlcWorkSheet.Cells(i, 22)
givzWorkSheet.Cells(i - 5, 18) = 0
givzWorkSheet.Cells(i - 5, 19) = 0
givzWorkSheet.Cells(i - 5, 20) = utlcWorkSheet.Cells(i, 23)
givzWorkSheet.Cells(i - 5, 21) = 0
givzWorkSheet.Cells(i - 5, 22) = utlcWorkSheet.Cells(i, 23)
Next
End Sub

Заранее спасибо
aballtooth вне форума Ответить с цитированием
Старый 24.05.2012, 14:41   #10
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
Сообщение от aballtooth Посмотреть сообщение
Подскажите, пожалуйста, что я делаю не так:
1) Вы постите свои вопросы в первую попавшуюся тему
2) Не желаете изучить правила раздела
EducatedFool вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задание на Excel robinbpk Фриланс 1 05.03.2011 13:39
Задание по Excel Мисс Зло Microsoft Office Excel 5 10.01.2011 19:01
задание по EXCEL planerolling Microsoft Office Excel 17 16.12.2008 20:34