คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/
การจะบอกว่าทำอย่างไร กรุณาพยายามมาก่อนด้วยตัวเองทุกครั้ง นั่นหมายถึงมี Code ที่เขียนมาเองแล้วประกอบคำถามครับ ตัวอย่าง Code ครับCode: Select all
Dim sh As Worksheet
Dim ts As Worksheet
For Each sh In Worksheets
For Each ts In Worksheets
If ts.Name < sh.Name Then
ts.Move before:=sh
End If
Next ts
Next sh
Code: Select all
Dim sh As Worksheet
Dim ts As Worksheet
For Each sh In Worksheets
For Each ts In Worksheets
If LCase(ts.Name) < LCase(sh.Name) Then
ts.Move before:=sh
End If
Next ts
Next shCode: Select all
Dim sh As Worksheet
Dim ts As Worksheet
Dim i As Integer
Dim a() As Variant
Application.ScreenUpdating = False
For Each sh In Worksheets
For Each ts In Worksheets
If LCase(ts.Name) < LCase(sh.Name) Then
ts.Move before:=sh
End If
Next ts
Next sh
For Each sh In Worksheets
If sh.Tab.Color <> False Then
ReDim Preserve a(i)
a(i) = sh.Index
i = i + 1
End If
Next sh
Worksheets(a).Move before:=Worksheets(1)
Application.ScreenUpdating = True
Code: Select all
Application.ScreenUpdating = FalseCode: Select all
Application.ScreenUpdating = TrueCode: Select all
ReDim Preserve a(i)
a(i) = sh.Index
i = i + 1 March201711 wrote: Sat Jul 14, 2018 6:28 pm สงสัยคำสั่งว่า
ทำไมต้องใส่เปิดและปิดด้วยคะCode: Select all
Application.ScreenUpdating = False Application.ScreenUpdating = True
เพื่อป้องกันหน้าจอวูบวาบ หากวูบวาบบ่อยครั้งจะคำนวณช้าครับใจความหลักคือ เป็นการขยายขอบเขตตัวแปร Array เพื่อรองรับสมาชิกตัวต่อไป โดยขยายขอบเขตตามค่าตัวแปร i และจะมีการกำหนดสมาชิกให้กับ Array ในตำแหน่งที่ i จากนั้นจะกำหนดค่าตัวแปร i เพิ่มขึ้นครั้งละ 1 ครับ การจะเข้าใจสิ่งเหล่านี้ต้องศึกษาให้เข้าใจเรื่อง Array ครับMarch201711 wrote: Sat Jul 14, 2018 6:28 pmความหมายว่าอย่างไรคะ อาจารย์ เพื่อจะได้ศึกษาเป็นความรู้ต่อไปค่ะCode: Select all
ReDim Preserve a(i) a(i) = sh.Index i = i + 1
ขอบคุณอาจารย์มากค่ะ จะพยายามทำความเข้าใจ ศึกษาต่อไปเรื่อยๆค่ะ