Excel Forum

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

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




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



อันนี้เขียนจาก VB6 นะครับ แต่ VB.Net ก็คล้ายๆ กันครับ

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

: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
TextBox3.Text = s1
TextBox4.Text = s2





แบบนี้ถ้า ...

สร้างไฟล์เปล่านี่ใน Excel หรือใน Visual Basic ครับ

ขอ Code แบบเต็มๆ ได้ไหมครับ

ผมลองดูแล้วถ้ากำหนด String ไว้ใน AlternativeText แต่แรก มันก็สามารถแสดงค่าออกมาได้ ถ้าไม่กำหนดไว้มันก็เป็น Blank

Set XlsApp = CreateObject("Excel.Application")
Set Book1 = XlsApp.Workbooks.Open("Z:\1.xls")

Set imgicon = XlsApp.ActiveSheet.Shapes.AddPicture(filename ...

ทดสอบแล้วเป็น Blank ครับ

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


ถามห้องนี้ถูกแล้วหรือต้องไปห้อง .Net ครับ

หรือผมถามผิดที่

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:=10, Width:=500, Height ...

ตัวอย่างไฟล์ครับ

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

ไฟล์ 01.png
http://upload.i4th.in.th/?d=58F877ED1

ไฟล์ 02.png
http://upload.i4th.in.th/?d=58F877EE1

ไฟล์ Excel
http://upload.i4th.in.th/?d=58F878E61

ไฟล์ Excel (z:\1.xls) นี่ก็ไฟล์เปล่าๆ เลยก็ได้ครับ ส่วน Source code นี่เป็น Visual Basic 6 ครับผม Code ก็ตามด้านบน เลย

https://www.codeproject.com/Articles/33 ... -SQL-Joins

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

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

ขอบคุณครับ

เพิ่มอีกทางเลือกคือ เรียก 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 มันขึ้นมา ...

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 = XlsApp.ActiveSheet.Shapes ...

เดาว่า


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 & "" & txtDate & ".txt"
Dim writer As System ...

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