Page 1 of 1
การรับค่าจาก Control toolbox
Posted: Mon Feb 07, 2011 10:29 pm
by tum2511
เรียนอาจารย์คนควนครับ
ถ้าผมต้องการให้ค่าในเซลล์ E2 ซื่งรับค่าจาก Control toolbox ให้มีค่าเป็นตัวเลข เพื่อที่เซลล์ E4 จะหา vlookup ได้ถูกต้องครับ ( ไม่ต้องเขียน VB ครับ ) รบกวนอาจารย์ด้วยครับ ขอบพระคุณล่วงหน้าครับ
Re: การรับค่าจาก Control toolbox
Posted: Mon Feb 07, 2011 10:44 pm
by snasui
ที่ E4 เขียนสูตรตามด้านล่างครับ
=VLOOKUP($E$2+0,B2:C4,2,FALSE)
Enter
การบวกด้วย 0 จะเป็นการเปลี่ยนตัวเลขที่เป็น Text ให้กลับมาเป็น Number ครับ
Re: การรับค่าจาก Control toolbox
Posted: Mon Feb 07, 2011 10:48 pm
by tum2511
ขอบคุณครับ สุดยอดมาก เป็นที่พึ่งของผู้ไม่รู้จริง ๆ
Re: การรับค่าจาก Control toolbox
Posted: Fri Feb 11, 2011 2:13 pm
by godman
บังเอ็ญตรงกับความต้องการผมพอดี อยากทำแบบนี้ได้มานานแล้ว เลยอยากทราบว่า control tool box แบบนี้ สร้างมาได้อย่างไร ต้องเขียนสูตรอะไรหรือไม่ ผมพยายามหาที่มาแล้ว ไม่ว่าจะคลิก ที่ object ก็แล้ว หาใน data validation ก็แล้ว หาใน formular ก็แล้ว หาใน macro ก็แล้วก็ไม่พบครับ (เดี่ยวจะหาว่าผมไม่พยายามก่อน)
รหัสสาขา เลขที่บัญชี คำนำ
248 48008739 นาย 48008739
253 48022740 นาย
251 48019193 นาง นาย
Re: การรับค่าจาก Control toolbox
Posted: Fri Feb 11, 2011 2:31 pm
by snasui
ลองดูตัวอย่างตามภาพด้านล่างครับ
การกำหนดค่าต่าง ๆ จะอยู่ใน Design Mode หากกำหนดเรียบร้อยแล้ว ต้องการให้ออกจาก Design Mode คลิกแถบ Developer แล้วคลิก Design Mode อีกครั้งนึงครับ
Re: การรับค่าจาก Control toolbox
Posted: Fri Feb 11, 2011 2:48 pm
by godman
ขอบพระคุณครับ ทำได้แล้วครับ
Re: การรับค่าจาก Control toolbox
Posted: Tue Feb 15, 2011 11:57 am
by widtara
กแถบ Developer หาไม่เจอใน 2007 อยากทำเป็นเหมือน แต่หาไม่เจออะ มันอยู่ตรงไหนค่ะ
Re: การรับค่าจาก Control toolbox
Posted: Tue Feb 15, 2011 12:53 pm
by kmb
Re: การรับค่าจาก Control toolbox
Posted: Thu Aug 23, 2012 6:50 pm
by Sangkate
พอดีเข้ามาดูตามที่อาจารย์แนะนำ , อยากรู้อีกแล้วว่า E2 รับค่าจาก control box ได้อย่างไร
Re: การรับค่าจาก Control toolbox
Posted: Thu Aug 23, 2012 9:56 pm
by snasui
สามารถแนบไฟล์ แนบ Code ที่ลองเขียนเองแล้วมาถามกันได้ครับ
Re: การรับค่าจาก Control toolbox
Posted: Sun Sep 02, 2012 5:13 pm
by Sangkate
เรียน อาจารย์
ตอนนี้ผมลองเขียนใน From ใน VB6 และลองใช้ Code แบบเขียนใน VB excels เลยมีคำถามมาถาม ผมก็ลองหา Web ดูแล้วยังไม่เข้าใจ(มือใหม่หัดเขียนนะครับ)
1. ทำไมมันใช้โค๊ดลักษณะเหมือนกันแล้วมันไม่ Active
2. ถ้าจะทำให้ข้อมูลของ form ใน VB6 ไปเก็บข้อมูลใน ซีท excell หรือ excess จะต้องทำยังไง รบกวนช่วยไกด์หน่อยครับ
Re: การรับค่าจาก Control toolbox
Posted: Sun Sep 02, 2012 5:20 pm
by Sangkate
แนบแล้วทำไมไม่เห็น File
Re: การรับค่าจาก Control toolbox
Posted: Sun Sep 02, 2012 10:27 pm
by snasui
ขนาดไฟล์ต้องไม่เกิน 300kb หากเป็นไฟล์ Project ควร Zip มาก่อนครับ การเขียน VB6 ลองดูตัวอย่างที่นี่ครับ
VB6 and Excel File
Re: การรับค่าจาก Control toolbox
Posted: Mon Sep 17, 2012 3:16 pm
by 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
Re: การรับค่าจาก Control toolbox
Posted: Mon Sep 17, 2012 3:21 pm
by snasui
Error มีหน้าตาเป็นอย่างไรจับภาพมาแสดงด้วยครับ การโพสต์ Code ให้แสดงเป็น Code ดูกระทู้นื้เพื่อให้สะดวกในการอ่านครับ
viewtopic.php?f=3&t=1187
Re: การรับค่าจาก Control toolbox
Posted: Mon Sep 17, 2012 5:01 pm
by Sangkate
ขออภัยอาจารย์ผมไม่ทราบการแบบไฟล์ที่เป็นรูปครับรบกวนแนะนำอีกที ตอนนี้ที่ผมต้องการเรียนรู้ก็คือ" input ข้อมูล ผ่าน control box, label ,ที่ form ที่เขียนขึ้นมาแล้วให้ไปเก็บไว้ตามที่ต้องการเก็บนะครับ"
ซึ่งผมเข้าใจว่าคือการเก็บข้อมูลหรือ Database นั่นเอง(ไม่รู้ว่าถูกหรือผิดนะครับ
Re: การรับค่าจาก Control toolbox
Posted: Mon Sep 17, 2012 5:22 pm
by snasui
ที่เขียนมานั้นไม่ได้อ้างถึง Control ใด ๆ ครับ การที่จะนำค่าจาก Userform ไปใช้ต้องสร้าง Userform สร้าง Control เขียน Code การนำไปวางใน Database หากว่าต้องการนำไปวางใน Database ที่เป็นโปรแกรมอื่นสามารถเลือกใช้ Connection string (เช่นตัวอย่างที่แนบมา) และเขียน SQL statement เพื่อนำค่าต่าง ๆ ไปวาง
สำหรับการแนบไฟล์ชนิดอื่นลอง Zip มาก่อนแล้วค่อยแนบครับ
Re: การรับค่าจาก Control toolbox
Posted: Tue Sep 18, 2012 8:01 am
by snasui
เพิมเติมอีกนิด จากโพสต์ด้านบนมีการพูดถึง VB6
กรณีไม่ใช่ VBA ไม่ว่าจะเป็น VB.NET, VB6 หรืออื่น ๆ ควรถามที่หมวด
Other ไม่ใช่หมวด Excel นี้ครับ
Re: การรับค่าจาก Control toolbox
Posted: Thu Dec 13, 2012 5:43 pm
by 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
Re: การรับค่าจาก Control toolbox
Posted: Thu Dec 13, 2012 5:48 pm
by snasui
เป็นหัวข้อเดิมหรือหัวข้อใหม่ครับ ถ้าหัวข้อใหม่ให้ตั้งกระทู้ใหม่
ช่วยอธิบายว่าต้องการจะทำอะไร ในพื้นที่ใด Code ที่เขียนมานั้นอยู่ใน Module ใด
ติดปัญหาใดครับ
