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

Вход

Регистрация

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

 

= Мир MS Excel/Правильное наименование страниц в макросе - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Правильное наименование страниц в макросе (Макросы/Sub)
Правильное наименование страниц в макросе
jijik2 Дата: Вторник, 07.04.2015, 17:23 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Запуталась в наименований страниц,и макрос как он есть не срабатывает,указывает на ошибку названия листа,листы названы на кирилице а в коде на латыне...пыталась переменовать в кирилицу-не пашит...в общем я запуталась.
[vba]
Код

Dim Prompt As String
Dim RetValue As String
Dim Rng As Range
Dim RowCrnt As Long

Prompt = ""

With Sheets("Sheet1")
Do While True

RetValue = InputBox(Prompt & "Give me a value to look for")
'RetValue will be empty if you click cancel
If RetValue = "" Then
Exit Do
End If

Set Rng = .Columns("A:A").Find(What:=RetValue, After:=.Range("A1"), _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If Rng Is Nothing Then
Prompt = "I could not find """ & RetValue & """"
Else
RowCrnt = Rng.Row
Prompt = "I found """ & RetValue & """ on row " & RowCrnt
End If
Prompt = Prompt & vbLf
Loop

End With

End Sub
[/vba]
К сообщению приложен файл: 4640219.jpg (31.0 Kb)


Сообщение отредактировал Serge_007 - Вторник, 07.04.2015, 19:57
 
Ответить
СообщениеЗапуталась в наименований страниц,и макрос как он есть не срабатывает,указывает на ошибку названия листа,листы названы на кирилице а в коде на латыне...пыталась переменовать в кирилицу-не пашит...в общем я запуталась.
[vba]
Код

Dim Prompt As String
Dim RetValue As String
Dim Rng As Range
Dim RowCrnt As Long

Prompt = ""

With Sheets("Sheet1")
Do While True

RetValue = InputBox(Prompt & "Give me a value to look for")
'RetValue will be empty if you click cancel
If RetValue = "" Then
Exit Do
End If

Set Rng = .Columns("A:A").Find(What:=RetValue, After:=.Range("A1"), _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If Rng Is Nothing Then
Prompt = "I could not find """ & RetValue & """"
Else
RowCrnt = Rng.Row
Prompt = "I found """ & RetValue & """ on row " & RowCrnt
End If
Prompt = Prompt & vbLf
Loop

End With

End Sub
[/vba]
Автор - jijik2
Дата добавления - 07.04.2015 в 17:23
Rioran Дата: Вторник, 07.04.2015, 17:31 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
jijik2, здравствуйте!

Вот в этой теме была хорошая ссылка по теме в сообщении № 8 от SkyPro. Уверен, при внимательном изучении решит Ваш вопрос.

[p.s.]Просьба оформить коды тегами. И красиво, и правила по пункту 3 соблюдены.[/p.s.]

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Сообщение отредактировал Rioran - Вторник, 07.04.2015, 17:33
 
Ответить
Сообщениеjijik2, здравствуйте!

Вот в этой теме была хорошая ссылка по теме в сообщении № 8 от SkyPro. Уверен, при внимательном изучении решит Ваш вопрос.

[p.s.]Просьба оформить коды тегами. И красиво, и правила по пункту 3 соблюдены.[/p.s.]
Автор - Rioran
Дата добавления - 07.04.2015 в 17:31
jijik2 Дата: Вторник, 07.04.2015, 17:45 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Rioran, Возможно что то и найду,но по моему случаю нужна конкретика,как прописать имя листа,если в коде:
With Sheets("Sheet1")
а в наименование книги:
Лист4(акриловая ткань)
[moder]Не надо удалять замечания модератора. Пока не устраните нарушения Правил форума, ответы будут удаляться[/moder]


Сообщение отредактировал Pelena - Вторник, 07.04.2015, 17:52
 
Ответить
СообщениеRioran, Возможно что то и найду,но по моему случаю нужна конкретика,как прописать имя листа,если в коде:
With Sheets("Sheet1")
а в наименование книги:
Лист4(акриловая ткань)
[moder]Не надо удалять замечания модератора. Пока не устраните нарушения Правил форума, ответы будут удаляться[/moder]
Автор - jijik2
Дата добавления - 07.04.2015 в 17:45
KSV Дата: Вторник, 07.04.2015, 20:24 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Цитата jijik2, 07.04.2015 в 17:45, в сообщении № 3
по моему случаю нужна конкретика

конкретнее некуда... :)
вместо With Sheets("Sheet1") написать:
[vba]
Код
With Sheets("акриловая ткань")
[/vba]

[moder]Не нужно ничего проверять. Нужно следовать Правилам форума. В частности, п.3.

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Вторник, 07.04.2015, 23:22
 
Ответить
Сообщение
Цитата jijik2, 07.04.2015 в 17:45, в сообщении № 3
по моему случаю нужна конкретика

конкретнее некуда... :)
вместо With Sheets("Sheet1") написать:
[vba]
Код
With Sheets("акриловая ткань")
[/vba]

[moder]Не нужно ничего проверять. Нужно следовать Правилам форума. В частности, п.3.
Автор - KSV
Дата добавления - 07.04.2015 в 20:24
RAN Дата: Вторник, 07.04.2015, 20:46 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Не. Так не сработает.
Так да.
[vba]
Код
With Лист4
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНе. Так не сработает.
Так да.
[vba]
Код
With Лист4
[/vba]
Автор - RAN
Дата добавления - 07.04.2015 в 20:46
KSV Дата: Вторник, 07.04.2015, 21:09 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
RAN, и что же ему помешает? :)
вот, файл с этим кодом - все работает...

UPD. Модератор сорри... off_top
[moder]Никаких сорей. Файл удален. Нарушение ТСей Правил форума.

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал _Boroda_ - Вторник, 07.04.2015, 21:19
 
Ответить
СообщениеRAN, и что же ему помешает? :)
вот, файл с этим кодом - все работает...

UPD. Модератор сорри... off_top
[moder]Никаких сорей. Файл удален. Нарушение ТСей Правил форума.
Автор - KSV
Дата добавления - 07.04.2015 в 21:09
RAN Дата: Вторник, 07.04.2015, 21:20 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Не спорю. С этим файлом да. А с тем, что на картинке - нет.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНе спорю. С этим файлом да. А с тем, что на картинке - нет.
Автор - RAN
Дата добавления - 07.04.2015 в 21:20
KSV Дата: Вторник, 07.04.2015, 23:30 | Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
[offtop]RAN, да, не обратил внимания на картинку... :)
теперь вижу, что слова пользователя не соответствуют реальности... :)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
Сообщение[offtop]RAN, да, не обратил внимания на картинку... :)
теперь вижу, что слова пользователя не соответствуют реальности... :)
Автор - KSV
Дата добавления - 07.04.2015 в 23:30
jijik2 Дата: Среда, 08.04.2015, 10:10 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
KSV, СПАСИБО!!!!ВЫШЛО girl_curtsey girl_curtsey girl_curtsey girl_curtsey girl_curtsey girl_curtsey girl_curtsey girl_curtsey
 
Ответить
СообщениеKSV, СПАСИБО!!!!ВЫШЛО girl_curtsey girl_curtsey girl_curtsey girl_curtsey girl_curtsey girl_curtsey girl_curtsey girl_curtsey
Автор - jijik2
Дата добавления - 08.04.2015 в 10:10
jijik2 Дата: Среда, 08.04.2015, 10:11 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
RAN, Rioran, Спасибо и вам что пытались помочь girl_dance
 
Ответить
СообщениеRAN, Rioran, Спасибо и вам что пытались помочь girl_dance
Автор - jijik2
Дата добавления - 08.04.2015 в 10:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Правильное наименование страниц в макросе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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