Nhờ giúp đỡ để hoàn thiện file quản lý số liệu hệ thống viễn thông (1 người xem)

Liên hệ QC

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

pinklove

Thành viên thường trực
Tham gia
21/1/08
Bài viết
336
Được thích
42
Trước hết, mình xin cảm ơn tất cả anh em trong GPE đã giúp đỡ mình từ khi hình thành cái ý tưởng này. Từ khởi đầu là các công thức để tính toán thì bây giờ đã gọn nhẹ nhờ code VBA. Mình là người mù tịt về VBA, cũng lớn tuổi rồi nên khả năng học tập nó kém lắm, nay mới nhận công tác mới, vì yêu cầu của công việc thường xuyên sử dụng file này nên nhờ mọi người giúp đỡ để công việc thuận lợi hơn.

Mình xin nêu những ý tưởng của mình trong bài này nhờ mọi người giúp đỡ từng bước một để file được hoàn thiện. Mình xin chỉ nêu các vấn đề trong một topic để tránh loãng diễn đàn.

1. Vấn đề đầu tiên mình muốn giải quyết là mình hay dùng auto Filter ở cột "Trạng Thái" nhưng đôi lúc quên chọn all trở lại nên khi dùng "Find and replace" để tìm số liệu đã bị ẩn đi đó thì không tìm được. Nhờ mọi người giúp hộ đoạn code làm sao quy định trong một khoảng thời gian nhất định thì toàn bộ các cột được Filter trở về trạng thái chọn all. (Đã được giải quyết ở đây, cảm ơn bạn giola đã giúp đỡ)

2. Nhờ giúp đỡ tự động thêm dòng ở sheet "báo cáo chung" khi tạo sheet mới với yêu cầu cụ thể ở đây.

Rất mong được đỡ.
 

File đính kèm

Lần chỉnh sửa cuối:
Vấn đề đầu tiên mình muốn giải quyết là mình hay dùng auto Filter ở cột "Trạng Thái" nhưng đôi lúc quên chọn all trở lại nên khi dùng "Find and replace" để tìm số liệu đã bị ẩn đi đó thì không tìm được. Nhờ mọi người giúp hộ đoạn code làm sao quy định trong một khoảng thời gian nhất định thì toàn bộ các cột được Filter trở về trạng thái chọn all.
Rất mong được đỡ.

Ý tưởng xem qua tưởng là hay, nhưng lại thành dở, vì để làm thế cứ sau bao nhiêu giây (ví dụ 120s) code đó lại phải chạy, như thế nó sẽ phải thường trú- khiến excel khi đó sẽ chắc sẽ bị nặng 1 phần,

Nếu bạn vẫn muốn thế thì tham khảo ở đây,
http://stackoverflow.com/questions/...ode-every-set-number-of-seconds-i-e-120-secon

bạn thử sức xem sao, nếu khó khăn thì hỏi típ

Tuy nhiên có lẽ không nên sử dụng giải pháp như thế, tại sao bạn lại bấm Ctr+F làm gì???
 
Lần chỉnh sửa cuối:
Upvote 0
Tuy nhiên có lẽ không nên sử dụng giải pháp như thế, tại sao bạn lại bấm Ctr+F làm gì???
Mình sử dụng Ctrl+F để tìm số thuê bao. Vì mỗi sheet là số liệu của một trạm, mà mình không thể biết được số thuê bao mình muốn tìm nằm ở trạm nào. (File đầy đủ của mình có đến khoảng 70 sheet) và vẫn còn có thể phát triển thêm (nếu lắp thêm trạm). Khi sử dụng Ctrl+F thì dù đang ở bất kỳ sheet nào mình vẫn có thể tìm được đến số thuê bao mình cần tìm để xem số cổng, trạng thái nó thế nào.
Còn mình dùng filter là để thống kê những cổng nào có trạng thái mình cần cho nhanh, ví dụ muốn tìm một cổng tốt "T" trong 1 trạm để lắp đặt thuê bao mới thì chỉ cần filter là xong. Nhưng nhiều lúc filter xong rồi quên chọn all trở lại thì muốn dùng ctrl+F bó tay. lại phải đi mò xem cái nào quên. Khổ thế đó bạn.
Nếu bạn có giải pháp khác tốt hơn, mong bạn giúp đỡ cho mình.
 
Upvote 0
insert module rồi paste code sau
PHP:
Sub TIMKIEM()
    If ActiveSheet.AutoFilterMode Then
        If ActiveSheet.FilterMode Then
            ActiveSheet.ShowAllData
        End If
    ElseIf ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    End If
    Application.Dialogs(xlDialogFormulaReplace).Show
