Excel Forum

ปรับโค๊ดตามนี้ครับ
Application.EnableEvents = False
On Error Resume Next
Sheets("student").Select
ActiveSheet.Unprotect
If Err <> 0 Then
MsgBox "รหัสผ่านไม่ถูกต้อง โปรดติดต่อผู้พัฒนาโปรแกรม"
Exit Sub
End If

If Sheets("Student").ProtectContents = False Then
If MsgBox("คุณแน่ใจหรือไม่ท ...

1.Export Module1 ไปเก็บไว้ก่อน
2.แทรก Code Import Module1.bas
ตัวอย่าง Code ครับ
Sub test()
Dim n As Integer
For n = 1 To Sheets.Count - 1
Windows("ใช้ตามชื่อไฟล์.xlsm").Activate
ActiveSheet.Select
ActiveSheet.Move
Application.VBE.ActiveVBProject.VBComponents.import "C:\test\Module1.bas"
Next n ...

1.เปิดไฟล์ที่เราต้องการเปิดขึ้นมา
2.เปิดไฟล์ excel เปล่าๆขึ้นมาอีกอัน โดยเลือกจาก all program menu
3. จะได้หน้าจอสองหน้าจอแล้ว
4.ลากไฟล์ที่เราต้องการเปิดอีกไฟล์ มาบนหน้าต่าง ไฟล์ excel เปล่าที่เราเปิดขึ้นมาไว้
5.จะสามารถทำงานได้ สองหน้าจอ แยกกันแล้วครับ
จะเอากี่จอก็ได้ครับ

ลอง Clear Print area แล้ว Set ไหม่ดูครับ

ดูที่ไฟล์แนบครับ มีวิธีทำที่ Sheet 2

1 ทำการปลดล๊อคเซลล์ทั้งหมดก่อนโดยการเลือกเซลล์ทั้งหมด (กดตรงมุมซ้ายบน A1)
2 click ขวา >Format cells>Protection เอาเครื่องหมายตรง Locked ออกให้ว่าง กด ok
3 คลุมคอลั่มที่ต้องการล็อค(G ถึงแถว i )
4 click ขวา >Format cells>Protection ตรง Locked กด Checkbox กด OK
5ตรงแท็ป Review ทำตามรูปครับหรือจะใส่รห ...

ที่ B2 = A1/100 ครับ
สูตรเดียวกันเลยครับ เป็นการหารค่าจำนวนเต็ม หารด้วย100 จะได้ทศนิยม 2 ตำแหน่งครับ

ที่ B1 = A1/100 ครับ

ขอตอบในฐานะผู้ที่เคยใช้งานนะครับ
ข้อ1
Private Sub UserForm_Initialize()
Dim say As Integer
Application.ScreenUpdating = False
say = WorksheetFunction.CountA(Worksheets("Data_All_Sale").Range("B:B"))
ListBox2.RowSource = "Data_All_Sale!B6:M" & say
ListBox2.ColumnCount = 12
ListBox2.ColumnWidths ...

ที่ B2 =DATE(RIGHT(A2,2),MID(A2,3,2),LEFT(A2,2)) คัดลอกลงล่างครับ

ที่ sheet2 a2 =SUBSTITUTE(Sheet1!A2,"-","") คัดลอกลงล่างครับ

ที่ Sheet2 A2 =RIGHT("0000000000"&Sheet1!A2,10) คัดลอกลงล่างครับ

โค๊ดครับ

r = 7
Range(Range("i" & r), Range("i" & r).End(xlDown)).Select
max = Application.max(Sheets(ActiveSheet.Name).Range(Selection.Address))

Do Until tempBook.Sheets("ÃÒ§ҹ1").Range("i" & r) = ""
If tempBook.Sheets("ÃÒ§ҹ1").Range("i" & r) = max Then
.Cells(j, "f").Resize(1, 1).Value ...

ที่S7 =IF(Q7="","",IF(R7="","",P7+Q7-R7))
คัดลอกวางที่ REMAINS ถัดไปด้วยครับ

'ที่ B5 =IF((D5*20/$D$4)<=12,RANDBETWEEN(5,6),IF((D5*20/$D$4)<=13,RANDBETWEEN(6,7),IF((D5*20/$D$4)<=15,RANDBETWEEN(7,8),IF((D5*20/$D$4)<=17,RANDBETWEEN(8,9),IF((D5*20/$D$4)<=20,RANDBETWEEN(9,10))))))

'ที่ C5 =(D5*20/$D$4)-B5

ลากลงล่างครับ เป็นสูตรสุ่มตัวเลข จะเปลี่ยนทุกครั้งที่มีการคำนวณหรือเปล ...

ที่ L4 =ROUND(SUM(G4,K4 ),1) ลางลงครับ คอลั่มอื่นใช้วิธีเดียวกันครับ

ที่็H6=IF(E6>0,LOOKUP(E6,{0,3.2,3.4,3.6,3.8,4},{-0.4,-0.2,"",0.2,0.3,0.4}),"0")
ที่ I6=IF(F6>0,LOOKUP(F6,{0,8.25,8.35,8.5,8.7},{-0.4,-0.2,"",0.3,0.6}),"0")
ที่ J6=IF(G6>0,LOOKUP(G6,{0,201,301,401,501,701,1001},{0.5,0.3,0.2,0,-0.2,-0.3,-0.5}),"0")
คลุม(H6:J6) ลากลงครับ

ที่หน้าวันที่ กด spacebar เลื่อนได้ครับ

สูตร IF ครับ
ที่ c11=IF(B11<0.8,"F",IF(B11<0.85,"E",IF(B11<0.9,"D",IF(B11<0.95,"C",IF(B11<1,"B","A"))))) copy ลงล่างครับ

Yamazato wrote:กด Tab ครับ และใช้ ลูกศรขึ้น หรือ ลง เพื่อเลือกฟังก์ชั่น

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