การรับค่าจาก Control toolbox

[tum2511]

เรียนอาจารย์คนควนครับ
ถ้าผมต้องการให้ค่าในเซลล์ E2 ซื่งรับค่าจาก Control toolbox ให้มีค่าเป็นตัวเลข เพื่อที่เซลล์ E4 จะหา vlookup ได้ถูกต้องครับ ( ไม่ต้องเขียน VB ครับ ) รบกวนอาจารย์ด้วยครับ ขอบพระคุณล่วงหน้าครับ

[snasui]

ที่ E4 เขียนสูตรตามด้านล่างครับ

=VLOOKUP($E$2+0,B2:C4,2,FALSE)

Enter

การบวกด้วย 0 จะเป็นการเปลี่ยนตัวเลขที่เป็น Text ให้กลับมาเป็น Number ครับ

[tum2511]

ขอบคุณครับ สุดยอดมาก เป็นที่พึ่งของผู้ไม่รู้จริง ๆ

[godman]

บังเอ็ญตรงกับความต้องการผมพอดี อยากทำแบบนี้ได้มานานแล้ว เลยอยากทราบว่า control tool box แบบนี้ สร้างมาได้อย่างไร ต้องเขียนสูตรอะไรหรือไม่ ผมพยายามหาที่มาแล้ว ไม่ว่าจะคลิก ที่ object ก็แล้ว หาใน data validation ก็แล้ว หาใน formular ก็แล้ว หาใน macro ก็แล้วก็ไม่พบครับ (เดี่ยวจะหาว่าผมไม่พยายามก่อน)

รหัสสาขา เลขที่บัญชี คำนำ
248 48008739 นาย 48008739
253 48022740 นาย
251 48019193 นาง นาย

[snasui]

ลองดูตัวอย่างตามภาพด้านล่างครับ

การกำหนดค่าต่าง ๆ จะอยู่ใน Design Mode หากกำหนดเรียบร้อยแล้ว ต้องการให้ออกจาก Design Mode คลิกแถบ Developer แล้วคลิก Design Mode อีกครั้งนึงครับ

[godman]

ขอบพระคุณครับ ทำได้แล้วครับ

[widtara]

กแถบ Developer หาไม่เจอใน 2007 อยากทำเป็นเหมือน แต่หาไม่เจออะ มันอยู่ตรงไหนค่ะ

[kmb]

กแถบ Developer หาไม่เจอใน 2007 อยากทำเป็นเหมือน แต่หาไม่เจออะ มันอยู่ตรงไหนค่ะ

ลืมดู animation จากข้อความของคุณ snasui ด้านบนหรือเปล่าครับ

[Sangkate]

พอดีเข้ามาดูตามที่อาจารย์แนะนำ , อยากรู้อีกแล้วว่า E2 รับค่าจาก control box ได้อย่างไร

[snasui]

สามารถแนบไฟล์ แนบ Code ที่ลองเขียนเองแล้วมาถามกันได้ครับ

[Sangkate]

เรียน อาจารย์
ตอนนี้ผมลองเขียนใน From ใน VB6 และลองใช้ Code แบบเขียนใน VB excels เลยมีคำถามมาถาม ผมก็ลองหา Web ดูแล้วยังไม่เข้าใจ(มือใหม่หัดเขียนนะครับ)
1. ทำไมมันใช้โค๊ดลักษณะเหมือนกันแล้วมันไม่ Active
2. ถ้าจะทำให้ข้อมูลของ form ใน VB6 ไปเก็บข้อมูลใน ซีท excell หรือ excess จะต้องทำยังไง รบกวนช่วยไกด์หน่อยครับ

[Sangkate]

แนบแล้วทำไมไม่เห็น File

[snasui]

ขนาดไฟล์ต้องไม่เกิน 300kb หากเป็นไฟล์ Project ควร Zip มาก่อนครับ การเขียน VB6 ลองดูตัวอย่างที่นี่ครับ VB6 and Excel File

[Sangkate]

อาจารย์ครับ อีกแล้ว ผมพยายามลองเขียนVBติดต่อกับฐานข้อมูลที่สร้างไว้ใน Access2007 เก็บที่ C:\Program Files\Microsoft Visual Studio\VB98 ชื่อ Close Order2012 .accdb แล้วทำไมมันขึ้น error แบบนี้ครับ

Option Explicit
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Private Sub Form_Load()
If conn.State = 1 Then conn.Close
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "ColseOrder2012.accdb"
MsgBox " Connection complete", vbInformation, " inform connect to database"

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Date
Label2.Caption = Time

End Sub

[snasui]

Error มีหน้าตาเป็นอย่างไรจับภาพมาแสดงด้วยครับ การโพสต์ Code ให้แสดงเป็น Code ดูกระทู้นื้เพื่อให้สะดวกในการอ่านครับ viewtopic.php?f=3&t=1187

[Sangkate]

ขออภัยอาจารย์ผมไม่ทราบการแบบไฟล์ที่เป็นรูปครับรบกวนแนะนำอีกที ตอนนี้ที่ผมต้องการเรียนรู้ก็คือ" input ข้อมูล ผ่าน control box, label ,ที่ form ที่เขียนขึ้นมาแล้วให้ไปเก็บไว้ตามที่ต้องการเก็บนะครับ" ซึ่งผมเข้าใจว่าคือการเก็บข้อมูลหรือ Database นั่นเอง(ไม่รู้ว่าถูกหรือผิดนะครับ

[snasui]

ที่เขียนมานั้นไม่ได้อ้างถึง Control ใด ๆ ครับ การที่จะนำค่าจาก Userform ไปใช้ต้องสร้าง Userform สร้าง Control เขียน Code การนำไปวางใน Database หากว่าต้องการนำไปวางใน Database ที่เป็นโปรแกรมอื่นสามารถเลือกใช้ Connection string (เช่นตัวอย่างที่แนบมา) และเขียน SQL statement เพื่อนำค่าต่าง ๆ ไปวาง

สำหรับการแนบไฟล์ชนิดอื่นลอง Zip มาก่อนแล้วค่อยแนบครับ

[snasui]

เพิมเติมอีกนิด จากโพสต์ด้านบนมีการพูดถึง VB6

กรณีไม่ใช่ VBA ไม่ว่าจะเป็น VB.NET, VB6 หรืออื่น ๆ ควรถามที่หมวด Other ไม่ใช่หมวด Excel นี้ครับ

[Sangkate]

มาอีกแล้วครับอาจารย์ คราวนี้ไม่รู้เลยครับว่าถ้าผมต้องการข้อมูลของโค๊ด Failure code ใน excell ที่ผมเก็บข้อมูลโดยอยากรู้ว่ามี Failure code ที่เหมือนกันเท่าไหร่ของแต่ละวันที่ ในตัวอย่างที่แนบม ยอมรับว่ามือใหม่ไม่มีความรู้แต่พยายามมาก อยากให้ช่วยแนะนำหน่อยโดยผมไม่รู้จะเริ่มเขียนโค๊ดยังไงอะครับแล้วผมจะลองต่อยอดดู

Code: Select all

Option Explicit
Dim output As Integer


Private Sub CommandButton1_Enter()

Txt1code = Txtcode1.Text
Txt2code = Txtcode2.Text
Txt3code = Txtcode3.Text
Txt4code = Txtcode4.Text
Txt5code = Txtcode5.Text
Txt6code = Txtbelt.Text
TxtlastSn.Text = Txtoutput.Text
Txttotal.Text = output
output = output + 1

Txtcode1 = ""
Txtcode2 = ""
Txtcode3 = ""
Txtcode4 = ""
Txtcode5 = ""
Txtbelt = ""
Txtoutput.Text = ""
Txtoutput.SetFocus


End Sub



Private Sub CommandButton2_Click()
Unload Me

End Sub

Private Sub txtlastSn_Change()

If TxtlastSn.Value <> 0 Then

Dim irow As Integer
Dim ws As Worksheet
    Set ws = Worksheets("Failure PAM")
TxtlastSn.Text = Application.Trim(Txtoutput.Text)
Txt1code.Text = Application.Trim(Txtcode1.Text)
Txt2code.Text = Application.Trim(Txtcode2.Text)
Txt3code.Text = Application.Trim(Txtcode3.Text)
Txt4code.Text = Application.Trim(Txtcode4.Text)
Txt5code.Text = Application.Trim(Txtcode5.Text)
Txt6code.Text = Application.Trim(Txtbelt.Text)

    irow = ws.Cells(Rows.Count, 1) _
    .End(xlUp).Offset(1, 0).Row
   
         ws.Cells(irow, 1).Value = Txtoutput.Text
         'ws.Cells(irow, 2).Value = Txtcode1.Text
         ws.Cells(irow, 3).Value = Txt6code.Text
         ws.Cells(irow, 4).Value = Txt1code.Text
         ws.Cells(irow, 5).Value = Txt2code.Text
         ws.Cells(irow, 6).Value = Txt3code.Text
         ws.Cells(irow, 7).Value = Txt4code.Text
         ws.Cells(irow, 8).Value = Txt5code.Text
         ws.Cells(irow, 9).Value = Txtinspector.Text
         ws.Cells(irow, 10).Value = Label14.Caption
         ws.Cells(irow, 11).Value = Label13.Caption
      
    End If

End Sub

Private Sub Txtoutput_Change()
Label13.Caption = Time()
End Sub

Private Sub UserForm_Activate()
MsgBox " ¡ÃسÒãÊèËÁÒÂàÅ¢¼ÙéµÃǨ¡è͹"
Label14.Caption = Date
Label13.Caption = Time()

End Sub

[snasui]

เป็นหัวข้อเดิมหรือหัวข้อใหม่ครับ ถ้าหัวข้อใหม่ให้ตั้งกระทู้ใหม่

ช่วยอธิบายว่าต้องการจะทำอะไร ในพื้นที่ใด Code ที่เขียนมานั้นอยู่ใน Module ใด ติดปัญหาใดครับ