Все привет. Помогите с макросом. Имеется таблица в эксель. Символы в таблице могут быть разными, а размер почти 100 на 100 ячеек, может меньше может больше. Для примера буква B. Нужно вот что… макрос должен присваивать ячейке координату по Х и по У. и выписывать результат в одну колонну в файл блокнота c расширением.txt X0 Y0 B X0 Y2 B X0 Y4 B X0 Y6 B X0 Y6 B X0 Y8 B X0 Y10B X2 Y2 B X2 Y4 B X2 Y6 B X2 Y8 B X2 Y10B И т.д.
и сохраняется все это в файле блокнота .txt
Все привет. Помогите с макросом. Имеется таблица в эксель. Символы в таблице могут быть разными, а размер почти 100 на 100 ячеек, может меньше может больше. Для примера буква B. Нужно вот что… макрос должен присваивать ячейке координату по Х и по У. и выписывать результат в одну колонну в файл блокнота c расширением.txt X0 Y0 B X0 Y2 B X0 Y4 B X0 Y6 B X0 Y6 B X0 Y8 B X0 Y10B X2 Y2 B X2 Y4 B X2 Y6 B X2 Y8 B X2 Y10B И т.д.
и сохраняется все это в файле блокнота .txtOleg1520
Так разные или один и тот же символ на всю таблицу? Если одновременно несколько символов, то почему в примере не показали, как будет выглядеть итог. Кросс
Так разные или один и тот же символ на всю таблицу? Если одновременно несколько символов, то почему в примере не показали, как будет выглядеть итог. Кроссwild_pig
Сообщение отредактировал wild_pig - Воскресенье, 05.02.2017, 22:12
символы разные а основном буквы английского алфавита. в таблице пример. можно поменять символы, под таблицей тоже все поменяется. в основном вопрос в громозткости, будет огромная таблица и под ней такая же , но с координатами. это не удобно. нужно так... открыл файл таблицу, сохранил в блокноте координаты
символы разные а основном буквы английского алфавита. в таблице пример. можно поменять символы, под таблицей тоже все поменяется. в основном вопрос в громозткости, будет огромная таблица и под ней такая же , но с координатами. это не удобно. нужно так... открыл файл таблицу, сохранил в блокноте координатыOleg1520
вот так выглядит кусок итога X0 Y0 B X0 Y2 B X0 Y4 B X0 Y6 B X0 Y6 B X0 Y8 B X0 Y10B X2 Y2 B X2 Y4 B X2 Y6 B X2 Y8 B X2 Y10B И т.д. я обратился к вам чтобы подсказали как вычислить и сохранить это все дело в блокноте
вот так выглядит кусок итога X0 Y0 B X0 Y2 B X0 Y4 B X0 Y6 B X0 Y6 B X0 Y8 B X0 Y10B X2 Y2 B X2 Y4 B X2 Y6 B X2 Y8 B X2 Y10B И т.д. я обратился к вам чтобы подсказали как вычислить и сохранить это все дело в блокнотеOleg1520
Sub uuu() Dim a(), b() Dim i&, j&, x& Dim f$ '------------------ a = ActiveSheet.Cells(1, 1).CurrentRegion.Value ReDim b(1 To (UBound(a) - 1) * (UBound(a, 2) - 1)) For i = 2 To UBound(a) For j = 2 To UBound(a, 2) x = x + 1 b(x) = a(i, 1) & a(1, j) & a(i, j) Next Next f = ThisWorkbook.Path & "\текстовый файл.txt" With CreateObject("ADODB.Stream") .Type = 2 .Charset = "utf-8" .Open .WriteText Join(b, vbCrLf) .SaveToFile f, 2 .Close End With Beep End Sub
[/vba]
[vba]
Код
Sub uuu() Dim a(), b() Dim i&, j&, x& Dim f$ '------------------ a = ActiveSheet.Cells(1, 1).CurrentRegion.Value ReDim b(1 To (UBound(a) - 1) * (UBound(a, 2) - 1)) For i = 2 To UBound(a) For j = 2 To UBound(a, 2) x = x + 1 b(x) = a(i, 1) & a(1, j) & a(i, j) Next Next f = ThisWorkbook.Path & "\текстовый файл.txt" With CreateObject("ADODB.Stream") .Type = 2 .Charset = "utf-8" .Open .WriteText Join(b, vbCrLf) .SaveToFile f, 2 .Close End With Beep End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