End Sub

Đặt phím tắt cho macro SUB timkiem trên là

Ctr+r (chẳng hạn, có thể cái khác, như ^f cho trùng luôn với phím chuẩn excel - khi đó chú ý ^f chuẩn của excel mất tác dụng)

thế là từ nay bấm ctrl+r là được như bạn mong muốn, hiện ALL của các loại filter và xuất hiện hộp thoại tìm kiếm
 
Lần chỉnh sửa cuối:
Upvote 0
insert module rồi paste code sau
PHP:
Sub TIMKIEM()
    If ActiveSheet.AutoFilterMode Then
        If ActiveSheet.FilterMode Then
            ActiveSheet.ShowAllData
        End If
    ElseIf ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    End If
    Application.Dialogs(xlDialogFormulaReplace).Show
End Sub

Đặt phím tắt cho macro SUB timkiem trên là

Ctr+r (chẳng hạn, có thể cái khác, như ^f cho trùng luôn với phím chuẩn excel - khi đó chú ý ^f chuẩn của excel mất tác dụng)

thế là từ nay bấm ctrl+r là được như bạn mong muốn, hiện ALL của các loại filter và xuất hiện hộp thoại tìm kiếm
Cảm ơn bạn, mình đã thử và thành công với điều kiện mình đang ở ngay sheet được filter, còn nếu đang ở sheet khác thì bó tay, vẫn không hiện all để tìm được số liệu. Bạn sửa lại hộ mình chút với.
 
Upvote 0
Cảm ơn bạn, mình đã thử và thành công với điều kiện mình đang ở ngay sheet được filter, còn nếu đang ở sheet khác thì bó tay, vẫn không hiện all để tìm được số liệu. Bạn sửa lại hộ mình chút với.

Không hiểu sao?, thì sheet không có filter, thì tìm bình thường thôi?
 
Upvote 0
Không hiểu sao?, thì sheet không có filter, thì tìm bình thường thôi?
Ví dụ nếu mình đang ở sheet khác, muốn tìm một số thuê bao mà số đó nó nằm ở trong sheet bị filter mất rồi thì làm sao tìm được????
Cụ thể như trong file của mình, nếu ở sheet D-T.Taam1 mình filtel cột trạng thái để chọn cổng có trạng thái là "T", sau đó mình sang sheet khác bất kỳ, mình tìm số thuê bao 3613481 lúc này đang có trạng thái là "A" thì sẽ không tìm được.
 
Upvote 0
Ví dụ nếu mình đang ở sheet khác, muốn tìm một số thuê bao mà số đó nó nằm ở trong sheet bị filter mất rồi thì làm sao tìm được????
Cụ thể như trong file của mình, nếu ở sheet D-T.Taam1 mình filtel cột trạng thái để chọn cổng có trạng thái là "T", sau đó mình sang sheet khác bất kỳ, mình tìm số thuê bao 3613481 lúc này đang có trạng thái là "A" thì sẽ không tìm được.

Rắc rối nhỉ, tôi giờ mới nhìn lại hoá ra bạn nói nhu cầu là tìm xuyên các worksheets. Vậy sử dụng code sau,

vẫn gán phím tắt như trên nhé
(chú ý sub này có thể đặt vào Addins (nếu thích) vì tính tổng quát của nó)

PHP:
Sub TIMKIEM()
    Dim Sh As Worksheet
    For Each Sh In ActiveWorkbook.Worksheets
        With Sh
            If .AutoFilterMode Then
                If .FilterMode Then .ShowAllData
            ElseIf .FilterMode Then
                .ShowAllData
            End If
        End With
    Next
    Application.CommandBars("Edit").Controls("Find...").Execute
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Rắc rối nhỉ, tôi giờ mới nhìn lại hoá ra bạn nói nhu cầu là tìm xuyên các worksheets. Vậy sử dụng code sau,

vẫn gán phím tắt như trên nhé
(chú ý sub này có thể đặt vào Addins (nếu thích) vì tính tổng quát của nó)

PHP:
Sub TIMKIEM()
    Dim Sh As Worksheet
    For Each Sh In ActiveWorkbook.Worksheets
        With Sh
            If .AutoFilterMode Then
                If .FilterMode Then .ShowAllData
            ElseIf .FilterMode Then
                .ShowAllData
            End If
        End With
    Next
    Application.CommandBars("Edit").Controls("Find...").Execute
