Tai sao Sự kiện Worksheet_Caculate không thực hiện

  • Thread starter Thread starter vba_gpe
  • Ngày gửi Ngày gửi
Liên hệ QC
vba_gpe

vba_gpe

Thành viên thường trực
Tham gia
15/12/10
Bài viết
296
Được thích
44
Nghề nghiệp
Thất nghiệp
Thân Gửi GPE
Mình đặt sự kiện trong
PHP: 
Private Sub Worksheet_Caculate()
    Application.Calculation = xlCalculationAutomatic
    Rows("41:41").EntireRow.Hidden = True
    If Cells(41, 4).Value > "0" Then
            Columns("J:K").EntireColumn.Hidden = False
        Else
            Columns("J:K").EntireColumn.Hidden = True
    End If
    If Cells(41, 5).Value > "0" Then
            Columns("L:M").EntireColumn.Hidden = False
        Else
            Columns("L:M").EntireColumn.Hidden = True
    End If
    If Cells(41, 6).Value > "0" Then
            Columns("N:O").EntireColumn.Hidden = False
        Else
            Columns("N:O").EntireColumn.Hidden = True
    End If
    If Cells(41, 7).Value > "0" Then
            Columns("P:Q").EntireColumn.Hidden = False
        Else
            Columns("P:Q").EntireColumn.Hidden = True
    End If
    If Cells(41, 8).Value > "0" Then
            Columns("R:S").EntireColumn.Hidden = False
        Else
            Columns("R:S").EntireColumn.Hidden = True
    End If
    If Cells(41, 9) > "0" Then
            Columns("T:U").EntireColumn.Hidden = False
        Else
            Columns("T:U").EntireColumn.Hidden = True
    End If
End Sub
Không hiểu tại sao Excel không thực hiện đúng (Nghĩa là: Các ô từ D41, E41,...,I41 đảm bảo >0 nhưng không thực hiện lệnh Unhide các cột như yêu cầu (J:K -> T:U)). Lúc trên office 2010, em thử vẫn bình thường. Chuyển qua 2007 không thực hiện được. Khi vao VB Editor. Ấn F5 để run thì nó mới thực hiện. Em nghĩ cái này nó tự động mà pk?
Thân. Em có gửi đính kèm file. Nhờ AC giúp đỡ.
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
vba_gpe đã viết:
Thân Gửi GPE
Mình đặt sự kiện trong
PHP: 
Private Sub Worksheet_Caculate()
    Application.Calculation = xlCalculationAutomatic
    Rows("41:41").EntireRow.Hidden = True
    If Cells(41, 4).Value > "0" Then
            Columns("J:K").EntireColumn.Hidden = False
        Else
            Columns("J:K").EntireColumn.Hidden = True
    End If
    If Cells(41, 5).Value > "0" Then
            Columns("L:M").EntireColumn.Hidden = False
        Else
            Columns("L:M").EntireColumn.Hidden = True
    End If
    If Cells(41, 6).Value > "0" Then
            Columns("N:O").EntireColumn.Hidden = False
        Else
            Columns("N:O").EntireColumn.Hidden = True
    End If
    If Cells(41, 7).Value > "0" Then
            Columns("P:Q").EntireColumn.Hidden = False
        Else
            Columns("P:Q").EntireColumn.Hidden = True
    End If
    If Cells(41, 8).Value > "0" Then
            Columns("R:S").EntireColumn.Hidden = False
        Else
            Columns("R:S").EntireColumn.Hidden = True
    End If
    If Cells(41, 9) > "0" Then
            Columns("T:U").EntireColumn.Hidden = False
        Else
            Columns("T:U").EntireColumn.Hidden = True
    End If
End Sub
Không hiểu tại sao Excel không thực hiện đúng (Nghĩa là: Các ô từ D41, E41,...,I41 đảm bảo >0 nhưng không thực hiện lệnh Unhide các cột như yêu cầu (J:K -> T:U)). Lúc trên office 2010, em thử vẫn bình thường. Chuyển qua 2007 không thực hiện được. Khi vao VB Editor. Ấn F5 để run thì nó mới thực hiện. Em nghĩ cái này nó tự động mà pk?
Thân. Em có gửi đính kèm file. Nhờ AC giúp đỡ.
Nhấp chuột vào đây để mở rộng...
Tôi thấy trong file bạn dùng sự kiện Worksheet_Activate thì làm sao mà nó chạy được. Sửa lại là được thôi.
 
Upvote 0
vba_gpe đã viết:
Thân Gửi GPE
Mình đặt sự kiện trong
PHP: 
Private Sub Worksheet_Caculate()
    Application.Calculation = xlCalculationAutomatic
    Rows("41:41").EntireRow.Hidden = True
    If Cells(41, 4).Value > "0" Then
            Columns("J:K").EntireColumn.Hidden = False
        Else
            Columns("J:K").EntireColumn.Hidden = True
    End If
    If Cells(41, 5).Value > "0" Then
            Columns("L:M").EntireColumn.Hidden = False
        Else
            Columns("L:M").EntireColumn.Hidden = True
    End If
    If Cells(41, 6).Value > "0" Then
            Columns("N:O").EntireColumn.Hidden = False
        Else
            Columns("N:O").EntireColumn.Hidden = True
    End If
    If Cells(41, 7).Value > "0" Then
            Columns("P:Q").EntireColumn.Hidden = False
        Else
            Columns("P:Q").EntireColumn.Hidden = True
    End If
    If Cells(41, 8).Value > "0" Then
            Columns("R:S").EntireColumn.Hidden = False
        Else
            Columns("R:S").EntireColumn.Hidden = True
    End If
    If Cells(41, 9) > "0" Then
            Columns("T:U").EntireColumn.Hidden = False
        Else
            Columns("T:U").EntireColumn.Hidden = True
    End If
End Sub
Không hiểu tại sao Excel không thực hiện đúng (Nghĩa là: Các ô từ D41, E41,...,I41 đảm bảo >0 nhưng không thực hiện lệnh Unhide các cột như yêu cầu (J:K -> T:U)). Lúc trên office 2010, em thử vẫn bình thường. Chuyển qua 2007 không thực hiện được. Khi vao VB Editor. Ấn F5 để run thì nó mới thực hiện. Em nghĩ cái này nó tự động mà pk?
Thân. Em có gửi đính kèm file. Nhờ AC giúp đỡ.
Nhấp chuột vào đây để mở rộng...
Sao mà so sánh như vậy được. Ví dụ :
Cells(41, 9) > "0" phải là Cells(41, 9) > 0

Mặt khác
PHP: 
    If Cells(41, 4).Value > "0" Then
            Columns("J:K").EntireColumn.Hidden = False
        Else
            Columns("J:K").EntireColumn.Hidden = True
    End If
Sao không viết thế này
PHP: 
Columns("J:K").EntireColumn.Hidden=not Cells(41, 4) > 0
TDN
 
Upvote 0
vba_gpe đã viết:
Thân Gửi GPE
Mình đặt sự kiện trong
PHP: 
Private Sub Worksheet_Caculate()
    Application.Calculation = xlCalculationAutomatic
    Rows("41:41").EntireRow.Hidden = True
    If Cells(41, 4).Value > "0" Then
            Columns("J:K").EntireColumn.Hidden = False
        Else
            Columns("J:K").EntireColumn.Hidden = True
    End If
    If Cells(41, 5).Value > "0" Then
            Columns("L:M").EntireColumn.Hidden = False
        Else
            Columns("L:M").EntireColumn.Hidden = True
    End If
    If Cells(41, 6).Value > "0" Then
            Columns("N:O").EntireColumn.Hidden = False
        Else
            Columns("N:O").EntireColumn.Hidden = True
    End If
    If Cells(41, 7).Value > "0" Then
            Columns("P:Q").EntireColumn.Hidden = False
        Else
            Columns("P:Q").EntireColumn.Hidden = True
    End If
    If Cells(41, 8).Value > "0" Then
            Columns("R:S").EntireColumn.Hidden = False
        Else
            Columns("R:S").EntireColumn.Hidden = True
    End If
    If Cells(41, 9) > "0" Then
            Columns("T:U").EntireColumn.Hidden = False
        Else
            Columns("T:U").EntireColumn.Hidden = True
    End If
