Excel Forum

กรณีที่ใช้ 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) ไม่แสดงค ...

ขอบคุณครับ

ต้องการให้ดึง วัน มาแสดงผลให้ตรงกับวันที่ของเดือนนั้น จะต้องเขียนสูตรอย่างไร
ตัวอย่างเช่น ในไฟล์ที่แนบมา
เดือน พฤษภาคม ปี 2568 วันที่ 1 เดือนพฤษภาคม จะตรงกับวันพฤหัสบดี ก็ให้เซล C3 แสดงเป็น พฤ เซล D3 แสดงเป็น ศ
ล่ไปเรื่อย ๆ จนถึงวันที่ 31 (เซล AG3)

ขอบคุณครับ ได้ตามต้องการครับ

ขอบคุณครับ
ได้ปรับตามคำแนะนำแล้ว พบปัญหาว่า
หากเลือกตั้งเลขที่ 7/2568 ขึ้นไป มันจะดึงข้อมูลมาได้รายการเดียว มาไม่หมด
ส่วนรายการเลขที่ 1/2568 จนถึง 6/2568 ได้มาครบปกติ
ขอคำแนะนำอีกครั้งครับผม

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

Sub Recall()
Dim i As Long

With Worksheets("BaiBake")
If Application.CountIfs(Worksheets("Product").Range("D:D"), Worksheets("BaiBake").Range("M10")) = 0 Then
MsgBox ("ไม่มีเลขที่สั่งซื้อนี้ กรุณาตรวจสอบ")
Range("M10").ClearContents
Range("M10").Select
Exit Sub
End If
End ...

ขอบคุณครับ

กรณีที่ต้องการให้แสดงทุกวันในเดือนนั้นโดยไม่เว้นเสาร์ อาทิตย์
ต้องปรับสูตรอย่างไรครับ

ขอบคุณครับ

จากไฟล์ที่แนบ ที่ sheet2 ต้องการดึงข้อมูลแถวสุดท้ายของคลอลัมน์ B มาแสดงผลที่ H1
ต้องปรับสูตรอย่างไรครับ

ขอบคุณครับ ได้ตามคำแนะนำครับ