ลูกค้า เก่า ADM ใช้ Excel ที่ผมเคยออกแบบมาให้ ทำงาน ตั้งแต่ปี 47 – ปัจจุบัน
ข้อมูล ไม่เยอะมาก แค่ หมื่นกว่า บรรทัด (โดยประมาณ) แต่ที่เยอะ คือ Comment
ใส่เกือบ ทุกฟิลด์ ของแต่ละบรรทัด (ใช้เก็บข้อมูลสินค้า มีค่า)
พอจะเอา ขึ้นระบบโปรแกรมใหม่ จำเป็นต้อง Import เข้าไป โดยการ “แกะ” Comment
มาเป็นอีก 1 ฟิลด์ เขียน VB แกะ Comment รวมจากหลาย ๆ ฟิลด์ ต่อกัน
เอา Code VBA มาให้ดู
[stylebox type=”info”]
Sub getcomment()
Dim cMt, xRow, i, ii
Dim cMt2, cMt3
xRow = ActiveSheet.UsedRange.Rows.Count
For i = 2 To xRow
For ii = 1 To 23
Set cMt = Cells(i, ii).Comment
If Not cMt Is Nothing Then
cMt2 = “< (” & Cells(1, ii).Value & “) ” & Trim(Cells(i, ii).Comment.Text) & ” > ” & vbNewLine
cMt3 = cMt3 & cMt2
‘cMt3 = cMt3 & cMt2
End If
Next ii
‘Check OLD Remark
If Cells(i, 20).Value <> Empty Then
cMt3 = cMt3 & “<(Remark)” & Cells(i, 20).Value & “>”
End If
Cells(i, 28).Value = cMt3
‘reset
cMt3 = Empty
Next i
End Sub
[/stylebox]
ปล.
- เพิ่งรู้ สามารถปิด จุดแดง ๆ Comment ได้ และ Excel เร็วขึ้นด้วย (ไม่รู้คิดไปเองหรือเปล่า)
- Comment เยอะ ๆ นี่ ทำเครื่อง Core i5 X1 carbon นี่ช้า เป็น เต่าเลย ..
สำหรับการปิด Comment (แต่ข้อมูลยังอยู่) ไปตามรูปเลย
