Giúp sửa code để chỉ chạy trên file chứa code (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
H

hunglam123

Thành viên bị đình chỉ hoạt động
Thành viên bị đình chỉ hoạt động
Tham gia
31/3/20
Bài viết
180
Được thích
43
Chào cả Nhà GPE. Em có dùng code sau đế nhấn Nút Delete xóa 1 hàng 4 cột cùng lúc. Code thì chạy Ok. Nhưng chỉ đúng khi em mở đúng 1 file này trên máy tính. Còn em mở thêm file khác ( Không đóng file chạy code ) thì khi em nhấn Delete thì code nó cũng xóa 1 hàng 4 cột .
Em muốn code chỉ hoạt động trên file chứa code khi trên máy tính có nhiều file, Các file khác nhấn Delete thì như mặc định chỉ xóa mỗi ô đang chọn
Em xin chân thành cảm ơn


Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name = "data" Then
                If Not Intersect(Target, Range("A1:D100")) Is Nothing Then
                    Application.OnKey "{DELETE}", "chaycode"  ' nhan delete xoa dong
                Else
                    Application.OnKey "{DELETE}"
                End If
                
            
Else
     Application.OnKey "{DELETE}"
End If
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "{DELETE}"
End Sub


Sub chaycode()
Dim i As Long
i = Selection.Row
Range("A" & i & ":D" & i).ClearContents
End Sub
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Bạn sửa
Mã: 
Sub chaycode()
Dim i As Long
i = Selection.Row
Range("A" & i & ":D" & i).ClearContents
End Sub
thành
Mã: 
Sub chaycode()
Dim i As Long
with thisworkbook.activesheet
i = .Selection.Row
.Range("A" & i & ":D" & i).ClearContents
end with
End Sub
 
Upvote 0
hunglam123 đã viết:
Chào cả Nhà GPE. Em có dùng code sau đế nhấn Nút Delete xóa 1 hàng 4 cột cùng lúc. Code thì chạy Ok. Nhưng chỉ đúng khi em mở đúng 1 file này trên máy tính. Còn em mở thêm file khác ( Không đóng file chạy code ) thì khi em nhấn Delete thì code nó cũng xóa 1 hàng 4 cột .
Em muốn code chỉ hoạt động trên file chứa code khi trên máy tính có nhiều file, Các file khác nhấn Delete thì như mặc định chỉ xóa mỗi ô đang chọn
Em xin chân thành cảm ơn


Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name = "data" Then
                If Not Intersect(Target, Range("A1:D100")) Is Nothing Then
                    Application.OnKey "{DELETE}", "chaycode"  ' nhan delete xoa dong
                Else
                    Application.OnKey "{DELETE}"
                End If
               
           
Else
     Application.OnKey "{DELETE}"
End If
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "{DELETE}"
End Sub


Sub chaycode()
Dim i As Long
i = Selection.Row
Range("A" & i & ":D" & i).ClearContents
End Sub
Nhấp chuột vào đây để mở rộng...
Nếu có file hy vọng sẽ giúp được.
Hau151978 đã viết:
Bạn sửa
Mã: 
Sub chaycode()
Dim i As Long
i = Selection.Row
Range("A" & i & ":D" & i).ClearContents
End Sub
thành
Mã: 
Sub chaycode()
Dim i As Long
with thisworkbook.activesheet
i = .Selection.Row
.Range("A" & i & ":D" & i).ClearContents
end with
End Sub
Nhấp chuột vào đây để mở rộng...
Tôi thấy cách này cũng chưa ổn, đang ở workbook khác nhấn phím delete nó vẫn chạy code (Mặc dù nó tác động lên Thisworkbook)
 
Upvote 0
Đúng rồi bác @giaiphap , sửa lại thành
Mã: 
Sub chaycode()
Dim i As Long
if not thisworkbook is activeworkbook then exit sub
i = Selection.Row
Range("A" & i & ":D" & i).ClearContents
End Sub
 
Upvote 0
Hau151978 đã viết:
Đúng rồi bác @giaiphap , sửa lại thành
Mã: 
Sub chaycode()
Dim i As Long
if not thisworkbook is activeworkbook then exit sub
i = Selection.Row
Range("A" & i & ":D" & i).ClearContents
End Sub
Nhấp chuột vào đây để mở rộng...
Tôi thấy cũng chưa ổn, sang workbook khác nhấn Delete không có tác dụng xóa dữ liệu trong ô đang chọn. Tôi muốn thấy file vì có lẽ dùng ClassModule sẽ ổn hơn.
 
Upvote 0
Xin lỗi các bác, do không có file nên mình chỉ đoán. Thấy sai nhiều quá nên mới tạo file thử. Chỉ thêm code workbook là được:
Code trên sheet data:
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name = "data" Then
                If Not Intersect(Target, Range("A1:D100")) Is Nothing Then
                    Application.OnKey "{DELETE}", "chaycode"  ' nhan delete xoa dong
                Else
                    Application.OnKey "{DELETE}"
                End If
                
            
Else
     Application.OnKey "{DELETE}"
End If
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "{DELETE}"
End Sub
Code trên workbook:
Mã: 
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.OnKey "{DELETE}"
End Sub
Code module
Mã: 
Sub chaycode()
Dim i As Long
i = Selection.Row
Range("A" & i & ":D" & i).ClearContents
End Sub
 
Upvote 0
Hau151978 đã viết:
Xin lỗi các bác, do không có file nên mình chỉ đoán. Thấy sai nhiều quá nên mới tạo file thử. Chỉ thêm code workbook là được:
Code trên sheet data:
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name = "data" Then
                If Not Intersect(Target, Range("A1:D100")) Is Nothing Then
                    Application.OnKey "{DELETE}", "chaycode"  ' nhan delete xoa dong
                Else
                    Application.OnKey "{DELETE}"
                End If
               
           
Else
     Application.OnKey "{DELETE}"
End If
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "{DELETE}"
End Sub
Code trên workbook:
Mã: 
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.OnKey "{DELETE}"
End Sub
Code module
Mã: 
Sub chaycode()
Dim i As Long
i = Selection.Row
Range("A" & i & ":D" & i).ClearContents
End Sub
Nhấp chuột vào đây để mở rộng...
Giả sử file chứa code là a, bây giờ ta mở file a và file b. Chọn file a, chọn sheet data, chọn ô A1 (Ô này có sẳn dữ liệu nhé), chọn file b, nhấn Delete (Chạy ngon), chọn lại file a, nhấn Delete...
 
Upvote 0
Để hoàn chỉnh có lẽ cần phải sửa cả loạt auto_open, workbook_windowactivate, có thể cả beforeclose nữa. Mình thì ghét mấy cái thủ tục sự kiện nên chẳng mấy khi sờ đến nó.
 
Upvote 0
giaiphap đã viết:
Giả sử file chứa code là a, bây giờ ta mở file a và file b. Chọn file a, chọn sheet data, chọn ô A1 (Ô này có sẳn dữ liệu nhé), chọn file b, nhấn Delete (Chạy ngon), chọn lại file a, nhấn Delete...
Nhấp chuột vào đây để mở rộng...
rất mong anh hãy giúp đỡ. Mình mò từ hôm qua đến giờ vẫn chưa được. Mà tại sao mình làm file này mà file kia là có tác dụng là sao nhĩ
Bài đã được tự động gộp:

SA_DQ đã viết:
Xem ở đây: https://www.giaiphapexcel.com/diendan/threads/giúp-sửa-code-để-chỉ-chạy-trên-file-chứa-code.149946/#post-971718
Nhấp chuột vào đây để mở rộng...
vẫn chưa có ai làm được anh ạ. Mong anh ra tay giúp đỡ
Bài đã được tự động gộp:

Hau151978 đã viết:
Bạn sửa
Mã: 
Sub chaycode()
Dim i As Long
i = Selection.Row
Range("A" & i & ":D" & i).ClearContents
End Sub
thành
Mã: 
Sub chaycode()
Dim i As Long
with thisworkbook.activesheet
i = .Selection.Row
.Range("A" & i & ":D" & i).ClearContents
end with
End Sub
Nhấp chuột vào đây để mở rộng...
cảm ơn bạn. Vẫn chưa được bạn ơi
 
Upvote 0
hunglam123 đã viết:
rất mong anh hãy giúp đỡ. Mình mò từ hôm qua đến giờ vẫn chưa được. Mà tại sao mình làm file này mà file kia là có tác dụng là sao nhĩ
Bài đã được tự động gộp:


vẫn chưa có ai làm được anh ạ. Mong anh ra tay giúp đỡ
Bài đã được tự động gộp:


cảm ơn bạn. Vẫn chưa được bạn ơi
Nhấp chuột vào đây để mở rộng...
Bạn khai báo thêm một biến:
Public MyBook As String

Sau đó tại thủ tục chaycode thêm điều kiện:
If ActiveWorkbook.Name = MyBook Then

Và them một sự kiện Workbook:
Private Sub Workbook_Open()
MyBook = ThisWorkbook.Name
End Sub

thì code sẽ chỉ chạy trên file chứa code
 
Upvote 0
songmai đã viết:
Bạn khai báo thêm một biến:
Public MyBook As String

Sau đó tại thủ tục chaycode thêm điều kiện:
If ActiveWorkbook.Name = MyBook Then

Và them một sự kiện Workbook:
Private Sub Workbook_Open()
MyBook = ThisWorkbook.Name
End Sub

thì code sẽ chỉ chạy trên file chứa code
Nhấp chuột vào đây để mở rộng...
Bạn chọn sheet data, chọn ô A1 (ô này có dữ liệu nhé), save file, đóng file. Mở file lên (không nhấn gì cả nhé), bây giờ nhấn delete...
Khi giúp cho chủ topic này thì phải suy nghĩ kỷ nhé, chủ topic này khó tính lắm. Code phải hoàn hảo tuyệt đối.
 
Upvote 0
giaiphap đã viết:
Bạn chọn sheet data, chọn ô A1 (ô này có dữ liệu nhé), save file, đóng file. Mở file lên (không nhấn gì cả nhé), bây giờ nhấn delete...
Khi giúp cho chủ topic này thì phải suy nghĩ kỷ nhé, chủ topic này khó tính lắm. Code phải hoàn hảo tuyệt đối.
Nhấp chuột vào đây để mở rộng...
Hihi. Quên nói vụ code chỉ có tác dụng sau khi đóng và chạy lại. Dù sao không đến nỗi bạn ấy không biết điều đó, nhỉ?
 
Upvote 0
Giải pháp nhanh gọn nhất, là tắt excel khởi động lại và mở file mới là yên tâm không có code nào chạy được
Nếu làm code cũng theo hướng tương tự
(trả lời riêng cho chủ topic)
 
Upvote 0
hunglam123 đã viết:
Chào cả Nhà GPE. Em có dùng code sau đế nhấn Nút Delete xóa 1 hàng 4 cột cùng lúc. Code thì chạy Ok. Nhưng chỉ đúng khi em mở đúng 1 file này trên máy tính. Còn em mở thêm file khác ( Không đóng file chạy code ) thì khi em nhấn Delete thì code nó cũng xóa 1 hàng 4 cột .
Em muốn code chỉ hoạt động trên file chứa code khi trên máy tính có nhiều file, Các file khác nhấn Delete thì như mặc định chỉ xóa mỗi ô đang chọn
Em xin chân thành cảm ơn
Nhấp chuột vào đây để mở rộng...

---------

Bạn thử code dưới cho Workbook

---------
PHP: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Dim I As Boolean
  On Error Resume Next
  I = Not Intersect(Selection, ThisWorkbook.Sheets("data").Range("A1:D100")) Is Nothing
  Call SetKey(I)
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Dim I As Boolean
  On Error Resume Next
  I = Not Intersect(Target, ThisWorkbook.Sheets("data").Range("A1:D100")) Is Nothing
  Call SetKey(I)
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
  Dim I As Boolean
  On Error Resume Next
  If Wn.Caption Like ThisWorkbook.Name & " *" Then
    I = Not Intersect(Selection, ThisWorkbook.Sheets("data").Range("A1:D100")) Is Nothing
  End If
  Call SetKey(I)
End Sub
Private Sub SetKey(I As Boolean)
  If Not I Then
      Application.OnKey "{DELETE}"
  Else
      Application.OnKey "{DELETE}", "'" & ThisWorkbook.Name & "'!chaycode"
  End If
End Sub
 
Upvote 0
ppc0312 đã viết:
Giải pháp nhanh gọn nhất, là tắt excel khởi động lại và mở file mới là yên tâm không có code nào chạy được
Nếu làm code cũng theo hướng tương tự
(trả lời riêng cho chủ topic)
Nhấp chuột vào đây để mở rộng...
Bạn ơi, bạn chạy thử file của bạn chủ topic rồi mới thấy. Sau khi code đã vào trạng thái chờ, bạn mở bất kỳ file nào ra, bấm phím Delete thì khối A&dòng hiện hành: D&Dòng hiện hành của vùng A1:D100 của sheet hiện hành (của file mới mở đó) cũng bị xóa sạch, trong khi bạn ấy chỉ muốn code chỉ tác dụng với sheet data của file chứa code của bạn ấy thôi. Thế bạn ấy mới nhờ giúp đấy.
 
Lần chỉnh sửa cuối:
Upvote 0
ppc0312 đã viết:
Giải pháp nhanh gọn nhất, là tắt excel khởi động lại và mở file mới là yên tâm không có code nào chạy được
Nếu làm code cũng theo hướng tương tự
(trả lời riêng cho chủ topic)
Nhấp chuột vào đây để mở rộng...
trả lời như bạn thế mình lên đây hỏi làm gì. vấn đề là lúc làm việc là mở nhiều file , mà mình chỉ muốn Code chĩ chạy file có code thôi. Chẳng lẻ chỉ mở đúng 1 file thôi hả.
 
Upvote 0
HeSanbi đã viết:
---------

Bạn thử code dưới cho Workbook

---------
PHP: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Dim I As Boolean
  On Error Resume Next
  I = Not Intersect(Selection, ThisWorkbook.Sheets("data").Range("A1:D100")) Is Nothing
  Call SetKey(I)
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Dim I As Boolean
  On Error Resume Next
  I = Not Intersect(Target, ThisWorkbook.Sheets("data").Range("A1:D100")) Is Nothing
  Call SetKey(I)
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
  Dim I As Boolean
  On Error Resume Next
  If Wn.Caption Like ThisWorkbook.Name & " *" Then
    I = Not Intersect(Selection, ThisWorkbook.Sheets("data").Range("A1:D100")) Is Nothing
  End If
  Call SetKey(I)
End Sub
Private Sub SetKey(I As Boolean)
  If Not I Then
      Application.OnKey "{DELETE}"
  Else
      Application.OnKey "{DELETE}", "'" & ThisWorkbook.Name & "'!chaycode"
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
Mở file khác lên nó vẫn áp dụng code luôn a. Em chỉ muốn file nào có code thì áp dụng file đó. Các file còn lại Như bình thường
Bài đã được tự động gộp:

songmai đã viết:
Bạn ơi, bạn chạy thử file của bạn chủ topic rồi mới thấy. Sau khi code đã vào trạng thái chờ, bạn mở bất kỳ file nào ra, bấm phím Delete thì khối A&dòng hiện hành: D&Dòng hiện hành của vùng A1:D100 của sheet hiện hành (của file mới mở đó) cũng bị xóa sạch, trong khi bạn ấy chỉ muốn code chỉ tác dụng với sheet data của file chứa code của bạn ấy thôi. Thế bạn ấy mới nhờ giúp đấy.
Nhấp chuột vào đây để mở rộng...
đúng rồi bạn. bạn đó trả lời tắt đi mở lại. thì mình cần gì lên đây hỏi nữ chứ. trả lời như Muối bỏ Biển
Bài đã được tự động gộp:

songmai đã viết:
Bạn khai báo thêm một biến:
Public MyBook As String

Sau đó tại thủ tục chaycode thêm điều kiện:
If ActiveWorkbook.Name = MyBook Then

Và them một sự kiện Workbook:
Private Sub Workbook_Open()
MyBook = ThisWorkbook.Name
End Sub

thì code sẽ chỉ chạy trên file chứa code
Nhấp chuột vào đây để mở rộng...
bạn cho mình Code hoàn chỉnh cái
Bài đã được tự động gộp:

giaiphap đã viết:
Bạn chọn sheet data, chọn ô A1 (ô này có dữ liệu nhé), save file, đóng file. Mở file lên (không nhấn gì cả nhé), bây giờ nhấn delete...
Khi giúp cho chủ topic này thì phải suy nghĩ kỷ nhé, chủ topic này khó tính lắm. Code phải hoàn hảo tuyệt đối.
Nhấp chuột vào đây để mở rộng...
Test rất kỷ trong phòng thí nghiệm, tât cả mọi tình huống, phải chuẩn xác 100% thì mới gọi code Đúng, còn 99.9 % cũng chưa được Duyệt
 
Upvote 0
hunglam123 đã viết:
Test rất kỷ trong phòng thí nghiệm, tât cả mọi tình huống, phải chuẩn xác 100% thì mới gọi code Đúng, còn 99.9 % cũng chưa được Duyệt
Nhấp chuột vào đây để mở rộng...
Tôi biết bạn rất khó nên tôi không dám viết code, sợ bị phán một câu... Nói tóm lại vụ này không dùng ClassModule thì code hơi bị khó. Lót dép ngồi chờ các thành viên khác viết code (chờ sung rụng vậy) xem học hỏi. Tất cả những code trên không hài lòng được cái nào cả.
 
Upvote 0
giaiphap đã viết:
Tôi biết bạn rất khó nên tôi không dám viết code, sợ bị phán một câu... Nói tóm lại vụ này không dùng ClassModule thì code hợi bị khó. Lót dép ngồi chờ các thành viên khác viết code (chờ sung rụng vậy) xem học hỏi. Tất cả những code trên không hài lòng được cái nào cả.
Nhấp chuột vào đây để mở rộng...
có đạt yêu cầu đâu anh. Test rất nghiêm nghặt thi chỉ 1 sai xót là loại bỏ ngay lập tức
 
Upvote 0
giaiphap đã viết:
Lúc đầu chưa nhận ra, đến khi nhận ra thì...
Nhấp chuột vào đây để mở rộng...
Chỉ riêng cái project ấy mới có những yêu cầu thuộc về thế kỷ 22 thôi.
Tư duy tiền bất kiến cổ nhân, hậu bất tri lai giả mờ.

Theo tôi biết thì người đủ sức cung ứng nhu cầu với thớt đã ra bài rồi. Cứ để họ đối đáp với nhau, mình ngồi uống rượu xem hoa nở.
 
Upvote 0
giaiphap đã viết:
Dĩ nhiên, nhưng chắc đợi sung rụng.
Nhấp chuột vào đây để mở rộng...
Sung thể nào cũng rụng. Nhơn vật tôi nói là dân cự phách.
Thứ nhất: theo tôi biết thì thớt khớp cơ nhơn vật này, không dám nói chuyện kiểu như nói với bạn đâu.
Thứ hai: nhơn vật này lỡ phóng lao rồi, không thể bỏ ngang đâu. Quê mặt.
 
Upvote 0
hunglam123 đã viết:
Mở file khác lên nó vẫn áp dụng code luôn a. Em chỉ muốn file nào có code thì áp dụng file đó. Các file còn lại Như bình thường
Bài đã được tự động gộp:


đúng rồi bạn. bạn đó trả lời tắt đi mở lại. thì mình cần gì lên đây hỏi nữ chứ. trả lời như Muối bỏ Biển
Bài đã được tự động gộp:


bạn cho mình Code hoàn chỉnh cái
Bài đã được tự động gộp:


Test rất kỷ trong phòng thí nghiệm, tât cả mọi tình huống, phải chuẩn xác 100% thì mới gọi code Đúng, còn 99.9 % cũng chưa được Duyệt
Nhấp chuột vào đây để mở rộng...

Tại ThisWorkbook thêm sự kiện Open:

Private Sub Workbook_Open()
MyBook = ThisWorkbook.Name
End Sub

Tại Module1:

Public MyBook As String

Sub chaycode()
Dim i As Long
If ActiveWorkbook.Name = MyBook Then
i = Selection.Row
Range("A" & i & ": D" & i).ClearContents 'Chỗ ": D" phải viết liền nhé. Trong đây viết liền nó thành :D (Mặt cười)
End If
End Sub

thế thôi

Cần thiết thì bạn tải luôn cái file ví dụ này về chạy thử
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
songmai đã viết:
Tại ThisWorkbook thêm sự kiện Open:

Private Sub Workbook_Open()
MyBook = ThisWorkbook.Name
End Sub

Tại Module1:

Public MyBook As String

Sub chaycode()
Dim i As Long
If ActiveWorkbook.Name = MyBook Then
i = Selection.Row
Range("A" & i & ": D" & i).ClearContents 'Chỗ ": D" phải viết liền nhé. Trong đây viết liền nó thành :D (Mặt cười)
End If
End Sub

thế thôi

Cần thiết thì bạn tải luôn cái file ví dụ này về chạy thử
Nhấp chuột vào đây để mở rộng...


Test rồi. Mở đúng 1 file này thì ok. Mở thêm 1 file khác dạng đuôi khác XLSB thì nhấn Delete hết được luôn
Bài đã được tự động gộp:

VetMini đã viết:
Sung thể nào cũng rụng. Nhơn vật tôi nói là dân cự phách.
Thứ nhất: theo tôi biết thì thớt khớp cơ nhơn vật này, không dám nói chuyện kiểu như nói với bạn đâu.
Thứ hai: nhơn vật này lỡ phóng lao rồi, không thể bỏ ngang đâu. Quê mặt.
Nhấp chuột vào đây để mở rộng...
Nay lên "
Chuyên gia GPE
Thì thử trổ tài xem cái, Chứ toàn nghe nói chứ không thấy code gì hết
 
Upvote 0
hunglam123 đã viết:
...Thì thử trổ tài xem cái, Chứ toàn nghe nói chứ không thấy code gì hết
Nhấp chuột vào đây để mở rộng...
Có tài mà ngu để cho thiên hạ khích tướng thì đó là hạng tài lọt.
Muốn code thì mướn thiên hạ làm giùm cho cái COM bằng code xê cọng cọng gì đó. Tiền bạc tỷ chỉ thấy khoe sắm xe mới, project thì nhờ làm code chùa.
 
Upvote 0
hunglam123 đã viết:
Test rồi. Mở đúng 1 file này thì ok. Mở thêm 1 file khác dạng đuôi khác XLSB thì nhấn Delete hết được luôn
Nhấp chuột vào đây để mở rộng...
Nhấn delete hết được luôn nghĩa là sao, tôi không hiểu? Như vậy là code đã đúng ý bạn hay là không đúng? Tôi mở file khác lên thì bấm delete thì xoá được đúng ô hiện hành.
 
Upvote 0
songmai đã viết:
Nhấn delete hết được luôn nghĩa là sao, tôi không hiểu? Như vậy là code đã đúng ý bạn hay là không đúng? Tôi mở file khác lên thì bấm delete thì xoá được đúng ô hiện hành.
Nhấp chuột vào đây để mở rộng...
Bạn sẽ không bao giờ thỏa cho người hỏi được đâu:= Vô ích thôi!
www.giaiphapexcel.com

1 câu hỏi khá đơn giản, không có gì cao siêu. mà Hết diễn đàn không ai làm được

Chào GPE. Tôi có hỏi 1 bài ở Link Này https://giaiphapexcel.com/diendan/threads/trùng-giúp-sửa-code-để-chỉ-chạy-trên-file-chứa-code.149946/ Chỉ là file nào có code thì nhấn Delete mới có tác dụng . Còn file nào không có code thì nhấn Delete như bình thường mặc định chỉ xóa các ô đang chọn...
www.giaiphapexcel.com www.giaiphapexcel.com
$$$$@
 
Upvote 0

File đính kèm

Upvote 0
SA_DQ đã viết:
Bạn sẽ không bao giờ thỏa cho người hỏi được đâu:= Vô ích thôi!
www.giaiphapexcel.com

1 câu hỏi khá đơn giản, không có gì cao siêu. mà Hết diễn đàn không ai làm được

Chào GPE. Tôi có hỏi 1 bài ở Link Này https://giaiphapexcel.com/diendan/threads/trùng-giúp-sửa-code-để-chỉ-chạy-trên-file-chứa-code.149946/ Chỉ là file nào có code thì nhấn Delete mới có tác dụng . Còn file nào không có code thì nhấn Delete như bình thường mặc định chỉ xóa các ô đang chọn...
www.giaiphapexcel.com www.giaiphapexcel.com
$$$$@
Nhấp chuột vào đây để mở rộng...
ductdh94 đã viết:
Sáng nay thì mới thấy topic của bạn.
https://www.giaiphapexcel.com/diendan/threads/1-câu-hỏi-khá-đơn-giản-không-có-gì-cao-siêu-mà-hết-diễn-đàn-không-ai-làm-được.149982/

Câu hỏi của bạn đúng là không khó nhưng mà cái cách bạn hỏi thì người khác thật sự ko muốn giúp, mặc dù nhiều người đã có câu trả lời. File này tôi không chắc là nó đúng đâu nhưng bạn cứ kiểm tra thử đi nhé!
Nhấp chuột vào đây để mở rộng...
Chắc file bạn chạy đúng rồi. Chỉ cần cái sự kiện Workbook_Deactivate() thôi là chạy ổn.
 
Upvote 0
ductdh94 đã viết:
...Câu hỏi của bạn đúng là không khó nhưng mà cái cách bạn hỏi thì người khác thật sự ko muốn giúp, mặc dù nhiều người đã có câu trả lời. File này tôi không chắc là nó đúng đâu nhưng bạn cứ kiểm tra thử đi nhé!
Nhấp chuột vào đây để mở rộng...
Hồi nào tới giờ người ta vẫn làm vậy.
Mục đích cuối cùng của người ta là lấy kết quả chứ đâu phải học cách giao tế, bạn giải thích cái này như trò đùa con nít thôi.

Rốt cuộc thì vấn đề cũng giải quyết xong. Còn được tha hồ chê đầu này, lên giọng đầu kia người nữa.
Ngoài GPE, còn nơi đâu sẵn sàng làm mọi không công như vầy?
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

GPE-Trợ Lý
TALKSHOW 16 BẬT MÍ THỦ THUẬT GOOGLE SHEET: TỔNG HỢP DỮ LIỆU TỪ NHIỀU SHEET & FILE BĂNG IMPORTRANGE (5 người xem)
Trả lời
0
Đọc
18
GPE-Trợ Lý
GPE-Trợ Lý
queluatb
Tự động tăng số hóa đơn theo điều kiện (3 người xem)
Trả lời
0
Đọc
15
queluatb
queluatb
V
Quản lý xuất nhập vật tư trong kho (1 người xem)
Trả lời
1
Đọc
39
Hoàng Tuấn 868
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (4 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
422
Đọc
54K
pycckuu410
pycckuu410
H
Tổng hợp Công Nợ theo Công trình
Trả lời
45
Đọc
783
HangktGTN
H
phuongnam366377
VbaTools – Bộ công cụ mở rộng cho VBA trong Excel (2 người xem)
    • Thích
Trả lời
28
Đọc
696
phuongnam366377
phuongnam366377
L
File Excel nặng chưa tìm được lý do ở đâu . Mong các bác hỗ trợ ! (1 người xem)
Trả lời
6
Đọc
284
huhumalu
H
D
Lỗi khi sử dụng Excel bị dính chuột trái ( chỉ dùng Excel mới bị )
Trả lời
14
Đọc
17K
SonXD85
S
thanhss
Tự động lấy dữ liệu từ các sheet khác đưa vào sheet tổng hợp khi chọn Ngày hoặc tháng hoặc năm (1 người xem)
Trả lời
24
Đọc
580
thanhss
thanhss
D
nhờ các bác tạo giúp e một file ghi nhớ và nhắc ngày thu tiền ạ
    • Ngạc nhiên
    • Cười
Trả lời
0
Đọc
90
duongdaicb
D
B
Mình có làm đoạn code VBA trong file access mà cứ báo lỗi nhờ mọi người hướng dẫn
Trả lời
9
Đọc
287
baybley
B
L
  • Question Question
Gõ và chọn tên trong ComboBox hiển thị giá trị trong textbox
    • Cười
Trả lời
6
Đọc
226
huhumalu
H
H
Excel không lọc được toàn bộ dữ liệu
Trả lời
1
Đọc
128
yeudoi
yeudoi
U
VB tính tổng số cell trong 1 hàng có cùng màu với 1 cell so sánh ở cột khác (1 người xem)
Trả lời
6
Đọc
209
yeudoi
yeudoi
SA_DQ
Trò chơi đoán số & gợi ý của Copilot
Trả lời
0
Đọc
107
SA_DQ
SA_DQ
Tuanba1992
Lập trình Excel có thể dùng ngôn ngữ lập trình nào?
Trả lời
7
Đọc
446
Tuanba1992
Tuanba1992
L
Nhờ giúp đỡ công thức tính công từ dữ liệu trích xuất ra từ File chấm công
Trả lời
0
Đọc
112
lưu tuấn dũng
L
H
  • Đã khóa
Công Thức Tính Tổng Công Nợ Khách Hàng
Trả lời
1
Đọc
113
ptm0412
ptm0412
GPE-Trợ Lý
CHÀO MỪNG 80 NĂM QUỐC KHÁNH
    • Thích
    • Yêu thích
Trả lời
0
Đọc
180
GPE-Trợ Lý
GPE-Trợ Lý
vuthaiha90
Lọc dữ liệu không trùng và trả kết quả về 1 dòng
Trả lời
7
Đọc
352
tranhungdao12a3
T
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom