Excel Forum

ขอบคุณครับ
จากโค้ดที่แนะนำมาครับ
เมื่อทดสอบแล้ว จะพิมพ์เฉพาะ Sheet2 ออกมาเพียงหน้าเดียว
แต่ที่ต้องการคือต้องการ
ถ้ามีข้อมูลไม่เกิน 38 รายการ ให้พิมพ์ Sheet2 หน้า 1 เพียงหน้าเดียว และ พิมพ์ Sheet3 Sheet4 Sheet5 Sheet6 มาด้วย
ถ้ามีข้อมูลเกิน 38 รายการ ให้พิมพ์ Sheet2 ทั้งสองหน้า และ พิมพ์ Sheet3 ...

จากไฟล์ที่แนบมา

Sub printpdf()
Dim sFolderPath As String
Dim FName As String
Dim fdObj As Object
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set fdObj = CreateObject("Scripting.FileSystemObject")
fdObj.CreateFolder ("C:\" & Range("A2").Value ...

ขอบคุณครับ

จากไฟล์ที่แนบมา
ต้องการลดมาตราส่วนในชีทนั้นลงที่ละ 1 ต้องปรับโค๊ดอย่างไรครับ
(คลิกที่ปุ่ม หนึ่งครั้ง ลดลง 1 เช่นจากเดิม เป็น 100 ก็ลดเป็น 99 ถ้าคลิกอีก จาก 99 ก็เป็น 98)

ขอบคุณครับ

จากไฟล์ที่แนบมา
เมื่อกรอกปี คศ.ลงในเซล C2 แล้ว ต้องการให้เซล D2 ถึง D13
แสดงผล เป็นวันที่ 1 ของแต่ละเดือน จนครบ 12 เดือน โดยเริ่มต้นจาก เดือน พฤษภาคม
ต้องเขียนสูตรอย่างไรครับ

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

ถ้ากำหนดวันปิดภาคเรียนที่ 1 เป็น 30 กันยายน
ให้ตั้งแต่ 1 ตุลาคม ไปจนถึง 31 ตุลาคม ไม่ต้องแสดงผล เป็น จ. อ. พ. พฤ. ศ. ส. อา.
และจัดรูปแบบเซลเป็นสีเทา

ถ้าตามโครงสร้างของไฟล์ที่ส่งมาก็ใช้ Vlookup ครับ
ลองแกะสูตรจากไฟล์ที่แนบมาดูครับ

พบปัญหาในกรณีที่วันปิดภาคเรียน 1 เป็นวันที่ 10 ตุลาคม สูตรจะทำงานได้
แต่หากการปิดเรียนของภาคเรียนที่ 1 เป็นวันที่ 30 กันยายน สูตรจะมีปัญหา (จะแสดงผลวันของเดือนตุลาคม และนับวันด้วย ซึ่งจริง ๆ เป็นจะต้องไม่แสดงผลโดยมีแถบสีเทาคาดเพื่อบอกให้รู้ว่าเป็นช่วงปิดภาคเรียน)
กรณีนี้ต้องปรับสูตรอย่างไรเพื่อให ...

กรณีที่ใช้ UserForm เป็นตัวกรอกข้อมูลแทนการกรอกลงใน Sheet ตรงๆ
โดยใช้ ปุ่มเรียก Userform ขึ้นมากรอก ในขณะที่ไม่ได้ Active ที่ Sheet1 (Active อยู่ที่ Sheet Main)
จะต้องปรับโค๊ดใน CommandButton1_Click อย่างไรครับ จึงจะทำให้ ค่าใน sheet1 เซล D3 เปลี่ยน

Private Sub CommandButton1_Click()
Sheet1.Range ...

ขอบคุณครับผม

จากไฟล์ที่แนบมา

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" Then
ActiveSheet.Range("D2").Value = Sheet2.Range("B1").Value
End If
End Sub

ที่ชีท Sheet1 เมื่อค่าในเซล D3 เปลี่ยนไป
ต้องการให้ที่เซล D2 มีค่าเปลี่ยนไปตามข้อมูลที่มีในชีท Sheet2 ที่อยู่ใน B1 ถึง B20 ...

จากไฟล์ที่แนบมา

Sub ExpGToTeach()

Dim Wb As Worksheet
Dim myCSVFileName As String
Dim myWB As Workbook
Dim tempWB As Workbook
Dim rngToSave As Range

Dim sFolderPath As String
Dim Path As String
Dim FName As String
' On Error Resume Next

sFolderPath = "C:\" & Range("A17").Value
If ...

ขอบคุณครับ
หากต้องการให้ List ใน เซล D2 มีการ update ข้อมูลเปลี่ยนไป ตามชั้นป. ที่เปลี่ยน (เซล J1)
โดยไม่ต้องให้ User มาเปลี่ยนเอง แต่ยังเป็น List ที่ user สามารถเปลี่ยนเองได้ภายหลัง
สามารถทำได้หรือไม่ครับ เพราะตอนนี้ Vlookup ไม่เจอข้อมูล จึงใส่ Iferror ดักไว้

จากไฟล์ที่แนบมา
ชีท active จะเก็บข้อมูลกิจกรรม
ชีท TabAct ดึงข้อมูลมาแสดงตามเงื่อนไง (เซล H1 มีค่าเป็นอย่างไร ให้ดึงข้อมูลเฉพาะที่ตรงมาแสดง)
ตอนนี้ ดึงข้อมูลมาได้ในแถวแรกแล้ว โดยใช้สูตร

=IFERROR(INDEX(Active!B:B,AGGREGATE(15,6,ROW(Active!$A$3:$D$38)/(Active!$A$3:$D$38=$H$1),ROWS(B3:B$3 ...

ขอบคุณครับ

ขอบพระะคุณมากครับผมยังติดปัญหา
Conditional Formatting ของเดือนกุมภาพันธ์ จากที่ผมกำหนดสูตรเป็น
=COUNTIFS(Holiday!$B$3:$B$40,DATE($AP$3,MATCH($D13,TEXT(1&"/"&ROW(INDIRECT("1:12")),"ดดดด"),0),E$4))
โดยให้มีผลกับเซลในช่วง E13:AI15 ปรากฎว่ายังมี การแสดงตามสูจรไปปรากฎในเซล AI14 (แถวของเดินกุมภาพันธ ...

ขอบพระคุณอย่างสูงครับ
ขอคำแนะนำเพิ่มเติมครับ
ต้องการนับวันเปิดเรียน ไม่นับวันเสาร์ อาทิตย์ ไม่นับวันหยุดนขัตฤกษ์ และไม่นับวันหยุดปิดภาคเรียน
ต้องปรับสูตรในเซล AJ4 อย่างไรครับ

ขอคำแนะนำเพิ่มเติมครับ
1. กรณีต้องการให้เซลในชีท calendar ในแต่ละเดือนที่วันที่ตรงกับ เซลในคลอลัมน์ B ของชีท Holiday ระบายสีเป็นสีเทา จะต้องเขียนสูตรใน conditional formatting อย่างไรครับ
2. ที่ชีท calendar ต้องการให้เซลที่อยู่ในเดือนพฤษภาคม ที่มีค่าก่อนวันเปิดภาคเรียน (กำหนดไว้ในเซล B3) ไม่แสดงค ...