tuyetphale
Thành viên mới

- Tham gia
- 7/10/13
- Bài viết
- 14
- Được thích
- 0
Bạn vào File > Options>Trustcenter>Trustcenter settings>Privacy Options rồi bỏ check trong mục Remove Personal Information....đây anh!
Coi dùm em...........................................
Bạn vào File > Options>Trustcenter>Trustcenter settings>Privacy Options rồi bỏ check trong mục Remove Personal Information....
Sau khi hiện ra hình 1 bạn nhấn Yes sau đó Save as thành file excel có đuôi .xlsVẫn không được bạn ơi! Lúc mình làm xong thì bấm Save là xuất hiện cái hình 1 rồi bấm tiếp thì hiện hình 2, hiện tại không lưu được file excel, mình mới học xài excel nên không rành, ai giúp với
Sau khi hiện ra hình 1 bạn nhấn Yes sau đó Save as thành file excel có đuôi .xls
Nếu không được thì save as thành file .xlsx
Bạn thử đi
Bạn gỡ triệt để Office cũ và cài mới Office 2010.Mình bấm ctrl+s để save thì nó hiện cái hình 1, bấm yes nó lập tức hiện hình 2, bấm ok rồi save as, bấm save lần nữa nó lại hiện cái hình 2. Mà mình dù bấm cái gì thì lúc thoát ra tất cả userform của mình tạo đã mất hết và nút liên kết mở userform cũng không còn tác dụng![]()
Mình bấm ctrl+s để save thì nó hiện cái hình 1, bấm yes nó lập tức hiện hình 2, bấm ok rồi save as, bấm save lần nữa nó lại hiện cái hình 2. Mà mình dù bấm cái gì thì lúc thoát ra tất cả userform của mình tạo đã mất hết và nút liên kết mở userform cũng không còn tác dụng![]()
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
If Trim(Me.txtCont.Value) = "" Then
Me.txtCont.SetFocus
MsgBox "Vui long dien so hop dong", vbInformation
Exit Sub
End If
ws.Cells(iRow, 1).Value = Me.txtCont.Value
ws.Cells(iRow, 2).Value = Me.txtName.Value
ws.Cells(iRow, 3).Value = Me.txtAdd.Value
ws.Cells(iRow, 4).Value = Me.txtTel.Value
ws.Cells(iRow, 5).Value = Me.txtID.Value
ws.Cells(iRow, 6).Value = Me.txtDate.Value
ws.Cells(iRow, 7).Value = Me.txtLocal.Value
ws.Cells(iRow, 8).Value = Me.txtAccount.Value
ws.Cells(iRow, 9).Value = Me.txtnote.Value
ws.Cells(iRow, 10).Value = Me.txtRemaks.Value
Me.txtCont.Value = ""
Me.txtName.Value = ""
Me.txtAdd.Value = ""
Me.txtTel.Value = ""
Me.txtDate.Value = ""
Me.txtLocal.Value = ""
Me.txtAccount.Value = ""
Me.txtID.Value = ""
Me.txtnote.Value = ""
Me.txtRemaks.Value = ""
Me.txtCont.SetFocus
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
UserForm1.Show
Khi lưu phải chọn .xlsm mới được chứ