End Sub
Tuyệt vời, đúng ý mình rồi đó, cảm ơn bạn. Tiếp tục nhờ bạn nhé, nếu có thể mình muốn protect các sheet thì cái này sẽ không dùng được. vì mình muốn bảo vệ mấy công thức tổng hợp phía trên (A1:F6 với sheet D và A1:G6 với sheet F) . Có giải pháp nào không ạ. Ví dụ như chuyển mấy công thức thành code VBA luôn hoặc mình áp dụng bài này thì thế nào???
Mã:
Sub [B]nhaloc_toanboSheet[/B]()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Bao cao chung" Then
        'MsgBox ws.Name 'kiem tra ten tung` sheet
        Call Unprotect_1sheet(ws)
        Call Nhaloc_1Sheet(ws, ws.Range("A1:A1000"))
        Call Protect_1sheet(ws)
    End If
    Next
    
    MsgBox "Da~ nha loc toan bo sheet", vbInformation
End Sub

Sub [B]Nhaloc_1Sheet[/B](iSheet As Worksheet, vung As Range) '"Clear Filter/ Unhide Rows"
   
        On Error GoTo Next_ 'xay ra loi~ neu ko co' bo loc.
        
        If iSheet.FilterMode Then iSheet.ShowAllData 'phai mo? khoa' truoc' '|| dang dung` Filter
        
Next_:
        '----------
        'Cells.EntireRow.Hidden = False                              '|| Hide Row
        vung.EntireRow.Hidden = False
        
        'MsgBox "da~ nha loc"

End Sub

Sub [B]Unprotect_1sheet[/B](iSheet As Worksheet) 'any Sheet
    iSheet.Unprotect Password:=1
End Sub

Sub [B]Protect_1sheet[/B](iSheet As Worksheet) 'any Sheet
    With iSheet
        .Protect Password:=1, AllowFiltering:=True 'cho phep' loc
    End With
End Sub
 
Upvote 0
Tuyệt vời, đúng ý mình rồi đó, cảm ơn bạn. Tiếp tục nhờ bạn nhé, nếu có thể mình muốn protect các sheet thì cái này sẽ không dùng được. vì mình muốn bảo vệ mấy công thức tổng hợp phía trên (A1:F6 với sheet D và A1:G6 với sheet F) . Có giải pháp nào không ạ. Ví dụ như chuyển mấy công thức thành code VBA luôn hoặc mình áp dụng bài này thì thế nào???

Giải pháp thì trong code đó có viết rùi đó

Chạy code thì Unprotectsheet
chạy xong thì ProtectSheet lại


vậy thui,

Còn chi đưa code như trến thì tôi chịu, không biết có ý kiến sao, vì không hiểu code giải quyết cái gì, và bạn muốn hay vấn đề là gì???
Công thức chuyển thành code, thì phải rõ công thức nào và thế nào, chứ chen ngang thì thua....
Vậy hoặc là diễn giải lại từ đầu, hoặc là nhờ người cũ sửa cho
 
Upvote 0
Vậy hoặc là diễn giải lại từ đầu, hoặc là nhờ người cũ sửa cho
--=0 Diễn giải từ đầu nhé. Ví dụ ở các sheet "D-..", các ô C2,C3,C4,C5 và F2,F3,F4,F5 mình có sử dụng các công thức COUNTIF và COUNTA. Vì file không chỉ có mỗi mình dùng nên mình sợ mấy người khác (cũng mù tịt như mình) lỡ tay xóa mất công thức nên mình chọn lock vùng đó và protect sheet lại. Bây giờ dùng Sub TIMKIEM của bạn thì nếu sheet bị protect nó báo lỗi bug ngay. Mình muốn hỏi giải pháp cho vấn đề này.
Thêm nữa, mình thử đặt code của bạn vào Addins (bằng cách tạo một file addins rồi tick chọn nó trong mục Addins) nhưng không chạy được. Không biết khi đặt nó vào Addins có khắc phục được vấn đề protect không nhỉ?
 
Upvote 0
Tuyệt vời, đúng ý mình rồi đó, cảm ơn bạn. Tiếp tục nhờ bạn nhé, nếu có thể mình muốn protect các sheet thì cái này sẽ không dùng được. vì mình muốn bảo vệ mấy công thức tổng hợp phía trên (A1:F6 với sheet D và A1:G6 với sheet F) . Có giải pháp nào không ạ. Ví dụ như chuyển mấy công thức thành code VBA luôn hoặc mình áp dụng bài này thì thế nào???

Không hiểu cái này là cái gì, có thể là code tìm kiếm trên chăng,

Nếu đúng thì ứng dụng thế này, cho sử dụng được cả ctlr+r (phím tắt đặt trên cho sub timkiem) thì chuyển đổi code như sau (chú ý password she et khóa tam để là 1)

PHP:
Sub TIMKIEM()
    Dim Sh As Worksheet, boUnP As Boolean
    For Each Sh In ActiveWorkbook.Worksheets
        With Sh
            boUnP = Sh.ProtectContents
            If boUnP Then Unprotect_1sheet Sh
            If .FilterMode Then .ShowAllData
            If boUnP Then Protect_1sheet Sh
        End With
    Next
    Application.CommandBars("Edit").Controls("Find...").Execute
End Sub


Sub Unprotect_1sheet(iSheet As Worksheet) ''any Sheet
    iSheet.Unprotect Password:=1
End Sub

Sub Protect_1sheet(iSheet As Worksheet) ''any Sheet
    With iSheet
        .Protect Password:=1, AllowFiltering:=True 'cho phep' loc
    End With
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
--=0 Diễn giải từ đầu nhé. Ví dụ ở các sheet "D-..", các ô C2,C3,C4,C5 và F2,F3,F4,F5 mình có sử dụng các công thức COUNTIF và COUNTA. Vì file không chỉ có mỗi mình dùng nên mình sợ mấy người khác (cũng mù tịt như mình) lỡ tay xóa mất công thức nên mình chọn lock vùng đó và protect sheet lại. Bây giờ dùng Sub TIMKIEM của bạn thì nếu sheet bị protect nó báo lỗi bug ngay. Mình muốn hỏi giải pháp cho vấn đề này.
Thêm nữa, mình thử đặt code của bạn vào Addins (bằng cách tạo một file addins rồi tick chọn nó trong mục Addins) nhưng không chạy được. Không biết khi đặt nó vào Addins có khắc phục được vấn đề protect không nhỉ?


Không đặt vào addins chắc cũng vậy thui, có gì bạn tự thử. Mấy công thức đó giản đơn có gì đáng giấu đâu mà giấu,

Xem bài trên đã giải quyết protect.

Muốn đặt vào addins thì phải đặt phím tắt trước, thì lúc đó mới gọi ra được

hết
 
Lần chỉnh sửa cuối:
Upvote 0
Lấy cái cuối này đi cho gọn, (còn đặt addins thì tự làm, chú ý thay pass 1 cho hợp lý)
PHP:
Sub TIMKIEM()
    Dim Sh As Worksheet, boUnP As Boolean
    Application.ScreenUpdating = False
    For Each Sh In ActiveWorkbook.Worksheets
        With Sh
            If .FilterMode Then
                boUnP = Sh.ProtectContents
                If boUnP Then Unprotect_1sheet Sh
                .ShowAllData
                If boUnP Then Protect_1sheet Sh
            End If
        End With
    Next
    Application.ScreenUpdating = True
    Application.CommandBars("Edit").Controls("Find...").Execute
End Sub


Sub Unprotect_1sheet(iSheet As Worksheet) ''any Sheet
    iSheet.Unprotect Password:=1
End Sub

Sub Protect_1sheet(iSheet As Worksheet) ''any Sheet   
        iSheet.Protect Password:=1, AllowFiltering:=True 'cho phep' loc   
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Không hiểu cái này là cái gì, có thể là code tìm kiếm trên chăng,

Nếu đúng thì ứng dụng thế này, cho sử dụng được cả ctlr+r (phím tắt đặt trên cho sub timkiem) thì chuyển đổi code như sau (chú ý password she et khóa tam để là 1)

PHP:
Sub TIMKIEM()
    Dim Sh As Worksheet, boUnP As Boolean
    For Each Sh In ActiveWorkbook.Worksheets
        With Sh
            boUnP = Sh.ProtectContents
            If boUnP Then Unprotect_1sheet Sh
            If .FilterMode Then .ShowAllData
            If boUnP Then Protect_1sheet Sh
        End With
    Next
    Application.CommandBars("Edit").Controls("Find...").Execute
End Sub


Sub Unprotect_1sheet(iSheet As Worksheet) ''any Sheet
    iSheet.Unprotect Password:=1
End Sub

Sub Protect_1sheet(iSheet As Worksheet) ''any Sheet
    With iSheet
        .Protect Password:=1, AllowFiltering:=True 'cho phep' loc
    End With
End Sub
Code này được rồi bạn à. Tuy nhiên khi bấm Ctrl+r cho cái file gốc của mình thì 70 cái sheet bị protect nó nhảy loạn lên một chút làm hoa cả mắt --=0. nhưng cứ để thế cũng được, bình thường sẽ dùng Ctrl+f, nếu không tìm ra khi đó mới sử dụng đến Ctrl+R.
Bây giờ cho mình hỏi vấn đề khác. Ở sheet "Báo cáo chung" mình có list một danh sách các trạm để thống kê số liệu với mỗi trạm là 1 sheet. Mỗi khi thêm mới trạm, mình phải tạo thêm sheet và ở "báo cáo chung" mình phải insert thêm dòng, HyperLink đến tên sheet và liên kết số liệu sang một cách thủ công. Nhờ bạn giúp giải pháp để mỗi lần thêm sheet mới thì ở sheet "báo cáo chung" sẽ tự động thêm dòng (Nếu theo đúng chỗ insert thì càng tốt, ví dụ thêm mới trước sheet D-T.Tam1 thì nó thêm dòng trên dòng link của D-T.Tam1 ở "báo cáo chung").
Yêu cầu của dòng mới thêm vào là:
- Tên trạm là tên của sheet hoặc của một ô nào đó trên sheet cũng được (để mình có thể đánh tên vào ô đó)
- Nếu sheet bắt đầu bằng chữ F thì Loại thiết bị là "L2 Switch" và copy công thức các mục phía sau (lắp đặt, hỏng....) của dòng "L2 Switch" đã có trước đó.
- Nếu sheet bắt đầu bằng chữ D thì Loại thiết bị là "IP DSLAM" và copy công thức các mục phía sau (lắp đặt, hỏng....) của dòng "L2 Switch" đã có trước đó.
- Các mục Loại Thiết Bị (L2 Switch,IP DSLAM) sẽ được Hyperlink đến sheet.

Ý tưởng là vậy, không biết có khả thi hay không. Chờ ý kiến của bạn.
 
Upvote 0
Code này được rồi bạn à. Tuy nhiên khi bấm Ctrl+r cho cái file gốc của mình thì 70 cái sheet bị protect nó nhảy loạn lên một chút làm hoa cả mắt --=0. nhưng cứ để thế cũng được, bình thường sẽ dùng Ctrl+f, nếu không tìm ra khi đó mới sử dụng đến Ctrl+R.
............

quá nhiều sheet, dữ liệu bố trí thế không khoa học chút nào,
lấy code bai #14 trên là hết hoa mắt ngay nhé,

Phần bạn nhờ thêm, Tốt nhất là bạn nhờ chung diễn đàn, vì còn nhiều thành viên siêu khác giúp bạn, Đừng bao giờ nhờ mình 1 người thế,

Hiện giờ tôi hết giờ nên dừng ở đây, vậy bạn trích phần thêm hay hỏi thêm ra hỏi riêng - các thành viên khác sẽ giúp,
 
Lần chỉnh sửa cuối:
Upvote 0
Lấy cái cuối này đi cho gọn, (còn đặt addins thì tự làm, chú ý thay pass 1 cho hợp lý)
PHP:
Sub TIMKIEM()
    Dim Sh As Worksheet, boUnP As Boolean
    Application.ScreenUpdating = False
    For Each Sh In ActiveWorkbook.Worksheets
        With Sh
            If .FilterMode Then
                boUnP = Sh.ProtectContents
                If boUnP Then Unprotect_1sheet Sh
                .ShowAllData
                If boUnP Then Protect_1sheet Sh
            End If
        End With
    Next
    Application.ScreenUpdating = True
    Application.CommandBars("Edit").Controls("Find...").Execute
End Sub


Sub Unprotect_1sheet(iSheet As Worksheet) ''any Sheet
    iSheet.Unprotect Password:=1
End Sub

Sub Protect_1sheet(iSheet As Worksheet) ''any Sheet   
        iSheet.Protect Password:=1, AllowFiltering:=True 'cho phep' loc   
End Sub
Code này mượt mà luôn bạn à. Cảm ơn bạn nhiều lắm lắm. Mình đặt pass không phải vì dấu công thức, mà vì bọn mình toàn "đầu đất" cả, nên sợ lỡ tay xóa mất lại mất công thôi --=0
 
Upvote 0
quá nhiều sheet, dữ liệu bố trí thế không khoa học chút nào,
lấy code bai #14 trên là hết hoa mắt ngay nhé,

