Snasui Excel Forum

สามารถทำได้แล้ว ขอบคุณค่ะ

ได้ลองนำ code ไปรันแล้วนะคะ โปรแกรมขึ้นแจ้ง error ว่า syntax error
TextBox ที่ต้องการให้มีทศนิยม 3 ตำแหน่ง อยู่ใน Userform3 TextBox137 ถึง TextBox217 รบกวนช่วยดูให้หน่อยนะคะ

สวัสดีค่ะอาจารย์ ขอสอบถามวิธีสร้าง Chart ใน userform โดยเอาข้อมูลมาจาก TextBox ค่ะ นี่คือ code ที่ได้ลองทำค่ะ
แต่มันขึ้นว่า Opject required

Sub CreateChart()
'PURPOSE: Create a chart (chart dimensions are not required)

Dim rng As Object
Dim cht As Object

'Your data range for the chart
For ii ...

รบกวนอาจารย์ค่ะ พอดีไม่เข้าใจ code อาจารย์ช่วยยกตัวอย่างได้ไหมคะ

ขอบคุณค่ะ

สวัสดีค่ะ รบกวนช่วยดูให้หน่อยค่ะว่าสามารถกำหนดทศนิยมแบบใช้ For Loop ได้หรือไม่ เนื่องจากมีจำนวน textbox เยอะค่ะ ถ้าสามารถทำได้ต้องเขียน code อย่างไรคะ

ตัวอย่าง code บางส่วนค่ะ

Private Sub TextBox134_Change()
TextBox134.Text = Format(TextBox134, "##0.000")
End Sub
Private Sub TextBox135_Change ...

สวัสดีค่ะ จะนำ array ใน userform2 มาใช้ใน userform3 ค่ะ สามารถทำได้ไหมคะ array ที่ต้องการนำมาใช้ใน userform3 คือ one ค่ะ

Code ใน userform 2 ค่ะ

Public Sub CommandButton6_Click()

n = UserForm1.ComboBox2.Value
m = 3 * n

Dim one() As Double
ReDim one(1 To n, 1 To m) As Double

For ii = 1 To ...

1.จากCodeตรงCaption พอเปลี่ยนเป็นชื่ออื่นแล้ว ในหน้าAdd inที่แสดงผล ไม่เปลี่ยนตามค่ะ
2.หน้าadd in มีคำว่าFuzzy ขึ้นมาหลายตัว ต้องการให้มีตัวเดียวค่ะ
3.ลบไฟล์เก่าไปแล้ว แต่โปรแกรมก็ยังถามหาไฟล์เก่าอยู่ พอจะadd in ไฟล์ใหม่ ก็ไม่สามารถทำได้ค่ะ

Private Sub Workbook_Addinlnstall()
With Application ...

ทำได้แล้ว ขอบคุณค่ะ

รับทราบค่ะ
1. อันดับแรกผู้ใช้ต้องเลือกค่าใน userfom1
2.จากนั้นเมื่อกดปุ่ม next แล้วจะไปที่หน้า userform2
3. ผู้ใช้ต้องกรอกค่าลงใน userform2 (ต้องกรอกทุก textbox ค่าที่ใช่ทดสอบต้องมากกว่า 1 ค่ะ)
4. เมื่อกรอกค่าเสร็จแล้วให้ผู้ใช้กดปุ่ม call weight
5. ผลที่ได้จะแสดงออกมาในหน้า userform3 (โดยท ...

สวัสดีค่ะ ปกติเวลาปิดเเค่ Userform เดียวสามารถปิดได้ค่ะแต่ในกรณีนี้คือ ต้องการปิด userform ทั้งหมดที่เปิดมาค่ะ รบกวนช่วยดู code ว่าผิดตรงไหนบ้างคะ

ขอบคุณอาจารย์มากค่ะ แก้ได้เรียบร้อยค่ะ

ไฟล์ที่ได้ลองทำ code จะอยู่ใน userform1 ค่ะ

ต้องการให้โชว์ Textbox ตามเลขที่กรอกไว้ค่ะ รบกวนช่วยดู code ให้หน่อยค่ะว่ามีตรงไหนผิด


Private Sub CommandButton1_Click()
b = ComboBox1.Value
c = ComboBox2.Value

If b = 1 And c = 2 Then
For ii = 1 To 200
Me.Controls.UserForm2("TextBox" & ii).Visible = False
Next ii
UserForm2.Textbox300.Visible ...

ตอนนี้สามารถแก้ไขปัญหาได้แล้วค่ะ ขอบคุณมากๆค่ะอาจารย์

ต้องการให้ผู้ใช้งานกรอกค่าใน TextBox (กรอบเลข 1 ค่ะ) เมื่อกด cell wight ค่าที่ผู้ใช้งานกรอกไว้ใน TextBox จะถูกนำมาเก็บไว้ใน array ที่มีชื่อว่า Input1(jj) (คือหมายเลข 3 ค่ะ) ปัญหาคือ จะสามารถนำค่าใน TextBox มาเก็บไว้ใน array เพื่อนำไปคำนวณต่อได้ไหมคะ ขอรบกวนด้วยค่ะ

สวัสดีค่ะ ต้องนำค่าที่กรอกใน TextBox(jj) ไปใส่ในArray ของตัวแปร Input(jj ) เพื่อคำนวณต่อตาม code ที่ใส่ไว้ค่ะ