End Sub
Không hiểu tại sao Excel không thực hiện đúng (Nghĩa là: Các ô từ D41, E41,...,I41 đảm bảo >0 nhưng không thực hiện lệnh Unhide các cột như yêu cầu (J:K -> T:U)). Lúc trên office 2010, em thử vẫn bình thường. Chuyển qua 2007 không thực hiện được. Khi vao VB Editor. Ấn F5 để run thì nó mới thực hiện. Em nghĩ cái này nó tự động mà pk?
Thân. Em có gửi đính kèm file. Nhờ AC giúp đỡ.
Nhấp chuột vào đây để mở rộng...
Không nói đến việc viết sai cú pháp, chỉ nói đến việc suy luận logic thì cách viết thế này tôi cho là.. dở (xin lỗi nếu bạn phật lòng)
Tất cả những sự việc diễn ra có chu kỳ thì ta nên "kết nối" chúng lại bằng "1 sợi dây" nào đó... Cụ thể bài này là VÒNG LẬP
Code của bạn tôi sửa thành vầy:
PHP: 
Private Sub Worksheet_Calculate()
  Dim i As Long
  For i = 4 To 9
    Cells(1, (i + 1) * 2).Resize(, 2).EntireColumn.Hidden = (Cells(41, i).Value <= 0)
  Next
End Sub
 
Upvote 0
ndu96081631 đã viết:
Không nói đến việc viết sai cú pháp, chỉ nói đến việc suy luận logic thì cách viết thế này tôi cho là.. dở (xin lỗi nếu bạn phật lòng)
Tất cả những sự việc diễn ra có chu kỳ thì ta nên "kết nối" chúng lại bằng "1 sợi dây" nào đó... Cụ thể bài này là VÒNG LẬP
Code của bạn tôi sửa thành vầy:
PHP: 
Private Sub Worksheet_Calculate()
  Dim i As Long
  For i = 4 To 9
    Cells(1, (i + 1) * 2).Resize(, 2).EntireColumn.Hidden = (Cells(41, i).Value <= 0)
  Next
End Sub
Nhấp chuột vào đây để mở rộng...

tedaynui đã viết:
Mặt khác PHP Code:
PHP: 
      If Cells(41, 4).Value > "0" Then
            Columns("J:K").EntireColumn.Hidden = False
        Else
            Columns("J:K").EntireColumn.Hidden = True
    End If
Sao không viết thế này
PHP Code:
PHP: 
      Columns("J:K").EntireColumn.Hidden=not Cells(41, 4) > 0
Nhấp chuột vào đây để mở rộng...
Thật lòng cảm ơn anh NDU và anh Tedaynui. Vì em chỉ mới biết VB. Viết code chủ yếu dựa vào Record Macro để tìm hiểu thêm chứ cũng hổng có được kiến thức căn bản VB nữa. Mong nhận được sự chỉ giáo của GPE.

Hihi. Phải có sai rồi mới biết được đúng phải không ạ

Trân trọng.
 
Lần chỉnh sửa cuối:
Upvote 0
vba_gpe đã viết:
Thật lòng cảm ơn anh NDU và anh Tedaynui. Vì em chỉ mới biết VB. Viết code chủ yếu dựa vào Record Macro để tìm hiểu thêm chứ cũng hổng có được kiến thức căn bản VB nữa. Mong nhận được sự chỉ giáo của GPE.

Hihi. Phải có sai rồi mới biết được đúng phải không ạ

