Quốc Bình

Tìm hiểu VBA - Visual Basic For Applications

Visual Basic For Applications cho phép người sử dụng một mức độ tùy biến xa hơn những gì là đặc trưng có sẵn trong các sản phẩm của Microsoft Office. Bạn có thể làm rất nhiều với Excel chỉ sử dụng các công thức nhưng đến một lúc khi bạn nhận thấy rằng mình đang làm một công việc tiêu chuẩn liên quan đến di chuyển hoặc sắp xếp dữ liệu và bạn không thể tìm thấy một cách dễ dàng để giảm nó vào một tập hợp các công thức. Thường thì nó chỉ là dễ dàng hơn để viết một chương trình tự động hóa các nhiệm vụ và Excel có một ngôn ngữ lập trình để dễ dàng sử dụng được xây dựng trong tất cả các phiên bản, VBA – Visual Basic cho các ứng dụng. VBA cho phép người sử dụng một mức độ tùy biến xa hơn những gì là đặc trưng có sẵn trong các sản phẩm Microsoft Office, chẳng hạn như Excel, Word và Power Point. Sử dụng các loại lệnh thành một module chỉnh sửa để tạo ra một Macro. Macros có thể cho phép người sử dụng một cách máy móc làm báo cáo tùy chỉnh, bảng xếp hạng và thực hiện các chức năng xử lý dữ liệu khác. Trong ngành công nghiệp tài chính, VBA Excel thường được sử dụng để cải thiện và duy trì mô hình bảng tính tài chính phức tạp. Bằng phương tiện của VBA, chúng ta có thể làm bất cứ điều gì gần như hình dung được với Excel. Microsoft Excel là một công cụ rất mạnh mẽ mà bạn có thể sử dụng để vận hành, phân tích và dữ liệu hiện tại. Mặc dù các tập hợp phong phú các tính năng trong giao diện người dùng chuẩn Excel, bạn có thể muốn tìm một cách dễ dàng hơn để thực hiện một thói quen, nhiệm vụ đơn điệu, hoặc để thực hiện một số nhiệm vụ mà giao diện người dùng dường như không giải quyết. Ngẫu nhiên, các ứng dụng văn phòng như Excel có Visual Basic cho các ứng dụng (VBA), một ngôn ngữ lập trình mà cung cấp cho bạn các thiết bị để lan truyền những ứng dụng. VBA hoạt động bằng cách thực hiện macro, step-by-step cách viết bằng Visual Basic. Nhiều người sử dụng khám phá ra rằng việc học thậm chí ở mức độ nhẹ của mã VBA làm cho công việc của họ dễ dàng hơn và cung cấp cho họ các kỹ năng để làm việc trong văn phòng mà họ đã không xem xét là có thể xảy ra. Một khi bạn đã học được một số VBA, nó quay ra được dễ dàng hơn nhiều để tìm hiểu rất nhiều đầy đủ nhiều hơn để các khách hàng tiềm năng ở đây là không giới hạn. Sử dụng VBA trong Excel là hệ thống hóa các nhiệm vụ lặp đi lặp lại. Ví dụ, bạn có một số lượng nhỏ các sách bài tập, trong số đó có một số lượng nhỏ các bảng và mỗi người trong những nhu cầu phải có một số thay đổi được thực hiện cho nó. Những thay đổi có thể đơn giản như việc áp dụng định dạng mới cho phạm vi cố định nhất định của tế bào hoặc khó khăn như nhìn vào một số tính năng đại số của các dữ liệu trên mỗi tờ, chọn loại tốt nhất của bảng xếp hạng để hiển thị dữ liệu với những đặc điểm, sau đó thực hiện và định dạng biểu đồ trong view đó.Một cách thay thế khác, nếu biết về VBA thì bạn có thể tự động hóa các nhiệm vụ bằng cách sử dụng VBA để viết lệnh rõ ràng cho Excel để theo. VBA Excel không chỉ dành cho các công việc đơn điệu. Bạn cũng có thể sử dụng VBA để xây dựng thành thạo với Excel ( bạn có thể tạo ra một công cụ mới để phân tích dữ liệu của bạn, sau đó sử dụng các khả năng biểu đồ trong Excel để hiển thị các kết quả) và để thực hiện các công việc lặt vặt có kết hợp với các ứng dụng của Office như Microsoft Access. Trong thực tế, tất cả các ứng dụng văn phòng Excel là được sử dụng giống với một nền tảng phát triển tổng thể. Hơn nữa để tất cả các nhiệm vụ có chứa danh sách và kế toán, các nhà thiết kế sử dụng Excel trong một loạt các nhiệm vụ từ dữ liệu trực quan để phần mềm tạo mẫu. Một số ứng dụng quan trọng của các macro: - Hiệu suất ổn định: giả sử ông chủ của bạn nói để làm báo cáo bán hàng vào cuối tháng và sau đó bạn có thể phát triển một chương trình trong excel. Bạn có thể hiển thị hiệu suất và sự xuất sắc báo cáo công việc hàng ngày của bạn với sự giúp đỡ của VBA. - Công việc lặp đi lặp lại và lệnh tùy chỉnh: nếu bạn có để thực hiện cùng một hành động được lặp lại nhiều lần trong excel thì bạn nên sử dụng các macro, bạn có thể làm cho công việc đơn điệu đó bằng một hoặc một số dòng lệnh duy nhất và bạn cũng có thể sửa đổi lệnh của bạn. Với sự giúp đỡ của vba công việc lặp đi lặp lại nhiều lần của bạn sẽ được thực hiện bằng dòng lệnh duy nhất do bạn viết ra. - Tạo thanh công cụ tùy chỉnh: Sử dụng macro và làm cho thanh công cụ tùy chỉnh của bạn với các điều khiển của riêng bạn trong excel. - VBA có thể được sử dụng để tính toán "phức tạp" cho một hoặc rất nhiều công việc của bạn.

Excel Hoc-tap Tin-Hoc-Van-Phong

Tự động kẻ khung cho ô dữ liệu trong excel bằng code VBA

Comment

Tạo một module có nội dung:

Sub ConditionalFormattingExample()
    'Khai bao vung dinh dang co dieu kien
    Dim MyRange As Range
    Set MyRange = Range("A1:B10")
    'Xoa dinh dang co dieu kien hien co
    MyRange.FormatConditions.Delete
 
    'Ap dung dinh dang co dieu kien
    MyRange.FormatConditions.Add Type:=xlExpression, Formula1:="=COUNTA(A1)>0"
    MyRange.FormatConditions(MyRange.FormatConditions.Count).SetFirstPriority
    With MyRange.FormatConditions(1).Borders()
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

Thay A1:B10 bằng vùng muốn tự động kẻ khung cho ô có dữ liệu.

THVP

CÁC TỔ HỢP PHÍM TRONG WINDOW

Comment

Khi bạn làm việc trên thư mục thì những phím tắt này sẽ giúp bạn xử lí nhanh hơn.

1. Window+E Mở cửa sổ Computer

2. Alt + D Chọn thanh địa chỉ.

3. Ctrl + E Chọn hộp tìm kiếm.

4. Ctrl + F Chọn hộp tìm kiếm.

5. Ctrl + N Mở cửa sổ mới.

6. Ctrl + W Đóng cửa sổ hiện hoạt.

7. Ctrl + Shift + N Tạo thư mục mới.

8. Ctrl + D (hoặc Delete) Xóa mục đã chọn và chuyển mục đó vào Thùng rác.

9. Ctrl + A Chọn tất cả các mục trong một tài liệu hoặc cửa sổ.

10. Ctrl + con lăn chuột Thay đổi kích thước và giao diện của biểu tượng tệp và thư mục.

11. Ctrl + Mũi tên phải/trái Di chuyển con trỏ đến đầu từ tiếp theo/trước đó.

12. Ctrl + Mũi tên lên/xuống Di chuyển con trỏ đến đầu đoạn trước đó/tiếp theo.

13. Ctrl + F4 Đóng tài liệu hiện hoạt (trong các ứng dụng ở chế độ toàn màn hình và cho phép bạn mở nhiều tài liệu cùng một lúc).

14. Ctrl + X Cắt mục đã chọn.

15. Ctrl + C (hoặc Ctrl + Insert) Sao chép mục đã chọn.

16. Ctrl + V (hoặc Shift + Insert) Dán mục đã chọn.

17. Ctrl + Shift + Esc Mở Trình quản lý Tác vụ.

18. Ctrl + Shift Chuyển đổi bố trí bàn phím khi có nhiều bố trí bàn phím khả dụng.

19. Ctrl + Z Trở lại thao tác vừa thực hiện.

20. Alt + F Mở Menu trong ứng dụng hiện hành.

21. Alt + F4 Đóng ứng dụng hiện hoạt.

22. Alt + Enter Hiển thị thuộc tính cho mục đã chọn.

23. Alt + Mũi tên trái(hoặc Backspace) Quay lại trong thư mục

24 . Alt + Mũi tên phải Đi tới trong thư mục

25. Alt + Phím cách Mở menu lối tắt cho cửa sổ hiện hoạt.

26. Esc Ngừng hoặc rời khỏi tác vụ hiện tại.

27. F2 Đổi tên mục đã chọn.

28. F5 (Ctrl + R) Tải lại trang web đang mở.

29. F6 Chuyển đổi giữa các yếu tố màn hình trong cửa sổ hoặc trên màn hình nền.

30. Shift + F10 Hiển thị menu lối tắt cho mục đã chọn.

31. Shift với phím mũi tên bất kỳ Chọn nhiều hơn một mục trong cửa sổ hoặc trên màn hình nền hoặc chọn văn bản trong tài liệu.

32. Shift + Delete Xóa mục đã chọn mà không phải chuyển mục đó vào Thùng rác trước. Nhấn tổ hợp phím Để thực hiện thao tác Windows (Ctrl + Esc) Mở hoặc đóng menu Start. Windows + D Hiển thị hoặc ẩn các cửa sổ. Windows + L Khóa PC của bạn hoặc chuyển đổi tài khoản. Windows + R Mở hộp thoại Run. Windows + Shift + S Chụp ảnh một phần màn hình của bạn.

Blogger Thủ thuật Blogger Thủ thuật blogspot

Cách ẩn widget trên blogspot khi xem trên điện thoại

Comment

Cách 1: Nếu muốn hiện widget trên điện thoại thì thêm mobile='yes' vào thẻ <b:widget của widget đó Ví dụ:

<b:widget id="HTML4" locked="false" mobile="yes" title="" type="HTML" visible="true">

Nếu muốn ẩn widget trên điện thoại thì thêm mobile='no' vào thẻ <b:widget của widget đó
Ví dụ:

<b:widget id="HTML4" locked="false" mobile="no" title="" type="HTML" visible="true">

Nếu muốn hiện wideget trên mobile mà không hiển thị trên máy tính thì thêm mobile='only' vào thẻ <b:widget của widget đó
Ví dụ:

<b:widget id="HTML4" locked="false" mobile="only" title="" type="HTML" visible="true">

Cách 2:
Có thể thêm thẻ điều kiện trực tiếp vào widget đó để ẩn widget trên giao diện điện thoại
Ví dụ:

<b:widget cond="!data:blog.isMobileRequest" id="HTML4" locked="false" title="" type="HTML" visible="true">

Excel Hoc-tap THVP VBA

Unprotect All sheet in Excel

Comment

Khi dùng excel bạn bảo vệ sheet (Protect sheet) nhưng chẳng may quên mật khẩu bài viết này giúp bạn gỡ bỏ mật khẩu bảo vệ sheet (unprotect sheet) trong trường hợp này. Cách làm: - Mở trình soạn thảo VBA bằng cách vào Tab Developer > Visual Basic - Trong trình soạn thảo VBA vào Insert > Module - Paste đoạn code vba vào Module vừa tạo rồi bấn F5 trên bàn phím để thực thi đoạn code vba:


Sub unprotectedAll()
    Dim i As Integer
    For i = 1 To Application.Sheets.Count
        PasswordBreaker Application.Sheets(i)
    Next
End Sub
Sub PasswordBreaker(MySheet)
    Dim pass As String
          If MySheet.ProtectContents = True Then
                    Dim i As Integer, j As Integer, k As Integer
                    Dim l As Integer, m As Integer, n As Integer
                    Dim i1 As Integer, i2 As Integer, i3 As Integer
                    Dim i4 As Integer, i5 As Integer, i6 As Integer
                    On Error Resume Next
                    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
                    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
                    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
                    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
                    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
                    Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
                    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                    If ActiveSheet.ProtectContents = False Then
                    MsgBox "One usable password is " & Chr(i) & Chr(j) & _
                    Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
                    Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                    Exit Sub
                    End If
                    Next: Next: Next: Next: Next: Next
                    Next: Next: Next: Next: Next: Next
          End If
End Sub

Chúc bạn thành công!

Excel Hoc-tap VBA

Cải thiện tốc độ phản hồi của Macro VBA

Comment

Khi chạy một đoạn macro VBA bạn có thể thấy màn hình chớp nháy hoặc gặp hiện tượng đơ máy... bài viết này sẽ giúp bạn khắc phục được các hiện tượng trên giúp công việc của bạn mượt mà hơn ^-^. Đầu tiên các bạn tạo một Module có nội dung:

Public CalcState As Long Public EventState As Boolean Public PageBreakState As Boolean '//Tat bo mot thiet lap quan trong trong Office: tan dung bo nho may tinh de lien tuc cap nhat hoat dong cua macro len man hinh (theo thoi gian thuc) Sub OptimizeCode_Begin() Application.ScreenUpdating = False EventState = Application.EnableEvents Application.EnableEvents = False CalcState = Application.Calculation Application.Calculation = xlCalculationManual PageBreakState = ActiveSheet.DisplayPageBreaks ActiveSheet.DisplayPageBreaks = False End Sub '//========================================================== Sub OptimizeCode_End() ActiveSheet.DisplayPageBreaks = PageBreakState Application.Calculation = CalcState Application.EnableEvents = EventState Application.ScreenUpdating = True End Sub

Cách sử dụng: Khi các bạn viết macro thì cấu trúc sẽ như sau:

Sub YourMacro() '//Optimize Code Call OptimizeCode_Begin '//Bạn đặt macro bạn muốn sử dụng ở đây your macro code here... '//Optimize Code Call OptimizeCode_End End Sub

Chúc bạn thành công!

Hoc-tap Ke-toan

Hạch toán sau khi cơ quan thuế quyết toán - thanh tra

Comment

Căn cứ chuẩn mực kế toán số 17, Căn cứ chuẩn mực kế toán số 29, Căn cứ vào thông tư 200/2014/TT-BTC, Căn cứ vào thông tư 133/2016/TT-BTC

Trường hợp sau khi cơ quan thuế thanh kiểm tra xong, có quyết định phạt và truy thu thuế thì hạch toán như sau:

A. Truy thu thuế thu nhập doanh nghiệp.

1. Phản ánh thuế thu nhập doanh nghiệp phải nộp:

Nợ Tài khoản 821: Chi phí thuế thu nhập doanh nghiệp hiện hành

Có Tài khoản 3334: Thuế thu nhập doanh nghiệp phải nộp

2. Nộp thuế thu nhập doanh nghiệp vào ngân sách nhà nước:

Nợ Tài khoản 3334: Thuế thu nhập doanh nghiệp phải nộp

Có Tài khoản: 111/112: Tiền mặt/Tiền ngân hàng.

B. Truy thu thuế giá trị gia tăng.

1. Phản ánh thuế giá trị giá tăng truy thu bổ sung:

Nợ Tài khoản: 811: Chi phí khác

Có Tài khoản: 3331: Thuế giá trị gia tăng phải nộp

2. Nộp thuế giá trị gia tăng vào ngân sách nhà nước:

Nợ Tài khoản 3331: Thuế giá trị gia tăng phải nộp

Có Tài khoản: 111/112: Tiền mặt/Tiền ngân hàng.

C. Truy thu thuế thu nhập cá nhân.

1. Phản ánh thuế thu nhập cá nhân truy thu bổ sung:

Nợ Tài khoản: 811: Chi phí khác

Có Tài khoản: 3335: Thuế thu nhập cá nhân phải nộp

2. Nộp thuế thu nhập cá nhân vào ngân sách nhà nước:

Nợ Tài khoản 3335: Thuế thu nhập cá nhân phải nộp

Có Tài khoản: 111/112: Tiền mặt/Tiền ngân hàng.

D. Tiền phạt, tiền chậm nộp.

1. Phản ánh tiền phạt, tiền chậm nộp:

Nợ Tài khoản: 811: Chi phí khác

Có Tài khoản: 3339: Phí, lệ phí và các khoản phải nộp khác

2. Nộp tiền phạt, chậm nộp vào ngân sách nhà nước:

Nợ Tài khoản 3339: Phí, lệ phí và các khoản phải nộp khác

Có Tài khoản: 111/112: Tiền mặt/Tiền ngân hàng.

E. Điều chỉnh tăng, giảm và hạch toán tiền thuế giá trị giá tăng được khấu trừ

1. Điều chỉnh tăng thuế giá trị gia tăng được khấu trừ

Gõ vào chỉ tiêu 38 của tờ khai hiện hành ( Số tiền thuế giá trị gia tăng điều chỉnh tăng theo quyết định thanh kiểm tra)

2. Điều chỉnh giảm thuế giá trị gia tăng được khấu trừ

Gõ vào chỉ tiêu 37 của tờ khai hiện hành ( Số tiền thuế giá trị gia tăng điều chỉnh giảm theo quyết định thanh kiểm tra)

3. Hạch toán giảm thuế giá trị gia tăng được khấu trừ

Nợ Tài khoản 811 ( hoặc Tài khoản 4211) Có Tài khoản 1331

4. Hạch toán tăng thuế giá trị gia tăng phải nộp vào ngân sách nhà nước

Nợ Tài khoản 811 (hoặc Tài khoản 4211) Có Tài khoản 33311

F. Điều chỉnh giảm lỗ theo biên bản quyết toán

Không có hạch toán gì cả, chỉ theo dõi là số lỗ được chuyển theo tờ khai quyết toán thuế TNDN bây giờ là theo số biên bản, quyết định thanh tra, kiểm tra thuế ( Kế toán thuế Hà Vân vẫn giữ nguyên lỗ theo kế toán)

Lưu ý:

- Chi phí các khoản thuế, phạt này vẫn kết chuyển tính kết quả kinh doanh bình thường, nhưng khi lập tờ khai quyết toán thuế TNDN thì gõ vào chỉ tiêu B4 nhé.

- Trong những trường hợp không ảnh hưởng có thể dùng Tài khoản 4211 để hạch toán như một vài cơ quan thuế đã hướng dẫn, tuy nhiên cần xem xét tính chất của kế toán, kẻo ảnh hưởng mà không biết.

Subscribe to: Posts ( Atom )

Tìm hiểu VBA - Visual Basic For Applications

Tự động kẻ khung cho ô dữ liệu trong excel bằng code VBA

CÁC TỔ HỢP PHÍM TRONG WINDOW

Cách ẩn widget trên blogspot khi xem trên điện thoại

Unprotect All sheet in Excel

Cải thiện tốc độ phản hồi của Macro VBA

Hạch toán sau khi cơ quan thuế quyết toán - thanh tra