Результаты поиска
krosav4ig
Дата: Суббота, 07.06.2014, 23:32 |
Сообщение № 2241 | Тема: ячейки с одинаковыми значениями в столбце и объединени ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
вариант с условным форматированием
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение вариант с условным форматированием Автор - krosav4ig Дата добавления - 07.06.2014 в 23:32
krosav4ig
Дата: Суббота, 07.06.2014, 21:21 |
Сообщение № 2242 | Тема: ячейки с одинаковыми значениями в столбце и объединени ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
[vba]
Код
Sub sdf() Application.ScreenUpdating = 0: Application.DisplayAlerts = 0 Dim Rng As Range, Rng2 As Range Dim i&, j&, r& With ThisWorkbook.Worksheets("Лист1") r = .Cells(.Rows.Count, 2).End(xlUp).Row Set Rng = .Range("B2:B" & r) i = 1 Do While i < r - 1 Do While Rng.Cells(i).Offset(j) = Rng.Cells(i) j = j + 1 Loop If j - 1 Then Set rng2 = .Range(Rng.Cells(i), Rng.Cells(i).Offset(j - 1)) rng2.Merge i = i + j Else Set rng2 = Rng.Cells(i) i = i + 1 End If With rng2.Borders .LineStyle = xlContinuous .ColorIndex = 0 .Weight = xlMedium End With Loop End With Application.DisplayAlerts = 1 End Sub
[/vba]
[vba]
Код
Sub sdf() Application.ScreenUpdating = 0: Application.DisplayAlerts = 0 Dim Rng As Range, Rng2 As Range Dim i&, j&, r& With ThisWorkbook.Worksheets("Лист1") r = .Cells(.Rows.Count, 2).End(xlUp).Row Set Rng = .Range("B2:B" & r) i = 1 Do While i < r - 1 Do While Rng.Cells(i).Offset(j) = Rng.Cells(i) j = j + 1 Loop If j - 1 Then Set rng2 = .Range(Rng.Cells(i), Rng.Cells(i).Offset(j - 1)) rng2.Merge i = i + j Else Set rng2 = Rng.Cells(i) i = i + 1 End If With rng2.Borders .LineStyle = xlContinuous .ColorIndex = 0 .Weight = xlMedium End With Loop End With Application.DisplayAlerts = 1 End Sub
[/vba]
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Суббота, 07.06.2014, 21:30
Ответить
Сообщение
[vba]
Код
Sub sdf() Application.ScreenUpdating = 0: Application.DisplayAlerts = 0 Dim Rng As Range, Rng2 As Range Dim i&, j&, r& With ThisWorkbook.Worksheets("Лист1") r = .Cells(.Rows.Count, 2).End(xlUp).Row Set Rng = .Range("B2:B" & r) i = 1 Do While i < r - 1 Do While Rng.Cells(i).Offset(j) = Rng.Cells(i) j = j + 1 Loop If j - 1 Then Set rng2 = .Range(Rng.Cells(i), Rng.Cells(i).Offset(j - 1)) rng2.Merge i = i + j Else Set rng2 = Rng.Cells(i) i = i + 1 End If With rng2.Borders .LineStyle = xlContinuous .ColorIndex = 0 .Weight = xlMedium End With Loop End With Application.DisplayAlerts = 1 End Sub
[/vba]
Автор - krosav4ig Дата добавления - 07.06.2014 в 21:21
krosav4ig
Дата: Пятница, 06.06.2014, 23:32 |
Сообщение № 2243 | Тема: оптимизм
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
[moder]Не будем спешить, подождём реакции ТС на замечание[/moder]
[moder]Не будем спешить, подождём реакции ТС на замечание[/moder] krosav4ig
Ответить
Сообщение [moder]Не будем спешить, подождём реакции ТС на замечание[/moder] Автор - krosav4ig Дата добавления - 06.06.2014 в 23:32
krosav4ig
Дата: Пятница, 06.06.2014, 21:15 |
Сообщение № 2244 | Тема: Связать иксель и ворд
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
вот как вариант с помощью полей DocumentProperties и полей в формулах. формулы нужно будет переписать, заменив значения соответствующими полями. например там где должно быть значение ab вставить поле с кодом часть формул вообще можно вычислить c помощью свойств документа и полей без excel. еще чуть не забыл. в формулах знаки -(^0045) /(^0047) *(^0042) заменяются −(^8722) ∕(^8725) ∗(^8727) и вызывают ошибки в вычисляемых полях эту проблему можно решить таким кодом в модуле ThisDocument файла word [vba]Код
Sub Document_Open() Dim ff As Field For Each ff In ActiveDocument.Fields With ff.Code.Find .Text = ChrW(8722): .Replacement.Text = "-" .Execute Replace:=wdReplaceAll .Text = ChrW(8725): .Replacement.Text = "/" .Execute Replace:=wdReplaceAll .Text = ChrW(8727): .Replacement.Text = "*" .Execute Replace:=wdReplaceAll End With Next End Sub
[/vba]
вот как вариант с помощью полей DocumentProperties и полей в формулах. формулы нужно будет переписать, заменив значения соответствующими полями. например там где должно быть значение ab вставить поле с кодом часть формул вообще можно вычислить c помощью свойств документа и полей без excel. еще чуть не забыл. в формулах знаки -(^0045) /(^0047) *(^0042) заменяются −(^8722) ∕(^8725) ∗(^8727) и вызывают ошибки в вычисляемых полях эту проблему можно решить таким кодом в модуле ThisDocument файла word [vba]Код
Sub Document_Open() Dim ff As Field For Each ff In ActiveDocument.Fields With ff.Code.Find .Text = ChrW(8722): .Replacement.Text = "-" .Execute Replace:=wdReplaceAll .Text = ChrW(8725): .Replacement.Text = "/" .Execute Replace:=wdReplaceAll .Text = ChrW(8727): .Replacement.Text = "*" .Execute Replace:=wdReplaceAll End With Next End Sub
[/vba] krosav4ig
Сообщение отредактировал krosav4ig - Пятница, 06.06.2014, 22:54
Ответить
Сообщение вот как вариант с помощью полей DocumentProperties и полей в формулах. формулы нужно будет переписать, заменив значения соответствующими полями. например там где должно быть значение ab вставить поле с кодом часть формул вообще можно вычислить c помощью свойств документа и полей без excel. еще чуть не забыл. в формулах знаки -(^0045) /(^0047) *(^0042) заменяются −(^8722) ∕(^8725) ∗(^8727) и вызывают ошибки в вычисляемых полях эту проблему можно решить таким кодом в модуле ThisDocument файла word [vba]Код
Sub Document_Open() Dim ff As Field For Each ff In ActiveDocument.Fields With ff.Code.Find .Text = ChrW(8722): .Replacement.Text = "-" .Execute Replace:=wdReplaceAll .Text = ChrW(8725): .Replacement.Text = "/" .Execute Replace:=wdReplaceAll .Text = ChrW(8727): .Replacement.Text = "*" .Execute Replace:=wdReplaceAll End With Next End Sub
[/vba] Автор - krosav4ig Дата добавления - 06.06.2014 в 21:15
krosav4ig
Дата: Пятница, 06.06.2014, 17:53 |
Сообщение № 2245 | Тема: Формула для просчета количества дней
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Rioran , без второго аргумента в 2007 она просто не введется
Rioran , без второго аргумента в 2007 она просто не введетсяkrosav4ig
Ответить
Сообщение Rioran , без второго аргумента в 2007 она просто не введетсяАвтор - krosav4ig Дата добавления - 06.06.2014 в 17:53
krosav4ig
Дата: Пятница, 06.06.2014, 17:43 |
Сообщение № 2246 | Тема: Формула для просчета количества дней
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
а в excel 2010 функция КОНМЕСЯЦА работает с одним аргументом? или второй по умолчанию принимается равным 1?
а в excel 2010 функция КОНМЕСЯЦА работает с одним аргументом? или второй по умолчанию принимается равным 1? krosav4ig
Ответить
Сообщение а в excel 2010 функция КОНМЕСЯЦА работает с одним аргументом? или второй по умолчанию принимается равным 1? Автор - krosav4ig Дата добавления - 06.06.2014 в 17:43
krosav4ig
Дата: Пятница, 06.06.2014, 15:47 |
Сообщение № 2247 | Тема: Пустая таблица при распечатки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вариант печатать через виртуальный принтер, к примеру FinePrint
еще вариант печатать через виртуальный принтер, к примеру FinePrint krosav4ig
Ответить
Сообщение еще вариант печатать через виртуальный принтер, к примеру FinePrint Автор - krosav4ig Дата добавления - 06.06.2014 в 15:47
krosav4ig
Дата: Пятница, 06.06.2014, 15:33 |
Сообщение № 2248 | Тема: Поиск по условию и добавление данных из 2 листов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Hugo , спасибо А зачем тут буфер использовать
Да просто так, захотелось
Hugo , спасибо А зачем тут буфер использовать
Да просто так, захотелось krosav4ig
Ответить
Сообщение Hugo , спасибо А зачем тут буфер использовать
Да просто так, захотелось Автор - krosav4ig Дата добавления - 06.06.2014 в 15:33
krosav4ig
Дата: Четверг, 05.06.2014, 02:44 |
Сообщение № 2249 | Тема: Поиск по условию и добавление данных из 2 листов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
..
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 05.06.2014, 03:05
Ответить
Сообщение .. Автор - krosav4ig Дата добавления - 05.06.2014 в 02:44
krosav4ig
Дата: Четверг, 05.06.2014, 00:55 |
Сообщение № 2250 | Тема: Определение "знака пунктуации" в файле .txt
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
можно в цикл добавить строку [vba]Код
Debug.Print c; AscW(c)
[/vba] и смотреть в Immediate или выполнить код [vba]Код
Debug.Print AscW("ваш квадрат")
[/vba] и смотреть в Immediate
можно в цикл добавить строку [vba]Код
Debug.Print c; AscW(c)
[/vba] и смотреть в Immediate или выполнить код [vba]Код
Debug.Print AscW("ваш квадрат")
[/vba] и смотреть в Immediate krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 05.06.2014, 03:16
Ответить
Сообщение можно в цикл добавить строку [vba]Код
Debug.Print c; AscW(c)
[/vba] и смотреть в Immediate или выполнить код [vba]Код
Debug.Print AscW("ваш квадрат")
[/vba] и смотреть в Immediate Автор - krosav4ig Дата добавления - 05.06.2014 в 00:55
krosav4ig
Дата: Вторник, 03.06.2014, 23:05 |
Сообщение № 2251 | Тема: Сортировка смешанных данных
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
для этого нужно чтобы числа и строки сортировались отдельно
для этого нужно чтобы числа и строки сортировались отдельно krosav4ig
К сообщению приложен файл:
000.xls
(25.5 Kb)
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение для этого нужно чтобы числа и строки сортировались отдельно Автор - krosav4ig Дата добавления - 03.06.2014 в 23:05
krosav4ig
Дата: Вторник, 03.06.2014, 01:04 |
Сообщение № 2252 | Тема: Условное форматирование выходных дней
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
ну насчет того что 220 мб чето не очень верится... около 50 мб сам apk и 28 мб кэш краем уха слышал что Aspose.Cells for Android позволяет создавать android приложения для работы с excel файлами и поддержкой условного форматирования
ну насчет того что 220 мб чето не очень верится... около 50 мб сам apk и 28 мб кэш краем уха слышал что Aspose.Cells for Android позволяет создавать android приложения для работы с excel файлами и поддержкой условного форматирования krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 03.06.2014, 01:14
Ответить
Сообщение ну насчет того что 220 мб чето не очень верится... около 50 мб сам apk и 28 мб кэш краем уха слышал что Aspose.Cells for Android позволяет создавать android приложения для работы с excel файлами и поддержкой условного форматирования Автор - krosav4ig Дата добавления - 03.06.2014 в 01:04
krosav4ig
Дата: Вторник, 03.06.2014, 00:31 |
Сообщение № 2253 | Тема: замена текста в кодах полей Word
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте. У меня возникла проблема при замене текста в кодах полей Word. Возникает она только при замене во вложенных полях. Прикладываю файлы. помогите пожалуйста разобраться в чем ошибка и как исправить.
Здравствуйте. У меня возникла проблема при замене текста в кодах полей Word. Возникает она только при замене во вложенных полях. Прикладываю файлы. помогите пожалуйста разобраться в чем ошибка и как исправить. krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 03.06.2014, 00:49
Ответить
Сообщение Здравствуйте. У меня возникла проблема при замене текста в кодах полей Word. Возникает она только при замене во вложенных полях. Прикладываю файлы. помогите пожалуйста разобраться в чем ошибка и как исправить. Автор - krosav4ig Дата добавления - 03.06.2014 в 00:31
krosav4ig
Дата: Понедельник, 02.06.2014, 04:00 |
Сообщение № 2254 | Тема: Макрос проверки работоспособности вебссылки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
.
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение . Автор - krosav4ig Дата добавления - 02.06.2014 в 04:00
krosav4ig
Дата: Воскресенье, 01.06.2014, 20:59 |
Сообщение № 2255 | Тема: как разнести данные с одного листа на разные
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вариант
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение еще вариант Автор - krosav4ig Дата добавления - 01.06.2014 в 20:59
krosav4ig
Дата: Воскресенье, 01.06.2014, 04:16 |
Сообщение № 2256 | Тема: Как записать в строковую переменную значения из ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
а можно так? [vba]Код
Sub tt() Dim arr(), r% r = 4 arr = Application.Transpose(Range("A1:A" & r)) MsgBox Join(arr) End Sub
[/vba]
а можно так? [vba]Код
Sub tt() Dim arr(), r% r = 4 arr = Application.Transpose(Range("A1:A" & r)) MsgBox Join(arr) End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 01.06.2014, 04:17
Ответить
Сообщение а можно так? [vba]Код
Sub tt() Dim arr(), r% r = 4 arr = Application.Transpose(Range("A1:A" & r)) MsgBox Join(arr) End Sub
[/vba] Автор - krosav4ig Дата добавления - 01.06.2014 в 04:16
krosav4ig
Дата: Воскресенье, 01.06.2014, 02:12 |
Сообщение № 2257 | Тема: Четырёхсменный график работы, как сделать выборку понедельно
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
..
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 01.06.2014, 02:26
Ответить
Сообщение .. Автор - krosav4ig Дата добавления - 01.06.2014 в 02:12
krosav4ig
Дата: Суббота, 31.05.2014, 23:52 |
Сообщение № 2258 | Тема: Копирование диапазона на одном листе
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
.
К сообщению приложен файл:
copy.xls
(54.5 Kb)
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение . Автор - krosav4ig Дата добавления - 31.05.2014 в 23:52
krosav4ig
Дата: Суббота, 31.05.2014, 22:18 |
Сообщение № 2259 | Тема: Сортировка списка с привязанами строками
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
.
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение . Автор - krosav4ig Дата добавления - 31.05.2014 в 22:18
krosav4ig
Дата: Суббота, 31.05.2014, 20:01 |
Сообщение № 2260 | Тема: Четырёхсменный график работы, как сделать выборку понедельно
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как-то так
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Суббота, 31.05.2014, 20:43
Ответить
Сообщение как-то так Автор - krosav4ig Дата добавления - 31.05.2014 в 20:01