วิธีการกำหนดขนาดช่องในExcell ให้เท่ากันทุกไฟล์

มันคืออะไร

ใน access ตรงฟิวล์รายละเอียดงานอ่ะค่ะ มันยาวเกินไปเลยอยากให้มันสามารถกดEnterแล้วขึ้นบรรทัดใหม่ได้อ่ะค่ะ

ส่วนในExcell เวลา Export จาก access มา ข้อมูลแต่ละช่อง(คือ ช่องA ช่องB ช่องC ไรพวกนั้นอ่ะค่ะ) ความกว้างมันไม่เท่ากันบ้างก็กว้างมาก บ้างก็กว้างน้อย จะมีวิธีกำหนดขนาดให้มันเท่ากันทุกช่อง โดยที่เราไม่ต้องมานั่งแก้ไขไหมค่ะ

ขอบคุณค่ะ

(1.) ใน access ตรงฟิวล์รายละเอียดงานอ่ะค่ะ มันยาวเกินไปเลยอยากให้มันสามารถกดEnterแล้วขึ้นบรรทัดใหม่ได้อ่ะค่ะ

* สามารถทำได้ 2 วิธี คือ
1. ในการใช้บนฟอร์ม ที่ Property ของ Textbox > Other > Enter Key Behavior: กำหนดเป็น New Line in Field
2. หากไม่ต้องการแก้ไข Property เวลาคีย์ข้อมูลต้องการขึ้นบรรทัดใหม่ให้กดปุ่ม Ctrl ค้างไว้ แล้วกด Enter

(2.) แล้วพอ Export ไปเป็น Excell พอจะมีวิธีการกำหนดขนาดช่องในExcell ให้เท่ากันทุกไฟล์เลยได้ไหมค่ะ

* หากจะสั่งจาก MS Access ต้องดึง ไลบารี่ ของ MS Excel มาใช้งานด้วย โดยทำตามขั้นตอนดังนี้:

1. ในหน้าต่าง VBE เพิ่มไลบารี่ ใน References ชื่อ Microsoft Excel xx.x Object Library

2. สร้าง Module ใหม่ ใส่โค๊ดดังนี้:
Public Function SetExcells(PathFilename As String, CellWidth As Integer, Optional CellHeight As Integer = 15, Optional NameSheet As String = "Sheet1")
    Dim xlApp As Excel.Application, xlBook As Excel.Workbook
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(PathFilename)
    xlApp.AutomationSecurity = msoAutomationSecurityForceDisable
    xlBook.Worksheets(NameSheet).Select
    xlApp.ActiveSheet.Columns.ColumnWidth = CellWidth
    xlApp.ActiveSheet.Rows.RowHeight = CellHeight
    xlBook.Save
    xlApp.Quit
    Set xlBook = Nothing: Set xlApp = Nothing
    MsgBox "กำหนดขนาดเซลเรียบร้อยแล้ว", , "SetExcells()"
End Function


3. สร้างปุ่มบนฟอร์มขึ้นมาใหม่ 1 ปุ่ม (สำหรับเซ็ทความยาวกว้างเซลในไฟล์ Excel เป้าหมาย) เขียนคำสั่งใน Event > On Click ดังนี้
สมมุติ ต้องการจัดเรียงเซลในไฟล์ชื่อ Book1.xlsx ที่ Sheet ชื่อ Sheet1 โดยให้เซลกว้าง 10 และสูง 15

SetExcells "C:\Book1.xlsx", 10, 15, "Sheet1"

ประมาณนี้