Определение номера столбца и номера строки

Дата: Четверг, 22.01.2015, 22:13 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Есть лист Excel/ Известно что в листе только единицы и нолики.
Есть несколько столбцов и несколько строк, в которых только нолики.
(например, только первый столбец, или только три первых столбца, или и первые семь строк и первые семь столбцов) и т.д. Это только первые строки и первые столбцы.
подскажите как с помощью Vba найти номер первой такой строки и номер первого такого столбца, в котором уже не одни нолики, а хотя бы одна единица.
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 1
результат строка 5 столбец 4
[moder]Файл кладите.
И Правила форума уже прочитайте. Буду зверствовать скоро.

К сообщению приложен файл: 9052529.xlsm (15.4 Kb)

Сообщение отредактировал flash708 - Четверг, 22.01.2015, 22:19

Дата: Четверг, 22.01.2015, 22:17 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Записать макрос. (не путать с написать).

Быть или не быть, вот в чем загвоздка!

Nic70y

Дата: Четверг, 22.01.2015, 22:18 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 9056

Репутация: 2383 ±

Замечаний: 0% ±

Excel 2010

Цитата flash708, 22.01.2015 в 22:13, в сообщении № 1

с помощью Vba

это обязательное условие?
остальное при выполнении требования модератора.

ЮMoney 41001841029809

Дата: Четверг, 22.01.2015, 22:20 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

И что вы к файлу прицепились? Пустые кончились?

Что скачать, что создать, разницы никакой.

Быть или не быть, вот в чем загвоздка!

Дата: Четверг, 22.01.2015, 22:22 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Файл приложил. там же были и макросы - мои неудачные попытки решить проблему

Дата: Четверг, 22.01.2015, 22:25 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

А такой записать не судьба было? <_<

[vba]

Код

Sub Макрос3()
     Range("A1:H7").Select
     Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
         :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
         False, SearchFormat:=False).Activate
     Range("A1:H7").Select
     Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
         :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
         :=False, SearchFormat:=False).Activate
     Range("B7").Select
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Дата: Четверг, 22.01.2015, 22:32 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

простите но у вас последняя строка Range("B7").Select то есть если поменять в ячейке B7 1 на 0 то будет выделена все равно B7
А как сделать так чтобы было например Cells (x,y).select
где раньше зараннее автоматически определено x & y

Дата: Четверг, 22.01.2015, 22:40 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Спасибо, вроде получилось! Добавил строки
n = ActiveCell.Row
m = ActiveCell.Column
MsgBox (n)
MsgBox (m)

Дата: Четверг, 22.01.2015, 22:46 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub Макрос3()
     sRow = Range("A1:H7").Find(What:="1", LookIn:=xlFormulas, LookAt _
         :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
     sCol = Range("A1:H7").Find(What:="1", LookIn:=xlFormulas, LookAt _
         :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column
     Cells(sRow, sCol).Select
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

alex77755

Дата: Пятница, 23.01.2015, 01:48 | Сообщение № 10

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

Два раза можно не искать
[vba]

Код

Sub QWER()
     Set RN = Cells.Find(1, After:=Cells(Rows.Count, Columns.Count))
     If Not RN Is Nothing Then MsgBox "Строка № " & RN.Row & vbCrLf & _
     "Столбец № " & RN.Column, 64, ""
End Sub

[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru