VBA code

[makwid]

อาจารย์
ขอ VBA code เวลาเปิดไฟล์ ใน excel
ให้มันเปิดที่ sheet1 เป็นหน้าแรกเสมอ ไม่ว่าตอน safe เราจะ sefe
ที่ sheet ไหนก็ตาม

ขอบคุณครับ

[snasui]

ลองตามนี้ครับ

1. เปิดโปรแกรม VBE โดยกดแป้น Alt+F11
2. ในหน้าต่าง Project - VBAProject ให้ดับเบิ้ลคลิก ThisWorkbook จากนั้น Copy Code ด้านล่างไปวางครับ

Code: Select all

Private Sub Workbook_Open()
   Sheets("Sheet1").Select
End Sub

[makwid]

ขอ code ต่อไปครับอาจารย์

ต้องการให้เมนูต่างๆ มันไม่ขึ้นมาโชว์ครับ เอาแบบให้มันหายไปเลย เหลือแต่หน้าปล่าว ๆ ครับ

ขอบคุณครับ

[snasui]

ใช้ Excel Version ไหนครับ

[makwid]

2003 ครับอาจารย์

[snasui]

ลองตามนี้ครับ

1. ที่ ThisWorkbook ใช้ Code ตามด้านล่างครับ

Code: Select all

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    EnableCommandBars
End Sub

Private Sub Workbook_Open()
    DisableCommandBars
End Sub

2. ที่ Module ปกติใช้ Code ตามด้านล่างครับ

Code: Select all

Sub DisableCommandBars()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        Cbar.Enabled = False
    Next
End Sub

Sub EnableCommandBars()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        Cbar.Enabled = True
    Next
End Sub

[makwid]

เมนูมันไม่หายไป
ผมส่งไฟล์มาให้อาจารย์ช่วยแก้ไขให้ด้วยครับ

ขอบคุณครับ

[snasui]

คุณ makwid วาง Code ไม่ตรงตำแหน่งตามที่ผมบอกครับ นอกจากนี้ยังมี Code เดียวกันหลาย Module ทำให้โปรแกรมไม่สามารถ Run ได้เพราะชื่อซ้ำกัน

ดูตัวอย่างในไฟล์แนบครับ

[makwid]

โอ้ว มันเป็นเช่นนี้เอง
ขอบคุณมากครับ อาจารย์ โชคดี ร่ำรวย สุขภาพแข็งแรง รับปีใหม่ 2554
ครับ

[makwid]

รบกวนอีกนิดครับ อาจารย์
เนื่องเวลาทดลองกับเครื่องผม ไม่มีปัญหา แต่ไปใช้งานเครื่องอื่น ที่ขนาดของจอภาพ
เล็กกว่าของผม เขาจะมองไม่เห็นเมนู ที่ทำขึ้นมา อยากให้เห็นแถบเฉพาะเมนูนี้เพื่อเลือกขนาดแสดงผลได้ครับ

[snasui]

ลองใช้ Code ในการย่อหน้าจอลงมาเพื่อให้เห็น Custom เมนูน่าจะช่วยได้ สำหรับค่าตัวเลขด้านล่าง ลองปรับได้ตามต้องการครับ

ลองปรับ Code ที่ให้ไปเป็นตามด้านล่างครับ

Code: Select all

Sub DisableCommandBars()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        Cbar.Enabled = False
    Next
    With Application
       .WindowState = xlNormal
       .Left = 76
       .Top = 85
       .Width = 505
       .Height = 441
    End With
End Sub

Sub EnableCommandBars()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        Cbar.Enabled = True
    Next
    Application.WindowState = xlMaximized
End Sub

[makwid]

ขอบคุณมากครับ อาจารย์ แต่มันคนละความหมายกับที่ผมต้องการครับ(ต้องขอขออภัยผมอธิบายความต้องการไม่ถูก)

คือว่า จอที่ผมทำงานอยู่มันเป็นจอ จอ wide screen ซึ่งชุดเมนูคำสั่งที่ผมทำขึ้นมาใช้งาน
มันอยู่ทางด้าน ขวามือของจอ

แต่พอไปเปิด ที่เครื่อง ที่เป็นจอ square แถบเมนูคำสั่งที่ทำขึ้นมามันจะหายไป
ผมต้องใช้วิธีแก้โดยที่ เปิดครั้งแรก ให้ปิดการใช้งาน macro แล้วตั้งค่า ตามภาพ
ที่แนบก่อน แล้วก็ safe>ปิด>เปิดไฟล์ใหม่อีกครั้ง>เปิดใช้งานmacro
ก็จะใช้งานได้ แต่ว่ามันไม่ค่อยสะดวก สำหรับ คนที่เขาเอาไปใช้งานครับ
บางคนก็ใช้เป็นบางคนก็ไม่เป็น

ขอบคุณครับ

[snasui]

ลองดูตัวอย่างจากเพิ่มเติมจากที่นี่เผื่อพอช่วยได้ครับ http://www.ozgrid.com/VBA/toolbar-remove-restore.htm

[makwid]

ขอบคุณครับอาจารย์

รบกวนอาจารย์ช่วยเพิ่มเติมให้มันจำ sheet1 ให้ด้วยครับเวลาเปิดครั้งแรก
เมนูได้ตามที่ต้องการแล้วครับ

ขอบคุณครับ

[snasui]

ที่ Private Sub Workbook_Open() เพิ่ม Code ตามด้านล่างครับ

Code: Select all

Private Sub Workbook_Open()
Worksheets("Sheet1").Select

[makwid]

ขอบคุณมากครับ อาจารย์

แจ่มเลย

[new_application]

อาจารย์ครับผมลองใช้ code ที่อาจารย์แนะนำมาดังนี้ครับ

Private Sub Workbook_BeforeClose(Cancel As Boolean)
EnableCommandBars
End Sub

Private Sub Workbook_Open()
DisableCommandBars
End Sub


Sub DisableCommandBars()
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = False
Next
End Sub

Sub EnableCommandBars()
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
End Sub

แล้วผมก็ลบ code นี้ออกไปครับ
ปรากฎว่าโปรแกรม Excel ของผมเกิดมีปัญหาเกิดขึ้นคือ
1. บริเวณที่เป็น worksheet ผมกดคลิกขวาแล้ว ไม่มีเมนูขึ้นมาครับ (เช่น คัดลอก วาง)
2. คลิกขวาตรง sheet bar ไม่มีเมนูแสดงขึ้นมาเช่นกัน (เมนูเพื่อเปลี่ยนชื่อ ซ่อน)

แต่บริเวณ status bar tool bar คลิกขวาได้ตามปกติ
ไม่ทราบว่าปัญหาที่เกิดขึ้นเกี่ยวกับการลบ code ดังกล่าวหรือไม่ครับ

ปล.หลังเกิดปัญหาขึ้นไม่ได้ปรับตั้งค่าอะไรเพิ่มเติมครับ

[snasui]

หากไม่ได้ทำอะไรก่อนหน้านั้นก็เป็นเพราะ Code นั่นแหละครับ

การใช้ Code นั้นมีหลักการดังนี้

1. เปิดไฟล์ที่มี Code นั้นเพื่อทำงานกับเมนูที่ได้เตรียมไว้เฉพาะ โดยหลักคือ สร้างเมนูขึ้นใหม่ ซ่อนเมนูเดิมที่เป็นมาตรฐานบางเมนูออกไปเพื่อให้เหลือเฉพาะที่จำเป็น
2. เมื่อปิดไฟล์นั้นจะทำการคืนเมนูที่เป็นมาตรฐานกลับคืนมาให้

หากว่าเปิดไฟล์นั้นมาแล้วลบ Code ทิ้งไป โปรแกรมจะไม่คืนเมนูมาตรฐานมาให้ ต้องหาทางนำเมนูคืนมาเอง ดังนั้น หากต้องการให้คืนเมนูมาตรฐานกลับมาให้ปิดไฟล์นั้นไป

หากต้องการจะเปิดไฟล์นั้นโดยไม่ให้ Macro ทำงานเพื่อไม่ต้องการซ่อนเมนูมาตฐานให้กดแป้น Shift ค้างไว้ตอนเปิดไฟล์

สำหรับการโพสต์ Code ให้แสดงเป็น Code ดูตัวอย่างที่ Link นี้เพื่อสะดวกต่อการอ่าน Code ครับ viewtopic.php?f=3&t=1187

[new_application]

ผมลองทำตามคำแนะนำของอาจารย์แล้วครับ
แต่ไม่สามารถแก้ไขได้ (สำครับเครื่องผมเอง)
ผมลองนำไฟล์ไปเปิดที่เครื่องอื่น สามารถเล่นได้ตามปกติครับ

อยากให้อาจารย์ให้คำแนะนำในการแก้ไขปัญหานี้ด้วยครับ

[snasui]

ลองตามนี้ครับ

กดปุ่ม Alt ค้างไว้แล้วกดปุ่มต่อไปนี้ตามลำดับ T, C, O, R, Yes