Snasui Excel Forum

ต้องการเติมคำว่า "พี่" หน้าข้อความ เช่น แหลม เป็น พี่แหลม ทีละหลายๆเซลพร้อมกัน อยากทราบว่ามีฟังก์ชันหรือสูตรไหนแนะนำบ้างมั้ยครับ ขอบคุณมากครับผม

ขอบคุณมากๆครับ สามารถใช้งานได้ตรงความต้องการครับ

ชีทแรกมีช่องให้กรอกข้อมูลที่ต้องการลบ เมื่อกดปุ่ม Delete ต้องการให้ลบข้อมูลในชีทที่สองทั้งแถว ลองเขียนมาแล้วแต่ยังไม่ค่อยเข้าใจครับผม รบกวนด้วยนะครับ

:D อ่านแล้วไม่เข้าใจ กรุณาอธิบายเพิ่มว่า Loop ตรงไหน อย่างไร เดิมเป็นอย่างไร ต้องการให้เป็นอย่างไร จะได้สะดวกในการทำความเข้าใจครับ
[/q
ขออภัยครับ ของเดิมการทำงานคือ เมื่อกดจะสร้างชื่อชีท พร้อม copy ข้อมูลไปไว้ในชื่อใหม่ , เมื่อกดอีกครั้งถ้าเจอชื่อซ้ำ ก็จะ copy ข้อมูลไปยังชื่อที่ตรงกันครับ ต ...

อยากให้ช่วยแนะนำการปรับ code หน่อยครับ จากcode ด้านล่างผมต้องการให้ loopทีละ 1 คนไปเป็น 5 คน ควรปรับตรงไหนบ้างครับ
Sub Addsheets()
Dim ws As Worksheet
Dim worksh As Integer
Dim worksheetexists As Boolean
Dim s As String

s = ActiveSheet.Cells(3, 4).Value
worksh = Application.Sheets.Count ...

:D ตัวอย่าง Code ครับ


'Other code
Dim sh As Worksheet
'Other code
For Each r In rall.Areas
If r.Cells(2, 1) <> "" Then
For Each sh In Worksheets
If r.Cells(2, 1).Value = sh.Name Then Exit Sub
Next sh
Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
.Name = r.Cells(2, 1).Value ...

ขอโทษทีครับผมลืม รบกวนด้วยครับ

สวัสดีครับ อยากให้ช่วยตรวจสอบและปรับ code หน่อยครับ การทำงานคือ เมื่อกดปุ่มสีฟ้าที่ชีท Interface จะสร้างชีทใหม่และมีข้อมูลตามมาในชีทใหม่ ปัญหาคือเวลาเกิด error อยากให้มันไม่ต้องสร้างชีทมาอีกอันครับ

และอยากให้ช่วยปรับ code ให้กระชับมากกว่านี้ครับ เอาไว้ศึกษาต่อครับผม ขอบคุณครับ

สอบถามครับ ผมต้องการเพิ่มชีทใหม่ด้วยชื่อในช่อง Name แล้วมีเงื่อนไขคือ ต้องการนำเวลาเข้าออกและชื่อไปเพิ่มในชีทที่สร้างใหม่ ตามรายชื่อแต่ละคนเลยครับ ตอนนี้ผมเขียนได้ถึงเพิ่มชีทใหม่ด้วย ชื่อแล้วครับ ติดตรงที่ไม่ทราบว่าจะนำข้อมูลของแต่ละคนไปเพิ่มในชีทที่ชื่อตรงกันอย่างไรดีครับ รบกวนแนะนำด้วยครับ ขอบค ...

:D ตัวอย่างการปรับ Code ครับ

Sub AddWorkSheets()
Dim r As Range, rall As Range
' On Error Resume Next
With Worksheets("Interface")
Set rall = .Range("D:D").SpecialCells(xlCellTypeConstants)
End With
For Each r In rall.Areas
If r.Cells(2, 1) <> "" Then
Worksheets.Add(After:=Worksheets ...

snasui wrote: Wed May 02, 2018 7:20 pm Code ที่เขียนไว้อยู่ใน Module ใด ชื่ออะไร ติดขัดบรรทัดใดช่วยแจ้งมาด้วยจะได้ตอบต่อไปจากนั้นครับ

ขออภัยครับ Addworksheet ครับผม

ต้องการ ปุ่ม สร้างชีทใหม่ตามรายชื่อพนักงาน โดยที่สร้างชีทใหม่พร้อมดึงข้อมูล NAME,IN,OUTไปแสดงแบบไล่ลงมาตามลำดับ
ถ้าเป็นชื่อเดิมให้ดึงข้อมูลเวลา NAME,IN,OUT ไปในชีทที่ชื่อของคนนั้นๆครับ ผมทำได้แค่สร้างชีทตามชื่อ Cell เองครับผม รบกวนด้วยครับ
และอยากให้ทำพร้อมกันทีละ 5 คนได้ด้วยครับ

snasui wrote: Tue Mar 27, 2018 7:23 pm การเปลี่ยนแปลงต้นทางให้เข้าเมนู Edit Links > เลือกไฟล์ต้นทางเดิม > คลิกปุ่ม Change Source > เลือกไฟล์ต้นทางใหม่ > Close ครับ

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

แนะนำแนวทางให้หน่อยครับ vlookup ที่ข้ามไฟล์ ที่มีการเปลี่ยนแปลงทุกวันๆ ไฟล์ Time จะดึงข้อมูลจากไฟล์เวลาที่ได้รับมาแต่ละวันครับ

ต้องการเปิดไฟล์ Time และเมื่อเปิดไฟล์เวลา ให้ข้อมูลที่อยู่ในไฟล์ Time เปลี่ยนตามไฟล์เวลาที่เปิดครับ

:D ตัวอย่างการปรับ Code ครับ

Sub addvalue()
Dim NextRow As Integer
'
' addvalue Macro
'
' Keyboard Shortcut: Ctrl+a
'
Dim filePath As String, wb As Workbook
filePath = Application.GetOpenFilename( _
filefilter:="Excel File (*.xls*),*.xls*", _
Title:="Open file", _
MultiSelect:=False ...

สวัสดีครับ ผมได้เขียนงานที่ใช้ vba ขึ้นมา ซึ่งไฟล์ 1.xlsm เป็นไฟล์ data ดิบ มีสูตรค้นหารายชื่อพนักงาน ไฟล์ที่ 2.xlsm เป็นไฟล์ที่ใช้งานเพื่อทำการ add data จาก ไฟล์ 1.xlsm ไปที่ sheet2 ของไฟล์ 2.xlsm เมื่อ add ข้อมูล จะต้องต่อการเป็นรายชื่อลงมา

ต้องการให้ ปรับ code vba ให้งานสามารถเปิดงานจากชื่อไฟล ...

ลองดูครับ

คัดลอกรายชื่อของชีต IN มา E4 ของชีต OUT ~~> คัดลอกรายชื่อของชีต OUT มาวางต่อลงไป ~~> คลุมข้อมูลที่ได้ ~~> คลิกเมนู Data ~~> Remove Duplicates ~~> Continue with the current selection ~~> Remove Dupliates ~~> OK

คีย์สูตร
G3 =VLOOKUP(E3,IN!$A$2:$B$663,2,0)
I3 =VLOOKUP(E3,$A$2:$B$669,2,0 ...

ขอสอบถามครับต้องการหาเวลาเข้า ออกพนักงานโดยที่มีชื่อซ้ำกัน มี 2 ชีท ชีท IN และ OUT
โดยที่ -สามารถใส่ชื่อคนได้
-เลือกวันที่และเวลาเข้า อันแรกสุด
-เลือกวันที่และเวลาออกอันท้ายสุด
และตัดรายชื่อซ้ำๆออก เพื่อเอาแค่เวลาเข้างานและออกงานครับ ปล.output ที่ได้สามารถ Export เป็นไฟล์ใหม่ได้ไหมครับ โดยท ...

ขอสอบถามครับต้องการหาเวลาเข้า ออกพนักงานโดยที่มีชื่อซ้ำกัน มี 2 ชีท ชีท IN และ OUT
โดยที่ -สามารถใส่ชื่อคนได้
-เลือกวันที่และเวลาเข้า อันแรกสุด
-เลือกวันที่และเวลาออกอันท้ายสุด
และตัดรายชื่อซ้ำๆออก เพื่อเอาแค่เวลาเข้างานและออกงานครับ ปล.output ที่ได้สามารถ Export เป็นไฟล์ใหม่ได้ไหมครับ โดยที่ไม ...