เรียงรายชื่อในชีท ด้วยcode vba

[March201711]

อยากทราบว่าจะเรียงรายชื่อตามตัวอักษร เช่น a ถึง z, ก ถึง ฮ หรือ 1 ถึง 9 ใน sheet ต้องใช้ code vba อย่างไรคะ

[snasui]

การจะบอกว่าทำอย่างไร กรุณาพยายามมาก่อนด้วยตัวเองทุกครั้ง นั่นหมายถึงมี Code ที่เขียนมาเองแล้วประกอบคำถามครับ

[March201711]

ลองทำดูแล้วค่ะ แต่ก็อไม่เรียง

[snasui]

ตัวอย่าง 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

[March201711]

ถามต่อนิดนึงค่ะ ทำไม run data แล้ว ลำดีบตัวอักษร ATS มาก่อน Acและทำไม a12 ถึงอยู่ท้ายสุดคะ

อยากให้เรียงตัวเลขก่อนตัวอักษร โดยไม่สขใจว่าตัวอักษรว่าจะเล็กหรือใหญ่ ถ้ามีขีดล่างให้อยู่ต่อท้ายตัวอักษร A ค่ะ

[snasui]

ตัวอย่างการปรับ Code ครับ

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 sh

[March201711]

ได้แล้วค่ะ แต่ถ้าอยากจะให้ code เลือกเฉพาะ sheet ที่มีสี high light สีส้ม move sheet ไปอยู่ที่sheetแรกๆเรียงตามลำดับตามตัวอักษร พอจะปรับแก้code อย่างไรบ้างคะ

[snasui]

ลองปรับ Code เพิ่มมาเองก่อนเสมอไป ได้แค่ไหนก็แค่นั้นแต่ต้องปรับมาเองก่อนครับ

[March201711]

ลองทำดูแล้วค่ะ แต่ใช้วิธี บันทึก marco เอา โดยเลือกเฉพาะเจาะจง sheet เอาเอง ถ้ามีการเพิ่ม sheet ขึ้นมาใหม่แล้วเราต้องแก้ใน code เรื่อยไปเองค่ะ ถ้าเราอยากให้ เครื่องเห็นเองต้องกำหนดเงื่อนไขอย่างไรคะ

[snasui]

ตัวอย่าง Code ครับ

Code: 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

[March201711]

ทำได้แล้วค่ะ ขอบคุณอาจารย์มากๆเลยค่ะ

[March201711]

สงสัยคำสั่งว่า

Code: Select all

Application.ScreenUpdating = False

Code: Select all

Application.ScreenUpdating = True

ทำไมต้องใส่เปิดและปิดด้วยคะ
และ

Code: Select all

 ReDim Preserve a(i)
        a(i) = sh.Index
        i = i + 1 

ความหมายว่าอย่างไรคะ อาจารย์ เพื่อจะได้ศึกษาเป็นความรู้ต่อไปค่ะ

[snasui]

สงสัยคำสั่งว่า

Code: Select all

Application.ScreenUpdating = False

Application.ScreenUpdating = True

ทำไมต้องใส่เปิดและปิดด้วยคะ

เพื่อป้องกันหน้าจอวูบวาบ หากวูบวาบบ่อยครั้งจะคำนวณช้าครับ

Code: Select all

ReDim Preserve a(i)
        a(i) = sh.Index
        i = i + 1 

ความหมายว่าอย่างไรคะ อาจารย์ เพื่อจะได้ศึกษาเป็นความรู้ต่อไปค่ะ

ใจความหลักคือ เป็นการขยายขอบเขตตัวแปร Array เพื่อรองรับสมาชิกตัวต่อไป โดยขยายขอบเขตตามค่าตัวแปร i และจะมีการกำหนดสมาชิกให้กับ Array ในตำแหน่งที่ i จากนั้นจะกำหนดค่าตัวแปร i เพิ่มขึ้นครั้งละ 1 ครับ การจะเข้าใจสิ่งเหล่านี้ต้องศึกษาให้เข้าใจเรื่อง Array ครับ

[March201711]

ขอบคุณอาจารย์มากค่ะ จะพยายามทำความเข้าใจ ศึกษาต่อไปเรื่อยๆค่ะ