VBNet - Форум - Вопрос к спецам!!!

Вопрос: Вопрос к спецам!!! Добавлено: 21.12.10 22:57

Автор вопроса: des

Всем привет!Я не занимаюсь подобными делами но думаю в дальнейшем выбрать язык и начать плотно постигать его.Если кому не трудно помогите ламеру
Не знаю как исправить пару строк в xls документе в исходном коде вот ссылка на него http://files.mail.ru/JUSF0M .В нём нужно изменить Лист1 (Назарова) на Лист1 (Орлов) там даже где-то в настройках есть в двух местах в параметре name.но выдаёт ошибку.
Помогите а то эта сессия меня ваще достала просто.
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #1	Добавлено: 22.12.10 10:08
	найти за тебя учебник VBA для начинающих ? Ответить

Номер ответа: 2 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #2	Добавлено: 22.12.10 10:09
	в чем выдает ошибку, где код, скрины и другие попытки решать проблему Ответить

Номер ответа: 3 Автор ответа: des Вопросов: 1 Ответов: 2	Профиль \| \| #3	Добавлено: 22.12.10 16:34
	Проблему уже удалось решить сниятием защиты на структуру книги как нашли пасс я не знаю помог человек тоесть изменил строку и поставил защиту с пароль заного)) Всем спасибо за активное участие в решении данной проблемы! Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 22.12.10 17:05
	Всем с тебя пиво Ответить

Номер ответа: 5 Автор ответа: Дианка Вопросов: 1 Ответов: 1	Профиль \| \| #5	Добавлено: 22.12.10 17:38
	Привет!не знаю вообще как быть!!!(((Задали задание написать програмку, которая шифрует по методу "магический квадрат"!!!(((даже не знаю как быть...Помогите пожалуйста!!!!!! Ответить

Номер ответа: 6 Автор ответа: des Вопросов: 1 Ответов: 2	Профиль \| \| #6	Добавлено: 22.12.10 17:57
	ого я ваще не понимаю о чём речь))) Ответить

Номер ответа: 7 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #7	Добавлено: 23.12.10 10:01
	"магический квадрат" Да, это не Шар Судьбы... Ответить

Номер ответа: 8 Автор ответа: Дмит Вопросов: 11 Ответов: 160	Web-сайт: dimit.pochta.ru Профиль \| \| #8	Добавлено: 23.12.10 10:02
	функция для ячейки: Public Function МагКвадрат(Ячейки As Range) As Variant Dim i As Long, j As Long Dim str As String Dim n(24) As Long n(0) = 3: n(1) = 16: n(2) = 9: n(3) = 22: n(4) = 15 n(5) = 20: n(6) = 8: n(7) = 21: n(8) = 14: n(9) = 2 n(10) = 7: n(11) = 25: n(12) = 13: n(13) = 1: n(14) = 19 n(15) = 24: n(16) = 12: n(17) = 5: n(18) = 18: n(19) = 6 n(20) = 11: n(21) = 4: n(22) = 17: n(23) = 10: n(24) = 23 Do While (Len(Ячейки.Value) \ 25 + 1) * 25 > i j = i Mod 25 If n(j) + (i \ 25) * 25 <= Len(Ячейки.Value) Then str = str & Mid(Ячейки.Value, n(j) + (i \ 25) * 25, 1) Else: str = str + " " End If i = i + 1 Loop МагКвадрат = str End Function в массив n можете вставить свой магический квадрат 5х5 Ответить

Страница: 1 |