ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
คำแสดงเจตนา[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
ช่วยแนะนำหน่อยครับ ความรู้ ทางด้าน VBA และอื่น ฯลฯ.Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$C$4"
Call addNewItem(Target.Value)
Range("C4").Select
'reset qty after add item
If Range("E4").Value > 1 Then Range("E4").Value = 1
Case "$E$4"
If Target.Value < 1 Then Target.Value = 1
Case Else:
If Left(Target.Address, 3) = "$C$" Then
If Target.Row >= 8 And Target.Row <= 47 Then
If IsEmpty(Target.Value) Then
Range("E" & Target.Row).ClearContents
End If
End If
End If
'Debug.Print "x " & Target.Address
End Select
End Sub
ช่วยอธิบายถึงตำแหน่งชีท ตำแหน่งเซลล์ว่าต้องการจะ Lock ชีทไหน เซลล์ไหน อย่างไร Code ที่ Copy มาใช้นั้นแสดงค่าผิดพลาดอย่างไรSupfile2529 wrote:1. ผมอยาก Lock Cell ใน sheet หน่อยนะครับคือ
ผมต้องทำอย่างไรครับ...?
2. ผมอยาก ดับเบิ้ลคลิก ช่องแถวนี้น่ะครับ
ต้องใช้ Code อย่างไรน่ะครับ
ผมลองศึกษา Code ชุดนี้ดูแล้วครับ งงเลย ไปไม่ถูกครับ
Code นี้ได้มาจากที่นี้หล่ะครับ แต่หากระทู้ไม่เจอครับ
snasui wrote:
ช่วยอธิบายถึงตำแหน่งชีท ตำแหน่งเซลล์ว่าต้องการจะ Lock ชีทไหน เซลล์ไหน อย่างไร Code ที่ Copy มาใช้นั้นแสดงค่าผิดพลาดอย่างไร
การโพสต์ Code ให้เป็น Code ดูที่นี่ครับ viewtopic.php?f=3&t=1187
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$C$4"
Call addNewItem(Target.Value)
Range("C4").Select
'reset qty after add item
If Range("E4").Value > 1 Then Range("E4").Value = 1
Case "$E$4"
If Target.Value < 1 Then Target.Value = 1
Case Else:
If Left(Target.Address, 3) = "$C$" Then
If Target.Row >= 8 And Target.Row <= 47 Then
If IsEmpty(Target.Value) Then
Range("E" & Target.Row).ClearContents
End If
End If
End If
'Debug.Print "x " & Target.Address
End Select
End Sub
กำลังศึกษาอยู่ครับ ถ้าติดตรงไหน เดียวจะมาถามใหม่น่ะครับsnasui wrote:
