Excel Forum

ขอบคุณมากๆครับผม
ได้แนวทางจากคำแนะนำแล้วครับ

จากไฟล์ที่แนบมา ต้องการป้องกันไม่ให้ผู้ใช้งาน Copy ข้อมูลจากไฟล์อื่น เช่น Word excel มาวางในชีท ยกเว้นให้สามารถวางแบบ "วางค่า" ได้ จะต้องปรับ โค๊ดอย่างไรครับ Option Explicit Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, _ ByVal Target As Excel.Range) Select Case Application...

จากไฟล์ที่แนบมาครับ ที่ ชีท Subject จะเก็บข้อมูลรายวิชาทั้งหมด ต้องการดึงข้อมูลจาก Sheet Subject ไปแสดงผลที่ ชีท Course ในเซล E3:F....... โดยมีเงื่อนไงว่า ให้ดึงเฉพาะ ชั้นม. และ ภาคเรียนที่ ต้องการเท่านั้น โดยเงื่อนไข "ชั้นม." จะอยู่ที่ชีท Course เซลล์ B3 และ เงื่อนไข "ภาคเรียนที่&quo...

จากไฟล์ที่แนบมาครับ ในชีท sheet1 เมื่อกดปุ่ม กำหนดสถานะนักเรียน เซลในคลอลัมน์ B จะมีข้อความว่า เรียน แสดงขึ้น โดยจะไม่เกินแถวที่มีข้อมูลในคลอลัมน์ A (ถ้าคลอลัมน์ A มี ข้อมูลตั้งแต่ A1-A13 คำว่า เรียน จะแสดงใน B1-B13 โค๊ดด้านล่างนี้ ถ้าสั่งในขณะอยู่ที่ Sheet1 จะสามารถทำงานได้ แต่ถ้า อยู่ใน Sheet2 จะไ...

จากไฟล์ที่แนบมา ต้องการให้ Code นี้ ใช้งานได้กับทุกชีท ต้องปรับแก้อย่างไรครับ ตอนนี้ใช้ได้เฉพาะปุ่มที่อยู่ในชีท Sheet1 ส่วนปุ่มที่อยู่ในชีท Sheet2 มีปัญหาครับ Sub FillStatus() Dim lastRow As Long Dim i As Long, r As Range, j As Long With Worksheets("Sheet1") Set r = .Range("A1") ...

ขอบคุณทั้งสองท่านครับ

:D กรุณาสมมุติค่าที่เปลี่ยนไปและข้อมูลที่ดึงมาแสดง พร้อมอธิบายเงื่อนไขในการดึงข้อมูลประกอบมาด้วยจะได้เข้าใจตรงกันครับ สมมุติว่า ค่าเริ่มต้นในชีท password ของเซล A1 คือ PasswordPassword ค่าใชเซล A2 คือ โรงเรียนบ้านดอนเสาธง หากค่าในเซล A2 เปลี่ยนไป เช่นจาก โรงเรียนบ้านดอนเสาธง เป็น โรงเรียนบ้านหนองสู...

จากไฟล์ที่แนบมา ที่ Sheet Password ต้องการให้เซล A1 เปลี่ยนข้อมูลไปทุกครั้งที่ เซล A2 มีการเปลี่ยนแปลง โดยให้ดึงข้อมูลจาก Sheet ListPW ในคลอลัมน์ A แสดง ต้องปรับแก้ไข Code อย่างไรครับ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Sheet3.Range("A1&...

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

จากไฟล์ที่แนบมา Code Public Sub AddNewSheet() Dim newSheetName As String On Error Resume Next newSheetName = ActiveSheet.Range("J1").Value Sheets.Add After:=ActiveSheet ActiveSheet.Name = newSheetName Sheet12.Range("B3:H50").Copy Sheets(newSheetName).Range("A1").PasteSp...

จากไฟล์ที่แนบมา
ในคลอลัมน์ A และ B มีตัวเลขที่ซ้ำกันอยู่
หากต้องการ ดึงตัวเลขที่ซ้ำกันไปแสดงผลในคลอลัมน์ E
ต้องเขียนสูตรอย่างไรครับ

คลอลัมน์B จากไฟล์ 12.xlsb ครับ

สอบถามกรณีที่เรานำเข้าข้อมูลมาต่อกันลงไปเรื่อยๆ โดยให้ตรวจสอบว่า ในคลอลัมน์ B มีค่าว่างหรือไม่ ถ้ามีค่าวาง ให้ยกเลิกการนำเข้ามูล จากโค๊ด ต้องปรับแก้อย่างไรครับ Sub ImPortToLastrows() Dim fileToOpen As Variant Dim fileFilterPattern As String Dim wsMaster As Worksheet Dim wbTextImport As Workbook Dim ...

ขอบคุณครับได้ผลตามต้องการแล้วครับ ขอสอบถามเพิ่มเติมในกระทู้นี้ กรณีที่ต้องการเลือกช่วงข้อมูลที่จะคัดลอก จากคลอลัมน์ A ถึง คลอลัมน์ N โดยให้เลือกถึงแถวสุดท้ายที่มีข้อมูล (ยึดข้อมูลของคลอลัมน์ A) ต้องปรับโค๊ดนี้อย่างไรครับ Sub test() Range(Range("A1"), Range("N1").End(xlDown)).Sele...

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

จากไฟล์ที่แนบมมา ต้องการนำข้อมูลจากไฟล์.csv ให้ต่อจากแถวสุดท้ายที่มีข้อมูล ต้องปรับโค๊ดอย่างไรครับ Sub Import() Dim fileToOpen As Variant Dim fileFilterPattern As String Dim wsMaster As Worksheet Dim wbTextImport As Workbook ' Application.ScreenUpdating = False If MsgBox("คุณต้องการนำเข้าผลการเ...

ขอบคุณครับ

ขอบคุณครับได้ผลตามคำแนะนำแล้วครับ มีข้อสงสัยสอบถามต่อครับ กรณีที่ต้องการล็อคพื้นที่ในชีทไม่ให้เลื่อนไปด้านขวาและลงข้างล่างเกินกว่าที่กำหนดไว้ โดยเขียน Code นี้ Sub LockArea() Sheets("Score").ScrollArea = "A1:AE56" Sheets("Name").ScrollArea = "A1:K1000" Sheets(...

ลองปรับโค๊ดไปเรื่อย ๆ ก็ยังติดขัดอยู่ Sub Imp_Score() Dim fileToOpen As Variant Dim fileFilterPattern As String Dim wsMaster As Worksheet Dim wbTextImport As Workbook Application.ScreenUpdating = False If MsgBox("คุณต้องการนำเข้าผลการเรียน ใช่หรือไม่?", 36, "ยืนยันการนำเข้าผลการเรียน&...

ไฟล์สำหรับนำเข้า