Snasui Excel Forum

ยังไม่ค่อยเข้าใจเรื่อง Loop เข้าไปใน Folder แล้วถ้าเจอชื่อไฟล์ที่ไม่ตรงกับคอลัมน์ A ให้ลบทิ้ง
ช่วยปรับ Code หน่อยครับ ลองดูอยู่นานก็ยังไม่ได้

Sub FileToToss(strFileToToss As String)

Const HKEY_CURRENT_USER = &H80000001
strComputer = "."

Set fso = CreateObject("Scripting.FileSystemObject ...

กรณีนำไฟล์กลับมาจาก Recycle Bin ไม่ต้องใช้ Code ครับ แค่เข้าไปเลือกบางไฟล์ที่ต้องการ Restore ครับ
ความต้องการคือ
1. ลบไฟล์จากชื่อที่คอลัมน์ A ลบแล้วให้ไปอยู่ใน Recycle Bin ครับ ถ้าต้องการนำไฟล์กลับมาเดียวเข้าไป Restore เฉพาะบางไฟล์ครับ
กับ
2. อยากจะลบไฟล์ทั้งหมดใน Folder ยกเว้นไฟล์ชื่อตามคอลัมน์ A

อันนั้นนี้ Code ส่งไฟล์ไปที่ Recycle Bin Code นี้หามาได้ครับ
ด้วยความสามารถผมคงยังเขียนไมไ่ด้ขนาดนี้


Sub FileToToss(strFileToToss As String)

Const HKEY_CURRENT_USER = &H80000001
strComputer = "."

Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FileExists(strFileToToss) Then ...

ไม่ทราบว่าจะเขียนยังไงครับ แต่อยากให้ว่าเมื่อลบไฟล์แล้วให้เข้าไปอยู่ใน Recycle Bin ไม่ต้องลบแบบถาวร
เดียวลองศึกษาหาข้อมูลก่อนครับ

รบกวนช่วยปรับ Code หน่อยครับ
1.อยากจะเมื่อลบไฟล์ตามชื่อที่คอลัมน์ A ของไฟล์ Delete file แล้วสามารถไป Restore ใน Recycle Bin ได้ครับ
ตอนนี้ติดที่ลบไปแล้วไม่สามารถ Restore ได้ครับ
2. อยากจะลบไฟล์ใน Folder ทั้งหมดยกเว้นไฟล์ชื่อตามคอลัมน์ A

Sub DeleteFiles()
Dim Path As String
Path = "C:\Users\One ...

ตรงกับความต้องการครับ

รบกวนช่วยปรับ Code หน่อยครับ
อยากจะให้เมื่อ Loop ครบแล้วคืนค่ากับมาตำแหน่งแรกครับ C1 = aa > bb >cc > dd > ww > ตำแหน่งแรก aa


Sub loopthroug()
Dim inputRange As Range
Dim c As Range
Set inputRange = Sheet1.Range("A1:A5")
For Each c In inputRange
Range("C1") = c.Value
'ActiveSheet.Range("A1 ...

ขอสอบถามหน่อยครับจะเพิ่ม Code อย่างไหร่ดี
ถ้าเมื่อกด Send แล้วที่ Sheet2 มีค่าซ้ำโดยยึด IV No เป็นหลัก แล้วให้มีข้อความแสดงการแจ้งเตือน
ใช้การบันทึกโดย RangeName ครับ

ได้ลองทำตามคลิปนี้ดูแล้วติดแต่ Debug หาวิธีดูในเน็ตก็ งงๆครับ
https://www.youtube.com/watch?v=TFX98VDqxQY


Sub Testsend ...

อยากให้รบกวนช่วยปรับสูตรหน่อยครับ
ที่ Cell D7 ดึงคอลัมน์ จำนวน ที่ Sheet data มาแล้วชื่อที่ Cell C7 ลงมาซ้ำกัน
จำนวนมันมาแค่เฉพาะค่าแรกครับ

ได้ตรงตามความต้องการแล้วครับ ขอบคุณครับ

รบกวนขอสอบถามหน่อยครับ พอดีไปเจอตัว Date picker ในเว็บ https://trevoreyre.com/portfolio/excel-datepicker/ มาครับแล้วเอามาลองทำให้วันที่ที่เลือกนั้นไปแสดงอยู่ที่ TextBox1 มันไม่ยอมแสดงครับ
ช่วยแนะนำทีครับ

Private Sub CommandButton1_Click()
AdvancedCalendar 'มาจาก Module1
End Sub

Private Sub ...

ตอนนี้ทำได้แล้วครับ ขอบคุณครับ ^_^

ขอบคุณครับ ^^
นี้ครับคำตอบทีอยากได้เป็นแบบนี้ครับ
อ้างอิงจากข้อมูลที่แสดงขึ้นมา แต่ถ้าไม่มีข้อมูลแสดงข้อความก็จะหายไปครับ

เปลี่ยนจากรันตัวเลข เป็นรันข้อความครับ อย่างเช่น vpn พอจะทำได้หรือเปล่าครับ

ตรงกับความต้องการครับ อาจารย์ ขอบคุณครับ
ขอสอบถามเพิ่มเติมอีกนิดครับ ถ้าจะให้แสดงเป็นตัวอักษรได้หรือไม่ครับ

อยากสอบถามหน่อยครับ จะให้ตัวเลขรันแบบเรียงลำดับ 1 2 3 4 5 โดยอ้างอิงจากข้อมูลที่แสดงขึ้นมา
แต่ถ้าไม่มีข้อมูลแสดงตัวเลขก็จะหายไปครับ อยากทราบว่าใช้สูตรไหนได้บ้างครับ

ขอบคุณครับ

ต้องขอโทษด้วยครับที่อธิบายไม่ละเอียด อยากจะให้ปุ่ม Button ที่สร้างขึ้นมาใน sheet1 อยู่ในทุกๆ sheet ของไฟล์ครับ

ตอนนี้ลองปรับแก้แล้ว ได้ตามที่ต้องการแล้วครับ

Sub OpenFileCopy()
Dim wb1 As Workbook
Dim wb2 As Workbook


Set wb1 = ActiveWorkbook

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="Report Files *.xlsx (*.xlsx),")

If FileToOpen = False Then ...

ลองปรับ code ดูแล้วตอนนี้มาแค่ Sheet เดียวครับ ควรจะเพิ่มเติมตรงไหนดีครับ อยากจะให้ Sheet ในไฟล์ทั้งหมดมาอยู่ในอีก ไฟล์นึงครับ

Sub OpenFileCopy()
Dim wb1 As Workbook
Dim wb2 As Workbook

Set wb1 = ActiveWorkbook

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse ...