សេកមាស បន្ទាយមានជ័យ

អាស័យដ្ឋានៈ ទីតាំងទី​‌១ នៅទល់មុខសាលាសូភី ខាងជើងភ្លើងស្តុប៧០ម៉ែត្រ​ ក្រុងសិរីសោភ័ណ ខេត្តប.ជ ។

Tel: 012 89 52 53 / 098 353 555 | E-mail: Sekmeas_bmc@yahoo.com

សេកមាស សំរោង

អាស័យដ្ឋានៈ ទីតាំងទី​២​ នៅទល់មុខបឹងស្នោ ជាប់សាលាសំរោង ក្រុងសំរោង​ ខេត្តឧត្តរមានជ័យ ។

Tel: 012 700 599 / 088 8 001 001 | E-mail: Sekmeas_omc@yahoo.com

សេកមាស អន្លង់វែង

អាស័យដ្ឋានៈ ទីតាំងទី៣​ នៅទល់មុខវិទ្យាល័យអន្លង់វែង ផ្លូវទៅព្រះវិហារ ស្រុកអន្លង់វែង​ ខេត្តឧត្តរមានជ័យ ។

Tel: 012 433 588 / 088 474 5555 | E-mail: Sekmeas_len@yahoo.com

ម្លប់បៃតង និង​ ពិភពតែម

អាស័យដ្ឋានៈ ផ្លូវលេខ ៣ ពីការាស់សាំងសូគីមិច ប្រហែល100ម៉ែត្រ ក្រុងសិរីសោភ័ណ ខេត្តបន្ទាយមានជ័យ ។

Tel: 065 5 600 500 / 088 888 38 48 / 016 733 622 (world sticker)

Wednesday, December 4, 2013

Friday, October 18, 2013

How To Disable USB Storage Devices In Windows 8 / 7



How To Disable USB Storage Devices In Windows 8 / 7

The introduction of USB to the computing world could be such a huge technological marvel, it’s hard to fathom that the early adopters of the interface would’ve imagined that when they introduced it to the market. Yet today, we have everything running on USB – from speaker systems to input/output devices to rechargeable batteries and whatnot. So much so that the USB port has become a standard electrical supply for a lot of non-computing gadgets as well.
Despite the diversity of uses that a standard USB port has been put to by the masses, the most popular and widely-used employment of the Universal Serial Bus interface remains storage media. Everything from USB flash memory to external, portable hard drives, still accounts for the maximum usage of the USB port on a computer. That’s also not platform restricted, either – whether it be Linux, Windows, OS X or any other desktop platform, it will always cater to removable storage thumb drives.

The convenience of a thumb drive is undeniable, but it also remains a fact that they’re the most vast means of spreading malware and computer viruses these days (other than if you browse a lot of porn). While it may not be that big a concern for an individual user, imagine the same for a corporation or institution that runs public-access computers. Hence, for them, it would make more sense to block installation of USB storage devices altogether, so as to avoid getting into security snafus. Windows lets you do that pretty easily, and in this post, we’ll tell you how you can disable connection for USB removable media devices on your Windows based PC.
Please note that the process involves tweaking a certain element of the Windows Registry, so if you’re not comfortable venturing into that area, you might as well want to avoid this.
Step 1: Pull up the Run dialog box and launch the Registry Editor (regedit).

Step 2: In Registry Editor, navigate to the following value:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\UsbStor

Step 3: From the right-side pane, double-click Start and change the value to “4”. Make sure that the value type is Hexadecimal.

Step 4: Apply your changes and reboot the machine.
That’s it – any USB removable storage device that was configured on your machine, will now not work. Should you want to enable those back, change the value back to 3 and reboot the machine again. The process applies to both Windows 7 and Windows 8 operating systems.

Sunday, October 6, 2013

VBA: ទាយយកទិន្នន័យចុងក្រោយនៃតារាងក្នុង Excel

MS Excel: Get contents of last cell in a range that has data in Excel 2010/2007/2003/XP/2000/97

Question: In Microsoft Excel 2010/2007/2003/XP/2000/97, how do I make a cell display the contents of the last cell of a range that has data?
Answer: This is a bit tricky and the formula that you need to use will depend on the types of data that you have in the range.

Data range is formatted as text

If your range contains only text values, you could use the following formula:
=INDEX(range,MATCH(REPT("z",255),range))
where range is the range that you wish to check
For example, if you wanted to find the last text value in column A, you would use the following formula:
=INDEX(A:A,MATCH(REPT("z",255),A:A))
For example, if you wanted to find the last text value in range C2:C10, you would use the following formula:
=INDEX(C2:C10,MATCH(REPT("z",255),C2:C10))

Data range is formatted as numeric

If your range contains only numbers, you could use the following formula:
=INDEX(range,MATCH(9.99999999999999E+307,range))
where range is the range that you wish to check
For example, if you wanted to find the last numeric value in column A, you would use the following formula:
=INDEX(A:A,MATCH(9.99999999999999E+307,A:A))
For example, if you wanted to find the last numeric value in range C2:C10, you would use the following formula:
=INDEX(C2:C10,MATCH(9.99999999999999E+307,C2:C10))

Data range contains both text and numeric

If your range contains both text and numeric values (ie: there must be at least one text and one numeric value in your range) and you want to find the last value, you could use the following formula:
=INDEX(range,MAX(MATCH(9.99999999999999E+307,range),MATCH(REPT("z",255),range)))
where range if the range that you wish to check
For example, if you wanted to find the last value (either text or numeric) in column A, you would use the following formula:
=INDEX(A:A,MAX(MATCH(9.99999999999999E+307,A:A),MATCH(REPT("z",255),A:A)))
For example, if you wanted to find the last value (either text or numeric) in range C2:C10, you would use the following formula:
=INDEX(C2:C10,MAX(MATCH(9.99999999999999E+307,C2:C10),MATCH(REPT("z",255),C2:C10)))

VBA: បញ្ចូលទិន្នន័យពីតារាងមួយទៅតារាងមួយ

Private Sub Cmdadd_Click()
On Error Resume Next
Dim sht As Worksheet
Dim rdata
Application.ScreenUpdating = False
If MsgBox("Save date to Mater Date" & " " & Sheet2.Range("").Value, vbYesNo) = vbYes Then
Sheet2.PrintOut
Set rdata = Sheet3.Cells(65536, 1).End(xlUp).Offset(1, 0)
With rdata

.Offset(0, 4) = Sheet2.Range("C7").Value 'Code Vendor
.Offset(0, 5) = Sheet2.Range("I7").Value 'Code Department
.Offset(0, 6) = Sheet2.Range("I8").Value 'Code Outlet
.Offset(0, 7) = Sheet2.Range("I9").Value 'Code Date Required
.Offset(0, 8) = Sheet2.Range("B12").Value 'Code Date Requesed

End With
Worksheets("sheet3").Save
Application.ScreenUpdating = True
ActiveWorkbook.Save
Else
Exit Sub
End If
End Sub

VBA: Call ប្រើសម្រាប់ហៅ Macro ឲ្យដំណើរការ

Sub CmdOpen_Click()

Call OpenSheet

End Sub


  • OpenSheet ជាឈ្មោះ Marco ដែលត្រូវដំណើរការពេល Marco CmdOpen_Click

Pulpit rock Pulpit rock Pulpit rock Pulpit rock