Excel Forum

ขอโทษครับผมจะระวังในการใช้ภาษาครับ ตอนนี้ผมติดปัญหาเรื่องของการ UPDATE ผม Edit ข้อมูลขึ้นมาแก้ไข แล้วกด Update ข้อมูลของผมที่ Update ไม่ได้ทับตัวที่ Edit ขั้นมาแต่ข้อมูลลงไปอยู่ล่าสุด ผมต้องปรับแก้ Code ตรงไหนบ้างครับ Sub Update_Weight() ''' *** Update *** ''' Dim sh As Worksheet Dim iRow As Long D...

ตอนนี้ผมติดปัญหาเรื่องของการ UPDATE ผม Edit ข้อมูลขึ้นมาแก้ไข แร้วกด Update ข้อมูลของผมที่ Update ไม่ได้ทับตัวที่ Edit ขั้นมาแต่ข้อมูลลงไปอยู่ล่าสุด ผมต้องปรับแก้ Code ตรงไหนบ้างครับ Sub Update_Weight() ''' *** Update *** ''' Dim sh As Worksheet Dim iRow As Long Dim x As Object Dim str As String Fo...

ผมลองปรับใช้ได้แร้วครับแต่ตอนนี้ผมติดปัญหาเรื่องของการ UPDATE ผม Edit ข้อมูลขึ้นมาแก้ไข แร้วกด Update ข้อมูลของผมที่ Update ไม่ได้ทับตัวที่ Edit ขั้นมาแต่ข้อมูลลงไปอยู่ล่าสุด ผมต้องปรับแก้ Code ตรงไหนบ้างครับ Sub Update_Weight() ''' *** Update *** ''' Dim sh As Worksheet Dim iRow As Long Dim x As O...

ผมอยากจะแทนค่าใน Set sh = ThisWorkbook.Sheets("Trim") ให้ Trim เก็บค่าเอา Sheets จาก Option Button ถ้าเลือก PBP ให้ Trim เปลี่ยนเป็น PBP ต้องเขียนโค้ดอย่างไงครับ Dim sh As Worksheet Dim iRow As Long Set sh = ThisWorkbook.Sheets("Trim") If frmForm.txtRowNumber.Value = ""...

แก้ได้แ ล้ วครับขอบคุณครับ Private Sub txtPiece_Change() Dim Result(10) As Variant Dim Ave As Double Dim x, y, z, Sum As Double ''' *** Average *** ''" If txtBox1.Text = "" Then GoTo Ave Result(1) = CDbl(txtBox1.Value) If txtBox2.Text = "" Then GoTo Ave Result(2) = CDbl(txtB...

สูตร Average ใน Excel ได้ Standard 1.26 โดยใช้สูตร =AVERAGE(G3:P3) แต่พอผมลองเขียน VBA ใน UserForm ขึ้นมาแต่เพิ่มข้อมูลใน TextBox เข้าไปใน Textbox1-10 สูตรคำนวณออกมาได้อีกแบบนึ่งใน Standard ได้ 1.143 ผมอยากได้สูตรใน UserForm คำนวณให้ได้ตาม ไฟล์ใน Excel โดยไม่ต้องไปเอาค่าใน Excel มาแสดงครับ Private ...

รบกวนช่วยดูให้ทีครับ ฺBox3-Box10 ผมยังไม่มีค่าอะไรจะไม่ให้สูตรคำนวณ Average ออกได้ไหมครับให้ข้ามไปเลย Dim Result(10) As Double Dim Ave As Double Dim x, y, z, Sum As Double '''' *** Average *** ''" Result(1) = CDbl(txtBox1.Value) Result(2) = CDbl(txtBox2.Value) Result(3) = CDbl(txtBox3.Value) R...

หาแก้ตั้งนานขอบคุณครับ

ช่วยดูให้หน่อยครับผมดึงข้อมูลของ Excel หลายไฟล์แต่ดึงมาได้แค่หัวบันทัดส่วนเนื้อหาข้อมูลอื่นๆไม่มา

ผมอยากทราบโค้ดที่หาบรรทัดสุดท้ายและวางข้อมูลที่เราสั่งให่ Copy ไว้ (ผมต้อง filter ไว้แล้ว copy ให้ vba หาบรรทัดสุดท้ายของ Sheet เพื่อจะวางครับ) Sub Copy_Data() Dim i As Range Dim myLastRow As Long Columns("A:AY").EntireColumn.Hidden = False 'To UnHide Columns B to D For Each i In Worksheet...

ผมอยากล็อคข้อมูล B-->N ทั้งหมดที่มีข้อความ ส่วนที่ไม่มีข้อความไม่ให้ล็อคแต่พอเพิ่มข้อความเข้าไปแล้วให้ล็อคอัตโนมัติ ทำได้ไหมครับ ผมลองหาข้อมูลมาแล้วแต่ทำไม่ได้ครับช่วยหน่อยครับ Sub protectsheet() ActiveSheet.Unprotect Password:="543050" If ActiveCell.Value <> " " Then ActiveCell....

ขอบคุณครับได้แล้วครับ

อันนี้อีกส่วนครับที่เหลือไฟล์ใหญ่ไปส่งให้ไม่ได้

ไฟล์ใช้เยอะครับผมไม่รู้ว่าไฟล์ตัวไหนมีที่ปัญหา

ขั้นตอนแรกให้กด Start จะมี Userform ขึ้นให้ใส่ที่อยู่ของ ไฟล์ Excel ที่ต้องดึงข้อมูลทั้งหมดทีเดี่ยว เช่นของผม ให้ Copy ที่อยู่มาใส่ใน Userform และกด Register ครับ

ผมดึงข้อมูลจากหลายๆ Sheets ทีเดียวครับแต่ระบบดึงข้อมูลมาไม่ครบครับมันขาดหายบ้างเป็นบางครั้งบางครั้งก็ไม่หายไม่รู้เป็นเพราะอะไรครับ ช่วง 720 กว่า ข้อมูลขาดหายไปบางช่วงแต่ 830 กว่า ข้อมูลมาครบปกติครับ โค้ดไม่มีติดครับ ช่วยดูให้หน่อยครับ

ช่วยยกตัวอย่างให้หน่อยได้ไหมครับ lส่วนท้ายๆ ของ Link ผมไม่สามารถหาได้ครับผมไม่รู้ว่าต้องใช้ส่วนไหนเข้ามาช่วยใน Link เยอะมากครับ

:D โค้ดมันติดครับช่วยหน่อยไฟล์ของผมเอาไว้ One drive ผมให้ไฟล์บันทึกอัตโนมัติ แล้วระบบติด แต่ถ้าอยู่ นอก One Drive ระบบไม่ติดระบบปกติทุกอย่างแก้อย่าไงครับช่วยทีครับ Function SQLSelect(ByVal strSql As String) As ADODB.Recordset Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset If conn.St...

ใช้ครับเก็บค่าของบรรทัดนั้นและทำการบันทึกข้อมูลของบรรทัดนั้นไปไว้ใน Sheet Pivot ครับ
โดยใช้สูตร VBA Module 2 ครับ