Hỏi về code chạy theo điều kiện! (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)
vova2209

vova2209

Thành viên tích cực
Tham gia
5/4/17
Bài viết
835
Được thích
112
Giới tính
Nam
Nghề nghiệp
Đường bộ
Chào anh chị!
Em muốn chạy code, khi đang active ở sheet21 và cột S thì mới chạy, nếu ở sheets khác thì sẽ thông báo lỗi. phải sửa code như nào em xin cảm ơn
Mã: 
Sub ActiveCell_KL()
    MsgBox "Chèn KL vào côt S Sheet(VoVa)" & vbLf & _
            "Sum_Range: Thay côt Y:Y = côt KL cân` Nghiêm Thu Sheet(KL)"
    ActiveCell.Formula = "=SUMIFS(KL!C[6],KL!C1,"">=""&OFFSET(R1C19,ROW()-1,-7,1,1),KL!C1,""<=""&OFFSET(R1C19,ROW()-1,-6,1,1))"
End Sub
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
vova2209 đã viết:
Chào anh chị!
Em muốn chạy code, khi đang active ở sheet21 và cột S thì mới chạy, nếu ở sheets khác thì sẽ thông báo lỗi. phải sửa code như nào em xin cảm ơn
Mã: 
Sub ActiveCell_KL()
    MsgBox "Chèn KL vào côt S Sheet(VoVa)" & vbLf & _
            "Sum_Range: Thay côt Y:Y = côt KL cân` Nghiêm Thu Sheet(KL)"
    ActiveCell.Formula = "=SUMIFS(KL!C[6],KL!C1,"">=""&OFFSET(R1C19,ROW()-1,-7,1,1),KL!C1,""<=""&OFFSET(R1C19,ROW()-1,-6,1,1))"
End Sub
Nhấp chuột vào đây để mở rộng...
Bạn gửi file anh chị sẽ hỗ trợ nhanh hơn
 
Upvote 0
vova2209 đã viết:
Thiếu 1 điệu kiện nữa là phải đang ativate ở sheet21
Bạn xem dùm lại với!
Nhấp chuột vào đây để mở rộng...
Thử cái này xem:
PHP: 
Public Sub GPE()
If ActiveSheet.Name = "VoVa" Then
    If ActiveCell.Column = 19 Then
        '..........................'
    End If
End If
End Sub
 
Upvote 0
vova2209 đã viết:
Thiếu 1 điệu kiện nữa là phải đang ativate ở sheet21
Bạn xem dùm lại với!
Nhấp chuột vào đây để mở rộng...
Bạn thay code của anh Ba Tê như vậy là được

Mã: 
Public Sub ActiveCell_KL()
If ActiveSheet.Name = "VoVa" Then
    If ActiveCell.Column = 19 Then
        MsgBox "Chèn KL vào côt S Sheet(VoVa)" & vbLf & _
               "Sum_Range: Thay côt Y:Y = côt KL cân` Nghiêm Thu Sheet(KL)"
        ActiveCell.Formula = "=SUMIFS(KL!C[6],KL!C1,"">=""&OFFSET(R1C19,ROW()-1,-7,1,1),KL!C1,""<=""&OFFSET(R1C19,ROW()-1,-6,1,1))"
    Else
        MsgBox "Ban phai chon o* Sheet(VoVa) côt S", vbCritical, "Chèn KL Thiêt' Kê'"
    End If
End If
End Sub
 
Upvote 0
Ba Tê đã viết:
Thử cái này xem:
PHP: 
Public Sub GPE()
If ActiveSheet.Name = "VoVa" Then
    If ActiveCell.Column = 19 Then
        '..........................'
    End If
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Mã: 
Sub ActiveCell_KL()
    If ActiveSheet.Name = "VoVa" Then
    If ActiveCell.Column = 19 Then
        MsgBox "Chèn KL vào côt S Sheet(VoVa)" & vbLf & _
               "Sum_Range: Thay côt Y:Y = côt KL cân` Nghiêm Thu Sheet(KL)"
        ActiveCell.Formula = "=SUMIFS(KL!C[6],KL!C1,"">=""&OFFSET(R1C19,ROW()-1,-7,1,1),KL!C1,""<=""&OFFSET(R1C19,ROW()-1,-6,1,1))"
    Else
        MsgBox "Ban phai chon o* Sheet(VoVa) côt S", vbCritical, "Chèn KL Thiêt' Kê'"
    End If
  End If
End Sub
- 2 Điều kiện phải lồng thêm else như nào để nếu đúng điều kiện sẽ thông báo "
MsgBox "Ban phai chon o* Sheet(VoVa) côt S", vbCritical, "Chèn KL Thiêt' Kê'"
" anh nhỉ hay phải làm 2 cái msgbox
- Code này ActiveSheet.Name = "VoVa" muốn đổi thành codeName ActiveSheet.Name = Sheets21 sửa như nào ạ, vì có thể khi mình sửa tên sheets code sẽ không anh hưởng gì
 
Lần chỉnh sửa cuối:
Upvote 0
vova2209 đã viết:
Mã: 
Sub ActiveCell_KL()
    If ActiveSheet.Name = "VoVa" Then
    If ActiveCell.Column = 19 Then
        MsgBox "Chèn KL vào côt S Sheet(VoVa)" & vbLf & _
               "Sum_Range: Thay côt Y:Y = côt KL cân` Nghiêm Thu Sheet(KL)"
        ActiveCell.Formula = "=SUMIFS(KL!C[6],KL!C1,"">=""&OFFSET(R1C19,ROW()-1,-7,1,1),KL!C1,""<=""&OFFSET(R1C19,ROW()-1,-6,1,1))"
    Else
        MsgBox "Ban phai chon o* Sheet(VoVa) côt S", vbCritical, "Chèn KL Thiêt' Kê'"
    End If
  End If
End Sub
- 2 Điều kiện phải lồng thêm else như nào để nếu đúng điều kiện sẽ thông báo "
MsgBox "Ban phai chon o* Sheet(VoVa) côt S", vbCritical, "Chèn KL Thiêt' Kê'"
" anh nhỉ hay phải làm 2 cái msgbox
- Code này ActiveSheet.Name = "VoVa" muốn đổi thành codeName ActiveSheet.Name = Sheets21 sửa như nào ạ, vì có thể khi mình sửa tên sheets code sẽ không anh hưởng gì
Nhấp chuột vào đây để mở rộng...
Bạn cứ thử ActiveSheet.CodeName = "Sheet21" Then
 
Upvote 0
LamNA đã viết:
Bạn cứ thử ActiveSheet.CodeName = "Sheet21" Then
Nhấp chuột vào đây để mở rộng...
Nếu không đúng điều kiện "sheet21" code end if luôn làm sao để cho nó chạy đến else thông báo 1 cái rồi mới quít nhỉ bạn
If ActiveSheet.CodeName = "Sheet21" Then

Mã: 
Sub ActiveCell_KL()
If ActiveSheet.CodeName = "Sheet21" Then
    If ActiveCell.Column = 19 Then
        MsgBox "Chèn KL vào côt S Sheet(VoVa)" & vbLf & _
               "Sum_Range: Thay côt Y:Y = côt KL cân` Nghiêm Thu Sheet(KL)"
        ActiveCell.Formula = "=SUMIFS(KL!C[6],KL!C1,"">=""&OFFSET(R1C19,ROW()-1,-7,1,1),KL!C1,""<=""&OFFSET(R1C19,ROW()-1,-6,1,1))"
    Else
        MsgBox "Ban phai chon o* Sheet(VoVa) côt S", vbCritical, "Chèn KL Thiêt' Kê'"
    End If
End If
End Sub
 
Upvote 0
vova2209 đã viết:
Nếu không đúng điều kiện "sheet21" code end if luôn làm sao để cho nó chạy đến else thông báo 1 cái rồi mới quít nhỉ bạn
If ActiveSheet.CodeName = "Sheet21" Then

Mã: 
Sub ActiveCell_KL()
If ActiveSheet.CodeName = "Sheet21" Then
    If ActiveCell.Column = 19 Then
        MsgBox "Chèn KL vào côt S Sheet(VoVa)" & vbLf & _
               "Sum_Range: Thay côt Y:Y = côt KL cân` Nghiêm Thu Sheet(KL)"
        ActiveCell.Formula = "=SUMIFS(KL!C[6],KL!C1,"">=""&OFFSET(R1C19,ROW()-1,-7,1,1),KL!C1,""<=""&OFFSET(R1C19,ROW()-1,-6,1,1))"
    Else
        MsgBox "Ban phai chon o* Sheet(VoVa) côt S", vbCritical, "Chèn KL Thiêt' Kê'"
    End If
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Mình chưa hiểu ý cho lắm
ý bạn muốn thông báo code này nếu không thỏa mãn điều kiện hay gì ?
Mã: 
MsgBox "Ban phai chon o* Sheet(VoVa) côt S", vbCritical, "Chèn KL Thiêt' Kê'"
 
Upvote 0
LamNA đã viết:
Mình chưa hiểu ý cho lắm
ý bạn muốn thông báo code này nếu không thỏa mãn điều kiện hay gì ?
Mã: 
MsgBox "Ban phai chon o* Sheet(VoVa) côt S", vbCritical, "Chèn KL Thiêt' Kê'"
Nhấp chuột vào đây để mở rộng...
Mã: 
Sub ActiveCell_KL()
If ActiveSheet.CodeName = "Sheet21" Then
    If ActiveCell.Column = 19 Then
        MsgBox "Chèn KL vào côt S Sheet(VoVa)" & vbLf & _
               "Sum_Range: Thay côt Y:Y = côt KL cân` Nghiêm Thu Sheet(KL)"
        ActiveCell.Formula = "=SUMIFS(KL!C[6],KL!C1,"">=""&OFFSET(R1C19,ROW()-1,-7,1,1),KL!C1,""<=""&OFFSET(R1C19,ROW()-1,-6,1,1))"
    Else
        MsgBox "Ban phai chon o* Sheet(VoVa) côt S", vbCritical, "Chèn KL Thiêt' Kê'"
    End If
End If
End Sub
Đoạn code trên nếu không đứng ở sheet21 thì code End sub không không về else để chạy Msg bạn à
 
Upvote 0
vova2209 đã viết:
Mã: 
Sub ActiveCell_KL()
If ActiveSheet.CodeName = "Sheet21" Then
    If ActiveCell.Column = 19 Then
        MsgBox "Chèn KL vào côt S Sheet(VoVa)" & vbLf & _
               "Sum_Range: Thay côt Y:Y = côt KL cân` Nghiêm Thu Sheet(KL)"
        ActiveCell.Formula = "=SUMIFS(KL!C[6],KL!C1,"">=""&OFFSET(R1C19,ROW()-1,-7,1,1),KL!C1,""<=""&OFFSET(R1C19,ROW()-1,-6,1,1))"
    Else
        MsgBox "Ban phai chon o* Sheet(VoVa) côt S", vbCritical, "Chèn KL Thiêt' Kê'"
    End If
End If
End Sub
Đoạn code trên nếu không đứng ở sheet21 thì code End sub không không về else để chạy Msg bạn à
Nhấp chuột vào đây để mở rộng...
Theo suy đoán của mình là bạn đang dùng code này để gán vào button trên ribbon đúng không?
 
Upvote 0
befaint đã viết:
Mã: 
If ... Then
   If ... Then
   '...
   Else
  msgbox "Chọn cột S"
  End if
Else
  msgbox "Chọn Sheet Vô Va"
End If
Nhấp chuột vào đây để mở rộng...
Chuẩn rồi! em cảm ơn anh nhiều!
Bài đã được tự động gộp:

LamNA đã viết:
Theo suy đoán của mình là bạn đang dùng code này để gán vào button trên ribbon đúng không?
Nhấp chuột vào đây để mở rộng...
Vâng đúng rồi! mình gán vào ribbon dùng cho trực quan! cảm ơn bạn nhiều nhé! ok rồ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

PhanTuHuong
Hà Nội hẹn hò gặp gỡ đầu năm 2025 thôi :) (3 người xem)
    • Thích
Trả lời
1
Đọc
59
OverAC
OverAC
Đỗ Tú Anh
♪♫♪ ~ Thư Giãn Với Âm Nhạc ~ ♫♪♫
    • Thích
21 22 23
Trả lời
447
Đọc
11K
Đỗ Tú Anh
Đỗ Tú Anh
S
  • Question Question
Nhờ Mọi người giúp đỡ gộp nhiều dòng thành 1 dòng nhiều cột trong Power Query.
Trả lời
3
Đọc
118
DeTong
D
dangvandang
  • Question Question
Chia sẻ tích hợp trí tuệ nhân tạo (AI) vào excel (2 người xem)
    • Thích
Trả lời
8
Đọc
2K
dangvandang
dangvandang
ankhanh2k2
sắp xếp dữ liệu chấm công
    • Buồn
Trả lời
4
Đọc
88
DeTong
D
HeSanbi
  • Question Question
Công cụ tạo và chỉnh sửa Ribbon ngay trên Excel (Bản Việt hóa) (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
10
Đọc
6K
HeSanbi
HeSanbi
N
  • Question Question
Xin code link dữ liệu VBA ạ !
Trả lời
1
Đọc
71
BuiQuangThuan
B
T
Bảng tính trợ cấp theo Nghị định 178 và tính lương hưu (3 người xem)
    • Thích
Trả lời
7
Đọc
403
trung_bhxh
T
toanthinh
Công thức tính tuổi âm lịch (2 người xem)
Trả lời
3
Đọc
95
toanthinh
toanthinh
S
Cần hỗ trợ xử lý hiện ngày sản phẩm bằng VBA
Trả lời
0
Đọc
51
sonminhtran
S
nghiahandsome1995
  • Question Question
in đậm chuỗi văn bản bằng excel
Trả lời
7
Đọc
156
HeSanbi
HeSanbi
GPE-Trợ Lý
[GPE] TALK SHOW EXCEL TRONG SẢN XUẤT
    • Thích
Trả lời
2
Đọc
763
GPE-Trợ Lý
GPE-Trợ Lý
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024) (1 người xem)
    • Thích
2 3
Trả lời
40
Đọc
3K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
T
  • Question Question
Mong mọi người giúp đỡ em trường hợp này với ạ. (2 người xem)
Trả lời
1
Đọc
115
thanhduybg92
T
T
Bảng tính trợ cấp theo Nghị định 178 và tính lương hưu
    • Thích
Trả lời
1
Đọc
68
vn72259
V
giaiphap
Add-Ins cho Excel 2007 -2016 32bit và 64bit
    • Thích
    • Yêu thích
    • Ngạc nhiên
24 25 26
Trả lời
512
Đọc
192K
vn72259
V
HeSanbi
  • Đã giải quyết
ZaloExcel v2.94: Gửi tin nhắn, hình ảnh, bảng, biểu đồ, tập tin, tạo nhóm, thu thập tin nhắn (1 người xem)
    • Thích
    • Cảm ơn
    • Yêu thích
2 3
Trả lời
56
Đọc
15K
HeSanbi
HeSanbi
quyenpv
Hỗ trợ công thức dò tìn Index, Match trong bảng dò tìm kết quả (1 người xem)
Trả lời
5
Đọc
110
quyenpv
quyenpv
H
In các trang theo điều kiện
Trả lời
3
Đọc
68
HUONGHCKT
H
L
Viết phần mềm đánh lô bằng Visual Basic (1 người xem)
    • Thích
2 3 4
Trả lời
66
Đọc
104K
VetMini
V
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
TALK SHOW EXCEL TRONG SẢN XUẤT
Back
Top Bottom