Excel Forum

รบกวนช่วยคิดสูตรหา ชั่วโมง นาทีและวินาที ให้หน่อยครับ
ตัวอย่างเช่น 128.50 คิดเป็น 2 ชั่วโมง 8 นาที 50 วินาที
ผมไม่รู้ว่าต้องใช้สูตรอะไรในการหา ชั่วโมง นาทีและวินาที ครับ
ผมมีเวลา 1254.50 ครับผมเลยไม่รู้ว่าจะคิดออกมาอย่างไงครับ
โดยใช้สูตรอะไรในการหาครับ
รบกวนผมรู้ทีครับ

ขอโทษครับผมจะระวังในการใช้ภาษาครับ

ตอนนี้ผมติดปัญหาเรื่องของการ UPDATE
ผม Edit ข้อมูลขึ้นมาแก้ไข แล้วกด Update ข้อมูลของผมที่ Update ไม่ได้ทับตัวที่ Edit
ขั้นมาแต่ข้อมูลลงไปอยู่ล่าสุด ผมต้องปรับแก้ Code ตรงไหนบ้างครับ


Sub Update_Weight() ''' *** Update *** '''
Dim sh As Worksheet
Dim iRow ...

ตอนนี้ผมติดปัญหาเรื่องของการ 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 ...

ผมลองปรับใช้ได้แร้วครับแต่ตอนนี้ผมติดปัญหาเรื่องของการ UPDATE
ผม Edit ข้อมูลขึ้นมาแก้ไข แร้วกด Update ข้อมูลของผมที่ Update ไม่ได้ทับตัวที่ Edit
ขั้นมาแต่ข้อมูลลงไปอยู่ล่าสุด
ผมต้องปรับแก้ Code ตรงไหนบ้างครับ


Sub Update_Weight() ''' *** Update *** '''
Dim sh As Worksheet
Dim iRow As Long ...

ผมอยากจะแทนค่าใน 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 = "" Then
iRow ...

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

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(txtBox2.Value ...

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

รบกวนช่วยดูให้ทีครับ
ฺ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 ...

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

ช่วยดูให้หน่อยครับผมดึงข้อมูลของ 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 Worksheets ...

ผมอยากล็อคข้อมูล B-->N ทั้งหมดที่มีข้อความ
ส่วนที่ไม่มีข้อความไม่ให้ล็อคแต่พอเพิ่มข้อความเข้าไปแล้วให้ล็อคอัตโนมัติ
ทำได้ไหมครับ
ผมลองหาข้อมูลมาแล้วแต่ทำไม่ได้ครับช่วยหน่อยครับ
Sub protectsheet()

ActiveSheet.Unprotect Password:="543050"
If ActiveCell.Value <> " " Then
ActiveCell.Offset(0, 1 ...

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

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

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

ขั้นตอนแรกให้กด 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 ...