EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)ขอบคุณครับlr = ThisWorkbook.Sheets("Process1").Cells(Rows.Count, 2).End(xlUp).Row
Code: Select all
Sub Reset1()
'
' Reset Macro
'
'
lr = ThisWorkbook.Sheets("Process1").Cells(Rows.Count, 2).End(xlUp).Row
Cells(4, 100).Select
lc = Selection.End(xlToLeft).Column
Cells(lr, 2).Select
Cells.FormatConditions.Delete
If lc > 15 Then
Range(Columns(5), Columns(lc - 11)).Select
Selection.Delete Shift:=xlToLeft
End If
If lr > 6 Then
Range(Rows(7), Rows(lr)).Select
Selection.Delete Shift:=xlUp
End If
Range("C6:O6").Select
Selection.ClearContents
Range("c1:c2").Select
Selection.ClearContents
Sheets("Summary").Select
Range("C5").Select
Selection.ClearContents
Range("E5").Select
Selection.ClearContents
Sheets("Main user").Select
End Sub
lr = ThisWorkbook.Sheets("Process1").Cells(Rows.Count, 2).End(xlUp).Row
Code: Select all
Sub Reset1()
'
' Reset Macro
'
'
Dim sh As Worksheet
For Each sh In Worksheets
lr = ThisWorkbook.Sheets(sh.Name).Cells(Rows.Count, 2).End(xlUp).Row
Cells(4, 100).Select
lc = Selection.End(xlToLeft).Column
Cells(lr, 2).Select
Cells.FormatConditions.Delete
If lc > 15 Then
Range(Columns(5), Columns(lc - 11)).Select
Selection.Delete Shift:=xlToLeft
End If
If lr > 6 Then
Range(Rows(7), Rows(lr)).Select
Selection.Delete Shift:=xlUp
End If
Range("C6:O6").Select
Selection.ClearContents
Range("c1:c2").Select
Selection.ClearContents
Sheets("Summary").Select
Range("C5").Select
Selection.ClearContents
Range("E5").Select
Selection.ClearContents
Sheets("Main user").Select
Next sh
End Sub
Code: Select all
Sub insertROW1()
'
' insertROW Macro
'
Dim sh As Worksheet
For Each sh In Worksheets
lr = ThisWorkbook.Sheets("sh.name").Cells(Rows.Count, 2).End(xlUp).Row
Cells(4, 100).Select
lc = Selection.End(xlToLeft).Column
Cells(lr, 2).Select
Dim i, j, k As Integer
i = lr - 5
j = Range("element").Value
k = i + 6
For i = i To j - 1
Rows(k).Select
Selection.Insert
Cells(k, 2) = Cells(k - 1, 2) + 1
k = k + 1
Next i
Next sh
End Sub
"sh.name"
ไม่ต้องใส่เครื่องหมาย " "
เพราะไม่ใช่ค่าคงที่แต่เป็นตัวแปร จึงควรเป็น sh.name
ทบทวนสิ่งที่ผมตอบไปด้านบนใหม่อีกครั้งครับไฟล์มีขนาดเกินครับ รบกวนเดี๋ยวผมส่งให้ทาง inbox นะครับsnasui wrote: การแนบไฟล์ดูกฎการใช้บอร์ดข้อ 4 ด้านบนครับ
Code: Select all
'Worksheets("User").Select
lr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
'...Other code....