Експотр даних из Exel у Word при помощи макроса

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Експотр даних из Exel у Word при помощи макроса (Макросы/Sub)

Dezmand

Дата: Пятница, 19.01.2018, 23:03 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2016

Доброго времини и суток если кто стикалса с таким вопросом
мне надо с помощью встроенного Visual Basic в Exel перенести дание с Эксель в ворд
мне нужен макрос чтоби из 1000 тестов мог рандомно перенести только 30 тестов
вот мой макрос которий я зделал

[vba]

Код

Private Sub CommandButton1_Click()
Open "E:\1.doc" For Output As #1
i = 2
Do While Not IsEmpty(Cells(i, 2))
Print #1, Cells(i, 2) & ". "; Cells(i, 2)
i = i + 1
Do While Not IsEmpty(Cells(i, 3))
If IsEmpty(Cells(i, 4)) = True Then
Print #1, "-" & Cells(i, 3)
Else
Print #1, "+" & Cells(i, 3)
End If
i = i + 1
Loop
Print #1, " "
Loop
Close #1
End Sub

[/vba]

я незнаю как зделать чтоби тесты били рандомно списку
и чтоби порядок тестов чтоби видно было от 1 теста до 30
помогите пожалоста решить мне ето проблему

К сообщению приложен файл: 1983320.xlsx (24.1 Kb)

Сообщение отредактировал Serge_007 - Понедельник, 22.01.2018, 15:04

Ответить

Pelena

Дата: Суббота, 20.01.2018, 08:12 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

Dezmand, оформите код тегами с помощью кнопки # в режиме правки поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

dima_dan2012

Дата: Суббота, 20.01.2018, 17:28 | Сообщение № 3

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

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

Сообщений: 38

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

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

Excel 2003,2007

Привет Черновцам!!! Вам в файле нужно разобраться с номерами вопросов - там каша...
Прикладываю файл - там всё исправлено(вопросы пронумерованы от 1...100). И поменять название файла - у меня h\:1.txt.

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

WM :Z116994103939

Сообщение отредактировал dima_dan2012 - Суббота, 20.01.2018, 23:33

Ответить

Страница 1 из 1
1