добрый день всем, помогите написать код к маленькой программке, нужно что бы поля текст из полей Text1, Text2, Text3, и поле М-Ж записывался в excel в столбцы под названием столбцов Text1, Text2, Text3, и поле М-Ж после того как нажав на кнопку сохранить в самой программе все поля очищались но данные которые были записаны в excel сохранялись и после этого можно было вбивать новые данные которые записывались в этот же файл в excel но уже на строчку ниже....
одним словом маленькая база данных.

СПАСИБО ОГРОМНОЕ

AntonariyЛучше приложите проект с этой формочкой и экселевский файл, в который нужно записывать.

я просто в VB нарисовал то что вы видите и все больше не чего нет, тоесть код с нуля

AntonariyАлексей Москвапропущено...


я просто в VB нарисовал то что вы видите и все больше не чего нет, тоесть код с нулявот чтобы с нуля не писать и не рисовать, и выложите.

вроде так

Алексей МоскваAntonariyпропущено...
вот чтобы с нуля не писать и не рисовать, и выложите.

вроде так

Алексей МоскваАлексей Москвапропущено...


вроде так

Алексей МоскваАлексей Москвапропущено...


вроде так

AntonariyАлексей Москвапропущено...


я просто в VB нарисовал то что вы видите и все больше не чего нет, тоесть код с нулявот чтобы с нуля не писать и не рисовать, и выложите.

отправляю все в архиве

AntonariyАлексей Москваотправляю все в архивефух.

но rar?..
я отправил все файлы по одному и отдельно rar.......

The_PristАлексей Москвапомогите написать код к маленькой программке
Алексей Москватоесть код с нуля
Без Ваших стараний в виде проекта это не помогите написать код к маленькой программке, а напишите за меня программку. Разницу улавливаете?

Плюс, если это надо в Excel - то и формы надо в Excel рисовать. В том файле, где есть эти самые:
Алексей Москвастолбцы под названием столбцов Text1, Text2, Text3, и поле М-Ж

P.S. Используйте знаки препинания в сообщениях. А то читать вообще неудобно бред, который без них получается.

проэкт прекриплен в rar файле

Antonariyтолько я заменил чекбоксы на OptionButton

я могу просто копировать и вставить в VB

Antonariyтолько я заменил чекбоксы на OptionButton
а ты вообще любую программу можешь написать в VB

Antonariy



вроде все работает, а подскажи пожалуйста хочу добавить еще .Cells(x, 5) = Text5.Text строчки запускаю а выдает ошибку и выделяет Private Sub Command1_Click()

и как понять эту строчку .Cells(x, 4) = IIf(Option1.Value, Option1.Caption, Option2.Caption)

Shocker.ProAntonariyпропущено...
я не хочу на нем писать.а это был не вопрос, а утверждение!
это вопрос. нужно написать программу что типо базы данных + слияние excel & word

Shocker.Pro,
сможешь написать программу??? в VB ? Вы сами откуда, можно встретиться обсудить

Antonariyавтора ты вообще любую программу можешь написать в VBя не хочу на нем писать.
автори как понять эту строчку .Cells(x, 4) = IIf(Option1.Value, Option1.Caption, Option2.Caption)если первый параметр функции Iif равен True, то возвращается второй параметр, иначе третий.
если выбрана первая опция, то записывается ее подпись, иначе подпись второй.


Private Sub Command3_Click(Index As Integer)
Dim xl As Object
Dim wb As Object
Dim x As Integer
Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open("C:\Users\Ïîëüçîâàòåëü\Desktop\Áàçà îòâåòîâ\baza.xlsx")
x = 2
With wb.Sheets(1)
While .Cells(x, 1) <> ""
x = x + 1
Wend
.Cells(x, 1) = Text1.Text
.Cells(x, 2) = Text2.Text
.Cells(x, 3) = Text3.Text
.Cells(x, 4) = Text4.Text
.Cells(x, 5) = Text5.Text
.Cells(x, 6) = Text6.Text
.Cells(x, 7) = Text7.Text
.Cells(x, 8) = Text8.Text
.Cells(x, 9) = Text9.Text
.Cells(x, 11) = Text10.Text
.Cells(x, 12) = Text11.Text
.Cells(x, 13) = Text12.Text
.Cells(x, 15) = Text13.Text
.Cells(x, 16) = Text14.Text
.Cells(x, 17) = Text15.Text
.Cells(x, 18) = Text16.Text
.Cells(x, 4) = Lif(Option1.Value, Option1.Caption, Option2.Caption) - могу понять в чем тут ошибка VB жалуется и выделяет первую строчку
End With
wb.Save
xl.Quit
End Sub