Trân trọng.
Nhấp chuột vào đây để mở rộng...
Bạn nói vậy là sai hoàn toàn (tôi cũng có căn bản gì đâu)
Thuật toán là do suy luận của mỗi người, mà cái THUẬT TOÁN này thì hoàn toàn hổng có liên quan gì đến kiến thức cả
Thuật toán có được từ trí thông minh còn kiến thức chỉ là công cụ hổ trợ, bạn nhớ cho điều này
Trí thông minh cũng có thể rèn luyện qua từng ngày, chỉ cần bạn chịu khó ngay từ những việc nhỏ nhất... Đừng quá ỷ lại vào mọi người
(Tôi cũng thuộc dạng NGU nên vẫn phải cố gắng mỗi ngày)
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

bachloc1212
Đưa Text từ các dòng khác nhau về chung 1 dòng
Trả lời
3
Đọc
40
hocexcel_1991
H
Ha Manh-LD
  • Question Question
Lấy dữ liệu từ file csv
Trả lời
0
Đọc
21
Ha Manh-LD
Ha Manh-LD
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
13
Đọc
329
LuuAnh980
LuuAnh980
HeSanbi
  • Đã giải quyết
VBA Nâng cao: Hướng dẫn tạo biểu thức tìm kiếm với Regular Expression
    • Thích
    • Yêu thích
Trả lời
9
Đọc
721
HeSanbi
HeSanbi
N
Sửa lỗi code vba khi chạy cho ra kết quả không đúng
Trả lời
3
Đọc
50
nvthanhdienbien
N
Tienvinh191
  • Question Question
Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp
2
Trả lời
28
Đọc
2K
quyenpv
quyenpv
F
Hiển thị text trong Gantt chart (Google sheets)
Trả lời
0
Đọc
26
FATA11
F
Maika8008
  • Đã giải quyết
[Chia sẻ] Dùng VBA trộn dữ liệu Excel sang file Word mẫu (tương tự chức năng Mail Merge)
    • Thích
    • Yêu thích
    • Cảm ơn
25 26 27
Trả lời
522
Đọc
50K
Manhhung90
Manhhung90
C
Trách nhiệm pháp lý của chi nhánh doanh nghiệp Việt Nam tại nước ngoài với Công ty tại Việt Nam
Trả lời
5
Đọc
191
VetMini
V
C
  • Question Question
import data từ excel lên google sheet
Trả lời
5
Đọc
587
SonBDND
S
T
Nhờ hỗ trợ hàm SUMIF không phân biệt được các ký tự "0" trước một số trong chuỗi
Trả lời
1
Đọc
58
hoangtuaotrang_hp_vn
H
ptm0412
Chúc mừng năm mới Ất Tỵ 2025
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
1
Đọc
102
ptm0412
ptm0412
T
Bảng tính trợ cấp tinh giản biên chế theo NĐ 108
    • Thích
Trả lời
2
Đọc
928
thopd
T
mucongnghenhat
lỗi đoạn văn bản bị đóng khung
Trả lời
2
Đọc
109
VetMini
V
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
307
Đọc
22K
kunkoi9390
K
GPE-Trợ Lý
[GPE] TALK SHOW HÀM QUERY - BÍ KÍP BIẾN DỮ LIỆU KHỔNG LỒ THÀNH THÔNG TIN HỮU ÍCH TRONG TÍCH TẮC
    • Thích
    • Yêu thích
Trả lời
6
Đọc
2K
tranhungdao12a3
T
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
2 3
Trả lời
45
Đọc
14K
ngocthu90
ngocthu90
Uyên dương Hoya
Lỗi định dạng font chữ trong excel
Trả lời
3
Đọc
135
ptm0412
ptm0412
T
  • Question Question
Xin code VBA trả về tên tài khoản theo điều kiện
    • Chấp nhận
Trả lời
12
Đọc
459
VetMini
V
ntnguyentam1907
Lấy bảng dữ liệu chứng khoán về excel
2
Trả lời
22
Đọc
3K
nguyendang95
N
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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom