Monday, December 5, 2016
VBA Function Tách họ và tên (ver 2)
Dim space_left As Integer
Dim space_right As Integer
'neu du lieu nhap vao la trong thi khong lam gi
If hovaten = vbNullString Then GoTo endfunc:
hovaten = Trim(hovaten) 'Loai bo cac khoang trang vo nghia
space_left = InStr(hovaten, " ") 'Lay gia tri khoang trang dau tien tu ben trai
space_right = InStrRev(hovaten, " ") 'Lay gia tri khoang trang dau tien tu ben phai
'Neu cac khoang trang o dau hoac cuoi thi khong lam gi
If space_left < 0 Or space_left - 1 < 0 Or space_left + 1 > Len(hovaten) Or space_right < 0 Or _
space_right - 1 < 0 Or space_right + 1 > Len(hovaten) Then GoTo endfunc:
Select Case n 'Duyet qua cac gia tri de xac dinh tac dung cua ham
Case "ho" 'Neu muc dich la tach lay "ho"
If stachten Then 'Neu chi muon lay ho
Tachhoten = Left(hovaten, space_left - 1)
Else 'Neu muon lay ca ho va ten dem
Tachhoten = Left(hovaten, space_right - 1)
End If
Case "dem"
If space_right < space_left + 1 Then GoTo endfunc:
Tachhoten = Mid(hovaten, space_left + 1, space_right - space_left - 1)
Case "ten" 'Neu muc dich la tach lay "ten"
If stachten Then 'Neu chi muon lay ten
Tachhoten = Mid(hovaten, space_right + 1)
Else 'Neu muon lay ca ten dem va ten
Tachhoten = Mid(hovaten, space_left + 1)
End If
Case Else 'Neu gia tri nhap vao khong phai la "ho", "ten", "dem" thi bao loi
MsgBox ("Chi nhap vao cac gia tri 'ho', 'dem', 'ten'." & vbNewLine & "Hay nhap lai du lieu")
GoTo endfunc:
End Select
endfunc:
End Function
VBA function tách họ, tách tên, tách tên đệm (các function riêng biệt)
Dim pos_right As Integer
If hovaten = vbNullString Then GoTo endfunc:
hovaten = Trim(hovaten)
pos_right = InStrRev(hovaten, " ")
If pos_right = 0 Or pos_right - 1 < 0 Or pos_right + 1 > Len(hovaten) Then
GoTo endfunc:
End If
If nTachten Then
Tachten = Mid(hovaten, pos_right + 1)
Else
Tachten = Left(hovaten, pos_right - 1)
End If
endfunc:
End Function
Function tachho(ByVal hovaten As String, Optional ntachho As Boolean = True) As String
Dim space_left As Integer
If hovaten = vbNullString Then GoTo endfunc:
hovaten = Trim(hovaten)
space_left = InStr(hovaten, " ")
If space_left = 0 Or space_left - 1 < 0 Or space_left + 1 > Len(hovaten) Then GoTo endfunc:
If ntachho Then
tachho = Left(hovaten, space_left - 1)
Else
tachho = Mid(hovaten, space_left + 1)
End If
endfunc:
End Function
VBA function Tách họ và tên (ver 1)
Dim space_left As Integer
Dim space_right As Integer
If hovaten = vbNullString Then GoTo endfunc:
hovaten = Trim(hovaten)
space_left = InStr(hovaten, " ")
space_right = InStrRev(hovaten, " ")
If space_left < 0 Or space_left - 1 < 0 Or space_left + 1 > Len(hovaten) Or space_right < 0 Or _
space_right - 1 < 0 Or space_right + 1 > Len(hovaten) Then GoTo endfunc:
Select Case n
Case "ho"
Tachhoten = Left(hovaten, space_left - 1)
Case "dem"
If space_right < space_left + 1 Then GoTo endfunc:
Tachhoten = Mid(hovaten, space_left + 1, space_right - space_left - 1)
Case "ten"
Tachhoten = Mid(hovaten, space_right + 1)
Case Else
MsgBox ("Chi nhap vao cac gia tri 'ho', 'dem', 'ten'." & vbNewLine & "Hay nhap lai du lieu")
GoTo endfunc:
End Select
endfunc:
End Function
Tuesday, May 15, 2012
WHAT IS ISO in camera?
ISO is actually a common short name for the International Organisation for Standardization.
Wednesday, November 3, 2010
Phim tat win 7
Thành thạo các phím tắt sẽ giúp người dùng không cần phải sử dụng đến chuột để thao tác, điều này giúp làm việc trên máy tính được hiệu quả hơn.

Những phím tắt với chức năng Aero:
Aero là tính năng làm tăng hiệu ứng hiển thị cho Windows, giúp giao diện Windows 7 trở nên bóng bẩy và đẹp mắt hơn, chẳng hạn hiệu ứng thanh taskbar trong suốt, cửa sổ trong suốt…
Tuy nhiên Aero sử dụng khá nhiều tài nguyên trên hệ thống, do vậy, với những máy tính có cấu hình không quá mạnh, Windows sẽ tự động tắt chức năng này.

Nếu máy tính đủ khả năng hỗ trợ Aero, bạn sẽ được chuyển về mẫu giao diện mới, và thanh taskbar cũng như thanh tiêu đề các cửa sổ trở nên trong suốt, cũng như xuất hiện thumbnails các cửa sổ đang được mở ở trên taskbar…
Dưới đây là một vài phím tắt của Windows sử dụng hiệu ứng Aero:

- “Windows” + “Home”: thu nhỏ toàn bộ các cửa sổ, ngoại trừ cửa sổ đang được chọn.
- “Windows” + phím mũi tên trái (tương ứng phải): đưa cửa sổ về một nửa màn hình bên trái (hoặc bên phải). Với cách thức này, bạn có thể đưa 2 cửa sổ nằm song song ở 2 nửa của màn hình, thuận tiện trong việc so sánh hoặc đối chiếu nội dung nào đó.
- “Windows” + phím mũi tên lên (tương ứng xuống): đưa cửa sổ về kích cỡ thu nhỏ hoặc lớn tối đa.
- “Windows” + “Tab”: chuyển đổi cửa sổ để chọn lựa với hiệu ứng 3D. Nhấn phím Tab để lựa chọn.
Những phím tắt tác động lên cửa sổ và thanh Taskbar:
- “Windows” + D (hoặc M): thu nhỏ toàn bộ các cửa sổ đang mở để quay về desktop.
- “Alt” + “Tab”: chuyển đổi các cửa sổ đang mở. Nhấn phím Tab để chọn lựa.

- “Windows” + T: di chuyển tới các cửa sổ đang mở trên taskbar. Giữ phím “Windows” và nhấn phím T để di chuyển theo chiều từ trái sang phải. Khi đến được biểu tượng của cửa sổ cần thiết, nhấn Enter để mở cửa sổ đó.
- “Windows” + “Alt” + T: tương tự như trên, nhưng di chuyển theo chiều ngược lại, từ phải sang trái.

- “Windows” + 1 (từ 1 đến 9): kích hoạt các phần mềm được đánh dấu trên taskbar, theo thứ tự từ 1 đến 9 (từ trái qua phải).

Chế độ nhiều màn hình:
Nếu bạn đang sử dụng máy tính với kết nối nhiều màn hình hoặc kết nối giữa laptop và màn hình lcd, kết nối máy chiếu… thì các phím tắt sau đây có thể sẽ hữu dụng.
- “Windows” + “Shift” + phím trái (tương ứng phải): chuyển cửa sổ hiện tại sang màn hình khác.

Hiệu ứng kính lúp: là hiệu ứng cho phép phóng lớn một vị trí nào đó trên màn hình.

- “Ctrl” + “Alt” + F: sau khi đã kích hoạt hiệu ứng kính lúp, nhấn tổ hợp phím này để đưa toàn bộ màn hình về hiệu ứng kính lúp.
- “Ctrl” + “Alt” + I: tương tự, nhấn tổ hợp phím này để đưa về hiệu ứng âm bản.
- “Windows” + “Esc”: thoát khỏi hiệu ứng kính lúp và trở lại bình thường.
Trên đây là một vài phím tắt không chỉ hữu ích khi làm việc và thao tác trên máy, mà cũng có thể hữu ích để khám phá thêm các tính năng mới trên Windows 7 mà có thể bạn chưa biết.
Thursday, September 6, 2007
Cách khôi phục lại mục folder option và regedit
- Trong cửa sổ Group Policy > chọn User Configuration > Administrative Templates > System > nhìn qua bên phải chọn và double-click vào "Prevent access to registry editing tools" > chọn Disable > OK. (để mở lại Registry)
- User Configuration > Administrative Templates > System > Ctrl + Alt + Del options > double "Remove Task Manager" > chọn Disable > OK (để mở lại Task Manager bị lỗi).
- User Configuration > Administrative Templates > Windows Components > Windows Explorer > double-click "Remove the Folder Options menu item from the Tools menu" > chọn Disalbe > OK. (để làm xuất hiện lại mục Folder Options bị mất do virus)
Sau khi chỉnh các thiết lập này xong, vào cmd gõ lệnh gpupdate /force > OK.
Sunday, July 8, 2007
Tăng tốc máy tính
1- Tăng tốc độ thực hiện của hệ thống:
Mặc định Windows sẽ tự mình điều khiển các thiết lập về tốc độ xử lý của hệ thống sao cho phù hợp, nhưng đôi khi Windows lại “lạm dụng” điều này ưu tiên xử lý cho các công việc không cần thiết, gây lãng phí tài nguyên hệ thống. Do vậy để hệ thống dành nhiều tài nguyên hơn cho các công việc cụ thể, bạn hãy thay đổi lại như sau:
Bấm chuột phải vào My Computer rồi chọn Properties (hoặc đơn giản nhấn phím Window+Break), tiếp theo chọn thẻ Advanced, bấm nút Settings trong khung Performance, chọn thẻ Visual Effects, chọn nút Adjust for best performance. Sau đó, trong khung danh sách các thiết lập bên dưới, cuộn xuống và đánh dấu hộp Use visual styles on windows and buttons rồi bấm OK hai lần để đóng lại các cửa sổ.
2- Tối ưu bộ nhớ hệ thống:
Việc tinh chỉnh này sẽ tạo cho “nhân” của Windows chạy trong bộ nhớ để tăng tốc hệ thống, đưa các dữ liệu vào bộ nhớ để xử lý nhanh hơn (thay vì xử lý từ bộ nhớ ảo trên đĩa cứng). Lưu ý: để chỉnh sửa các thiết lập này yêu cầu máy tính có RAM tối thiểu là 256MB. Cách thực hiện như sau:
Bấm Start > Run > gõ regedit > OK hoặc Enter. Sau đó tìm đến khoá HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management. Trong cửa sổ bên phải, bấm kép mục DisablePagingExecutive và thay đổi lại giá trị là 1, tiếp theo bấm kép mục LargeSystemCache và cũng thay đổi lại giá trị là 1.
Kế tiếp, tại khoá này bạn tạo mục mới kiểu DWORD tên là IOPageLockLimit (bấm chuột phải vào một vùng trống, chọn New > DWORD Value) và đặt giá trị của nó như sau: nếu máy tính của bạn có RAM là128MB thì đặt giá trị là 4000, 256MB thì đặt 10000, từ 512MB trở lên thì đặt 40000.
Tiếp theo, bạn tìm đến khoá HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer, tạo một mục mới loại DWORD tên là AlwaysUnloadDLL và đặt giá trị là 1. Cuối cùng, đóng cửa sổ Registry Editor lại.
Kế tiếp, bạn cũng bấm lại Start > Run > gõ msconfig > OK, chọn thẻ SYSTEM.INI, bấm phần [386enh], bấm nút New và thêm mục mới "ConservativeSwapfileUsage=1" (không có dấu nháy kép), xong bấm OK. Nếu có hộp thông báo yêu cầu khởi động lại máy thì bạn bấm nút Exit Without Restart.
3- Tăng tốc xử lý tập tin:
Trước khi chỉnh sửa thiết lập này, bạn hãy kiểm tra lại hệ thống tập tin trên máy bằng cách vào My Computer, bấm chuột phải vào ổ đĩa C, chọn Properties. Trong thẻ General và ở dòng File system, nếu để chữ FAT32 thì bạn hãy bỏ qua bước này, ngược lại là chữ NTFS thì có thể chỉnh sửa cho thiết lập này như sau: Vào trình Registry Editor, tìm đến khoá HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem, thay đổi lại giá trị của mục DisableNTFSLastAccessUpdate là 1. Tiếp theo cũng tại khoá này, bạn tạo mục mới loại DWORD tên là NtfsMftZoneReservation và đặt giá trị của nó là 2.
4- Điều chỉnh chức năng Prefetch của Windows:
Chức năng này cho phép Windows tăng tốc chạy các ứng dụng, giảm thời gian khởi động máy hoặc cả hai. Mặc định Windows chọn giảm thời gian khởi động máy, nhưng bạn hãy thay đổi lại thiết lập này cho tối ưu hơn. Vào trình Registry Editor, tìm khoá HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters, thay đổi lại giá trị của mục EnablePrefetcher là 3.
5- Tăng tốc kết nối Internet lên 20%:
Mặc định Windows sẽ giới hạn lượng băng thông kết nối là 20%, nhưng bạn có thể bỏ giới hạn này để đạt được tốc độ kết nối tối ưu hơn. Bấm Start > Run > gõ gpedit.msc > OK, tìm theo đường dẫn Local Computer Policy\Computer Configuration\Administrative Templates\Network\QoS Packet Scheduler, bấm kép thiết lập Limit reservable bandwidth trong cửa sổ phải, chọn nút Enable, gõ số không (0) vào hộp Bandwidth limit, bấm OK rồi đóng cửa sổ Group Policy lại.
Tiếp theo bạn hãy vào phần thiết lập mạng bằng cách bấm Start > Settings > Network Connections, bấm chuột phải vào kết nối mạng của bạn và chọn Properties (hoặc bấm biểu tượng kết nối mạng ở khay hệ thống nếu nó hiện ra, bấm nút Properties), trong thẻ General đánh dấu giao thức QoS Packet Scheduler (nếu nó chưa được đánh dấu) rồi bấm OK.
Các thiết lập ở bước này tuy dành cho những loại hình kết nối tốc độ cao (như ADSL), nhưng qua thử nghiệm với loại kết nối Dial-up, kết quả đáng kinh ngạc, tốc độ lướt web tăng lên thật đáng kể.