Excel Forum

รบกวนช่วยแก้โจทย์เกี่ยวกับการเลือกข้อมูลที่สูงที่สุดในแต่ละ Deal ให้ด้วยครับ
เนื่องจากผมมีปัญหาในการแยกข้อมูลที่มีจำนวนมากๆ
โดยจะต้องให้ได้จำนวนเงินที่สูงที่สุดในแต่ละ Deal ครับ
เลยแนบภาพตัวอย่างมาตามด้านล่างครับ

ขอบคุณครับ


พอดีผมเจอคำตอบในการแก้ไขจาก กระทู้ท่านอื่นแล้วครับ

http://www.snasui ...

รบกวนช่วยแก้โจทย์เกี่ยวกับการเลือกข้อมูลที่สูงที่สุดในแต่ละ Deal ให้ด้วยครับ
เนื่องจากผมมีปัญหาในการแยกข้อมูลที่มีจำนวนมากๆ
โดยจะต้องให้ได้จำนวนเงินที่สูงที่สุดในแต่ละ Deal ครับ
เลยแนบภาพตัวอย่างมาตามด้านล่างครับ

ขอบคุณครับ

ใช้งานได้แล้วครับ แม้จะยังไม่ตรงกับผลลัพท์ที่ต้องการ แต่จะลองศึกษา Code นี้ดูครับ
เพราะจริงๆ ต้องการทำ Macro สำหรับ Backup ข้อมูลทุกวัน โดยมีเครื่อง A กับ เครื่อง B
เมื่อทำงานในเครื่อง A เสร็จ สิ้นวันก็กดปุ่ม Macro ที่สร้างไว้ และ Copy File / Folder
เฉพาะที่เพิ่มขึ้น หรือปรับปรุงใหม่ไปไว้ในเครื่อง ...

ขอบคุณครับ เดี๋ยวจะไปลองใช้ในที่ทำงานพรุ่งนี้ ได้ผลยังไงแล้วจะแจ้งให้ทราบครับ ขอบคุณครับ

รบกวนขอความช่วยเหลือในการเขียน Code VBA ครับ คือว่าต้องการ List รายชื่อ File ใน Folder ที่กำหนด รวมทั้ง File ที่อยู่ใน Folder ย่อยด้วย ได้ Code มาจาก Internet และมาลองปรับใช้ แต่ไม่ทราบต้องแก้ไข Code นี้อย่างไรครับ

Sub ListFileInFolder()
Range("B3").Select
Range(Selection, ActiveCell.SpecialCells ...

ขอบคุณมากครับ

tupthai wrote:Public Sub MkDir()

Dim Str As String
Str = "d:\data1"
If Dir(Str, vbDirectory) = "" Then
'MkDir str
MsgBox "Yes"
Else
MsgBox "No"
End If

End Sub
เพิ่มการประกาศตัวแปร

ขอบคุณมากๆ ครับ

tupthai wrote:Public Sub MkDir()

Dim Str As String
Str = "d:\data1"
If Dir(Str, vbDirectory) = "" Then
'MkDir str
MsgBox "Yes"
Else
MsgBox "No"
End If

End Sub
เพิ่มการประกาศตัวแปร

ขอบคุณมากๆ ครับ

tupthai wrote:ขอดู code ที่ทำหน่อย หรือ แนบ file ก็ได้ ครับ

ผมส่งไฟล์แนบมาแล้วนะครับ ขอบคุณครับ

tupthai wrote:Public Sub MkDir()
str = "d:\data"
If Dir(str, vbDirectory) ="" Then
'MkDir str
Else
'MsgBox "No"
End If
End Sub

ขอบคุณสำหรับคำตอบครับ แต่ว่าผมลอง Run Code ดูแล้ว
ก็ยังใช้ไม่ได้ครับ Code ขึ้น Error ไม่รู้ว่าต้องแก้ไขตรงไหนครับ

สวัสดีครับ อยากจะขอความช่วยเหลือเกี่ยวกับการสร้างโฟลเดอร์ ผมสร้างโฟลเดอร์ขึ้นมาได้แล้ว
แต่ถ้าเกิดสร้าง Folder ขึ้นมาซ้ำ ไม่ทราบต้องเขียน Code อย่างไร ให้สามารถตรวจสอบก่อน
ว่ามีโฟลเดอร์ซ้ำ ให้มี Msg หรือ Error แจ้งครับ ขอบคุณครับ

Sub MKDIRectory()

A = Range("A1").Value
b = Range("B1").Value

MkDir ...

:D ลองปรับเป็นตามด้านล่างครับ
Sub CreateSheet()
Dim wks As Worksheet
Dim RoundPic As String
RoundPic = "Data"
For Each wks In Sheets
If wks.Name = RoundPic Then
Exit Sub
End If
Next wks
Sheets.Add
ActiveSheet.Name = RoundPic
End Sub

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

ผมลองเขียน Code ที่ติดปัญหามาตามนี้ แต่ไม่สามารถแก้ไขให้สมบูรณ์ได้

Sub CreateSheet()
Dim wks As Worksheet
Dim RoundPic As String
RoundPic = "Data"

For Each wks In Sheets
If wks.Name = RoundPic Then
Exit For
End If
Sheets.Add
ActiveSheet.Name = RoundPic
Next wks
End Sub

ขอบคุณครับ

รบกวนสอบถามรูปแบบการเขียน Macro Code เกี่ยวกับการ Copy File จากที่หนึ่งไปอีกที่หนึ่งครับ
เช่น Copy c:\FileA.TXT ไปที่ D:\FileA.txt ครับ

ขอบคุณครับ

สวัสดีครับ ผมต้องการเขียน Macro Code เกี่ยวกับการ Add Sheet ใน Excel File
เช่น ต้องการ Add Sheet "Data" แต่ต้องตรวจสอบ Worksheet ในแต่ละ Sheet ก่อนว่ามี Sheet "Data" หรือยัง
ถ้ามีแล้วก็ไม่ต้อง Add Sheet แต่ถ้ายังไม่มี Sheet "Data" ให้ Add Sheet "Data" ขึ้นมาครับ
ขอบคุณครับ

snasui wrote: สมมุติต้องการให้กรอกในเซลล์ A1 ลองตามนี้ครับ

1. คลิกเซลล์ A1
2. เข้าเมนู Data > Validation
3. ช่อง Allow เลือก Custom
4. ช่อง Formula คีย์
   =AND(ISNUMBER(SUBSTITUTE(A1,"-","")+0),ISNUMBER(FIND("-",A1)))
5. คลิก OK

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

ขอรบกวนสอบถามวิธีการที่จะบันทึกข้อมูลลงใน Cell และบันทึกข้อมูลได้เฉพาะตัวเลข และ "-" เท่านั้น
เนื่องจากต้องการบังคับให้ User กรอกข้อมูลโดยไม่ให้มีตัวอักษร เช่น 1234-567 , 123-1423, 12-123 เป็นต้น
แต่ถ้ากรอกมาผิด เช่น A12-123, เอ23-34 อยากจะให้ Excel แสดง Error ออกมาเลยว่า บันทึกข้อมูลผิดพลาดครับ ...