ตรวจสอบและปรับปรุงไฟล์ 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] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
Scan AWB v1.xlsm
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b5")) Is Nothing Then
If Range("Double").Value > 0 Then
MsgBox " !!!!!!SCAN AWB «éÓ !!!!!!!!"
End If
End If
End SubCode: Select all
Sub Macro1()
'
' Macro1 Macro
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("SCAN")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'check Double
If Range("Double").Value = 0 Then
'MsgBox " !!!!!!SCAN AWB ซ้ำ !!!!!!!!"
'Sheets("SCAN").Range("AWB").Select
'ElseIf Range("Double").Value = 0 Then
'check complete form
If Trim(Range("CATEGORY").Value) = "" Then
MsgBox "กรุณากรอก CATEGORY"
Exit Sub
End If
If Trim(Range("Box").Value) = "" Then
MsgBox "กรุณากรอก จำนวนกล่อง"
Exit Sub
End If
If Trim(Range("Weigth").Value) = "" Then
MsgBox "กรุณากรอก น้ำหนัก"
Exit Sub
End If
If Trim(Range("Pallet").Value) = "" Then
MsgBox "กรุณากรอกPallet ID"
Exit Sub
End If
'copy the data to the database
ws.Cells(iRow, 1).Value = Sheets("SCAN").Range("No.").Value
ws.Cells(iRow, 2).Value = Sheets("SCAN").Range("AWB_NO").Value
ws.Cells(iRow, 3).Value = Sheets("SCAN").Range("CATEGORY").Value
ws.Cells(iRow, 4).Value = Sheets("SCAN").Range("Remark").Value
ws.Cells(iRow, 5).Value = Sheets("SCAN").Range("Weigth").Value
ws.Cells(iRow, 6).Value = Sheets("SCAN").Range("Date").Value
ws.Cells(iRow, 7).Value = Sheets("SCAN").Range("Box").Value
ws.Cells(iRow, 8).Value = Sheets("SCAN").Range("Statusdata").Value
ws.Cells(iRow, 10).Value = Sheets("SCAN").Range("Pallet").Value
ws.Cells(iRow, 12).Value = Sheets("SCAN").Range("BOX").Value
ws.Cells(iRow, 14).Value = Sheets("SCAN").Range("month").Value
ws.Cells(iRow, 15).Value = Sheets("SCAN").Range("Vendorselect").Value
ws.Cells(iRow, 16).Value = Sheets("SCAN").Range("Day").Value
ws.Cells(iRow, 17).Value = Sheets("SCAN").Range("shopcode").Value
ws.Cells(iRow, 18).Value = Sheets("SCAN").Range("shopname").Value
ws.Cells(iRow, 19).Value = Sheets("SCAN").Range("Time").Value
Sheets("SCAN").Range("AWB").ClearContents
Sheets("SCAN").Range("CATEGORY").ClearContents
Sheets("SCAN").Range("Shopcodeinput").ClearContents
Sheets("SCAN").Range("Weigth").ClearContents
Sheets("SCAN").Range("BOX").ClearContents
Sheets("SCAN").Range("Pallet").ClearContents
Sheets("SCAN").Range("Remark").ClearContents
Sheets("SCAN").Range("AWB").Select
End If
End Sub