EXCELLAO

Saturday, November 3, 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 ຕົວຢ່າງ:

No comments:

Post a Comment