Tạo nút sữa chữa trên From (1 người xem)

[lhthai]

Chào các Anh GPE
Hiện tại mình không biết gì về VB cả
Mình lấy code trên diễn đàn và tạo thành From sau

mới làm được nút "câp nhật" bây giờ nhờ các anh GPE chỉ
dùm mình làm nút sữa chửa dự liệu ô vừa mới cập nhật
Cám ơn các anh GPE

Minh gõ font chữ trên From không được các Anh GPE biết chỉ dùm luôn nha
cám ơn!

 

[siwtom]

Chào các Anh GPE
Hiện tại mình không biết gì về VB cả
Mình lấy code trên diễn đàn và tạo thành From sau

mới làm được nút "câp nhật" bây giờ nhờ các anh GPE chỉ
dùm mình làm nút sữa chửa dự liệu ô vừa mới cập nhật
Cám ơn các anh GPE

Đỏ đỏ là thế nào? Ô hay dòng? Là bạn cho phép sau khi nhập mà phát hiện nhập sai thì có quyền "bập bập"? Nếu thế thì dòng mới nhập luôn là dòng cuối. Vd. vào lúc 10 giờ bạn nhấn NCapNhat để nhập vào dòng 200 và cho tới 15 giờ bạn không nhấn NCapNhat nữa thì vào lúc 15 giờ dòng "mới cập nhật" vẫn là dòng 200. Bạn muốn vào lúc 15 giờ nếu nhấn NSua thì sửa dòng 200? Nếu thế thì:

1. Thay Private Sub NCapNhat_Click() bằng