Phần bạn nhờ thêm, Tốt nhất là bạn nhờ chung diễn đàn, vì còn nhiều thành viên siêu khác giúp bạn, Đừng bao giờ nhờ mình 1 người thế,

Hiện giờ tôi hết giờ nên dừng ở đây, vậy bạn trích phần thêm hay hỏi thêm ra hỏi riêng - các thành viên khác sẽ giúp,
Như thế này là cũng cảm ơn bạn nhiều lắm rồi. Mong bạn lúc nào có thời gian tiếp tục giúp đỡ mình.

Mình sẽ hỏi luôn ở đây cho tiện, đỡ mở nhiều topic loãng diễn đàn. Nhờ các anh chị em trên GPE chung tay giúp mình với.

Ở sheet "Báo cáo chung" mình có list một danh sách các trạm để thống kê số liệu với mỗi trạm là 1 sheet. Mỗi khi thêm mới trạm, mình phải tạo thêm sheet và ở "báo cáo chung" mình phải insert thêm dòng, HyperLink đến tên sheet và liên kết số liệu sang một cách thủ công. Nhờ bạn giúp giải pháp để mỗi lần thêm sheet mới thì ở sheet "báo cáo chung" sẽ tự động thêm dòng (Nếu theo đúng chỗ insert thì càng tốt, ví dụ thêm mới trước sheet D-T.Tam1 thì nó thêm dòng trên dòng link của D-T.Tam1 ở "báo cáo chung").


Yêu cầu của dòng mới thêm vào là:


- Tên trạm là tên của sheet hoặc của một ô nào đó trên sheet cũng được (để mình có thể đánh tên vào ô đó)


- Nếu sheet bắt đầu bằng chữ F thì Loại thiết bị là "L2 Switch" và copy công thức các mục phía sau (lắp đặt, hỏng....) của dòng "L2 Switch" đã có trước đó.


- Nếu sheet bắt đầu bằng chữ D thì Loại thiết bị là "IP DSLAM" và copy công thức các mục phía sau (lắp đặt, hỏng....) của dòng "L2 Switch" đã có trước đó.


- Các mục Loại Thiết Bị (L2 Switch,IP DSLAM) sẽ được Hyperlink đến sheet.

Rất mong nhận được sự giúp đỡ của ACE.

File mình tải lại tại đây ạ
 
Upvote 0
N

Ở sheet "Báo cáo chung" mình có list một danh sách các trạm để thống kê số liệu với mỗi trạm là 1 sheet. Mỗi khi thêm mới trạm, mình phải tạo thêm sheet và ở "báo cáo chung" mình phải insert thêm dòng, HyperLink đến tên sheet và liên kết số liệu sang một cách thủ công. Nhờ bạn giúp giải pháp để mỗi lần thêm sheet mới thì ở sheet "báo cáo chung" sẽ tự động thêm dòng (Nếu theo đúng chỗ insert thì càng tốt, ví dụ thêm mới trước sheet D-T.Tam1 thì nó thêm dòng trên dòng link của D-T.Tam1 ở "báo cáo chung").


Yêu cầu của dòng mới thêm vào là:

.......

Bao nhiêu lâu bạn chèn 1 sheet như vậy? Mỗi lần chèn nhiều không?

Tôi nghĩ là không nhiều, vì đâu phải ngẫu nhiên lại sinh ra 1 trạm đúng không? nếu đúng vậy thì làm tay cho nhanh và tin cậy hơn nhé. (không phải cái gì tự động đã hẳn hay và tiết kiệm thời gian)
 
Upvote 0
Bao nhiêu lâu bạn chèn 1 sheet như vậy? Mỗi lần chèn nhiều không?

Tôi nghĩ là không nhiều, vì đâu phải ngẫu nhiên lại sinh ra 1 trạm đúng không? nếu đúng vậy thì làm tay cho nhanh và tin cậy hơn nhé. (không phải cái gì tự động đã hẳn hay và tiết kiệm thời gian)
Không phải thỉnh thoảng đâu bạn ạ. Cái này mình sẽ phải làm thường xuyên vì trạm ko lắp mới nhưng thiết bị trong trạm sẽ phát sinh liên tục do số thuê bao ngày càng tăng. Hơn nữa nếu như mình làm thì có thể, nhưng có cả những người khác sẽ quản lý file này mà theo như mình đã nói, toàn gà mờ mù tịt cả. Vậy nên mình mới "vẽ" ra ý tưởng này chớ. :) mong giola va các bạn giúp đỡ.
 
Upvote 0

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

Back
Top Bottom