Диапазон ячеек Excel заполнить случайными числами

@timsc1 · Регистрация: 27.11.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте! На форме есть кнопка. Нужно сделать заполнение случайными числами (-50; 50) ячейки в Excel (B4:H12). И эти числа вывести в виде матрицы в файл 1.txt. Помогите пожалуйста! Спасибо!!!

Памирыч · 13.11.2012, 20:48

Не по теме:

timsc1, нескромный вопрос.
У Вас посты и в паскале и в VB .NET
Вы изучаете два языка?

Добавлено через 26 минут
А по сабжу:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Dim appExcel As Object
    Dim Rn As New Random
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Out As String = ""
        Dim Tmp As String
        appExcel = CreateObject("Excel.Application")
        appExcel.Workbooks.Open("C:\1.xls")
        appExcel.Visible = False
        With appExcel.ActiveSheet
            For R As Integer = 4 To 12
                For C As Integer = 2 To 8
                    Tmp = Rn.Next(-50, 51)
                    .Cells(R, C).Value = Tmp
                    Out &= Tmp & vbTab
                Next
                Out &= vbCrLf
            Next
        End With
        appExcel.Workbooks(1).Close(True)
        appExcel.Quit()
        IO.File.WriteAllText("C:\Temp.txt", Out)
    End Sub

@timsc1 · 14.11.2012, 13:05 **[ТС]**

Сообщение от Памирыч

Не по теме:
timsc1, нескромный вопрос.
У Вас посты и в паскале и в VB .NET
Вы изучаете два языка?

Да, я их изучаю. В планах у меня изучить ещё Питон. Очень хочу Питон изучить, но пока мало времени.

Добавлено через 3 минуты
Я надеюсь, что с помощью вашего сайта у меня хоть чуток, но получится!!!! Отличный сайт. Редко, где сегодня людям помогают! Дай Вам БОГ здоровья и сил!!!

Добавлено через 13 часов 57 минут
Здравствуйте! У меня вопрос:
Из этого диапазона надо найти max и min число и вывести их адрес. Это я как бы сделал. max и min нашёл стандартным алгоритмом. Есть ли алгоритм попроще в VB 2008??? И ещё, у меня адрес выводит в виде ("5, 4" - 5 строка и 4 столбец) а можно ли вывести адрес в формате Excel: D5 ?????????????? Спасибо!!!

Памирыч · 14.11.2012, 13:25

Сообщение от timsc1

а можно ли вывести адрес в формате Excel: D5

Ну и как Вы себе это представляете?

Сообщение от timsc1

Есть ли алгоритм попроще в VB 2008

Для одномерного массива есть метод Sort
Для двумерного - не знаю, кроме как перебором

@timsc1 · 14.11.2012, 13:39 **[ТС]**

я имел ввиду через math.max, только не совсем получается... И адрес ячейки D5 вместо (5,4). Может есть какая функция???

Памирыч · 14.11.2012, 13:42

Сообщение от timsc1

Может есть какая функция?

Возможно. Просто мне не доводилось сталкиваться

@timsc1 · 14.11.2012, 14:05 **[ТС]**

Понятно!!!

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714

	Диапазон ячеек Excel заполнить случайными числами 13.11.2012, 18:55. Показов 5929. Ответов 6 Метки нет (Все метки) Здравствуйте! На форме есть кнопка. Нужно сделать заполнение случайными числами (-50; 50) ячейки в Excel (B4:H12). И эти числа вывести в виде матрицы в файл 1.txt. Помогите пожалуйста! Спасибо!!! 0

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714
	14.11.2012, 13:39 [ТС]
	я имел ввиду через math.max, только не совсем получается... И адрес ячейки D5 вместо (5,4). Может есть какая функция??? 0

@timsc1 15 / 15 / 2 Регистрация: 27.11.2011 Сообщений: 714
	14.11.2012, 14:05 [ТС]
	Понятно!!! 0