Private Sub EditData(ByVal add As Boolean)
Dim Dongcuoi As Long
    Dongcuoi = SN.Range("A65000").End(3).Row
    If add Then Dongcuoi = Dongcuoi + 1
    If Dongcuoi > 5 Then
        If TextBox1.Value <> Empty Then
            With SN
                .Cells(Dongcuoi, 1).Value = TextBox1.Value
                .Cells(Dongcuoi, 2).Value = TextBox2.Value
                .Cells(Dongcuoi, 3).Value = TextBox3.Value
                .Cells(Dongcuoi, 4).Value = TextBox4.Value
                .Cells(Dongcuoi, 5).Value = TextBox5.Value
                .Cells(Dongcuoi, 6).Value = TextBox6.Value
                .Cells(Dongcuoi, 7).Value = TextBox7.Value
                [COLOR=#0000ff].Cells(Dongcuoi, 8).Value = .Cells(Dongcuoi, 8).Value[/COLOR]
            End With
            TextBox1.SetFocus
        Else
            MsgBox "So khong duoc de trong! Thanks a lot", , "GPE"
        End If
    End If
End Sub

Chỗ xanh xanh tôi không biết bạn định làm gì

2. Code của Private Sub NCapNhat_Click()

Private Sub NCapNhat_Click()
    EditData True
End Sub

3. Code của Private Sub NSua_Click() - hãy đặt thêm CommandButton NSua

Private Sub NSua_Click()
    EditData FALSE
End Sub

Minh gõ font chữ trên From không được các Anh GPE biết chỉ dùm luôn nha
cám ơn!

Tôi không dùng Unikey nên không biết tại sao bạn không gõ được. Mà nếu có biết thì cũng không giúp. Tôi không ủng hộ Unikey, VNI, VN3 nên không tiếp tay cho bất cứ ai. Bạn tìm trên mạng thì thấy đầy rẫy câu hỏi: "Tại sao ...?". Người biết thì cũng mất công xử lý. Người không biết thì ngẩn tò te. Nào là không chạy trong Winxyz, rằng phải tải và cài phiên bản mới nhất abc. Thôi thì đá đít nó 1 lần để thanh thản muôn đời.

 

[lhthai]

Cám ơn bạn đã chỉ giúp
Hiện tại mình mượn code trên diễn dản đang tập sữa từ từ..
Ý của mình là như sau
1. Các Anh GPE có thể sửa textbox MASO thành COMBOX
Ý của em là muốn tại COMBOX MASO chọn mã số thì bên textbox hiện tên chi tiết ra luôn khỏi cân gõ tay
2. Còn textbox Tong thì nó hiện ô tổng trên Excel để xem kết quả.
3. Nhấn nút SUA thì hiện ra from sữa hàng mình chỉ cẩn gõ số Phiếu vào thì tất cả các textbox còn lại hiện lên và mình vào text nào mình cần sửa thôi

 

[lhthai]

Mình tìm trên diễn đàn cũng được file su dụng nút SUA nhưng cũng chua biết áp dụng như thế nào

 

[diemhuyenanh]

bạn upfile với những dữ liệu như thật lên thì mọi người mới giúp bạn được, chứ file bạn chẳng có dữ liệu gì thì sao mà giúp được

 

[lhthai]

Up lai file
Hiện tại mình mượn code trên diễn đàn đang tập sữa từ từ..
Ý của mình là như sau
1. Các Anh GPE có thể sửa from nhập liệu từ texbox Ma so chỉ cần gõ mã số vào thì cập nhật chi tiết vào textbox chi tiết từ sheet DANH MUC luôn khỏi cân gõ tay

2. Còn textbox Tong thì nó hiện ô tổng trên Excel để xem kết quả.
3. Nhấn nút SUA thì hiện ra from sữa hàng mình chỉ cẩn gõ số Phiếu vào thì tất cả các textbox còn lại hiện lên và mình vào text nào mình cần sửa thôi

 

[diemhuyenanh]

đây của bạn đây xem có đúng không nhé
file này nhé file trước nhầm

 

[diemhuyenanh]

khi nãy nhầm file nhé

 

[lhthai]

Hay qua
cam on ban nha

 

[lhthai]

khi nãy nhầm file nhé

Hi Anh
Anh có thể giải thích cho mình biết nội dung đoạn CODE sau không
Chẳn hạn như đoạn sau số 9 này là gì
Arr(r, 9) = r + 5

Private Sub TextBox9_AfterUpdate()
Dim Arr(), Darr(), i As Long, k As Long, j As Integer, r As Long
Arr = Sheets("nhap").Range("A6:H" & Sheets("nhap").Range("C65536").End(xlUp).Row).Value
ReDim Preserve Arr(1 To UBound(Arr, 1), 1 To UBound(Arr, 2) + 1)
For r = 1 To UBound(Arr, 1)
Arr(r, 9) = r + 5
Next r
ReDim Darr(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
For i = 1 To UBound(Arr, 1)
If Arr(i, 1) = Val(TextBox9.Value) Then
k = k + 1
Darr(k, 1) = Format(Arr(i, 2), "dd/mm/yy")
For j = 2 To UBound(Darr, 2) - 1
Darr(k, j) = Arr(i, j + 1)
Next j
End If
Next i
ListBox1.List = Darr
Sheet2.Range("A1").Resize(UBound(Darr, 1), UBound(Darr, 2)) = Darr
End Sub

 

[diemhuyenanh]

bạn tìm hiểu trên gpe thì sẽ hiểu thôi. chứ bây giờ giải thích cho bạn mà bạn không biết gì về vba thì thật là khó
trong code trên tôi đã gán mảng vào sheets cho bạn nhìn vào đó sẽ hiểu ngay thôi
Sheet2.Range("A1").Resize(UBound(Darr, 1), UBound(Darr, 2)) = Darr

 

[lhthai]

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+B
'
Sheets("KHSX").Select
Sheets("KHSX").Copy
ActiveWorkbook.CheckCompatibility = False
ActiveWorkbook.SaveAs Filename:="C:\Users\lhthai\Documents\120809.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Sheets("KHSX").Select
End Sub

Mình muốn trước khi lưu file xuất hiện hộp thông báo để nhập tên file cần lưu được không bạn