Hướng dẫn sử dụng excel 2010 part 33

Chương 8: Phím Tắt Và Thủ ThuậtThủ thuật1. Tách họ và tên trong cùng một cột trên bảng tính Excel Bước 1: Khi nhập liệu vào bảng tính Excel, thông thường ta nhập cả họ và tên vào cùng một ô. Tuy nhiên, có khi sau đó ta cần phải tách riêng tên ra khỏi họ và tên đệm, nếu làm thủ công bằng thao tác sao chép rồi dán qua ô khác thì sẽ rất bất tiện.
Nội dung trích xuất từ tài liệu:
Hướng dẫn sử dụng excel 2010 part 33 Excel 2010 Chương 8: Phím Tắt Và Thủ Thuật Thủ thuật1. Tách họ và tên trong cùng một cột trên bảng tính ExcelBước 1: Khi nhập liệu vào bảng tính Excel, thông thường ta nhập cả họ và tên vàocùng một ô. Tuy nhiên, có khi sau đó ta cần phải tách riêng tên ra khỏi họ và tênđệm, nếu làm thủ công bằng thao tác sao chép rồi dán qua ô khác thì sẽ rất bất tiện.Nếu sử dụng hàm Right kết hợp với một vài hàm khác thì cũng có thể cho ra kếtquả như bạn muốn, nhưng trong một số trường hợp sẽ cho kết quả không chínhxác. Có một phương pháp tối ưu hơn sẽ giúp bạn hoàn thành tốt công việc này,cách thực hiện cũng khá đơn giản như sau:Bước 2: - Trên bảng tính chứa cột họ tên cần tách, nhấn Alt+F11Bước 3: - Tiếp theo, bạn nhấn menu Insert và chọn Module sẽ xuất hiện một cửasổ soạn thảo. 1 Excel 2010Bước 4: Bạn nhập đoạn mã lệnh sau vào cửa sổ soạn thảo:Private Function Tachten(ten As String, lg As Integer)Dim j As IntegerName = Trim(ten)For j = Len(Name) To 1 Step -1If Mid(Name, j, 1) = ThenIf lg = 1 ThenTachten = Right(Name, Len(Name) - j)ElseTachten = Left(Name, j)End IfExit ForEnd IfNext 2 Excel 2010End FunctionBước 5:- Bạn nhấn Ctrl+S để lưu lại và quay trở về bảng tính Excel.Bước 6:- Bây giờ để tiến hành tách riêng họ và tên đệm vào một ô mới, bạn đặtcon trỏ tại ô mới chứa họ và tên đệm rồi nhập vào công thức =TachTen(B3,0) vànhấn Enter sẽ thấy ngay kết quả.- Để tách riêng tên vào một ô mới, bạn đặt con trỏ tại ô sẽ chứa tên cần tách vànhập vào công thức =TachTen(B3,1) rồi nhấn Enter là xong.Ghi chú: B3 chính là địa chỉ của ô ban đầu chứa cả họ, tên đệm và tên.2. Tạo mục lục trong ExcelNếu bạn đã tốn quá nhiều thời gian trong một workbook (bảng tính) với rấtnhiều worksheet (trang tính), bạn sẽ cảm thông được sự khó khăn trongviệc tìm kiếm một trang tính nào đó. Khi đó, có lẽ ta nên lập một chỉ mụccác trang tính đang có để thuận tiện cho việc điều hướng trong bảng tính.Bằng cách sử dụng một chỉ mục các trang tính sẽ cho phép bạn nhanhchóng và dễ dàng điều hướng trong bảng tính, chỉ bằng một cú nhấp chuộtsẽ đưa bạn đến chính xác nơi bạn muốn đến mà không lo bị nhầm lẫn.Bạn có thể tạo một chỉ mục trong một vài cách: bằng tay, tự động tạo rabởi mã VBA, hoặc là sử dụng trình đơn tùy chọn theo ngữ cảnh (thậm chícó thể dùng các hàm Macro4 – không trình bày ở đây).Tạo chỉ mục thủ côngCách này rất dễ làm, bạn chỉ cần chèn mới một worksheet và đăt cho nómột cái tên, ví dụ như tên là Index. Sau đó, bạn nhận vào tên của cácworksheet có trong workbook và tạo các siêu liên kết (hyperlink) đến cácworksheet tương ứng với tên mà bạn nhập. 3 Excel 2010Để tạo hyperlink bạn chọn tên sheet, sau đó vào Insert | chọn Hyperlinktại nhóm Links | Insert | Hyperlinks] hoặc nhấn phím tắt là Ctrl+K để mởhộp thoại Insert Hyperlink.Chọn Place in This Document và chọn tên Sheet muốn kết nối tới. Nhấnnút OK để hoàn tất.Phương pháp này phù hợp khi bảng tính không có quá nhiều worksheet vàtên worksheet không có sự thay đổi thường xuyên, nếu không sẽ gây ranhiều khó khăn cho công tác bảo trì trang chỉ mục.Tạo chỉ mục tự động bằng cách sử dụng VBAMột cách thay thế khác là sử dụng VBA để tự động tạo ra các chỉ mục.Đoạn mã sau đây sẽ tự động tạo ra một bảng chỉ mục liên kết đến tất cảcác worksheet mà bạn có trong workbook. Bảng chỉ mục này sẽ được tạolại mỗi khi worksheet lưu chỉ mục được chọn. 4 Excel 2010Đoạn mã này phải được đặt trong private module của Sheet chứa chỉ.Chèn một worksheet mới vào workbook và đặt tên cho nó là Index chẳnghạn. Nhấp chuột phải vào tên worksheet vừa tạo và chọn ViewCode từtrình đơn ngữ cảnh hoặc nhấn tổ hợp phím Alt+F11.Nhập đoạn mã VBA sau vào cửa sổ Code:Private Sub Worksheet_Activate() Dim wSheet As Worksheet Dim lCount As Long lCount = 1With Me .Columns(1).ClearContents .Cells(1, 1) = INDEXEnd WithFor Each wSheet In Worksheets If wSheet.Name Me.Name Then lCount = lCount + 1 With wSheet .Range(A1).Name = Start & wSheet.Index .Hyperlinks.Add Anchor:=.Range(A1), Address:=, SubAddress:= _ Index, TextToDisplay:=Back to Index 5 ...