Add data từ form vào sheets (1 người xem)

[giang140387]

Các bạn giúp mình với. Mình có 1 phải quản lý thiết bị. Mình muốn làm 1 form để nhập thêm thiết bị mới vào file quản lý của mình (xin xem file đính kèm). Các bạn ai biết có thể code giúp mình được không. Mình xin cảm ơn nhiều

 

[giang140387]

Không ai giúp mình ak ;(( mình đã làm được các field textbox rồi. Chỉ còn mỗi hình ảnh là không biết lưu lại như thế nào và mặc định tự đổi tên hình ảnh cho giống với ID luôn. Diễn đàn làm ơn giúp mình với

 

[thanhsangnguyen1982]

Code của nút Add trong Form
Private Sub cmbtAdd_Click()
Dim i As Long
With Sheet1
i = .Range("B" & .Range("B65536").End(xlUp)(2).Row).Row
Cells(i, 1).Value = Application.WorksheetFunction.CountA("B6:B" & i)
Cells(i, 2).Value = Me.TextBox1.Value
Cells(i, 3).Value = Me.TextBox2.Value
Cells(i, 4).Value = Me.TextBox3.Value
Cells(i, 5).Value = Me.TextBox4.Value
Cells(i, 6).Value = Me.TextBox5.Value
Cells(i, 7).Value = Me.TextBox6.Value
End With
End Sub

 

[giang140387]

Code của nút Add trong Form
Private Sub cmbtAdd_Click()
Dim i As Long
With Sheet1
i = .Range("B" & .Range("B65536").End(xlUp)(2).Row).Row
Cells(i, 1).Value = Application.WorksheetFunction.CountA("B6:B" & i)
Cells(i, 2).Value = Me.TextBox1.Value
Cells(i, 3).Value = Me.TextBox2.Value
Cells(i, 4).Value = Me.TextBox3.Value
Cells(i, 5).Value = Me.TextBox4.Value
Cells(i, 6).Value = Me.TextBox5.Value
Cells(i, 7).Value = Me.TextBox6.Value
End With
End Sub

Cám ơn anh thanhsangnguyen1982. Làm như vậy chỉ lấy được giá trị của textbox6 thôi. Textbox6 nhập đường dẫn đến 1 folder chứa hình ảnh và e muốn lưu hình ảnh đó vào file excel theo đường dẫn và tên file của textbox6. A có thể giúp e ko

 

[phanminhphuong]

Các bạn giúp mình với. Mình có 1 phải quản lý thiết bị. Mình muốn làm 1 form để nhập thêm thiết bị mới vào file quản lý của mình (xin xem file đính kèm). Các bạn ai biết có thể code giúp mình được không. Mình xin cảm ơn nhiều

Chịu khó tìm kiếm trong diễn đàn trước khi hỏi đi bạn.
Bạn đọc bài 10 & bài 13 của Topic này: http://www.giaiphapexcel.com/forum/showthread.php?84839-Làm-sao-để-insert-ảnh-thông-qua-form
Gửi kèm file ví dụ từ topic trên (attach)
Chỉnh sửa code cho phù hợp với file của bạn (tương tự).

 

[giang140387]

Chịu khó tìm kiếm trong diễn đàn trước khi hỏi đi bạn.
Bạn đọc bài 10 & bài 13 của Topic này: http://www.giaiphapexcel.com/forum/showthread.php?84839-Làm-sao-để-insert-ảnh-thông-qua-form
Gửi kèm file ví dụ từ topic trên (attach)
Chỉnh sửa code cho phù hợp với file của bạn (tương tự).

Cám ơn bạn phanminhphuong nhiều. Mình tìm mấy ngày nay rồi mà không thấy. Để mình xem thử bài này. Cám ơn bạn lần nữa nha

 

[giang140387]

Chịu khó tìm kiếm trong diễn đàn trước khi hỏi đi bạn.
Bạn đọc bài 10 & bài 13 của Topic này: http://www.giaiphapexcel.com/forum/showthread.php?84839-Làm-sao-để-insert-ảnh-thông-qua-form
Gửi kèm file ví dụ từ topic trên (attach)
Chỉnh sửa code cho phù hợp với file của bạn (tương tự).

Cám ơn bạn phanminhphuong nhiều nha đúng cái mình cần rồi )