MỘT SỐ THỦ THUẬT VỚI EXCEL

Hà Nội, ngày 10 tháng 1 năm 2007 Trang 1 Biểu đồ “động đậy” trong Excel - 12/11/2004 13h:13 Bạn có thấy một biểu đồ chuyển động trong Excel chưa? Với chương trình Viual Basic tự tạo đơn giản, bạn có thể làm cho biểu đồ của mình nhúc nhích trông thật sinh động. Giả sử, bạn có bảng số liệu với cột A chứa giá trị biến số X (từ A4:A19). Giá trị của biến X sau luôn bằng giá trị của biến X trước nó cộng với trị quy định ở ô A1. Bạn cho giá trị ban đầu của biến X là 0 (ô A4), công thức cho ô A5 = A4 + $A$1. Tiếp đó bạn chọn một khoảng (trong trường hợp này là A5:A19) rồi nhấn Ctrl + D để copy công thức từ ô A5 xuống các ô còn lại. Cột B chứa giá trị hàm số Y=SIN(X). Sau đó bạn vào Insert\ Chart để vẽ biểu đồ cho vùng giá trị mà bạn đã tạo. (Bạn nên dùng Chart Type là XY Scatter). Trang 2 Để cho biểu đồ của mình nhúc nhích, bạn phải viết một hàm để thay đổi giá trị của ô A1. Khi đó giá trị của bảng số liệu sẽ thay đổi và làm cho biểu đồ cũng thay đổi theo. Bạn nhấn Alt +F11 để hiện ra cửa sổ Visual Basic Editor. Trong của sổ Visual Basic, nhấn F7 để xuất hiện cửa sổ Code. Viết một hàm nhưsau: Sub BieuDoDongDay() Range (“A1”) = 0 For i =1 to 150 Range (“A1”) = Range (“A1”) + 0.035 Next i Range (“A1”) = 0 End Sub Trở lại cửa sổ của Excel, nhấn Alt + F8 để mở cửa sổ Macro, rồi nhấn Run để thực thi chương trình. Bạn có thể đặt phím tắt cho hàm vừa tạo bằng cách nhấn Options. Vậy là xong, bạn có thể chiêm ngưỡng tác phẩm của mình rồi đó. Trang 3 Thủ thuật với Microsoft Excel - 27/12/2004 13h:54 Mở tệp tin thường dùng Phải thao tác thường xuyên trên một tệp tin (ví dụ bảng quyết toán), bạn có thể chỉ định Excel để chương trình mở tệp tin này (ví dụ quyettoan.xls) mỗi khi chương trình khởi động. Để thực hiện điều này, chỉ cần lưu tệp tin (File > Save As) vào thưmục XLStart nằm trong \Program files\Microsoft Office\Office. * Chèn nhiều dòng trong một ô (cell) Trong quá trình nhập dữ liệu, ở chế độ mặc định mỗi lần bạn nhấn Enter thì con chỏ chuột sẽ chọn ô (cell) ngay dưới ô bạn đang thao tác. Chính vì vậy đối với những người “mới vào nghề”, rất khó có thể nhập dữ liệu nhiều dòng trong cùng một ô. Thủ thuật hết sức đơn giản, bạn chỉ việc nhấn tổ hợp phím Alt + Enter. * Thêm màu cho bảng tính Để thêm màu hoặc ảnh nền cho bảng tính, bạn chọn Format > Sheet > Background. Tiếp đến, tìm tới ảnh nền (hoặc font màu) bạn thích và nhấn Open. * “Đóng băng” dòng tiêu đề Trong mỗi bảng tính thường có dòng tiêu đề cố định vị trí cho từng cột (column). Nếu bạn nhập dữ liệu trong nhiều dòng và tràn quá màn hình, công việc nhập dữ liệu sẽ rất khó khăn vì dòng tiêu đề “trôi” mất. Để “đóng băng” dòng tiêu đề, nhấn chuột chọn một ô ngay dưới dòng tiêu đề; chọn Window > Freeze Panes. Giờ bạn có thể thoải mái nhập dữ liệu với thanh tiêu đề luôn hiển thị ở phía trên bảng tính Trang 4 Tạo công cụ học từ vựng trong Excel Có bao giờ các bạn nghĩ tới việc tạo công cụ học từ vựng trong Excel giống nhưcác chương trình học tiếng Anh không? Đầu tiên bạn hãy tạo một file Excel mới và đặt tên là Timer (bạn có thể đặt tên khác). Bạn xóa hết các sheet, chỉ để lại một sheet và đặt tên là Data. Khối dữ liệu của chúng ta sẽ có 2 cột: Cột một là tựa đề, cột hai là nội dung. Chú ý là các hàng dữ liệu phải liên tục nhau. Tiếp theo, chúng ta tạo một module và đặt tên là ModuleTimer (Hình 1) và nhập đoạn code 1. Ở đây chúng ta dùng hai hàm API là SetTimer và KillTimer. Tạo một form với tên là frmMain với thuộc tính ShowModal là False nhưhình 3 và thêm các đối tượng sau: Trang 5 - TextBox txtTopic với thuộc tính WordWrap là True - TextBox txtDescriptions với thuộc tính WordWrap là True - 4 nút lệnh với tên lần lượt: cmdStart, cmdStop, cmdSetTime, cmdClose, với thuộc tính Caption lần lượt: Bắt đầu học, Ngừng học, Định thời gian, Đóng.(xem hình 2) Trang 6 Và bây giờ bạn hãy nhập đoạn code 2 cho form frmMain. Bước cuối cùng, bạn hãy trở về màn hình soạn thảo Excel. Cho hiện thanh công cụ Visual Basic (View->Toolbars->Control Toolbox), chọn Command Button (Hình 3) và đặt lên sheet Data (nhưhình 4), đặt tên là cmdHoc với thuộc tính Caption là Học. Sau đó nhấn đúp vào nút lệnh để nhập đoạn mã sau: Private Sub cmdHoc_Click() frmMain.Show End Sub Bây giờ bạn hãy trở về màn hình soạn thảo Excel và tắt chế độ Design (nhấn vào biểu tượng thước Ê ke và cây viết), và hãy thử nhấn vào nút lệnh vừa tạo xem sao. Một công cụ học từ vựng thật đơn Trang 7 giản, phải không các bạn. Hy vọng rằng bài viết này hữu ích cho các bạn. CODE 1 Public Declare Function SetTimer Lib "user32"( ByVal HWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" ( ByVal HWnd As Long, ByVal nIDEvent As Long) As Long Public TimerID As Long Public TimerSeconds As Single Public BLDefaul As Boolean Public StrTopic As String Public StrDes As String Public IntCount As Integer Public BLHaveStartTimer As Boolean Sub StartTimer() If BLDefaul = False Then TimerSeconds = 3 ' Mặc định là 1 giây End If TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc) End Sub Sub SetTime() Dim VTime As Single Dim VAns As String BLDefaul = False VAns = InputBox("Xin nhập vào thời gian (giây) cho timer ", "Định thời gian") If Len(VAns) = 0 Then BLDefaul = False Else VTime = CSng(VAns) TimerSeconds = VTime BLDefaul = True MsgBox "Dữ liệu của bạn không có!", vbOKOnly, "Công cụ học từ vựng" Exit Sub End If Else IntCount = IntCount + 1 End If frmMain.txtTopic.Text = StrTopic frmMain.txtDescriptions.Text = StrDes DoEvents Exit Sub Thongbao1: Call EndTimer End Sub CODE 2 Private Sub cmdClose_Click() If BLHaveStartTimer = True Then Call cmdStop_Click End If End End Sub ' Nhằm bảo đảm nếu đã gọi Timer rồi thì sẽ không gọi nữa Private Sub cmdSetTime_Click() Call SetTime Call cmdStop_Click Call cmdStart_Click End Sub Private Sub cmdStart_Click() If BLHaveStartTimer = False Then Call StartTimer BLHaveStartTimer = True End If End Sub Private Sub cmdStop_Click() Call EndTimer Trang 8 End If End Sub Sub EndTimer() On Error Resume Next KillTimer 0&, TimerID End Sub Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long) ' ' The procedure is called by Windows. Put your ' timer-related code here. ' On Error GoTo Thongbao1 If IntCount = 0 Then IntCount = 2 BLHaveStartTimer = False End Sub Private Sub UserForm_ QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True MsgBox "Xin bạn đóng bằng nút lệnh ĐÓNG!", vbOKOnly, "Công cụ học từ vựng" End If End Sub StrTopic = HÃY KIỂM TRA LẠI ĐĨA MỀM Trang 9 Application.Workbooks("Timer"). Sheets("Data").Cells(IntCount, 1) StrDes = Application.Workbooks("Timer"). Sheets("Data").Cells(IntCount, 2) If Len(Trim(StrTopic)) = 0 Then IntCount = 2 StrTopic = Application.Workbooks("Timer"). Sheets("Data").Cells(IntCount, 1) StrDes = Application. Workbooks("Timer").Sheets("Data"). Cells(IntCount, 2) If Len(Trim(StrTopic)) = 0 Then BLHaveStartTimer = False Call EndTimer Một bạn đọc tự giới thiệu "nguyên là chuyên gia nghiên cứu đĩa từ" đã có một số lời khuyên tốt về các đĩa mềm khởi động khẩn cấp và các đĩa cứu nguy của Windows và các chương trình khác: " Đừng quá tin là chúng còn tốt". Đĩa mềm để lâu ngày có thể gây hỏng hóc các sector. Muốn xác nhận chúng vẫn còn làm việc, bạn phải kiểm tra chúng vài tháng m ột lần - b ằng cách khởi động PC từ đĩa mềm đó, hoặc đánh giá bằng công cụ quét đĩa: Trong Windows 98 và Me, bạn chọn Start.Programs.Accessories.System Tools.ScanDisk. Trong Windows 2000 và XP, chọn Start.My Computer, nhấn phải đĩa mềm đó, chọn Properties, và nh ấn Tools.Check Now. Lê Văn Duyệt Tính thuế thu nhập bằng Excel - 22/1/2005 9h:26 Cuối năm là thời điểm cần quyết toán thuế thu nhập cá nhân. Đây là vấn đề không "nhẹ nhàng" chút nào, nhất là khi qui mô công ty của bạn không nhỏ. Tuy nhiên bạn đừng lo, bạn có thể lập trình "bắt" Excel xử lý giúp "gánh nặng" này. Công việc chuẩn bị - PC cài HĐH Windows 2000 hoặc XP, Microsoft Excel XP hoặc 2003 - Phụ lục số 1 và số 2, kèm theo Thông tưsố 81/2004/ TT-BTC ngày 13/8/2004 của Bộ Tài chính. - Lên kế hoạch tạo các hàm sau: • PITLC: Hàm tính thuế thu nhập cá nhân dành cho công dân Việt Nam và các cá nhân khác định cưtại Việt Nam. • PITFR: Hàm tính thuế thu nhập cá nhân người nước ngoài cưtrú tại Việt Nam và công dân Việt Nam lao động, công tác ở nước ngoài. [...]... t i u c n i o i đi tính toán Trong bài viế này tôi muố giớ thiệ mộ số ơ pháp “thủtiêu” số ổ t n i u t phư ng 0 “đ ghét” mộ cách nhanh chóng áng t 1- Giấ tấcả 0 trong bả tính: u t số ng Nhấ vào menu Tools>Options, chọ thẻ n n View Xoá hộ kiể Zero values p m 2- Dùng dạ số ể u các số trong nhữ ô đợ chọ ng đ giấ 0 ng ưc n: - Chọ các ô có số cầ giấ Nhấ menu Format>Cells (hoặ nhấ Ctrl+1), chọ thẻ n 0 n u... vào hộ kế p bên; ngư c lạmuố giấ số thì đ trố hộ ợ i n u 0 ể ng p.ÿ 106 thủ thuậ vớ Microsoft Office - Phầ 6 - 3/8/2005 15h:10 t i n Microsoft Excel Phím tắ thông dụ trong Excel t ng Phím tắtrong các ứ dụ MS Office là mộtrong nhữ tính nă hữ ích nhấ giúp cho ngư i t ng ng t ng ng u t, ờ sửdụ thao tác nhanh hơ Xin liệkê ra đ m số ng n t ây t phím tắthông dụ nhấtrong Excel t ng t F2 Sử nộdung thông tin... 0).Range(“A1”).Select Loop Xóa c số u tài khoả (TK) t hiệ n Trang 20 Columns(“D:D”).Select Selection.Delete Shift:=xlToLeft Range(“A1”).Select End Sub Các phư ng pháp giấ số 0 trong Excel - 16/3/2005 14h:39 ơ u Khi tính toán trong Excel, bạ có thể y kế quả 0 nằ ởnhiề nơ trong bả tính n thấ t số m u i ng Đ u này gây khó nhìn hoặ lúc in ra sẽ iề c không thẩ mỹBạ có thể đ xoá các số m n tìm ể 0 như rấ mấ thờ... đn ớ i a ế chuyể thành dấ cộ rồ kéo đn các ô bạ n u ng i ế n muố danh sách hiệ ra Excel sẽ n n giúp bạ đ n nốcác giá trị lạ n iề i còn i 106 thủ thuậ vớ Microsoft Office - Phầ 8 - 17/8/2005 15h:54 t i n Microsoft Excel Đnh nghĩ hằ số ị a ng trong bả tính ng Sửdụ công cụ ng Name trong Excel bạ có thể ị nghĩtrư c mộhằ số n đ nh a ớ t ng trong tệ tin bả p ng tính củ bạ Lấ ví dụbạ có thể ị nghĩtrư c mứ... Hàm Excel tính tuổ nợvà số dư bình quân - 30/9/2006 10h:30 i Kế toán công nợthư ng phảtính tuổ số ờ i i dưkhoả phảthu củ khách hàng đ biếkhoả n i a ể t n nào cầ đ ợ thu trư c, ngoài ra còn phả tính số n ưc ớ i dưbình quân củ các khoả phả thu này a n i nhằ "nâng cao chấ lư ng quả lý tài chính" Nế không có phầ mề kế m t ợ n u n m toán cung cấ sẵ p n các chứ nă này hoặ phảtác nghiệ bằ Excel mộcách thủ. .. tư ng củ bạ nơ ngưi nhậ tin ở a n i ờ n Dùng VBA trong Excel đ tạ và sử chữ PivotTable - 1/9/2006 10h:19 ể o a a Chứ nă PivotTable là chứ nă mạ củ Excel, nó giúp bạ tổ kế số u nhanh mộ c ng c ng nh a n ng t liệ t cách kinh ngạ Chứ nă này đ u tiên xuấ hiệ trong Excel 5 c c ng ầ t n Tôi cho rằ các bạ đ làm quen vớviệ tạ và sử chữ PivotTable bằ cách thủ ng n ã i c o a a ng công và bài viếnày sẽ ớ dẫ dùng... Double Hàm này trả tuổ củ khoả phảthu theo ngày, bằ cách giảđ số còn phảthu tạngày về i a n i ng i áp dư i i cuốcùng là các khoả phảthu củ các ngày nào theo nguyên tắ khoả đ thu đợ sẽ thanh i n i a c n ã ư c là toán cho khoả phảthu đn trưc, sau đ tính ra số n i ế ớ ó ngày theo trọ số a từ khoả đi v số ng củ ng n ố i dư Hàm có hai tham sốthứ t mRange chính là vùng tính toán, trong ví dụ A2:D13; thứhai... gán t gọ n ợ ể t nh, phím tắcho macro này đ tiệ sử ng t ể n dụ 1 Trích ngang dữ u theo tài khoả phát sinh Trong thủ c này, că cứ số u tài khoả tạ liệ n tụ n vào hiệ n i cộTK, số n tư ng ứ đợ trảra theo chiề ngang, tiề củ tài khoả nào đ ợ đ n vào cộ t tiề ơ ng ưc i u n a n ư c iề t mang đ số u tài khoả đ úng hiệ n ó Sub TrichNgang() Dim Taikhoan As String Dim ThutuDong, SoCot As Integer Dim Sotien As... giờbạ đ có thể p công thứ sử n ó p t n ã nhậ c bấkì theo kiể =A1*TaxRate và Excel sẽ đng thay số bạ t u tự ộ cho n Bằ cách này bạ cũ có thể t kiệ thờ gian trong việ xửlý bả tính đrấnhiề chỉ ng ng n ng tiế m i c ng i t u bằ cách đ nghĩnhữ con số ờ đ ợ sửdụ trong bả tính ị nh a ng thư ng ư c ng ng Giả nế có thay đi gì đi vớ nhữ hằ số bạ đ nghĩra bạ sẽ sử u ổ ố i ng ng do n ị nh a n không mấquá nhiề t u... kiệ đ giấ số đ ợ trả từ t quả a công thứ ị ng iề n ể u 0 ư c về kế củ c: - Chọ ô có số cầ giấ n 0 n u - Nhấ menu Format>Conditional Formatting Ởhộ bên trái chọ Cell Value Is, hộ thứ tiế n p n p hai p theo chọ equal to, hộ kế p gõ số n p tiế 0 - Nhấ nút Format, chọ thẻ n n Font Trong hộ Color, chọ màu trắ (hay trùng vớmàu nề củ p n ng i n a bả tính) Bấ OK 2 lầ ng m n 4- Dùng công thứ đ giấ số hoặ thay . 1 Loop End Sub 2. Mang số tiền từ các dòng dưới cộng vào dòng đầu đối với những chứng từ có hơn một dòng phát sinh. Đối với một chứng từ chi đối ứng với nhiều tài khoản, bạn phải cộng dồn số tiền của từng. rồi đó. Trang 3 Thủ thuật với Microsoft Excel - 27/12/2004 13h:54 Mở tệp tin thường dùng Phải thao tác thường xuyên trên một tệp tin (ví dụ bảng quyết toán), bạn có thể chỉ định Excel để chương. "bắt" Excel xử lý giúp "gánh nặng" này. Công việc chuẩn bị - PC cài HĐH Windows 2000 hoặc XP, Microsoft Excel XP hoặc 2003 - Phụ lục số 1 và số 2, kèm theo Thông t số 81/2004/