Dựa vào dữ liệu của 1 cell mà chạy lệnh tương ứng (1 người xem)

haclong_hoahai · 8/1/16

Kính chào các thầy cô và anh chị,
Tôi mới gia nhập diễn đàn và muốn học hỏi để nâng cao bản thân. Cho phép tôi được đặc câu hỏi sau: Có cách nào mình dựa vào dữ liệu của một ô (cell) nhất định để chạy một lệnh tương ứng (sub).
Ex:
Tôi có 3 subs A B C. Tôi muốn nếu mình chọn dữ liệu ở cell A1 là 1 thì sub A() sẽ chạy và nếu thay đổi dữ liệu thành 2 thì sub B() sẽ chạy etc...

Cảm ơn và xin được hướng dẫn (đã cố gắng search trước khi post new thread nhưng không tìm thấy cái mình tìm)

giaiphap · 8/1/16

Bạn cho code sau vào module

Mã:

Public Sub test1()
MsgBox "Chay sub 1"
End Sub


Public Sub test2()
MsgBox "Chay sub 2"
End Sub


Public Sub test3()
MsgBox "Chay sub 3"
End Sub

bạn cho code sau vào sheet bạn muốn thay đổi giá trị ở ô A1

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target.Value
Case 1: Call test1
Case 2: Call test2
Case 3: Call test3
End Select
End If
End Sub

Bây giờ bạn thay đổi giá trị ô A1 của Sheet thử xem kết quả.

VetMini · 8/1/16

Select Case cint(Range("A1").Value)
case 1
A
case 2
B
case ...
End Select

haclong_hoahai · 8/1/16

giaiphap đã viết:
Bạn cho code sau vào module

Mã:

Public Sub test1() MsgBox "Chay sub 1" End Sub Public Sub test2() MsgBox "Chay sub 2" End Sub Public Sub test3() MsgBox "Chay sub 3" End Sub

bạn cho code sau vào sheet bạn muốn thay đổi giá trị ở ô A1

Mã:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Select Case Target.Value Case 1: Call test1 Case 2: Call test2 Case 3: Call test3 End Select End If End Sub

Bây giờ bạn thay đổi giá trị ô A1 của Sheet thử xem kết quả.

cám ơn bạn, dữ liệu của ô A1 là dạng drop list trong đó bao gồm từ 1 đến 10 (ví dụ nhé bạn) thì mình muốn nếu 1 thì chạy lệnh A, 2 chạy lệnh B.... mình thử cách của bạn mà mình ko biết cách quy điều kiện để nếu 1 chạy A... Thông cảm vì mình tự học mò và đang ở trình độ mẫu giáo thôi... Xin cảm ơn

haclong_hoahai · 8/1/16

VetMini đã viết:
Select Case cint(Range("A1").Value)
case 1
A
case 2
B
case ...
End Select

Em kính nhờ thầy xem câu trả lời của em với bạn giaiphap và chỉ dạy giúp em...

chuot0106 · 8/1/16

VetMini đã viết:
Select Case cint(Range("A1").Value)
case 1
A
case 2
B
case ...
End Select

Đọc nhiều bài của vietmini và thấy bạn có vẻ rất "Dị ứng " với cách giao tiếp bằng tiếng Tây! Vậy mà thấy bạn trả lời bài này kể cũng lạ!

Kính chào các thầy cô và anh chị,
Tôi mới gia nhập diễn đàn và muốn học hỏi để nâng cao bản thân. Cho phép tôi được đặc câu hỏi sau: Có cách nào mình dựa vào dữ liệu của một ô (cell) nhất định để chạy một lệnh tương ứng (sub).
Ex:
Tôi có 3 subs A B C. Tôi muốn nếu mình chọn dữ liệu ở cell A1 là 1 thì sub A() sẽ chạy và nếu thay đổi dữ liệu thành 2 thì sub B() sẽ chạy etc...

Cảm ơn và xin được hướng dẫn (đã cố gắng search trước khi post new thread nhưng không tìm thấy cái mình tìm)

haclong_hoahai · 8/1/16

chuot0106 đã viết:
Đọc nhiều bài của vietmini và thấy bạn có vẻ rất "Dị ứng " với cách giao tiếp bằng tiếng Tây! Vậy mà thấy bạn trả lời bài này kể cũng lạ!

Xin lỗi bạn mình là người mới chưa biết rõ hết các quy định này. Thú thật mình làm việc ở nước ngoài nên quen. Nếu đây là quy định thì mình xin tuân theo mặc dù gõ tiếng việt có dấu khá là chậm.

VetMini · 8/1/16

chuot0106 đã viết:
Đọc nhiều bài của vietmini và thấy bạn có vẻ rất "Dị ứng " với cách giao tiếp bằng tiếng Tây! Vậy mà thấy bạn trả lời bài này kể cũng lạ!

Tuy cố chấp nhưng toi khong chủ quan - chủ quan là kẻ thù của dân chuyên nghề dữ liệu.

Mặc dù quen dùng tiếng ngoại, nhưng chủ thớt dùng toàn tiếng xã giao Việt. Nếu bạn không nhận ra những từ xã giao đó thì xin lỗi, giữa tôi và bạn có 1 người hiểu lầm từ "xã giao"

Lý do thứ hai tôi không thích tiếng ngoại là vì có những người dùng nó vào những chỗ có thể gây hiểu lầm. Những từ bạn tô đậm không phải là những từ có thể hiểu lầm.

Chú thích:
Trong chỗ này

Tôi có 3 subs A B C

chủ thớt cũng cho thấy là mình sử dụng từ ngữ cẩn thận (3 subs, số nhiều đàng hoàng). Tôi vốn không ưa những người hỏi mà cẩu thả.

jack nt · 8/1/16

VetMini đã viết:
chủ thớt cũng cho thấy là mình sử dụng từ ngữ cẩn thận (3 subs, số nhiều đàng hoàng). Tôi vốn không ưa những người hỏi mà cẩu thả.

bác Vetmini không chỉ kỹ tính mà còn tinh tường nữa. chứ như tui kể cả khi viết bằng tiếng anh vẫn thường thiếu -s (tiếng anh giả cầy mà)
khi xưa cũng chú ý lắm, thường đọc "chuyện đông chuyện tây", rồi đọc Cao Xuân Hạo nữa, giờ thì cũng phiên phiến thôi.

sông tương nước chảy trong veo
thì ta đem giặt cái lèo mũ ta
sông tương nước đục chảy ra
thì ta lội xuống để mà rửa chân.

(xin lỗi bạn nào không thích thơ tàu, khổ cái tui đọc sách tàu nhiều hơn sách ta)

haclong_hoahai · 9/1/16

VetMini đã viết:
Tuy cố chấp nhưng toi khong chủ quan - chủ quan là kẻ thù của dân chuyên nghề dữ liệu.

Mặc dù quen dùng tiếng ngoại, nhưng chủ thớt dùng toàn tiếng xã giao Việt. Nếu bạn không nhận ra những từ xã giao đó thì xin lỗi, giữa tôi và bạn có 1 người hiểu lầm từ "xã giao"

Lý do thứ hai tôi không thích tiếng ngoại là vì có những người dùng nó vào những chỗ có thể gây hiểu lầm. Những từ bạn tô đậm không phải là những từ có thể hiểu lầm.

Chú thích:
Trong chỗ này

chủ thớt cũng cho thấy là mình sử dụng từ ngữ cẩn thận (3 subs, số nhiều đàng hoàng). Tôi vốn không ưa những người hỏi mà cẩu thả.

Trước hết tôi xin cảm ơn thầy (xin phép tui gọi bằng thầy vì trình độ kiến thức cũng như đã hướng dẫn cho tôi). Sự quan sát kỹ lưỡng của thầy cho từng chữ tôi viết ra. Tôi là dân không chuyên về tin học lập trình mà thuộc về khối dự toán và kế hoạch về nhân sự nên cũng yêu cầu về tính kỹ lưỡng nhưng điều này thầy hơn tôi vì chính tôi là người viết ra chủ đề này nhưng vẫn không nhận ra được những điều thầy quan sát.

Thú thật dù tôi quen với sử dụng tiếng Anh hơn tiếng Việt (vì 17 năm làm việc ở nước ngoài và công ty chỉ có mình tôi là việt nam) nhưng chính bản thân tôi lại ghét các thể loại tiếng anh dạng "bro, tks, izi man..."). Nhưng đối với ý kiến riêng của bản thân tôi thì tôi vẫn thích sử dụng tiếng anh cho các từ ngữ chuyên dùng. Tôi thích nói "Control panel" hơn "bảng điều chỉnh" vân vân và vân vân. Không thể cho tôi khoe hay tự xưng mình giỏi tiếng anh (tiếng anh của tui cũng thuộc hàng nữa mùa do mẹ tôi dạy tôi từ nhỏ mà thôi) nhưng tôi có thể viết bài này bằng tiếng anh không hơn 2 phút và ngược lại tôi đã sữ dụng gần 10 phút để gửi bằng tiếng việt. Nhưng quy định và luật của diễn đàn thì tôi phải tuân theo thôi.

Một lần nữa tôi xin cảm ơn các thầy trên đây đã hướng dẫn và góp ý tận tình. Chủ đề này tôi đang cố gắng làm nhưng vẫn có trục trặc dựa trên sự hướng dẫn trên nhưng tôi sẽ cố gắng tự tìm cho đến khi không thể thì sẽ hỏi tiếp. Cám ơn mọi người.

giaiphap · 9/1/16

haclong_hoahai đã viết:
cám ơn bạn, dữ liệu của ô A1 là dạng drop list trong đó bao gồm từ 1 đến 10 (ví dụ nhé bạn) thì mình muốn nếu 1 thì chạy lệnh A, 2 chạy lệnh B.... mình thử cách của bạn mà mình ko biết cách quy điều kiện để nếu 1 chạy A... Thông cảm vì mình tự học mò và đang ở trình độ mẫu giáo thôi... Xin cảm ơn

Bạn cho cái file của bạn lên đi tôi sẽ giúp trên chính file của bạn luôn.

haclong_hoahai · 11/1/16

Nhờ mọi người xem giúp. Tôi đang cố gắng chuyển từ sub sang câu lệnh trực tiếp để hạn chế tạo sub nhưng khi chạy thì bị báo lỗi:

Mã:

Sub FilterbyRange()


    ActiveSheet.Unprotect 12345
    Range("T1").Select
    If Target.Address = "$T$1" Then
    Select Case Range("T1").Value
        Case ""
            Range("L2:V9").Select
            With Selection.Font
            .ThemeColor = xlThemeColorDark1
            End With
        Case "Advertising Branding & Communi"
            Range("L3:O3").Select
            With Selection.Font
            .ThemeColor = xlThemeColorLight1
            End With
        Case "Cage & Count"
            Range("L4:O4").Select
            With Selection.Font
            .ThemeColor = xlThemeColorLight1
            End With
        Case "Casino Marketing"
             Range("L5:O5").Select
            With Selection.Font
            .ThemeColor = xlThemeColorLight1
            End With
        Case "Club Management"
            Range("L6:O6").Select
            With Selection.Font
            .ThemeColor = xlThemeColorLight1
            End With
        Case "Club Operations"
            Range("L7:O7").Select
            With Selection.Font
            .ThemeColor = xlThemeColorLight1
            End With
        Case "Electronic Gaming"
            Range("L8:O8").Select
            With Selection.Font
            .ThemeColor = xlThemeColorLight1
            End With
        Case "Facilities"
            Range("L9:O9").Select
            With Selection.Font
            .ThemeColor = xlThemeColorLight1
            End With
        Case "Table Games"
            Range("V3:V4").Select
            With Selection.Font
            .ThemeColor = xlThemeColorLight1
            End With
      End Select
      End If
    Range("A8:K9").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$8:$K$209").AutoFilter Field:=4, Criteria1:=Range("T1")
    ActiveWorkbook.Worksheets("Master").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("E8:E9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Master").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    ActiveSheet.Protect 12345
    End With
End Sub

Do tôi gà mờ nên dùng record macro để hỗ trợ. Cám ơn mọi người.

giaiphap · 11/1/16

Câu này ở đâu ra vậy bạn? chổ màu đỏ ấy!

Mã:

If [COLOR=#ff0000][B]Target.Address = "$T$1"[/B][/COLOR] Then

Đã nói với bạn rồi, bạn muốn giúp vấn đề như thế nào thì phải có file mẫu, nêu yêu cầu cụ thể trong đó, chứ bạn đưa code lên đây ai biết trong file của bạn có gì mà giúp, muốn test cũng không có dữ liệu để test. Bạn nói bạn chỉ quay macro và chuyển đổi, nhìn vào code cũng đủ biết rồi, nhưng thật sự tôi không biết ý bạn là muốn gì? nếu muốn sửa cho code chạy thì rất dể còn muốn sửa cho nó đúng với mục đích của bạn thì phải có file mẫu. &&&%$R

haclong_hoahai · 11/1/16

giaiphap đã viết:
Câu này ở đâu ra vậy bạn? chổ màu đỏ ấy!

Mã:

If [COLOR=#ff0000][B]Target.Address = "$T$1"[/B][/COLOR] Then

Đã nói với bạn rồi, bạn muốn giúp vấn đề như thế nào thì phải có file mẫu, nêu yêu cầu cụ thể trong đó, chứ bạn đưa code lên đây ai biết trong file của bạn có gì mà giúp, muốn test cũng không có dữ liệu để test. Bạn nói bạn chỉ quay macro và chuyển đổi, nhìn vào code cũng đủ biết rồi, nhưng thật sự tôi không biết ý bạn là muốn gì? nếu muốn sửa cho code chạy thì rất dể còn muốn sửa cho nó đúng với mục đích của bạn thì phải có file mẫu.

Xin lỗi đừng nóng giận vì mọi chuyện đều có lý do của nó cả. Không phải tôi giấu dữ liệu hay gì (vì chả có gì để giấu) mà luật của bộ phận IT lả không cho gửi file ra khỏi công ty. Nếu muốn phải xin và phải được chấp thuận. May mắn chắc mấy ông IT hôm qua ở nhà được vợ cưng nên sáng nay xin được lẹ. File đã gửi.

Còn câu lệnh đó (màu đỏ) là mình lấy từ chỉ dẫn của bạn. Cám ơn và một ngày làm việc tốt lành và đừng nóng vì ảnh hưởng đến gan nhé bạn

VetMini · 11/1/16

Các điều kiện của bạn chủ yếu chỉ dùng giá trị chọn của drop down list và sử lý trên range khác nhau.
Để giản dị hơn, bạn có thể tạo thêm một danh sách range kế bên nguồn drop down list. Dùng hàm Appplcation.VLookup để tra ra cái range đó và set theme cho nó.

haclong_hoahai · 11/1/16

VetMini đã viết:
Các điều kiện của bạn chủ yếu chỉ dùng giá trị chọn của drop down list và sử lý trên range khác nhau.
Để giản dị hơn, bạn có thể tạo thêm một danh sách range kế bên nguồn drop down list. Dùng hàm Appplcation.VLookup để tra ra cái range đó và set theme cho nó.

Cảm ơn thầy, tôi sẽ thử áp dụng cách của thầy vì thật sự nhìn vô thấy nó rườm rà thiệt.

Để giải stress (áp lực công việc - viết vầy chắc không phạm quy) thì hình như phải là "xử lý" thì đúng hơn phải không thầy. Cho vui mong thầy không giận.

giaiphap · 11/1/16

Đúng như bác VetMini nói, thật ra thì dùng công thức tham chiếu luôn không cần phải code định dạng ô làm gì cho mệt. Chỉ sử dụng code cho phần lọc và sắp xếp là được rồi.

VetMini · 11/1/16

Diùng mẫu tự x là đúng rồi. Tại tôi kỵ huý riết rồi quen tay ;-)

haclong_hoahai · 11/1/16

Mong mọi người hướng dẫn cụ thể hơn một chút để mình có thể tham khảo và áp dụng. Mình thì chỉ đang học mẫu giáo mà thôi. Cảm ơn

giaiphap · 11/1/16

haclong_hoahai đã viết:
Mong mọi người hướng dẫn cụ thể hơn một chút để mình có thể tham khảo và áp dụng. Mình thì chỉ đang học mẫu giáo mà thôi. Cảm ơn

Trước khi giúp mình muốn xác định lại ý của bạn là như thế nào? Có phải chọn dữ liệu tại ô T1 và nháy nút kế bên sẽ lọc dữ liệu ở cột D bằng với T1 đúng không? Thứ hai là bạn tô màu chữ những ô từ L2 đến V9 mục đích để làm gì? Có phải tô màu để xem hay không? Nếu phải tại sao lại có ô thì tô có ô lại không tô? Bạn nêu mục đích cụ thể thì tôi giúp một lần thôi, nếu không chuyên mục này kéo dài hoài đấy.

haclong_hoahai · 12/1/16

giaiphap đã viết:
Trước khi giúp mình muốn xác định lại ý của bạn là như thế nào? Có phải chọn dữ liệu tại ô T1 và nháy nút kế bên sẽ lọc dữ liệu ở cột D bằng với T1 đúng không? Thứ hai là bạn tô màu chữ những ô từ L2 đến V9 mục đích để làm gì? Có phải tô màu để xem hay không? Nếu phải tại sao lại có ô thì tô có ô lại không tô? Bạn nêu mục đích cụ thể thì tôi giúp một lần thôi, nếu không chuyên mục này kéo dài hoài đấy.

Trước hết cảm ơn bạn đã nhiệt tình và xin lỗi vì sự khó hiểu đã gây ra. Tôi sẽ cố gắng giải thích cái tôi cần và tại sao một cách rõ ràng.

File này có tác dụng lưu lại những thông tin mà nhân viên gọi điện thoại vào để xin nghỉ bệnh. Mục đích để chúng tôi nắm hàng ngày có bao nhiêu người xin nghỉ bệnh? Những người đó thuộc bộ phận nào và chức vụ nào? Một file sẽ được sử dụng cho một tháng trong năm.

Bạn đã thấy các nút sau:
"New Day": tạo ra một sheet mới cho ngày hôm sau. Tôi chưa biết cách làm sau để nếu có sheet của ngày hôm sau rồi thì không cho tạo thêm
"Sum": sẽ hiển thị lên tất cả các bộ phận và đếm xem có bao nhiêu nhân viên của bộ phận đó rồi hiển thị ở vùng L2:V9. Vùng L2:V9 luôn có dữ liệu nhưng tui đã chọn màu chon font chữ là màu trắng mặc định để khi nào cần xem thì sẽ chuyển sang màu đen mà thôi.
"Hide": làm mất đi vùng L2:V9 bằng cách chuyển ngược lại font chữ thành màu trắng
"Search": tìm kiếm một nhân viên nào đó
"By dept": chọn tên bộ phận tronfg drop list rồi sau đó lọc dữ liệu để cho ra danh sách nhân viên thuộc bộ phận đó mà thôi kèm theo sort theo chức vụ. Bên cạnh đó ở vùng L2:V9 cũng chỉ sẽ hiển thị lên Sum của bộ phận đó mà thôi.

Do tôi không biết rành về VBA và tui sao chép chỉnh sửa những đoạn code lượm lặt được cho nên code nó rườm rà và không theo quy chuẩn (tôi đoán thế). Điều tôi muốn là gộp hai động tác là vừa lọc dữ liệu của bộ phận được chọn rồi hiển thị sum luôn cùng một lúc (hiện tại là 2 thao tác). Và giúp tôi xem lại các đoạn code của tôi xem có cách nào làm ngắn gọn hơn và ko như cái đám rừng như hiện tại.

Tôi rất dở cách diễn đạt nên hy vọng mọi người thông cảm và đừng bực. Chúc ngày mới vui vẻ! Cảm ơn mọi người.

giaiphap · 12/1/16

haclong_hoahai đã viết:
"New Day": tạo ra một sheet mới cho ngày hôm sau. Tôi chưa biết cách làm sau để nếu có sheet của ngày hôm sau rồi thì không cho tạo thêm
"Sum": sẽ hiển thị lên tất cả các bộ phận và đếm xem có bao nhiêu nhân viên của bộ phận đó rồi hiển thị ở vùng L2:V9. Vùng L2:V9 luôn có dữ liệu nhưng tui đã chọn màu chon font chữ là màu trắng mặc định để khi nào cần xem thì sẽ chuyển sang màu đen mà thôi.
"Hide": làm mất đi vùng L2:V9 bằng cách chuyển ngược lại font chữ thành màu trắng
"Search": tìm kiếm một nhân viên nào đó
"By dept": chọn tên bộ phận tronfg drop list rồi sau đó lọc dữ liệu để cho ra danh sách nhân viên thuộc bộ phận đó mà thôi kèm theo sort theo chức vụ. Bên cạnh đó ở vùng L2:V9 cũng chỉ sẽ hiển thị lên Sum của bộ phận đó mà thôi.

- Tên sheet sẽ được tạo ra là gì? có phải New Day luôn hay không?
- "Sum" tôi nghỉ chỉ cần 2 ô là đủ
- "Hide" là nút lệnh không cần thiết.
- "Search" có phải là chỉ tìm ở cột tên hay không? nếu phải thì theo bạn tìm như thế nào? (hiển thị hộp tìm kiếm, hay lọc ra những nhân viên có tên bạn gõ vào...)
- "By dept" là thống kê theo từng bộ phận, lọc và sắp xếp tôi nghĩ không cần phải tô mà các ô từ L2 đến V9.
Nếu đúng như những gì tôi nêu thì sẽ giúp bạn sửa lại file gốc. Còn một vấn đề cốt lõi quan trọng là bạn phải gởi lại file không đặt password (Vẫn có thể gỡ được trong vòng 3 giây, nhưng vi phạm nội qui) mới giúp được.

haclong_hoahai · 12/1/16

giaiphap đã viết:
- Tên sheet sẽ được tạo ra là gì? có phải New Day luôn hay không?
- "Sum" tôi nghỉ chỉ cần 2 ô là đủ
- "Hide" là nút lệnh không cần thiết.
- "Search" có phải là chỉ tìm ở cột tên hay không? nếu phải thì theo bạn tìm như thế nào? (hiển thị hộp tìm kiếm, hay lọc ra những nhân viên có tên bạn gõ vào...)
- "By dept" là thống kê theo từng bộ phận, lọc và sắp xếp tôi nghĩ không cần phải tô mà các ô từ L2 đến V9.
Nếu đúng như những gì tôi nêu thì sẽ giúp bạn sửa lại file gốc. Còn một vấn đề cốt lõi quan trọng là bạn phải gởi lại file không đặt password (Vẫn có thể gỡ được trong vòng 3 giây, nhưng vi phạm nội qui) mới giúp được.

Cám ơn bạn rất nhiều. Mình nhớ là mình đã gỡ pass trước khi đưa lên. Có thể là mình đã gửi lộn file nên nhận lỗi về điều này.

Phần "seacrh" mình muốn tìm kiếm dựa trên cột "EmpID" (mã số nhân viên) và nếu lọc được thì không có gì tốt hơn bằng. Còn các điều còn lại là đúng theo ý mình. Mình gửi lại file ngay và cám ơn nhiều.

giaiphap · 13/1/16

Mình thực hiện nhưng không biết đúng ý bạn không? Nếu chưa đúng phần nào thì bạn nói rõ phần đó mình giúp tiếp.
http://www.mediafire.com/view/nb3qzq19m3qcrbb/Call_in_SL_log1_-_12_Jan_-_Copy_(1).xlsm

haclong_hoahai · 13/1/16

giaiphap đã viết:
Mình thực hiện nhưng không biết đúng ý bạn không? Nếu chưa đúng phần nào thì bạn nói rõ phần đó mình giúp tiếp.
http://www.mediafire.com/view/nb3qzq19m3qcrbb/Call_in_SL_log1_-_12_Jan_-_Copy_(1).xlsm

Tuyệt vời và cám ơn bạn rất nhiều. Từ một đám rừng bạn đã tỉa gọn. Dựa trên đó cho mình hỏi 2 câu:
1. Tại sao lại có hay khi nào cần đến đoạn code dưới và nó có ý nghĩa như thế nào?

Mã:

Private Function SheetExists(sname) As Boolean
    Dim x As Object
    On Error Resume Next
    Set x = ActiveWorkbook.Sheets(sname)
    If Err = 0 Then SheetExists = True _
        Else SheetExists = False
End Function

2. Phần hiển thị tổng của từng bộ phận tương ứng trong khu "L2:V9" bạn chuyển thành "V5:V6" sao nó lại hiểu mà đếm được?

Hy vọng mấy câu hỏi ngớ ngẩn không làm phiền lòng. Cám ơn bạn.

giaiphap · 13/1/16

haclong_hoahai đã viết:
1. Tại sao lại có hay khi nào cần đến đoạn code dưới và nó có ý nghĩa như thế nào?

Mã:

Private Function SheetExists(sname) As Boolean Dim x As Object On Error Resume Next Set x = ActiveWorkbook.Sheets(sname) If Err = 0 Then SheetExists = True _ Else SheetExists = False End Function

Đây là code kiểm tra xem sheet đã có chưa? (Nếu tồn tại tên Sheet thì nó cho kết quả là True còn nếu sai cho kết quả False) Cụ thể là kiểm tra Sheets "New Day" đã tồn tại chưa?

haclong_hoahai đã viết:
2. Phần hiển thị tổng của từng bộ phận tương ứng trong khu "L2:V9" bạn chuyển thành "V5:V6" sao nó lại hiểu mà đếm được?

Dùng hàm để đếm có sẳn công thức mà bạn.

Dựa vào dữ liệu của 1 cell mà chạy lệnh tương ứng (1 người xem)

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

Thành viên mới

==(^o^)==

Đang đi tìm hòn đá

Thành viên mới

Thành viên mới

Thành viên gắn bó

Thành viên mới

Đang đi tìm hòn đá

Thành viên thường trực

Thành viên mới

==(^o^)==

Thành viên mới

==(^o^)==

Thành viên mới

File đính kèm

Đang đi tìm hòn đá

Thành viên mới

==(^o^)==

Đang đi tìm hòn đá

Thành viên mới

==(^o^)==

Thành viên mới

File đính kèm

==(^o^)==

Thành viên mới

File đính kèm

==(^o^)==

Thành viên mới

==(^o^)==

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