Biểu đồ “động đậy” trong Excel

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. Trang 10 • NET2GROSSLC: Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) 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. • NET2GROSSFR: Hàm qui đổi thu nhập sau thuế (net) sang thu nhập trước thuế (gross) dành cho 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. Lưu ý: Tên hàm có thể thay đổi cho phù hợp với yêu cầu của bạn. TẠO HÀM 1. Mở bảng tính (workbook) mới 2. Nhấn tổ hợp phím Alt+F11 để khởi động microsoft Visual Basic 3. Nhấn vào bảng tính của bạn tại cửa sổ VBA project. Ví dụ: VBA project (book1) 4. Chọn Insert.Module 5. Nhấn đúp vào module mới tạo ra và nhập vào các đoạn mã sau. Function pitlc(gross_local) 'Personal Income Tax for Local Vietnamese Citizen If (gross_local > 0) And (gross_local <= 5000000) Then pitlc = 0 ElseIf (gross_local > 5000000) And (gross_local <= 15000000) Then pitlc = (gross_local - 5000000) * 0.1 ElseIf (gross_local > 15000000) And (gross_local <= 25000000) Then pitlc = 1000000 + ((gross_local - 15000000) * 0.2) ElseIf (gross_local > 25000000) And (gross_local <= 40000000) Then pitlc = 3000000 + ((gross_local - 25000000) * 0.3) ElseIf (gross_local > 40000000) Then pitlc = 7500000 + ((gross_local - 40000000) * 0.4) End If [...]... nhấ vào khung Save as type và chọ Microsoft Office Excel Add-in (*.xla) n n 6 Đ t tên file và chọ đ ờ dẫ đ lư file (ví dục:\PITformular xla) ặ n ư ng n ể u : 7 Hoàn tấ t Muố gắ add-in vào bấcứ n n t máy nào có Excel bạ chỉ c vào Tools ->Add-Ins sau đ nhấ n việ ó n Browse và tìm đn nơ chứ file xla nêu trên rồ OK ế i a i Tự đ ng trích ngang dữ liệ trong Excel - 16/3/2005 14h:36 ộ u Bạ đ ợ giao nhiệ vụthự... thì bạ cầ phảtạ add-in Cách c n n i ng n n n i o tạ add-in như o sau: 1 Nhấ chuộphảvào Module đ tạ ởtrên n t i ã o 2 Đ n thông số iề trong tab General a Project Name: Đ n tên hàm (ví dụPIT) iề : b Project Description: Đ n vào mô tả a dựán (ví dụ PIT formular) iề củ : 3 Trong tab Protection, nhấ vào Lock project for viewing sau đ đ n mậkhẩ và xác nhậ mậ n ó iề t u n t khẩ nế bạ không muố ngư i khác xem... tay cho biể này phảdùng scroll bar kéo qua kéo lạđ tìm cho ng p u ng u i i ể đ cộ dữliệ vừ tố công vừ dễ m Chi bằ bạ cứnhậ các thông tin cầ thiế úng t u, a n a nhầ ng n p n t, phầ việ còn lạhãy cứđ cho Excel làm giúp, đ m bả số u chính xác 100% n c i ể ả o liệ Ví dụchúng ta có mộmẫ nhậký chi tiề mặ(hình 1) vớquy ư c nhậ liệ là nế mộ chứ , t u t n t i ớ p u u t ng từ nhiề tài khoả đi ứ thì nhậ trên nhiề... kiể ơ ố a n ng c - Dùng mộ macro thứtư i lầ lư t 3 macro trên đ hình thành mộ quá trình hoàn chỉ 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... SoCot = SoCot + 1 Loop ActiveCell.Offset(1, -4).Range(“A1”).Select Else SoDong = 0 ActiveCell.Offset(0, -2).Range(“A1”).Select Trang 18 ThutuDong = ThutuDong + 1 End If Lư giữ giá trị n tạđ tiế tụ so sánh trong vòng lặ u các hiệ i ể p c p Ngay = Ngay2 Chungtu = Chungtu2 Noidung = Noidung2 ActiveCell.Offset(1, 0).Range(“A1”).Select Nế mộchứ từcó nhiề dòng, phảdờ con trỏ ế đ dòng cuố u t ng u i i đn úng i... tài khoả đi ứ đng thờ a hai i) nhữ ng u n ố ng, ồ i xóa cộ TK (tài khoả t n) Sub XoaDong() Dim Ngay, Ngay2 As Date Dim Chungtu, Chungtu2, Noidung, Noidung2 As String Lư giữcác giá trị dòng đu đ so sánh trong vòng lặ u ở ầ ể p Range(“A2”).Select Ngay = ActiveCell.Value ActiveCell.Offset(0, 1).Range(“A1”).Select Chungtu = ActiveCell.Value Trang 19 ActiveCell.Offset(0, 1).Range(“A1”).Select Noidung = ActiveCell.Value . 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. 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