Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Старая форма входа
  • Страница 118 из 118
  • «
  • 1
  • 2
  • …
  • 116
  • 117
  • 118
Мир MS Excel » Записи участника » krosav4ig [2347]
Результаты поиска
krosav4ig Дата: Пятница, 14.03.2014, 19:35 | Сообщение № 2341 | Тема: Использование массива в формуле
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
нет, нужно посчитать сумму очков по матчам (21 столбец), если победа - 2 очка, ничья - 1, поражение - 0, к примеру у зенита 3 и 5 матчи были победы , 4 - ничья итого 2*2+1=5

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениенет, нужно посчитать сумму очков по матчам (21 столбец), если победа - 2 очка, ничья - 1, поражение - 0, к примеру у зенита 3 и 5 матчи были победы , 4 - ничья итого 2*2+1=5
Автор - krosav4ig
Дата добавления - 14.03.2014 в 19:35
krosav4ig Дата: Пятница, 14.03.2014, 19:05 | Сообщение № 2342 | Тема: Использование массива в формуле
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте, скажите пожалуйста, можно ли сделать расчет очков в прикрепленном файле одной формулой?
К сообщению приложен файл: 2287434.xls (26.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте, скажите пожалуйста, можно ли сделать расчет очков в прикрепленном файле одной формулой?
Автор - krosav4ig
Дата добавления - 14.03.2014 в 19:05
krosav4ig Дата: Пятница, 14.03.2014, 18:43 | Сообщение № 2343 | Тема: Заполнить ячейки по горизонтали из столбцов
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Код
=СМЕЩ(Лист1!$A$1;СТОЛБЕЦ()-1;0)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Код
=СМЕЩ(Лист1!$A$1;СТОЛБЕЦ()-1;0)
Автор - krosav4ig
Дата добавления - 14.03.2014 в 18:43
krosav4ig Дата: Вторник, 11.03.2014, 17:05 | Сообщение № 2344 | Тема: Объединение диапазона ячеек построчно с сохранением данных.
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Sub MergeSelection()
     Dim Delim As String
     Dim delim2 As String
     Dim sMergeStr As String
      
     Delim = "!"
     delim2 = "@"
      
     Set rCells = Selection
     With rCells
         For Each rCell In .Cells
             If rCell <> "" Then sMergeStr = sMergeStr & Delim & rCell.Text
         Next rCell
         sMergeStr = Mid(sMergeStr, 1 + Len(Delim))
         sMergeStr = Replace(sMergeStr, Delim, delim2)
         Application.DisplayAlerts = False
         .Merge
         Application.DisplayAlerts = True
         .Item(1).Value = Replace(sMergeStr, sMergeStr, Delim & sMergeStr & Delim)
     End With
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
Sub MergeSelection()
     Dim Delim As String
     Dim delim2 As String
     Dim sMergeStr As String
      
     Delim = "!"
     delim2 = "@"
      
     Set rCells = Selection
     With rCells
         For Each rCell In .Cells
             If rCell <> "" Then sMergeStr = sMergeStr & Delim & rCell.Text
         Next rCell
         sMergeStr = Mid(sMergeStr, 1 + Len(Delim))
         sMergeStr = Replace(sMergeStr, Delim, delim2)
         Application.DisplayAlerts = False
         .Merge
         Application.DisplayAlerts = True
         .Item(1).Value = Replace(sMergeStr, sMergeStr, Delim & sMergeStr & Delim)
     End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 11.03.2014 в 17:05
krosav4ig Дата: Пятница, 07.03.2014, 17:00 | Сообщение № 2345 | Тема: открытие выпадающего списка при выборе ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Выпадающий список в ячейке у меня есть, мне нужно чтобы этот список появлялся автоматически при получении фокуса ячейкой. Выкладываю файл, в нем это нужно сделать в 10 столбце с 3й строки. И в этом же файле еще у меня вопрос по условному форматированию

[vba]
Код
30        lastrow = ActiveSheet.UsedRange.Rows.Count +ActiveSheet.UsedRange.Rows.Row - 1
40        lastcol = ActiveSheet.UsedRange.Column +ActiveSheet.UsedRange.Columns.Count - 1

...

440       Range(Cells(3, 1), Cells(lastrow, lastcol)).Select
450       Selection.FormatConditions.Add Type:=xlExpression,Formula1:="=RC1<>R[1]C1"
460       Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
470       With Selection.FormatConditions(1).Borders(xlBottom)
                    '???????????????????????
                    .LineStyle = xlContinuous
                    .TintAndShade = 0
                    .Weight = xlThin
480       End With
490       With Selection.FormatConditions(1).Interior
500           .PatternColorIndex = xlAutomatic
510           .Color = 65535
520           .TintAndShade = 0
530       End With
540       Selection.FormatConditions(1).StopIfTrue = False


[/vba]
что тут не так?

и еще 1 вопрос
Если вот тут стоит Range(Cells(2, 1), Cells(lastrow, lastcol))

[vba]
Код
220       Range(Cells(2, 1), Cells(lastrow,lastcol)).Select
230       Selection.FormatConditions.Add Type:=xlExpression,Formula1:= _
                    "=ЯЧЕЙКА(""строка"")=СТРОКА()"
240       Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
250       With Selection.FormatConditions(1).Interior
260           .PatternColorIndex = xlAutomatic
270           .ThemeColor = xlThemeColorLight2
280           .TintAndShade = 0.799981688894314
290       End With
300       Selection.FormatConditions(1).StopIfTrue = False


[/vba]
то макрос успешно срабатывает, но мне нужно чтобы было Range(Cells(3, 1), Cells(lastrow, lastcol))
но тогда ниже вот тут ругается

[vba]
Код
310       Range(Cells(1, 2), Cells(lastrow, lastcol - 1)).Select
320       Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
               "=ЯЧЕЙКА(""столбец"")=СТОЛБЕЦ()"
330       Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
340       With Selection.FormatConditions(1).Font
                 '???????????????????????
350           .ThemeColor = xlThemeColorLight1
360           .TintAndShade = 0
370       End With
380       With Selection.FormatConditions(1).Interior
390           .PatternColorIndex = xlAutomatic
400           .ThemeColor = xlThemeColorLight2
410           .TintAndShade = 0.799981688894314
420       End With
430       Selection.FormatConditions(1).StopIfTrue = False


[/vba]

танцы с бубном вокруг экселя ни к чему не привели :(
К сообщению приложен файл: 1747169-1-.xlsm (34.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 07.03.2014, 17:22
 
Ответить
СообщениеВыпадающий список в ячейке у меня есть, мне нужно чтобы этот список появлялся автоматически при получении фокуса ячейкой. Выкладываю файл, в нем это нужно сделать в 10 столбце с 3й строки. И в этом же файле еще у меня вопрос по условному форматированию

[vba]
Код
30        lastrow = ActiveSheet.UsedRange.Rows.Count +ActiveSheet.UsedRange.Rows.Row - 1
40        lastcol = ActiveSheet.UsedRange.Column +ActiveSheet.UsedRange.Columns.Count - 1

...

440       Range(Cells(3, 1), Cells(lastrow, lastcol)).Select
450       Selection.FormatConditions.Add Type:=xlExpression,Formula1:="=RC1<>R[1]C1"
460       Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
470       With Selection.FormatConditions(1).Borders(xlBottom)
                    '???????????????????????
                    .LineStyle = xlContinuous
                    .TintAndShade = 0
                    .Weight = xlThin
480       End With
490       With Selection.FormatConditions(1).Interior
500           .PatternColorIndex = xlAutomatic
510           .Color = 65535
520           .TintAndShade = 0
530       End With
540       Selection.FormatConditions(1).StopIfTrue = False


[/vba]
что тут не так?

и еще 1 вопрос
Если вот тут стоит Range(Cells(2, 1), Cells(lastrow, lastcol))

[vba]
Код
220       Range(Cells(2, 1), Cells(lastrow,lastcol)).Select
230       Selection.FormatConditions.Add Type:=xlExpression,Formula1:= _
                    "=ЯЧЕЙКА(""строка"")=СТРОКА()"
240       Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
250       With Selection.FormatConditions(1).Interior
260           .PatternColorIndex = xlAutomatic
270           .ThemeColor = xlThemeColorLight2
280           .TintAndShade = 0.799981688894314
290       End With
300       Selection.FormatConditions(1).StopIfTrue = False


[/vba]
то макрос успешно срабатывает, но мне нужно чтобы было Range(Cells(3, 1), Cells(lastrow, lastcol))
но тогда ниже вот тут ругается

[vba]
Код
310       Range(Cells(1, 2), Cells(lastrow, lastcol - 1)).Select
320       Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
               "=ЯЧЕЙКА(""столбец"")=СТОЛБЕЦ()"
330       Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
340       With Selection.FormatConditions(1).Font
                 '???????????????????????
350           .ThemeColor = xlThemeColorLight1
360           .TintAndShade = 0
370       End With
380       With Selection.FormatConditions(1).Interior
390           .PatternColorIndex = xlAutomatic
400           .ThemeColor = xlThemeColorLight2
410           .TintAndShade = 0.799981688894314
420       End With
430       Selection.FormatConditions(1).StopIfTrue = False


[/vba]

танцы с бубном вокруг экселя ни к чему не привели :(
Автор - krosav4ig
Дата добавления - 07.03.2014 в 17:00
krosav4ig Дата: Среда, 05.03.2014, 19:47 | Сообщение № 2346 | Тема: Всплывающее окно при появлении определенного значения в ячей
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
я бы во 2 строку ввел формулу
Код
=ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ("нет";D5:D12;0)>0;"!!!";" ");"")

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениея бы во 2 строку ввел формулу
Код
=ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ("нет";D5:D12;0)>0;"!!!";" ");"")
Автор - krosav4ig
Дата добавления - 05.03.2014 в 19:47
krosav4ig Дата: Среда, 05.03.2014, 16:53 | Сообщение № 2347 | Тема: открытие выпадающего списка при выборе ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
есть столбец с проверкой данных с выбором значений из списка. Нужно чтобы при выборе ячейки из этого столбца автоматически открывался выпадающий список
пока кроме этого ничего в голову не идет :(

[vba]
Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 10 Then
     'Cells(Target.Row, Target.Column).???
End If
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеесть столбец с проверкой данных с выбором значений из списка. Нужно чтобы при выборе ячейки из этого столбца автоматически открывался выпадающий список
пока кроме этого ничего в голову не идет :(

[vba]
Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 10 Then
     'Cells(Target.Row, Target.Column).???
End If
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 05.03.2014 в 16:53
Мир MS Excel » Записи участника » krosav4ig [2347]
  • Страница 118 из 118
  • «
  • 1
  • 2
  • …
  • 116
  • 117
  • 118
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!