2013-01-19 14:59:36
Chào mừng bạn đến với Blog của LA CHÍ NHÂN
Cuộc sống là 1 trường học lớn. Chỉ cần biết quan sát bạn sẽ học được nhiều điều.
Bạn hãy đăng ký thành viên để cùng tôi chia sẻ. Đăng ký thành viên | Click vào để quyên góp duy trì Blog
Sau 5 phút web sẽ chạy quảng cáo 1 lần, và chỉ hiện 5 lần trong ngày. Các bạn chịu khó nhấn Skip Ad khi quảng cáo hiễn thị như 1 cách giúp duy trì Web
Chế độ xem: Thông dụng | Danh sách bài viết
Tạo sitemap cho website bằng công cụ miễn phí
[ 2013-01-19 13:39:29 | Tác giả: Admin ]
Tạo sitemap cho website bằng công cụ miễn phí với hỗ trợ đầy đử và nhanh chóng
Sitemap là một yếu tố rất quan trọng trong việc Google lập chỉ mục website của chúng ta. Một site đầy đủ sẽ giúp các con robot của Google nhanh chóng tiếp cận tới các webpage của chúng ta và lập chỉ mục cho chúng.
Ngoài ra sitemap cũng làm ...
Xem tiếp...
Disable Right Click -EXCEL VBA
[ 2012-10-03 14:20:20 | Tác giả: Admin ]
This will disable popup menu
Sub Disable_Right_Click()
' ---------------------------------------------------------------
' Written By Shanmuga Sundara Raman for http://vbadud.blogspot.com
' ---------------------------------------------------------------
' This will disable mouse right click on worksheets
Application.CommandBars("Cell").Enabled = False
End Sub
Sub Disable_Right_Click()
' ---------------------------------------------------------------
' Written By Shanmuga Sundara Raman for http://vbadud.blogspot.com
' ---------------------------------------------------------------
' This will disable mouse right click on worksheets
Application.CommandBars("Cell").Enabled = False
End Sub
Extract Links hoặc URLs từ một Web Page – Visual Basic 6 (VB6)
[ 2012-02-19 08:42:02 | Tác giả: Admin ]
Private Sub Command1_Click()
Dim c
Dim aLink As Object
For Each aLink In WebBrowser1.Document.All.tags("A")
List1.AddItem aLink.href
Next aLink
Open App.Path & "\urllist.txt" For Output As #1
For c = 0 To List1.ListCount - 1
Print #1, List1.List(c)
...Dim c
Dim aLink As Object
For Each aLink In WebBrowser1.Document.All.tags("A")
List1.AddItem aLink.href
Next aLink
Open App.Path & "\urllist.txt" For Output As #1
For c = 0 To List1.ListCount - 1
Print #1, List1.List(c)
Xem tiếp...
Một số mã nguồn cho VB6
[ 2012-02-02 15:06:18 | Tác giả: Admin ]
Code chương trình quản lý hồ sơ công chứng
Code chương trình quản lý kế toán VB6, CSDL Access
Code chương trình quản lý nhà trẻ VB6, CSDL SQL
Code tự động thu thập dữ liệu qua cổng COM theo chuẩn RS322 bằng VB
...
Xem tiếp...
Code chương trình quản lý kế toán VB6, CSDL Access
Code chương trình quản lý nhà trẻ VB6, CSDL SQL
Code tự động thu thập dữ liệu qua cổng COM theo chuẩn RS322 bằng VB
...
Xem tiếp...
Function Giá Vàng Dollar hôm nay
[ 2011-12-13 13:37:22 | Tác giả: Admin ]
Function Giá Vàng Dollar hôm nay dùng số liệu do trang http://www.sacombank-sbj.com cung cấp
Function hoạt động nhờ một function khác: SourceURL_Stream để load source trang web
2 function có code như sau:
MODULE:
'us-ascii, utf-8, unicode, iso-8859-1, _autodetect
Public Function SourceURL_Stream(Url As String, _
...Public Function SourceURL_Stream(Url As String, _
Xem tiếp...
Làm giảm dung lượng tập tin Excel
[ 2011-09-18 17:52:32 | Tác giả: Admin ]
Sau khi sử dụng một thời gian, các bạn phát hiện tập tin Excel của mình có dung lượng lớn. Vậy làm sao để làm giảm dung lượng tập tin Excel này?
Xin giới thiệu các bạn đoạn code của DRJ
Option Explicit
Sub ExcelDiet()
Dim j As Long
Dim k As Long
Dim LastRow As Long
...Sub ExcelDiet()
Dim j As Long
Dim k As Long
Dim LastRow As Long
Xem tiếp...
Thay đổi Level của Security của Excel bằng Code VBA
[ 2011-07-29 16:07:19 | Tác giả: Admin ]
Đoạn code này có thể thay đổi Level của Security dù đang để ở mức cao, nhưng phải nằm trong file add-ins (xla), và phải khởi động lại Excel:
Xem tiếp...
Sub Set_Security()
Dim obj, iLevel
Set obj = CreateObject("WScript.Shell")
iLevel = obj.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\11.0\Excel\Security\Level")
If iLevel > 1 Then
obj.RegWrite "HKEY_CURRENT_USER\SOFTWARE
...Dim obj, iLevel
Set obj = CreateObject("WScript.Shell")
iLevel = obj.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\11.0\Excel\Security\Level")
If iLevel > 1 Then
obj.RegWrite "HKEY_CURRENT_USER\SOFTWARE
Xem tiếp...
Chèn hình vào cell bằng hàm tự tạo
[ 2011-07-10 11:02:26 | Tác giả: Admin ]
Chèn hình vào cell bằng hàm tự tạo
Xưa nay người ta thường chèn hình vào bảng tính bằng 1 thủ tục nào đó (Sub...). Vậy các bạn có nghĩ rằng có thể chèn hình bằng hàm tự tạo không? Tức là ta gõ hàm vào cell, lập tức hình được chèn vào ngay cell ấy!
Ví dụ ta gõ thế này: =CommPic("D:\Pic\Hinh 1.jpg",C5) thì lập tức Hinh 1.jpg được chèn vừa vặn vào cell C5
Hấp dẫn nhỉ? Vậy mà code lại khá đơn giản:
...
Xem tiếp...
Xưa nay người ta thường chèn hình vào bảng tính bằng 1 thủ tục nào đó (Sub...). Vậy các bạn có nghĩ rằng có thể chèn hình bằng hàm tự tạo không? Tức là ta gõ hàm vào cell, lập tức hình được chèn vào ngay cell ấy!
Ví dụ ta gõ thế này: =CommPic("D:\Pic\Hinh 1.jpg",C5) thì lập tức Hinh 1.jpg được chèn vừa vặn vào cell C5
Hấp dẫn nhỉ? Vậy mà code lại khá đơn giản:
...
Xem tiếp...
