:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

Search found 21 matches

by profess79
Fri Aug 19, 2022 7:16 pm
Forum: VB.NET
Topic: แสดงเลขคู่เลขคี่
Replies: 10
Views: 10339

Re: แสดงเลขคู่เลขคี่

พอดีไม่เห็นอะไรที่มันเป็นการหาร 2 เอาเศษ 0 ครับ

มันเลยออกมาแบบนี้

Image


ที่ถูกต้องมีการหาร 2 เอาเศษ 0 ประมาณนี้ครับ

Image

อันนี้เขียนจาก VB6 นะครับ แต่ VB.Net ก็คล้ายๆ กันครับ
by profess79
Thu Aug 18, 2022 2:50 pm
Forum: VB.NET
Topic: แสดงเลขคู่เลขคี่
Replies: 10
Views: 10339

Re: แสดงเลขคู่เลขคี่

อันนี้ผมถามในส่วนของ Code ที่ Quote มาครับน่าจะตรงหมวดแล้ว
หรือผมถามผิดอะไรตรงไหนครับ

:cry:
by profess79
Wed Aug 17, 2022 9:27 am
Forum: VB.NET
Topic: แสดงเลขคู่เลขคี่
Replies: 10
Views: 10339

Re: แสดงเลขคู่เลขคี่

:D ตัวอย่าง Code ครับ Dim b, num1, num2 As Byte Dim s1, s2 As String num1 = Val(TextBox1.Text) num2 = Val(TextBox2.Text) s1 = "" s2 = "" For b = num1 To num2 Step 2 s1 = s1 & " " & b If b < num2 Then s2 = s2 & " " & b + 1 End If Next b TextBox...
by profess79
Wed Apr 26, 2017 10:24 am
Forum: Excel
Topic: ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ
Replies: 20
Views: 6207

Re: ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ

ขอ Code แบบเต็มๆ ได้ไหมครับ ผมลองดูแล้วถ้ากำหนด String ไว้ใน AlternativeText แต่แรก มันก็สามารถแสดงค่าออกมาได้ ถ้าไม่กำหนดไว้มันก็เป็น Blank Set XlsApp = CreateObject("Excel.Application") Set Book1 = XlsApp.Workbooks.Open("Z:\1.xls") Set imgicon = XlsApp.ActiveSheet.Shapes.AddPic...
by profess79
Sat Apr 22, 2017 4:39 pm
Forum: Excel
Topic: ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ
Replies: 20
Views: 6207

Re: ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ

ไฟล์แนบ Visual Basic ครับ เป็น Version 6 ยังไม่ถึง .Net


ถามห้องนี้ถูกแล้วหรือต้องไปห้อง .Net ครับ
by profess79
Sat Apr 22, 2017 2:17 pm
Forum: Excel
Topic: ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ
Replies: 20
Views: 6207

Re: ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ

Source code อยู่ใน โปรแกรม Visual Basic ครับ Set XlsApp = CreateObject("Excel.Application") Set Book1 = XlsApp.Workbooks.Open("Z:\1.xls") Set imgicon = XlsApp.ActiveSheet.Shapes.AddPicture(filename:="Z:\01.jpg", LinkToFile:=True, SaveWithDocument:=False, Left:=10, Top:=...
by profess79
Thu Apr 20, 2017 5:00 pm
Forum: Word
Topic: อยากร่น บรรทัดครับ
Replies: 4
Views: 4187

Re: อยากร่น บรรทัดครับ

เสนอให้หนึ่งทางเลือก คือ จับใส่กล่องข้อความแบบไม่มีเส้นขอบทั้งสองข้อความ ทีนี้จะเลื่อนขึ้นเลื่อนลงยังไงก็ได้

:mrgreen:
ทะเบียนรถแอมบูแลนซ์.docx
by profess79
Tue Apr 18, 2017 11:50 am
Forum: Excel
Topic: ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ
Replies: 20
Views: 6207

Re: ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ

Code: Select all

'ลองตามนี้แล้ว Error หมด
'MsgBox ActiveSheet.Shapes("Picture 173").LinkFormat.SourceName
'MsgBox s.LinkFormat.SourcePath
'MsgBox s.LinkFormat.SourceName
'MsgBox s.LinkFormat.SourcefullName
'MsgBox s.LinkFormat.filename
by profess79
Mon Apr 17, 2017 4:21 pm
Forum: Excel
Topic: ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ
Replies: 20
Views: 6207

Re: ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ

ไฟล์ Excel (z:\1.xls) นี่ก็ไฟล์เปล่าๆ เลยก็ได้ครับ ส่วน Source code นี่เป็น Visual Basic 6 ครับผม Code ก็ตามด้านบน เลย
by profess79
Thu Apr 06, 2017 3:52 pm
Forum: SQL
Topic: มีข้อมูลสอง Table ที่ตั้งใจให้เหมือนกัน แต่มันไม่เหมือนกัน
Replies: 1
Views: 7091

มีข้อมูลสอง Table ที่ตั้งใจให้เหมือนกัน แต่มันไม่เหมือนกัน

มีข้อมูลสอง Table ที่ตั้งใจให้เหมือนกัน แต่มันไม่เหมือนกัน จะใช้คำสั่ง select ยังไงครับ

เพื่อให้ทราบว่า ใน Table A เนี่ย มีอะไรที่ Table B ไม่มี

ขอบคุณครับ

:D
by profess79
Thu Apr 06, 2017 2:22 pm
Forum: VB.NET
Topic: สอบถามเรื่อง การทำให้ form นั้นๆเปิดได้แค่ครั้งเดียว
Replies: 4
Views: 5245

Re: สอบถามเรื่อง การทำให้ form นั้นๆเปิดได้แค่ครั้งเดียว

เพิ่มอีกทางเลือกคือ เรียก menu นั้นแล้วก็ Disable มันซะ ไม่ให้เรียกใช้ได้อีก Public Sub menuFloor1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim fl1 As Floor1 fl1 = New Floor1 fl1.Show() menuFloor1.enable = false 'ตรงนี้เลย End Sub ตอนออกจาก From Floor1 ก็ Enable มันขึ้นมา :mrgreen:
by profess79
Thu Apr 06, 2017 2:18 pm
Forum: Excel
Topic: ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ
Replies: 20
Views: 6207

ดึง Path & filename จากรูปที่แทรกอยู่ในไฟล์ .xls อย่างไรครับ

Set XlsApp = CreateObject("Excel.Application") Set Book1 = XlsApp.Workbooks.Open("Z:\1.xls") Set imgIcon = XlsApp.ActiveSheet.Shapes.AddPicture(filename:="Z:\Pic\01.png", LinkToFile:=True, SaveWithDocument:=False, Left:=10, Top:=10, Width:=500, Height:=500) Set imgIcon...
by profess79
Wed Jul 06, 2016 2:32 pm
Forum: VB.NET
Topic: สอบถามเรื่อง vb.net ต้องการจะสร้าง header ที่ line 0 ใน file.txt
Replies: 3
Views: 3295

Re: สอบถามเรื่อง vb.net ต้องการจะสร้าง header ที่ line 0 ใน file.txt

เดาว่า Dim colum1, colum2, colum3, colum4 As String colum1 = txtTime colum2 = DataArray(1) colum3 = DataArray(2) If Temp > Maxt And Temp < Mint Then colum4 = "OFF" End If Dim header As String = ("Time Temp. Humidity") Dim filename As String = "" & FN & "&qu...
by profess79
Wed Jul 06, 2016 2:22 pm
Forum: VB.NET
Topic: โปรแกรมดู source code exe
Replies: 7
Views: 11654

Re: โปรแกรมดู source code exe

หึหึหึ หน้าที่ Backup :lol: :lol: :lol: