แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - กวี

หน้า: [1]
1
ขั้นแรก backup โปรแกรมตัวเดิมไว้ก่อน

วิธีแรก ลองเช็คการกำหนด reference โดยเข้าไปที่
ที่มุมมองออกแบบ กด Alt + F11 เพื่อเข้าไปในโหมดเขียนโค้ด
ที่ Tab ด้านบนหาคำว่า TOOL  >>>> reference
ตรงในส่วนของ Available reference:
ให้สังเกตุว่า มีตัวไหนที่มีคำว่า (MISSING) อยู่หรือไม่ ถ้ามีให้ติ๊กออกไป
แล้วกด OK ปิดโปรแกรมลองเปิดมาใหม่

วิธีที่สอง เช็คการกำหนด Microsoft Office XX.0 Object Library
สังเกตุที่ Available reference: เหมือนเดิมของท่าน ใช้ icrosoft Office อะไร ครับ ถ้า 2016 ใช้ 16.0  ถ้าตำกว่าก็ลองเลือก Microsoft Office Object Library เวอร์ชั่นต่ำลงมาดูครับ

หรือ ดาวน์โหลด .DLL ตัวที่หายไปมาวางในเครื่อง
LINKDownLoad https://www.dllme.com/getfile.php?file=11630&id=b8d53c80870eaef6758b66f9a0a0d6cd
 โดยตำแหน่งก็ประมาณนี้ แล้วแต่โดยว่าวินโดร์กี่บิท ลองค้นหา ตำแหน่งที่มีโฟลเดอร์
 microsoft shared\OFFICEXX XX คือเลขรุ่น

C:/program files (x86)\common files\microsoft shared\OFFICEXX คือเลขรุ่น

อย่างของผม Office 2010 Dll จะอยู่ที่ C:\Program Files\Microsoft Office\OfficeXX
โพสต์นี้ได้รับคำขอบคุณจาก: กวี

2
ขอบคุณมากครับ  ถ้าเราจะ เปลี่ยนสีตัวอักษรด้วยต้องเพิ่มยังไงบ้างครับ
ใช้ .ForeColor ครับ
ส่วนการกำหนดค่าสีใช้ได้หลายแบบเช่น
Me.textboxName.ForeColor = RGB(0,0,0) 'สีดำ
Me.textboxName.ForeColor = RGB(255,0,0) 'สีแดง
Me.textboxName.ForeColor = RGB(0,255,0) 'สีเขียว
Me.textboxName.ForeColor = RGB(0,0,255) 'สีน้ำเงิน
Me.textboxName.ForeColor = RGB(255,255,0) 'สีเหลือง
ฯลฯ อยากได้สีอื่นๆ ลองค้นหาคำว่า RGB Color For VBA ในGoogleนะครับ

หรือใช้ Vb.... ตามด้วยชื่อสี
ตัวอย่าง

If Len(Me.textboxName) = "10" Then
MsgBox "ครบจำนวน"
Me.textboxName.ForeColor = vbBlack
ElseIf Len(Me.textboxName) < 10 Then
MsgBox "จำนวนน้อยเกินไป"
Me.textboxName.ForeColor = vbRed
ElseIf Len(Me.textboxName) > 10 Then
MsgBox "เกินจำนวนที่กำหนด"
Me.textboxName.ForeColor = RGB(255,0,0)
End If

โพสต์นี้ได้รับคำขอบคุณจาก: กวี

หน้า: [1]