Excel Forum

เรียน อาจารย์ snasui

มันต้องแก้เป็น หรือไม่ครับ

เรียน อาจารย์ snasui

ผมลองปรับ Code แต่ยังติด Error อยู่
รบกวนอาจารย์ช่วยปรับ Code ให้หน่อยครับ ขอบคุณครับ

Sub Preview()

'Define abbreviations for worksheets
Dim WI As Worksheet
Dim WF As Worksheet
Set WI = Worksheets("Input")
Set ws4 = Worksheets("Forms")

ws4.Range("A12").Resize(1000, 1 ...

เรียน อาจารย์

ป้อนข้อมูลใน Q1-Q5 หรืออาจจะไม่ป้อนทั้งหมด แล้วคลิกปุ่ม Preview หลังจากนั้นข้อมูลจะถูกใส่ใน Sheet "Forms"
1. ต้องการให้ในแต่ละ Question มีเว้นบรรทัดประมาณ 20 บรรทัด แล้วค่อยขึ้น Question ใหม่
2. Default ในหน้า Forms มีแค่หน้าเดียว หากใน 1 หน้าไม่พอ ให้แสดงหัวข้อใหม่ในหน้าใหม่
3. จ ...

เรียน อาจารย์ snasui

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

เรียน อาจารย์

ใส่ค่าใน Q1 ถึง Q5 แล้วให้แสดงผลลัพธ์ในกล่องสีเหลือง
ถ้าใส่ Q1-Q2 อยากให้แสดง จุด แค่ Q1 และ Q2
ถ้าใส่ Q1-Q3 อยากให้แสดง จุด แค่ Q1,Q2 และ Q3 ตามสิ่งที่ต้องการในไฟล์แนบ

ต้องปรับ Code อย่างไรครับ ขอบคุณครับ

เรียน อาจารย์ snasui

รับทราบครับ และมีอีกปัญหาครับ
หลังจาก login เหลือ Sheet "Home" หากมีการคลิกปุ่ม Button 1 แล้ว ให้กลับไป Sheet "Log in" และซ่อน Sheet "Home" กับ User"

ต้องปรับ Code อย่างไรครับ ขอบคุณครับ

Sub LogOut()
' ซ่อนหน้า Home
ThisWorkbook.Sheets("Home").Visible = xlSheetVeryHidden ...

เรียน อาจารย์

1. อยากให้เวลา login เข้ามาแล้ว ให้เหลือแค่ Sheet "Home"
2. log Sheet "Login" และ "User" ไม่ให้ hide หรือ unhide sheet
ต้องปรับ Code อย่างไรครับ ขอบคุณครับ


Sub Login()
Dim ws As Worksheet
Dim userSheet As Worksheet
Dim username As String
Dim password As String
Dim validLogin ...

เรียน อาจารย์ snasui

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

เรียน อาจารย์

เลือก Dropdown แล้วต้องการให้ผลลัพทธ์ ไม่มี (Insurance)
ต้องปรับสูตรอย่างไรครับ ขอบคุณครับ

เรียน อาจารย์ norkaz และ อาจารย์ snasui

ได้แล้วครับ ขอบคุณอาจารย์ทั้ง 2 มากครับ

เรียน อาจารย์ snasui

ลองปรับสูตรตามอาจารย์ แล้วลองวางข้อมูล
อาการช้ามากเลยครับ ประมวลผลช้า ต้องปรับสูตรอย่างไรครับ ขอบคุณครับ

เรียน อาจารย์

ต้องการให้ Procedure ใน sheet Data มาแสดงใน Sheet Report โดย
แสดงข้อมูล Procedure ที่ไม่ซ้ำกัน และ แสดงค่า Max, Min ในส่วนของ Surgeon, Assist, Anes, Visit, OR, RR, ICU, WARD, Pre-Op

ที่นำมาเป็นแค่ตัวอย่างครับ ข้อมูลจริงอาจจะมีถึง 6X,XXX record ซึ่งทำให้การประมวลผลช้ามาก
อาจารย ...

เรียน อาจารย์ snasui

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

เรียน อาจารย์

ถ้า I4 เท่ากับค่าว่าง ให้แสดง ข้อความให้ใส่ HN
ถ้า I4 ไม่เท่ากับ ค่าว่าง ให้แสดงคำ หรือข้อความที่ค้นหา

ถ้า I4 เท่ากับค่าว่าง คลิกปุ่ม Search แล้ว Msg Box แสดงหลายครั้ง อยากให้แสดงแค่ครั้งเดียว
ต้องปรับ Code อย่างไรครับ ขอบคุณครับ


ListBox1.ColumnWidths = "40,100,100,100,100,100 ...

เรียน อาจารย์ snasui

ได้แล้วครับ ขอบคุณอาจารย์มากครับ

เรียน อาจารย์

เลือก Package : จาก Dropdown list แล้วคลิกปุ่ม Calculate
Packge จาก sheet "Data" ที่ตรงกับ Dropdown list จะมาแสดงที่ Sheet "Display"
และอยากให้แสดงดังภาพ

ต้องปรับสูตรอย่างไรครับ ขอบคุณครับ

เรียน อาจารย์

เลือก Package แล้วคลิกปุ่ม Calculate อยากให้ผลลัพธ์ที่ได้เป็นดังรูป (ไฟล์แนบ)
ต้องปรับ Code อย่างไรครับ ขอบคุณครับ

เรียน อาจารย์ puriwutpokin

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

เรียน อาจารย์

ต้องการเรียงข้อมูลตาม Dept ลงมาเรื่อยๆครับ โดยนำข้อมูลจาก sheet "List" มาแสดงใน Sheet "Input"
ต้องเขียนสูตรอย่างไรครับ ขอบคุณครับ

เรียน อาจารย์ norkaz

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