Excel Forum

สมมุติมีข้อมูล 100 Row อยากจะแบ่งออกเป็นกองๆโดยมี 2 แบบคือ
1.กองละเท่าไรๆกันคือ 50-50
2.กองละ 75-25
ผมต้องเขียน vba หรือสูตรแบบไหนครับ

มันโชว์ Run time Error 1004 copy picture method of range class failed เวลาผม Export Range to JPG ครับ

Sub AREA()
Worksheets("AREA").Activate
'ActiveWindow.Zoom = 300
LocationFile = Sheets("LocationFile").Range("A10")
Name_Range = Range("AREA").Select
With Selection
[font].CopyPicture Appearance ...

เรียนอาจาร์ยครับ ผมลองปรับตามที่บอกแล้วครับ แต่ก็ยัง Error ครับ

สอบถามเรื่อง VBA Export to Text File ให้เป็น UTF-8 ซึ่งปัจจุบันยัง Save UTF-8 ไม่ได้ครับ ซึ่งเวลาเอาไปเปิดเป็นภาษาต่างดาวครับ

Sub saveText2()
Dim filename As String, lineText As String
Dim myrng As Range, i, j
StrSave = "C:\Users\11209244\Desktop\Line Bot\"
StrFile = Sheets("DATA").Range("E1 ...

ถูกต้องครับอาจารย์ ขอบคุณมากๆครับ

ช่วยอธิบาย Code หน่อยได้ไหมครับ คือตรงผมก็ยังงง ครับ Codeอยู่อะ พออาจารย์แก้มาให้มันถูกต้องครับ แต่ ขาดวันเสาร์ ไม่ Y ครับ ถ้าวันปัจจุบันเป็นวันจันทร์ มัน Yแค่ศุกร์

ถูกต้องครับ เป็นวันอาทิตย์ที่ 18/03/2018 จะแสดงผล Y ที่วันเสาร์ที่17/03/2018 ส่วนที่เหลือ เป็น N หมดครับ

กรณี A6 เป็นวันเสาร์ที่ 17/03/2018 จะแสดงผลอย่างไร
= วันเสาร์ที่ 17/03/2018 วันตัวเองจะเป็น = N จะไปแสดง U บนวันก่อนหน้าคือวันศุกร์แค่วันเดียวครับ ทีเหลือ N หมด

กรณี A6 เป็นวันอาทิตย์ที่ 18/03/2018 จะแสดงผลอย่างไร

= กรณีเดียวกับเคสข้างบนครับ

เงื่อนไงเป็น แบบนี่อะครับ

1.สมมุติเป็นวันอังคารที่ 13/03/2018 จะให้ตัว Y แสดงบนก่อนหน้า 1 วัน (DAY 1) อาทิเช่น วันอังคารที่ 13/03/2018 ให้ Y แสดงที่ จันทร์12/3/2018 เท่านั้น (1-11 กับ 13-31 จะเป็น N ครับ Y ที่ 12 วันเดี่ยวครับ)
2.ถ้าเป็นวันจันทร์ที่ 13/03/2018 จะให้ Y แสดงบน วันศุกร์ 9/03/2018 ก ...

สงสัยครับว่าทำไม พออยุ่จันทร์ที่ 19 มันไป Y ที่ ศุกร์2,9 กับ เสาร์3,10 ครับ

อาจารย์ครับติดอีกนิดเดียวครับ คือเวลาอยู่วันอังคารจะไป Y ที่วันจันทร์แค่วันก่อนหน้าวันอังคาร์ ณ ปัจจุบันอย่างเดี่ยวแต่นี่ไป Y ทุกจันทร์เลยอะครับ

อาจารย์ครับผมสอบถามเพิ่มเติมครับ สมมุติวันจันทร์ที่ 12 ให้ Y แค่ศุกร์ 9 กับ เสาร์ที่10 ครับไม่ Y ศุกร์ที่16 กับเสา17 (จะไม่ Y มากกว่าวันที่ตัวเองอยู่)

คือ ผมใช้ IF เพื่อเลือกวันที่ครับ สมมุติมีอยู่ 6 วัน พุธ, พฤ, ศุกร์, เสาร์, อาทิตย์, จันทร์

ตัวข้อมูลของผมจะลบ 1 วัน ซึ่งถ้าอยู่วัน พฤ ผมจะให้ผมพุธ = Y ส่วนที่เหลือ = N แต่ถ้าผมอยู่วันจันทร์ผมจะให้ แค่ศุกร์กับเสาร์ = Y ที่เหลือ N ครับซึ่งต้องใช้ IF อย่างไงครับ

ฟ้อง Error แบบเนี่ยครับ

ผมมีปัญหา ผมใส่ Codeให้ ACCESS ผม Compact & Repair ตัวมันเองแต่ขึ้น Error ครับ

Option Compare Database

Function CompactRepair()

acCompactRepair "C:\Users\11209244\Documents\CompactRepair.accdb", True

End Function

''' WinApi function that maps a UTF-16 (wide character) string to a new character string
Private Declare Function WideCharToMultiByte Lib "kernel32" ( _
ByVal CodePage As Long, _
ByVal dwFlags As Long, _
ByVal lpWideCharStr As Long, _
ByVal cchWideChar As Long, _
ByVal lpMultiByteStr As Long ...

ใช่ๆครับ วันนี้วันที่ 22กพ ก็ให้ซ่อนทั้งหมด ไม่ซ่อน วันที่22

คือผมทำเงื่อนไขให้ Hide column ที่ไม่ใช้วันปัจจุบันครับ แต่มัน Hide แค่วันที่ 1-5 ครับ

คือผมมี VBA Code ที่ใช้ Excel เป็นตัวส่งข้อความหรือรูป เข้า Line message แต่ผมติดปัญหาที่ผมต้องส่งข้อความไปพร้อมกับการแนบรูป ผมไม่อยากส่งข้อความไปด้วยครับ อยากส่งแค่รูปต้องปรับแก้ตรงไหนครับ

Sub Line01()
Dim URL As String
Dim sToken As String
Dim sFilepath As String
Dim nFile As Integer
Dim ...

ไม่เข้าใจครับ