Excel Forum

ผมลองสร้าง macro เพื่อ filter วันที่ แต่เมื่อใช้งานกลับหาช่วงวันที่ไม่ได้
แต่เมื่อผม filter จาก ปุ่ม filter ของ excel เอง พบว่า ช่วงวันที่ start กลับจากวันเป็นเดือน จากเดือนเป็นวัน
ส่วน end date ปกติ เมื่อกดใช้งาน กลับออกข้อมูล แม้วัน start ไม่ตรง
สาเหตุเกิดจากอะไรครับ
และแก้ไขย่างไรให้ได้ตาม ...

ทำปุ่ม เลือก filter วันที่ แต่ฟ้องอย่างนี้ แก้ไขอย่างไรครับ
Public Sub MyFilter()
Dim lngStart As Date, lngEnd As Date
lngStart = Range("K2").Value
lngEnd = Range("K3").Value
Sheet12.Range("A1:A1000").AutoFilter field:=1, _
Criteria1:=">=" & lngStart, _
Operator:=xlAnd, _
Criteria2 ...

เรียน อ. puriwutpokin และ อ. logic
ช่วยดูให้ผมอีกครั้ง ทำไม ช่อง database I2 J2 จึงเป็น true กะ false ครับ
และrun script ไม่ผ่าน
ขอบคุณครับ

run แล้ว เหมือนไม่เข้าใจช่วงวันที่ๆ กำหนด เลย copy ความว่างเปล่าเข้ามาครับ

ผมพยายามเขียน script โดยการคัดลอก sheet "database" มาใส่ใน sheet "Fee schdule" โดยให้มันเลือกช่วงเวลา ใน B1 and D1 โดยกดปุ่ม ปรากฎว่า มันคัดลอกมาหมด ไม่เลือกวันเลย ไม่ทรายจะปรับ script อย่างไรครับ
Sub EditDT()
Sheets("Fee schdule").Range("A7:H1000").ClearContents
Sheets("database").Columns("A:F ...

ครับ ถูกต้องครับ
ผมอยากเลือกช่วงวันที่ที่สร้างไว้ ใน B1 and D1 เมื่อเลือกเสร็จ pivot จะแสดงผลรวมในช่วงที่เลือกไว้ครับ
ผมส่งexcelใหม่ให้ครับ

ถ้าผมดึงQuery ข้อมูลมา และทำ drop down ช่วงเลือกวันที่ ที่ต้องการ เพื่อ เอาข้อมูลที่ filterนั้น มาทำ pivot ได้หรือไม่ครับ
ถ้าได้ กรุณาช่วยเขียนตัวอย่างscriptด้วยครับ

จะให้run สร้างหรือ update ข้อความใน comment ให้ตรงกับcolumn C แต่ไม่ออก
Sub comment_Item()
Dim rAll As Range, r As Range
Dim rhAll As Range, rh As Range
Dim strCmt As String, found As Boolean
Dim xComment As Comment

With Sheets("Sheet1")
Set rAll = .Range("L7", .Range("L" & .Rows.Count).End ...

msoffice10 ของผมไม่เข้าใจสูตร filter ครับ อาจารย์

ผมพยายามใช้สูตรแล้ว แต่ไม่ถูกครับ
M30==IFERROR(VLOOKUP(B30,ssj_holdingbuy!$A$4:Z$300,2,1)&"ราคา"&VLOOKUP(B30,ssj_holdingbuy!$A$4:Z$300,4,1),"")

ผลมีทั้งได้ข้อมูลตรงกับรหัส item แต่ แต่ อยากให้แสดงทั้ง 3ลำดับรายการ
และมีแบบไม่ตรงรหัสก็แสดง
รวมถึงแสดงข้อความไม่ตรงกับรหัส
ครับ

ต้องการค้นหา ข้อมูลจาก worksheet "ssj_holdingbuy" รหัสตั้งแต่ I4 -U300 ที่มีรหัสตรงกับ "sheet1" column B:B
ถ้าหาได้ตรงแล้ว ลอกข้อมูลจาก worksheet "ssj_holdingbuy" column B ราคา column D มาเรียงต่อกัน เขียนสูตรยังไงครับ ให้เหมือนตัวอย่าง ใน sheet1 M8
ขอบคุณครับ

ถ้าวันที่เกิดจาก ocx ปฎิทิน จะดึงค่ามันออกมาอย่างไรครับ
ถ้าปฎิทินเริ่ม name= date1
ปฎิทินสุดท้าย name = date2

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

จาก PMS!K19 =SUMIF('Adj-SD-Tp-PD'!$D:$D,K10,'Adj-SD-Tp-PD'!E:E)
ถ้าอยากคำนวนเฉพาะช่วงเวลาตั้งแต่ 28-4-2563 ถึง 25-06-63 ควรได้ 3 ครับ

และ PMS!L19 =SUMIF('Adj-SD-Tp-PD'!$D:$D,K10,'Adj-SD-Tp-PD'!F ...

ใน sheet " PMS" M19 ผมอยากหาผลรวมทั้งหมด ใน sheet "Adj-SD-Tp-PD" ของนาย A "cell C โดยให้คำนวนตรงกับชื่อของนาย A ใน sheet PMS และ เลือกคำนวนตามช่วงวันที่กำหนดไว้ ไม่ทราบว่า ต้องแก้ตรงจุดไหนบ้างครับ

PMS!M19 =SUMIF('Adj-SD-Tp-PD'!$D:$D,INDEX('Adj-SD-Tp-PD'!$C:$C,,MATCH(M10,'Adj-SD-Tp-PD'!$C:$C ...

มันฟ้องแบบนี้แปลว่าอะไรครับ
ไม่มีการ copy รูป
แต่มีการใช้function script ทำงานติดต่อกันในปุ่มเดียว และมีการcopy sheet หลาย sheetไปที่ WB ใหม่
มีคำสั่งอะไรที่ไม่ได้เขียนปิดมันหรือเปล่าครับ
Sub transfer_WB()
MsgBox "ÃкºAI ¨ÐÍÍ¡àÍ¡ÊÒÃà»ç¹ªØ´·Ñé§ËÁ´ ãÊèã¹ Workbook Excel ãËÁè à¾×èÍÊдǡ㹡ÒþÔÁ¾ìàÍ ...

ปัญหามี 3 ส่วนครับ
1 script ไม่สามารถ copyแต่ละ sheet เข้าไปในแต่ละ sheet ในWBใหม่ได้ มันสร้าง1sheetต่อ 1 WB
อยากให้มีแค่ WB เดียว แต่ใส่ได้หลาย sheet
2 ถ้ามีชื่อfile เดิมแล้ว สั่ง kill ชื่อนี้แล้ว ไม่ทำงาน เขียนscript อย่างไรให้ถูกต้องครับ
3 ถ้าจะcopy cell บางส่วนใน ตันฉบับ มาสร้างใน WBใหม่ ทำได ...

จะใช้ if อย่างไรดีครับ ใน A39

ผมให้ copy จาก sheet 1 มาใส่ sheet"สรุปแผนจัดซื้อจริง" และเหลือ collumn R -S ตีเส้นไม่ได้ จะเขียน vba อย่างไร ครับ
Sub Addrealbuy()
Dim r1 As Range, rt As Range, rs As Range, r As Range
With Worksheets("sheet1")
Set r1 = .Range("A7", .Range("A1536").End(xlUp))
End With
For Each r In r1
If r ...

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

ผมสร้างdialog box ค้นหาแล้ว ถ้า match ตรงทุกคำหาเจอ ถ้าบางคำ หรือ ชื่อมีเว้นวรรค หาไม่เจอ
อ. ช่วยดูให้หน่อยครับ
ขอบคุณครับ


Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter a Search value")
If Trim(FindString) <> "" Then
With Sheets("Sheet1").Range("B:B")
Set Rng ...