Khi thực hiện lệnh Delete có thể thêm vào lựa chọn (Yes or No) ko các bạn ???

[David882011]

Mình muốn tạo 1 lệnh Delete đơn giản bằng Marco và thêm vào lựa chọn Yes or No . Mong các bạn giúp đỡ . Thanks All !!!

 

[giangleloi]

Mình muốn tạo 1 lệnh Delete đơn giản bằng Marco và thêm vào lựa chọn Yes or No . Mong các bạn giúp đỡ . Thanks All !!!

Bạn thêm Msgbox vào nữa là sẽ được thôi.

 

[David882011]

Bạn chỉ cách mình thêm vào được ko ạh ?

 

[giangleloi]

Bạn chỉ cách mình thêm vào được ko ạh ?

File đâu mà thêm cho bạn. Nói không có file thì chỉ theo kiểu không có file thôi chứ.

 

[pinklove]

Bạn chỉ cách mình thêm vào được ko ạh ?

Mình đang sử dụng code này:

Sub Xoa_DL()
Dim Ans As VbMsgBoxResult, PssDel As String  
PssDel = InputBox("Nhap mat khau de thuc hien lenh:", "QUYEN THUC HIEN LENH")  
If PssDel = "1" Then    
    Ans = MsgBox("Ban chac chan muon xoa du lieu chu?", vbYesNo, "Xac nhan thong tin")    
        If Ans = vbYes Then ActiveSheet.Range("B8:Q60000").ClearContents 
        Else    
        MsgBox "Ban khong co quyen thuc hien lenh nay", vbOKOnly, "Access Denied!"   
    Exit Sub  
End If
End Sub

Bạn thay chỗ ("B8:Q60000") theo ý của bạn!

 

[David882011]

Sorry . để mình thêm Files vào .

 

[Kiều Mạnh]

Mình muốn tạo 1 lệnh Delete đơn giản bằng Marco và thêm vào lựa chọn Yes or No . Mong các bạn giúp đỡ . Thanks All !!!

Sang Link sau mà tham khảo Msgbox nè rồi tự chế một tẹo là xong
http://www.giaiphapexcel.com/forum/...-font-Unicode-tuyệt-đẹp!-(Phần-2-32bit-64bit)

 

[David882011]

Bạn hpkhuong ơi . hôm qua cám ơn bạn đã viết dùm mình Đoạn Code này . Bạn có thể sửa dùm mình Copy theo kiểu hàng ngang được ko bạn ?

Sub Button46_Click()
Dim lr As Long
lr = [B1000].End(3).Row
If lr >= 25 Then
Range("B" & lr + 1).Value = [D19].Value
Else
[B25].Value = [D19].Value
End If
End Sub

 

[David882011]

Mình đang sử dụng code này:

Sub Xoa_DL()
Dim Ans As VbMsgBoxResult, PssDel As String  
PssDel = InputBox("Nhap mat khau de thuc hien lenh:", "QUYEN THUC HIEN LENH")  
If PssDel = "1" Then    
    Ans = MsgBox("Ban chac chan muon xoa du lieu chu?", vbYesNo, "Xac nhan thong tin")    
        If Ans = vbYes Then ActiveSheet.Range("B8:Q60000").ClearContents 
        Else    
        MsgBox "Ban khong co quyen thuc hien lenh nay", vbOKOnly, "Access Denied!"   
    Exit Sub  
End If
End Sub

Bạn thay chỗ ("B8:Q60000") theo ý của bạn!

Thanks bạn !!!

 

[David882011]

Vấn đề nào ra vấn đề đó. Không phải nội dung ở topic này. Và cho dù ở topic kia bạn muốn làm cũng phải nói rõ ràng... chứ bạn nói vậy ai biết bạn muốn gì???

Sorry . Vậy mình qua topic kia .

 

[pinklove]

Option Explicit
Sub GPE()
Dim X As VbMsgBoxResult
X = MsgBox("Ban co muon xoa khong?", vbOKCancel)
    If X = vbOK Then Range("E10:G12,E15:G18,E21:G24").ClearContents
    Exit Sub
End Sub

Quên mất là mình đang để đòi pass mới cho xóa

 

[David882011]

Nếu muốn bỏ phần pass đi , mình sửa Code thế nào vậy bạn pinklove ?

 

[pinklove]

Nếu muốn bỏ phần pass đi , mình sửa Code thế nào vậy bạn pinklove ?

Bạn làm theo code của bạn hpkhuong đó.

 

[David882011]

ok thanks bạn !!!!!!