Snasui Excel Forum

:D ไม่สามารถ Save PDF แบบมี Password ได้ด้วย VBA ครับ

แม้แต่ Save ด้วย Manaual ก็ไม่มี Option ให้ Save แบบมี Password ได้ครับ


สอบถามเพิ่มเติมค่ะ
แล้วถ้า จากข้อมูลเป็น Excel ใน 1 file หลายๆ recode สามารถ แยกออกมาแบ่งเป็น file ตาม folder และใส่ Password (Excel) สามารถทำไดไหมค่ะ และ code ในตัวอย ...

สวัสดีค่ะ
ตอนนี้เขียน code vba เป็นงานจาก Excel แล้วทำการ Export เป็น PDF โดยที่ก่อนจะเปิด PDF ต้องใส่ User and password ด้วยค่ะ แต่ตอนนี้ทำได้แค่ Export to PDF เท่านั้น ไม่สามารถใส่ Password ได้ รบกวนดูCode ด้วยนะคะ

Sub SlipCreate()
Worksheets("data").Range("A:A").Clear
Worksheets("data").Range ...

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

ต้องการ sort date ตาม host name โดยตาม เดือน วัน ปี ให้เอา เดือน ปี วัน ล่าสุดแสดงก่อนตามลำดับ
***ถ้า name ไหนซ้ำกัน เดือน ปี วันเเดียวกัน ให้แสดง 1 record date ล่าุสุด
***ถ้า name ไหน ซ้ำกัน แต่ เดือนวันปี คนละวันกัน ก็ให้แสดงทั้งหมด

หมายเหตุ
ถ้าเดือน ปี วันไม่ได้ เปลี่ยนเป็นวัน เดือน ปี ได้คะ

ขอบคุณ มาก ๆ เลย ที่ให้คำชี้แนะ

พอดี file ใหญ่ เกินไป ต้องตัดข้อมูลออกบางส่วนคะ

ลองเปลี่ยน เป็น number แล้วก็ยังไม่ได้คะ

=IFERROR(INDEX(Sheet1!$A$2:$A$2261,SMALL(IF(MMULT(IF(Sheet1!$C$2:$N$2261=Sheet2!$B$2,1,0),TRANSPOSE((Sheet1!$C$1:$N$1<>"")+0)),ROW(Sheet1!$A$2:$A$2261)-ROW(Sheet1!$A$2)+1),ROWS(B$3:B3))),"")

ลองเพิ่มข้อมูลเข้าไป ประมาณ 2661 record และ Test wc =2300 มีทั้งหมด 26 emp แต่เวลา เราลองใส่ 2300 เข้าไป ออกมาเพียง 12 emp เป็นเพราะอะไรคะ ซึ่งใน code ก็เพิ่มเป็น c2:n2261 แล้วคะ

มีข้อมูลอยู่ หลาย ๆ wc
สิ่งที่ต้องการคือ หา wc ว่า มี emp ไหนบ้างแสดงออกมา
เช่น wc 2600 มี emp
c000001
c000027
c000070
c000102

หรือ wc อื่น ก็เช่นเดียวกัน

ตัวอย่างตามเอกสารแบบ

ขอโทษอีกครั้งคะ พอดีไป ลากทั้งหมด แล้วกด ctrl+Shift+Enter คะ

ตอนนี้ได้แล้วคะ

ขอบคุณมากคะ

ทำไมทำตาม code แล้วออกมาเป็นแบบนี้คะ

ตามเอกสารแนบ

ขอโทษคะ อธิบายสั้นไปหน่อ
ข้อมูลทั้งหมดจะอยู่ที่ sheet ชื่อ Data
เงื่อนไขอยู่ที่ sheet ชื่อ Summary โดยที Key คือ column B5

คำตอบที่ต้องการคือ ถ้า key 5400 ที่ B5 ให้แสดงข้อมูลทั้งหมด ที่ sheet Data มาแสดงที่ sheet Summary

โดยคอลัมน์ที่แสดง Hostname,name,Dept คะ

มีข้อมูลประมาณ 10000 record ให้กรองตามเงื่อนไงที่เราต้องการ เช่น key คือ work centor code
ให้กรองตาม wc 5400 มีกี่ record ให้ออกมาตามเงือนไข ทุก field
(ไม่อยากใช้ Auto filter คะ) อยากใช้ function จะเขียนอย่างไรให้ได้ตามที่เราต้องการคะ

ตัวอย่างตามเอกสารแนบ

ขอบคุณคะ ใช้งานได้แล้วคะ

ตัวอย่าง ตาม file แนบค่ะ

มี Sheet ทั้งหมด 80 sheet ใน 1 file
ตัวอย่างที่ต้องการ คือ
sheet1 ต้องการ ข้อมูลของ คอลัมน์ I9 ของ sheet2 มาไว้ที่ B1 ของ sheet1
ต้องการ ข้อมูลของ คอลัมน์ I9 ของ sheet3 มาไว้ที่ B2 ของ sheet1
ต้องการ ข้อมูลของ คอลัมน์ I9 ของ sheet4มาไว้ที่ B3 ของ sheet1
ทำไปจนถึง record ที่ 80 หรือ sheet ท ...

ประมาณนี้เลยคะ ขอบคุณมากเลยนะคะ ที่ให้ความช่วยเหลือ

ถ้ามีข้อมูลเป็นหลายพัน record จะมา sum ที่ล่ะ 2 ตัวก็แย่เลย อยากได้สูตรที่เป็นแบบ auto คะ พอจะมีวิธีไหนเขียนได้เร็วกว่านี้ไหมคะ

Sum 1 และ 2 เป็นตัวอย่างคะ
เช่น 1 และ 2
หรือ 3 และ 4
หรือ 5 และ 6 ประมาณนี้คะ
1 และ 2 ได้ ได้ผลรวม ?
3 และ 4 ?
5 และ 6 ? โดยใช้สูตร คะ