Ngay gio ong.

13/11/2006 - 13/11/2012

ຂົວເຊໂປນ

Code ເຮັດໃຫ້ Cells.Columns.AutoFit

1. ພຽງແຕ່ທ່ານ DoubleClick ເມົາມັນຈະທໍາການປັບໃຫ້ແຖວ ແລະ ເສົາພໍດີກັບຂໍ້ມູນທັນທີ.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Unprotect (P.Range("C2"))
Cancel = True
Cells.Columns.AutoFit
Protect (P.Range("C2"))
End Sub


2. ໝາຍບອກ: ໃຫ້ທ່ານເບິ່ງຄືນບົດທີ 2 ເພື່ອເຂົ້າໃຈໃນການນຳໃຊ້ວິທີລ໋ອກ (ຖ້າບໍ່ຕ້ອງການ ລ໋ອກແມ່ນໃຫ້ລຶບ Code: Unprotect (P.Range("C2"))
ແລະ Protect (P.Range("C2")) ຢູ່ຂ້າງເທິງອອກ.
3. File ຕົວຢ່າງ:

Code ນຳໃຊ້ເຂົ້າໃນການໃສ່ ແລະ ປົດລ໋ອກ Sheet ແບບ ອັດຕະໂນມັດ

1. ນີ້ແມ່ນ Code ລ໋ອກເມື່ອທ່ານເປີດ Sheet ທີ່ມີ Code ລຸ່ມນີ້ :

Private Sub Worksheet_Activate()
Protect (P.Range("C2"))
End Sub

2. ນີ້ແມ່ນ Code ປົດລ໋ອກເມື່ອທ່ານອອກຈາກ Sheet ທີ່ມີ Code ລຸ່ມນີ້:

Private Sub Worksheet_Deactivate()
Unprotect (P.Range("C2"))
End Sub

3. ໝາຍບອກ: ທ່ານຕ້ອງລະບຸລະຫັດຜ່ານໃສ່ຫ້ອງ C2 ຂອງ Sheet”P”
4. File ຕົວຢ່າງ.

ວິທີຕັ້ງຄ່າ Microsoft Outlook ເພື່ອສົ່ງ Mail.

ວັນເກີດ ທ.ຄັດທະນາມ (DoReMon)

01/11/2009 - 01/11/2012 (03)