2006/Apr/11

Example 1.

Sub Example1()
'' Macro1 Macro
' Macro recorded
12/19/2003 by Mark Shirley Thorpe

Range("B2").Select
ActiveCell.FormulaR1C1 = "Hello Excel"
Range("B2").Select
Selection.Font.Bold = True
End Sub

Example 2.

Sub Example2()
For x = 1 To 5
Cells(x, 3).Select
Selection.Vaue = x + 1
Next x
End Sub

Example 3.

Sub Example3()
Range("D5").Interior.ColorIndex = 3
Range("C2:E4").Value = 100
Cells(7, 2).Borders.LineStyle = xlDouble
End Sub

Example 4.

Sub RemoveDuplicates()
Cells.Sort Key1:=Range("A1")
totalrows = ActiveSheet.UsedRange.Rows.Count

For Row = totalrows To 2 Step -1
If Cells(Row, 1).Value = Cells(Row - 1, 1).Value Then
Rows(Row).Delete
End If
Next Row
End Sub

แบบนี้คงง่ายต่อการศึกษาน้ออตัวหนังสือเยอะม่ายชอบ คริคริ

Comment

Comment:

Tweet


อ่า จัดบรรทัด กับจัดฟอนต์ให้ดี ๆ ก่อนดีกว่ามั้งท่าน
#3 by T!D At 2006-04-12 12:23,
แล้วจะอ่านยังไงให้รู้เรื่อง
#2 by konmunbaa At 2006-04-11 10:20,
อื้อหือ ....


รู้เรื่องมากเลย
#1 by lli:.LEADTENSHI.:ill At 2006-04-11 10:11,