Nhung tuyet chieu trong excel

Những tuyệt chiêu, thủ thuật trong excel

Những "tuyệt chiêu" Excel of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Welcome, debutant Diễn Đàn Tin Mới Tin tức thời trang Bài Viết Mới Tin nhắn Hỏi/Đáp Lịch Cộng Đồng Diễn Đàn Máy Tính Diễn đàn rao vặt Chức diễn đàn HỎI ĐÁP - CHIA SẺ KINH NGHIỆM Thuốc nam Hộp Tin Nhắn Tùy Chỉnh Thoát Đăng ký Chức Năng Những "tuyệt chiêu" Excel kết từ 21 tới 30 35 Trang Đầu tiên Cuối Ðề tài: Những "tuyệt chiêu" Excel Công Cụ Search Thread Cho Điểm Đề Tài Này Display #21 27-12-2010 04:19 PM Congngheso Senior Member Gia nhập: Giới tính: Chiêu số 19: Đánh dấu chứa công thức Conditional Formatting Dec 2010 Bài gởi: 2,946 Khi có chứa liệu, bạn muốn biết liệu ô đơn liệu nhập vào, hay liệu kết cơng thức Bạn cần click chọn xem cơng thức Bạn dùng phím tắt Ctrl + ~ để chuyển qua lại chế độ xem giá trị xem công thức Chiêu số 19 giới thiệu với bạn hàm tự tạo, kết hợp với Conditional Formatting để đánh dấu ô chứa công thức Bằng cách giúp bạn tìm tất ô chứa công thức số 10.000 ô mà ngó Mặc dù bạn dùng hàm có sẵn Macro4 Conditional Formatting, sau: Trong hộp thoại Conditional Formatting, chọn công thức, gõ công thức này: = CELL(“type”,A1) Nhưng hạn chế việc dùng hàm Cell() cơng thức tự tính lại có thay đổi nhỏ xíu bảng tính Vì Cell() hàm thuộc loại volatile Khi Excel tính lại Cell() cho 10.000 khiến cho bạn bực chờ đợi Do bạn dùng tuyệt chiêu sau đây, đơn giản, dễ làm hàm loại volatile: Bạn nhấn Alt – F11 để vào cửa sổ VBA, nhấn chuột phải vào This Workbook để insert vào module Nhập đoạn code sau vào khung soạn thảo: PHP Code: Function IsFormula (CheckCells As Range) IsFormula = CheckCells.HasFormula End Function Do tính chất Property HasFormula, hàm bạn tạo trả giá trị luận lý True, False Nghĩa bạn gõ vào ô công thức = IsFormula(A1) cho kết True A1 chứa công thức cho kết False A1 chứa giá trị Đóng cửa sổ VBA lại, trở bảng tính Bây đánh dấu tồn vùng liệu bạn (có thể chọn dư số cột dòng, phòng bạn cập nhật thêm liệu) cho ô A1 ô hành Bằng cách chiêu số 18, bạn vào chỗ cần thiết để gõ công thức hộp thoại Conditional Formatting, gõ vào: =IsFormula(A1), sau định dạng tơ màu đổi màu chữ cho khác cịn lại Sau nhấn OK bạn kết tất ô chứa công thức tô màu Nếu bạn thêm thay đổi ô, trở thành cơng thức đổi màu Đơi bạn khơng thấy kết quả, anh Bill lanh chanh chậm hiểu, cho công thức sử dụng hàm bạn text nên ảnh tự sửa thành : =”IsFormula(A1)” Vậy bạn phải vào chỗ cũ sửa lại Bây bạn sửa thêm ô trở thành công thức, có màu ngược lại, bạn sửa 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot công thức thành giá trị thêm giá trị vào ơ, khơng có màu Cái CF UDF đơn giản mà thực hữu ích, bạn nhỉ! Diễn đàn công nghệ dành cho người yêu cong nghe so Nơi khám phá dành cho bạn iphone , ipad Trả lời kèm theo trích dẫn #22 27-12-2010 04:21 PM Congngheso Chiêu thứ 20: Đếm cộng ô định dạng có điều kiện Senior Member Gia nhập: Giới tính: Chúng ta thường hỏi: "Làm để tính tốn với tơ màu cụ thể đó?" Câu hỏi thường nêu ra, Excel khơng có hàm bình thường để thưc nhiệm vụ này; nhiên, thực hàm tự tạo Dec 2010 Bài gởi: 2,946 Vấn đề xảy với việc sử dụng hàm tự tạo, khơng thể lọc loại định dạng áp dụng việc định dạng có điều kiện (conditional formatting) Tuy nhiên, suy nghĩ tí, bạn có kết tương tự mà cần đến hàm tự tạo Giả sử bạn có danh sách dài số dãy $A$2:$A$100 Và bạn áp dụng định dạng có điều kiện cho dãy đó: đánh dấu có giá trị nằm khoảng từ 10 đến 20 Bây giờ, bạn muốn lấy giá trị ô thỏa mãn điều kiện mà bạn thiết lập, tính tổng ô áp dụng định dạng Không có khó! Bạn đừng để kiểu định dạng áp dụng chi phối bạn, nói cách khác, bạn khơng cần quan tâm định dạng kiểu Bạn cần quan tâm đến điều kiện để áp dụng định dạng cho chúng (trong trường hợp này, có giá trị khoảng từ 10 đến 20) Bạn dùng hàm SUMIF() để tính tổng thỏa mãn điều kiện đó, điều kiện mà thơi! Nếu muốn có nhiều điều kiện, bạn phải dùng hàm SUMIFS() Excel 2007, dùng công thức mảng Ở tơi nói đến cơng thức mảng, sử dụng hầu hết phiên Excel Với trường hợp ví dụ này, bạn sử dụng công thức mảng giống sau: =SUM(IF($A$2:$A$100>10, IF($A$2:$A$10010, IF($A$2:$A$100 10, < 20) Để làm điều này, bạn theo bước sau: Chọn B2 nhập vào cơng thức: =IF(AND(A2>10, A210 Trong ô D2, nhập vào biểu thức 10) * ($A$2:$A$10010), ($A$2:$A$100 10, ô có giá trị (TRUE), cịn khơng bẳng (FALSE); Mảng thứ hai, tương tự vậy, áp dụng cho có giá trị 10 khơng tơ màu - Nếu bạn đứng dịng 59: dịng lẻ khơng có liệu => không tô màu Mở rộng: Tô màu cách dịng tơ 1, tơ xen kẽ màu trở lên: bạn cần sửa công thức ASAP cho phù hợp, kết hợp với CountA() cho linh hoạt Thí dụ với cơng thức hình: bạn có kết hình, dịng khơng có liệu khơng tơ màu 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Diễn đàn công nghệ dành cho người yêu cong nghe so Nơi khám phá dành cho bạn iphone , ipad Trả lời kèm theo trích dẫn #24 27-12-2010 04:23 PM Congngheso Chiêu thứ 22: Tạo hiệu ứng 3D bảng tính hay Senior Member Gia nhập: Giới tính: Bất bạn nhìn thấy hiệu ứng 3D chương trình ứng dụng, chẳng hạn Excel, hẳn bạn thấy đánh lừa qua thị giác tạo cách định dạng đặc biệt Chính bạn tạo hiệu ứng cách dễ dàng cách định dạng ô dãy ô Phiên Excel 2007 đưa vào styles ơ, bạn tạo hiệu ứng 3D lưu lại để sử dụng vào bạn muốn Dec 2010 Bài gởi: 2,946 Hãy bắt đầu với ví dụ đơn giản, tạo hiệu ứng 3D cho ô để nhìn lên giống nút lệnh(button) Trong bảng tính trống, bạn chọn D5 (Bạn chọn D5 khơng nằm rìa bảng tính) Dưới Cell Options tab Home, chọn Format ➝ Format Cells ➝ Border (với phiên trước Excel 2007: Format ➝ Cells ➝ Border) Hoặc bạn click chuột phải, chọn Format cells ➝ Border Trong hộp line, chọn đường dày thứ (bên phải, thứ từ đếm lên) Chắc chắn màu chọn màu đen (hoặc chọn automatic bạn chưa thay đổi mặc định lựa chọn này) Bây click chọn đường viền bên phải đường viền bên bảng Quay trở lại với box color để chọn màu trắng Vẫn chọn đường viền dày thứ 2, chọn hai đường viền lại đường viền bên bên trái ô 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Chọn tab Fill (với phiên trước Excel 2007: chọn tab Patterns) hộp thoại Format Cells chọn màu xám Click chọn OK không chọn ô D5 (di chuyển trỏ chuột sang ô khác) Ô D5 xuất lên giống button Bạn làm tất điều với đường viền bóng đổ Nếu muốn vui đa dạng hơn, bạn tạo nhìn giống bị lõm thụt vào chọn E5 (vì kế D5 sử dụng cho tập tiếp theo) Chọn Home ➝ Cells ➝ Format ➝ Format Cells ➝ Bord (với phiên trước Excel 2007: Format ➝ Cells ➝ Border) chọn đường viền dày thứ (thứ bên phải từ đếm lên) bảng line chắn màu chọn màu đen cho đường viền bên trái Chọn màu trắng bảng màu cho đường viền bên phải bên ô Chọn tab Patterns chọn màu xám Click OK Ô E5 bị lõm xuống Việc trái ngược với ô D5 hiệu ứng trội lên Nếu bạn cảm thấy thích thú với style mà bạn tạo Bạn lưu lại cách chọn Home ➝ Styles ➝ Cell Style ➝ NewCell Style, bạn gõ tên mà bạn muốn đặt cho style vào click OK Chú ý Styles ô lưu lại workbook bạn kết hợp Styles từ workbooks khác Lựa chọn khơng có phiên trước Excel 2007 Nếu bạn muốn lưu style ô phiên trước bạn vào Format➝ Style Sử dụng hiệu ứng 3D cho bảng liệu Kế tiếp, làm thí nghiệm với cơng cụ để thấy loại hiệu ứng 3D mà bạn tạo cho bảng sheets Chọn D5 E5, click chọn công cụ Format Painter (biểu tượng chổi quét ) Clipboard options tab Home (với phiên trước Excel 2007: xem standard toolbar) Trong nhấn chuột trái, Click chọn ô F5 rê chuột qua J5, sau nhả 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Bây chọn vùng D5:J5 click chọn công cụ Format Painter lần Cùng lúc nhấn chuột trái, chọn ô D6, kéo chuột ngang sang phải kéo xuống J15, sau nhả Hiệu ứng 3D dãy ô Nếu bạn muốn lưu style bảng này, bạn chọn Home ➝ Styles ➝Format as Table ➝ NewTable Style Với phiên trước Excel 2007 bạn khơng thể lưu style bảng Chúng ta sử dụng đường viền dày để hiệu ứng thấy cách rõ ràng, nhiên, bạn tạo tinh tế cách sử dụng đưởng mảnh Bạn sử dụng đường khác để tạo hiệu ứng hay Cách dễ để tìm kết hợp có hiệu bạn nên thử kiểm tra sai sót bảng tính trống để tạo hiệu ứng mà bạn muốn Bạn bị giới hạn tưởng tượng có lẽ khiếu thẩm mỹ Thí dụ dùng màu khác 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Thí dụ dùng đường kẻ không liền nét cho đường kẻ ngang Hãy ln nhớ hiệu ứng 3D làm cho bảng tính dễ đọc, nhìn chun nghiệp dễ cảm nhận hơn, chúng sử dụng mức chúng có ảnh hưởng trái ngược Nên nhớ, sử dụng thứ có mức độ Nếu bạn muốn tạo xa cung cấp hiệu ứng 3D cách tự động sinh động, bạn kết hợp 3D với định dạng có điều kiện để tự động cung cấp nhiều style mà bạn thích Bổ sung: Bạn dùng hiệu ứng 3D cho (đã thực trên) để dùng button thực thụ, bạn kết hợp với VBA Giả sử bạn muốn bảng tính bạn có button (nổi, đương nhiên), nhấn vào chìm xuống thực thi macro Khi nhấn lần nút lên thực macro khác dừng thực macro thứ Dùng công cụ ghi macro để ghi lại trình lập hiệu ứng 3D cho ô D5, ta đọan code Module, sửa lại chút đỉnh với biến Public IsRun để tuỳ trường hợp gán Border thích hợp: PHP Code: Sub Change1() With Selection.Borders(xlEdgeLeft) LineStyle = xlContinuous Weight = xlMedium ColorIndex = IIf(IsRun, 2, 0) End With With Selection.Borders(xlEdgeTop) LineStyle = xlContinuous Weight = xlMedium ColorIndex = IIf(IsRun, 2, 0) End With With Selection.Borders(xlEdgeBottom) LineStyle = xlContinuous Weight = xlMedium ColorIndex = IIf(IsRun, 0, 2) End With With Selection.Borders(xlEdgeRight) LineStyle = xlContinuous Weight = xlMedium ColorIndex = IIf(IsRun, 0, 2) End With End Sub Bây dựa vào kiện SelectionChange sheet, ta làm cho ô D5 thay đổi border sau: PHP Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$5" Then If Target = "Run" Then Target = "Stop" IsRun = False Else Target = "Run" IsRun = True End If Change1 Cells(1, 1).Select End If End Sub Các bạn xem file đính kèm Thí dụ minh hoạ, khơng có đoạn code thực thi, ô 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel 10 of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot D5 trở thành nút nhấn thực Diễn đàn công nghệ dành cho người yêu cong nghe so Nơi khám phá dành cho bạn iphone , ipad Trả lời kèm theo trích dẫn #25 27-12-2010 04:24 PM Congngheso Chiêu số 23: Bật, tắt chức Conditional Formatting checkbox Senior Member Gia nhập: Giới tính: Dec 2010 Bài gởi: 2,946 Bạn thường dùng Data Validation để giới hạn liệu nhập vào, dùng Conditional Formatting để cảnh báo nhập liệu trùng Nhưng bạn muốn tắt chúc cảnh báo CF Có cách đơn giản để bật tắt chức cách sử dụng checkbox Xem thêm Chiêu số 18: Điều khiển Conditional Formating checkbox Nhưng CF tô màu liệu nhập trùng Trong thí dụ đây, bạn dùng CF để đánh dấu (tơ màu) có liệu xuất nhiều lần vùng liệu Giả sử vùng A1:A100 bạn thiết lập CF với công thức sau: =CountIf($A$1:$A$100,$A1)>1 Bây bạn muốn tuỳ ý bật tắt CF Trước tiên bạn công cu Form Control Toolbox, vẽ Checkbox lên sheet Thiết lập Property Cell Link cho checkbox đó, thí dụ K1 Ta vào Name box đặt nuôn tên cho ô IsCheck Bây click chọn vùng liệu A1:A100 cho ô A1 ô hành Thiết lập Conditional Formatting cho vùng với công thức sau: =AND(COUNTIF($A$1:$A$100,$A1)>1,IsCheck) Nhấn nút Format để tô màu theo ý muốn, OK Sau hoàn thành, bạn check vào checkbox, ô K1 thành True, ô có liệu trùng bị tô màu Trái lại, bạn uncheck checkbox, K1 có giá trị False, chẳng có bị tơ màu Cũng chiêu số 18, bạn hoàn toàn dùng toggle Button làm cơng tắc bật tắt y checkbox Chắc cần nói lại cách mà cơng tắc hoạt động: Do công thức bạn AND(điều kiện 1, điều kiện 2), nên cần điều kiện không thoả (=False), nguyên đk chung False, CF không hoạt động; CF có tác dụng điều kiện chung True Diễn đàn công nghệ dành cho người yêu cong nghe so Nơi khám phá dành cho bạn iphone , ipad Trả lời kèm theo trích dẫn #26 27-12-2010 04:25 PM Congngheso Chiêu số 24: Dùng nhiều List cho Combobox Senior Member Gia nhập: Giới tính: Excel cung cấp cho bạn cách để chọn thứ danh sách để nhập liệu vào Trong có cơng cụ combobox, từ danh sách xổ xuống combobox, bạn chọn ngày tuần, tháng năm, sản phẩm danh sách Nếu bạn cần chọn lựa danh sách khác nhau, bạn nghĩ bạn cần combobox Dec 2010 Bài gởi: 2,946 Thay vậy, bạn dùng chiêu sau đây, kết hợp combobox với option button Trong thí dụ sau, bạn tạo bảng tính, điền số từ đến vào vùng A1:A7, điền từ chủ nhật đến thứ hai vào vùng B1:B7, điền tháng từ tháng đến tháng vào vùng C1:C7 Một cách nhanh để điền 21 ô gõ vào A1 Trong nhấn giữ Ctrl, nắm fill handle ô A1 kéo xuống A7 Tiếp theo, gõ Sunday vào B2, doubled-click vào fill handle B1 Cuối gõ Jan vào ô C1, doubled-click vào fill handle C1 Xong 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel 11 of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Bây bạn vào Developer ➝ Controls ➝ Insert ➝ Form Controls (với Excel 2003, View ➝ Toolbars ➝ Forms) nhấn icon Option Button Vẽ lên sheet Vẽ thêm Groupbox bao quanh Option cho đẹp Bây vẽ Combobox chỗ thích hợp Nhấn chuột phải vào Option, chọn Edit Text, sửa từ Option1, Option 2, Option 3, Groupbox1 hình: Nhấn chuột phải vào Option bất kỳ, chọn Format Control, tab Control, gõ $F$1 vào ô Cell Link Ở ô D6 gõ công thức =ADDRESS(1;$F$1)&":"&ADDRESS(7;$F$1) Vào Define Name, đặt name MyRange, công thức =INDIRECT($D$6) Nhấn chuột phải vào combobox, vào Format control, Cell link gõ MyRange, Cell link $G$1 Bây bạn chọn option, ô F1 thay đổi giá trị từ đến 3, ô D6 thay đổi với giá trị $A$1:$A$7, $B$1:$B$7, $C$1:$S$7 Và list combobox đổi theo Bổ sung: Có vấn đề list lúc dài (bằng thí dụ trên), thí dụ số từ đến 10, thứ tuần từ Chủ nhật đến thứ bảy, tháng từ đến 12 Vậy ta phải làm gì? Ta làm từ từ nhé, trước tiên cách dùng ô phụ (tác giả dùng ô phụ) Gõ công thức sau vào ô G1: =COUNTA(INDIRECT(ADDRESS(1;$F$1)&":"&ADDRESS(100;$ F$1))) Với công thức trên, G1 có giá trị 10, 7, 12 tương ứng với F1 1, 2, Sửa tiếp số chết công thức ô D6 thành $G$1 cho động: =ADDRESS(1;$F$1)&":"&ADDRESS($G$1;$F$1) Kết hồn tồn mỹ mãn Ơ D6 $A$1:$A$10, $B$1:$B$7, $C$1:$C$12 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel 12 of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Bây cách GPE: dấu (bỏ) ô phụ Hiện Name MyRange ta =INDIRECT($D$6), Sửa bước thứ thay $D$6 công thức D6: =INDIRECT(ADDRESS(1;$F$1)&":"&ADDRESS($G$1;$F$1)) Kế thay $G$1 cơng thức G1: =INDIRECT(ADDRESS(1;$F$1)&":"&ADDRESS(COUNTA(INDIR ECT(ADDRESS(1;$F$1)&":"&ADDRESS(100;$F$1)));$F$1)) Ta đàng hồng xố D6 ô G1 Chỉ ô F1 link cell options, ta format thành chữ trắng OK Trong file đính kèm đây, tơi chưa xố ô D6 ô G1, để lại cho bạn xem chơi, từ từ xố sau Diễn đàn cơng nghệ dành cho người yêu cong nghe so Nơi khám phá dành cho bạn iphone , ipad Trả lời kèm theo trích dẫn #27 27-12-2010 04:26 PM Congngheso Chiêu thứ 25: Tạo danh sách xác thực thay đổi theo lựa chọn từ danh sách khác Senior Member Gia nhập: Dec 2010 Giới tính: Bài gởi: 2,946 Trước tiên, cần chuẩn bị số liệu để thực hành Bạn tạo sheet đặt tên List ô A1 nhập vào tiêu đề “Objects” Tại ô B1 nhập vào tiêu đề “Corresponding List” Vùng A2:A5 bạn nhập vào từ “Can” Vùng A2:A9 nhập vào từ “Sofa” Vùng A10:A13 nhập vào từ “Shower” Vùng A14:A17 nhập vào từ “Car” Sau đó, vùng B2:B17 bạn nhập vào từ sau: Tin, Steel, Opener, Lid, Bed, Seat, Lounge, Cushion, Rain, Hot, Cold, Warm, Trip, Journey, Bonnet, Boot Tại ô C1 nhập vào tiêu đề “Validation List” Kế đó, bạn nhập vào từ sau ô C2:C5: Can, Sofa, Shower Car Đây danh sách chứa từ từ vùng A2:A17 Bạn dùng chứa Advanced Filter để lọc danh sách cách chọn vùng A2:A17 ➝ Data ➝ Sort & Filter ➝ Advanced (E2003: Data ➝ Filter ➝➝ chọn Unique Records Only ➝ chọn Filter the List in Place ➝ OK Sau chép danh sách kết lọc dán vào vùng C2:C5 Advanced Filter) Sau nhập xong bạn có danh sách hình sau: 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel 13 of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Bước định nghĩa số Name cho List Bạn vào Formulas ➝➝ Name Manager ➝ chọn New (E2003: Insert ➝ Name ➝ Define) Trong hộp Name bạn nhập vào từ “Objects” Tại hộp Refer To bạn nhập vào công thức sau: Define Names =OFFSET($A$2,0,0,COUNTA($A$2:$A$20),1) Nhấn nút OK sau nhập xong công thức Tiếp theo, bạn nhấn New (E2003: nhấn Add) để tạo Name Trong hộp Name nhập vào tên “ValList” Refer To nhập vào =$C$2:$C$5 Nhấn Close để đóng hộp thoại lại Bạn chèn thêm sheet có tên “Sheet1” Bạn vào Formular ➝ chọn Define Names ➝Manager ➝ chọn New (E2003: Insert ➝ Name ➝ Define) Trong hộp Name bạn nhập vào “CorrespondingList” Refer To nhập vào công thức sau: Name =OFFSET(INDIRECT(ADDRESS(MATCH(Val1Cell,Objects,0) +1,2,,,"Lists")),0,0,COUNTIF(Objects,Val1Cell),1) Tiếp tục nhấn New (hoặc Add Excel 2003) để thêm Name Trong hộp Name bạn đặt tên Val1Cell Refer To nhập vào =$D$6 nhấn OK Tiếp tục nhấn New để thêm Name với tên Val2Cell Refer To =$E$6 nhấn OK sau hoàn tất Các Name mà bạn tạo hình sau: Chúng ta chuẩn bị xong thứ cần thiết, đến lúc áp dụng chức Data Validation Bạn chọn ô $D$6 Sheet1, sau vào ngăn Data ➝ nhóm Data Tools bạn chọn Data Validation ➝ chọn ngăn Settings hộp thoại Data Validatin (E2003: Data ➝ Validation ➝ Settings) Bạn chọn loại List hộp Allow hộp Source nhập vào =ValList, đánh dấu chọn In-cell dropdown, sau nhấn OK để hoàn tất 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel 14 of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Chọn ô E6, sau vào ngăn settings hộp thoại Data Validation Bạn chọn List Allow nhập vào =CorrespondingList hộp Source, đánh dấu chọn vào In-cell dropdown nhấn OK để hồn tất Trong q trình thiết lập Data Validation cho ô E6, bạn nhận thông báo lỗi “The source currently evaluates to an error Do you want to continue?” Bạn chọn Yes Lỗi xuất ô D6 rỗng Bạn thử chọn tên danh sách ô D6 xem thay đổi tương ứng danh sách E6 hình minh họa sau: Diễn đàn công nghệ dành cho người yêu cong nghe so Nơi khám phá dành cho bạn iphone , ipad Trả lời kèm theo trích dẫn #28 27-12-2010 04:27 PM Congngheso Chiêu 26: Sử dụng chức thay (Replace) để gỡ bỏ ký tự không mong muốn Senior Member Gia nhập: Giới tính: Khi nhập liệu hay chép dán liệu từ nguồn khác vào Excel ký tự khơng mong muốn xuất tồn bảng tính bạn Sử dụng chiêu bạn khắc phục rắc rối gỡ bỏ ký tự không mong muốn tay Chức thay (replace) Excel giúp bạn gỡ bỏ ký tự khơng mong muốn bảng tính, phải qua vài bước phụ Dec 2010 Bài gởi: 2,946 Ví dụ như, bạn thay ký tự khơng mong muốn chuỗi rỗng tựa chưa tồn Muốn bạn cần biết mã ký tự mà bạn muốn gỡ bỏ Tất ký tự mang mã riêng Excel cho bạn biết bạn sử dụng hàm CODE Hàm CODE trả mã số cho ký tự chuỗi Mã tương đương ký tự mà máy tính bạn thiết lập Để thực điều này, chọn có chứa ký tự khơng mong muốn Từ công thức, bôi đen ký tự chép ký tự Tiếp theo chọn trống (A1 chẳng hạn) dán ký tự vào ô chọn (A1) Tại ô khác, nhập công thức sau: =CODE($A$1) 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel 15 of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Công thức trả mã ký tự khơng mong muốn Chọn tồn liệu bạn, chọn Home ➝ Editing ➝ Find & Select ➝ Replace (với phiên trước Excel 2007: chọn Edit ➝ Replace…), khung Find what: nhấn phim Alt gõ số kèm theo code đưa công thức Nếu mã số 163 nhấn Alt nhấn 0163 (Hoặc bạn để trỏ chuột có ký tự khơng mong muốn, chép ký tự dán vào ô Find what được) Bỏ trống khung Replace With nhấn Replace all Việc làm xóa bỏ tất ký tự không mong muốn nhanh qua việc dị tìm mã ký tự Lặp lại bước cho ký tự không mong muốn Chiêu thứ 27: Chuyển đổi số dạng văn sang số thực Các giá trị số (number) Excel mặc định canh lề phải văn (text) canh lế trái Do vậy, cách đơn giản để nhận biết giá trị số văn cột bảng tính bạn thiết lập chế độ canh lề mặc định cho cột Bạn vào Home ➝ nhóm Alignment ➝ chọn Format Cells ➝ vào ngăn Alignment (E2003: Format ➝ Cells ➝ Alignment) ➝ chọn General hộp Horizontal để thiết lập việc canh lề mặc định cho cột chọn ➝ nhấn OK để đóng hộp thoại Format Cells lại Bạn kéo cột rộng để đễ phân biệt việc canh lề, bạn thấy giá trị số, ngày tháng canh lề phải văn canh lề trái Dùng Paste Special để chuyển giá trị số dạng văn sang số thực Đây cách nhanh dễ dàng để chuyển giá trị số dang văn sang số thực Các bước thực sau: Chọn ô trống nhấn lệnh Copy (Ctrl + C)➝ quét chọn vùng số liệu dạng văn định chuyển đổi (ví dụ vùng A1:A9 hình trên) ➝ nhấp phải chuột chọn Paste Special… ➝ chọn Add nhóm Operation ➝ nhấn OK để hồn tất Việc làm giúp chuyển toàn số số dạng văn sang số thực, rỗng có giá trị bạn cộng số vào số lưu dạng văn Excel bạn làm cho số dạng văn chuyển thành số thực Dùng hàm TEXT để chuyển đổi Bạn áp dụng nguyên tắc cách vào số hàm có sẵn Excel để thực việc chuyển đổi Thông thường, bạn dùng hàm thuộc nhóm TEXT kết trả dạng số Excel xem số giá trị dạng văn Giả sử bạn có vùng liệu A1:A7 hình sau: 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel 16 of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Bạn dùng hai hàm nhóm TEXT LEFT FIND để tách giá trị khỏi chuỗi văn sau: =LEFT(A1,FIND(" ",A1)-1) Sau dùng hàm để tách phần giá trị kết trả Excel xem văn chúng canh lề trái hình sau: Do vậy, bạn cần phải hiệu chỉnh cơng thức tác chuỗi để kết trả số thực cách cộng thêm số vào sau công thức trên: =LEFT(A1,FIND(" ",A1)-1) + 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel 17 of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Diễn đàn công nghệ dành cho người yêu cong nghe so Nơi khám phá dành cho bạn iphone , ipad Trả lời kèm theo trích dẫn #29 27-12-2010 04:28 PM Congngheso Chiêu 28: Trích xuất liệu số chuỗi VBA Senior Member Gia nhập: Giới tính: Dec 2010 Bài gởi: 2,946 Bạn thường lấy liệu từ nguồn ngồi, chẳng hạn từ Internet, có liệu số xen lẫn chữ như: “1,254.00VND” “USD 2,500.00”, chí cịn phức tạp Và có bạn nhập liệu hỗn hợp text số khơng theo quy luật để lấy riêng số hàm tách chuỗi thông thường Dùng hàm tự tạo viết VBA, bạn trích xuất riêng phần số ra, chuỗi có kiểu dạng Bạn nhấn Alt-F11 để vào cửa sổ VBA, insert module dán đoạn code sau vào: PHP Code: Function ExtractNumber(rCell As Range) Dim lCount As Long Dim sText As String Dim lNum As String sText = rCell For lCount = Len(sText) To Step -1 If IsNumeric(Mid(sText, lCount, 1)) Then lNum = Mid(sText, lCount, 1) & lNum End If Next lCount ExtractNumber = CLng(lNum) End Function Vào lại Excel, ô B1 gõ liệu số xen lẫn text tuỳ ý, ô kế bên C1 gõ cơng thức: =ExtractNumber(B1) Ta có kết hình: Bổ sung: Vẫn cịn chút vấn đề: liệu số thập phân ô B5, liệu gồm nhóm số riêng biệt trở lên ô B4, kết không ý muốn Để giải vấn đề số thập phân, ptm0412 có hàm khác: PHP Code: Function CtoN(Mystr As String, Optional Dautp As String) As Double Dim Kqng, Kqtp, Neg As Double, Kqtam As String Dim Sotp As Double, Le As Byte Neg = 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel 18 of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Le = For i = To Len(Mystr) tam = Mid(Mystr, i, 1) Select Case tam Case To Kqtam = Kqtam & tam Case "-" Neg = -1 Case Dautp Kqng = Kqtam Le = Mystr = Right(Mystr, Len(Mystr) - i) Kqtp = CtoN(Mystr) Sotp = Kqtp * 10 ^ (-Len(Kqtp)) End Select Next i Select Case Le Case CtoN = IIf(Kqtam = "", 0, Kqtam) Case CtoN = Kqng + Sotp End Select CtoN = CtoN * Neg End Function Ghi chú:- Khi sử dụng hàm này, bạn thêm vào hàm tham số cho biết dấu thập phân dấu nào, “,” hay “.” Thí dụ =CtoN(“USD 14255.20”,”.”), bạn biết số ngun khơng cần thêm - Hàm đọc số âm ký hiệu số âm dấu trừ đứng trước số Để giải vấn đề nhiều nhóm số khác chuỗi, Ptm0412 có hàm: PHP Code: Function CtoNPlus(Mystr As String, sttchuoi As Byte, Optional Dautp As String) As Double Newstr = Mystr For i = To sttchuoi If Len(Newstr) < Then Exit For CtoNPlus = CtoN1st(Newstr, Dautp) Next i Newstr = "" End Function PHP Code: Function CtoN1st(ByVal Mystr As String, Optional Dautp As String) As Double Dim Kqng, Kqtp, Neg As Double, Kqtam As String Dim Sotp As Double, Le As Byte, NewStr2 As String Neg = Le = For i = To Len(Mystr) tam = Mid(Mystr, i, 1) Select Case tam Case To Kqtam = Kqtam & tam If IsNumeric(Mid(Mystr, i + 1, 1)) = False And _ Mid(Mystr, i + 1, 1) "," And Mid(Mystr, i + 1, 1) "." Then Newstr = Right(Mystr, Len(Mystr) - i) Exit For End If Case "-" Neg = -1 Case Dautp Kqng = Kqtam Le = NewStr2 = Right(Mystr, Len(Mystr) - i) Kqtp = CtoN1st(NewStr2) Sotp = Kqtp * 10 ^ (-Len(Kqtp)) End Select Next i Select Case Le 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel 19 of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Case CtoN1st = IIf(Kqtam = "", 0, Kqtam) Case CtoN1st = Kqng + Sotp End Select CtoN1st = CtoN1st * Neg End Function Cú pháp hàm: CtoNPlus(Mystr , sttchuoi, [Dautp]) Sttchuoi số thứ tự nhóm số chuỗi, Dautp ký tự dấu phân cách thập phân Xem file kèm theo Diễn đàn công nghệ dành cho người yêu cong nghe so Nơi khám phá dành cho bạn iphone , ipad Trả lời kèm theo trích dẫn #30 27-12-2010 04:29 PM Congngheso Chiêu thứ 29: Tùy biến thích bảng tính Senior Member Khi chèn thích cho lệnh Review ➝ Comments ➝ New Comment (E2003: Insert ➝ Comment) Excel mặc định chèn tên người dùng máy tính vào hộp thích Bạn thay đổi điều cách vào Office ➝ Excel Options ➝ Popular (E2003: Tools ➝ Options ➝ General) Bạn nhập lại đoạn văn mặc định mong muốn hộp User name: Gia nhập: Giới tính: Dec 2010 Bài gởi: 2,946 Mặc dù thích cho có mục đích hiển thị thông báo cho bạn cho người dùng khác, bạn tùy biến nhằm mục đích làm rõ chủ ý bạn Trước tiên, bạn cần tùy biến Quick Access Toolbar (QAT) để thêm nút lệnh vào đó, bước thực sau: Office ➝ Excel Options ➝ Customize Tại hộp Choose commands from bạn chọn Smart Art Tools | Format Tab ➝ nhấn nút Add để thêm vào QAT ➝ nhấn OK hoàn tất (E2003: gọi Drawing cách View ➝ Toolbars ➝ Drawing) 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel 20 of 22 http://congngheso.vn/showthread.php/1558-Nhung-quot-tuyet-chieu-quot Chèn thích cho cách vào ngăn Review ➝ nhóm Comments ➝ chọn New Comment (E2003: Insert ➝ Comment) Một hộp thích xuất bạn nhập nội dung thích vào Để thay đổi hình dạng hộp thích bạn nhấp trái chuột lên khung viền để khỏi chế độ nhập liệu ➝ chọn lệnh Change AutoShape từ QAT ➝ chọn kiểu hình dạng mong muốn nhóm hình Basic Shapes, Block Arrow, Flow Chart, Callouts Stars and Banners ➝ sau chọn hình hình dạng hộp thích thay đổi tức Đối với phiên Excel 2007 việc hiệu ứng 3-D cho hộp thích thiết lập mặc định tùy chọn Shadow Setting bị loại bỏ Bạn thay đổi tùy chọn đổ bóng, hiệu ứng 3-D phiên Excel trước sau: chọn khung viền hộp thích ➝ vào Drawing ➝ chọn nút lệnh Shadow Settings ➝ chọn kiểu mong muốn: Thêm ảnh vào thích Một điều thú vị bạn dùng hộp thích để hiển thị ảnh mà khơng làm ảnh hưởng đến nội dung khác Thí dụ như, bạn chèn đồ thị vào hộp thích nhằm minh họa tốt cho số liệu mà không cần phải lúc đồ thị lên Để thêm hình, bạn chọn có thích ➝ nhấp phải chuột lên ➝ chọn Edit Comment ➝ chọn khung viền hộp thích ➝ nhấp phải chuột ➝ chọn Format Comment (E2003: nhấp chuột lần liên tiếp lên khung viền hộp thích) ➝ chọn ngăn Colors and Lines ➝ hộp Color, chọn Fill Effects ➝ chọn nút Select Picture ➝ chọn hình nhấn Insert ➝ OK ➝ OK 10/30/2011 9:15 PM ... "tuyệt chiêu" Excel of 22 http://congngheso.vn/showthread.php/1558 -Nhung- quot -tuyet- chieu- quot cột B bạn muốn Một cách khác Cách dùng cột phụ tơi vừa nói, chắn chạy tốt Nhưng, Excel cịn có hàm... 10/30/2011 9:15 PM Những "tuyệt chiêu" Excel of 22 http://congngheso.vn/showthread.php/1558 -Nhung- quot -tuyet- chieu- quot Chọn tab Fill (với phiên trước Excel 2007: chọn tab Patterns) hộp thoại... PM Những "tuyệt chiêu" Excel 11 of 22 http://congngheso.vn/showthread.php/1558 -Nhung- quot -tuyet- chieu- quot Bây bạn vào Developer ➝ Controls ➝ Insert ➝ Form Controls (với Excel 2003, View ➝ Toolbars