Excel Forum

puriwutpokin

V6=LOOKUP(2,1/((Q6=$A$17:$A$160)*(R6=$B$17:$B$160)*(S6<=$C$17:$C$160)*((U6=$E$17:$E$160)+(1200=$D$17:$D$160))),$D$17:$D$160)

puriwutpokin

ปรับตามนี้ครับ

Code: Select all

Sub Macro1()
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects("Table1393")
    Dim lastRow As Long
    lastRow = tbl.ListRows.Count
    Dim i As Long
    For i = lastRow To 11 Step -1
        tbl.ListRows(i).Delete
    Next i
End Sub

puriwutpokin

B2=COUNTIF('Table 1'!$A$2:$T$31,A2) แล้วคัดลอก B2 ไปวางเซลที่เกี่ยวข้องครับ

puriwutpokin

ที่ T6=IFERROR(LOOKUP(2,1/((Q6=$A$17:$A$160)*(R6=$B$17:$B$160)*(S6<=$C$17:$C$160)*(""<>$E$17:$E$160)),$D$17:$D$160),LOOKUP(2,1/((Q6=$A$17:$A$160)*(R6=$B$17:$B$160)*(S6<=$C$17:$C$160)),$D$17:$D$160))

puriwutpokin

ที่ D2=IFERROR(INDEX(Sheet4!F:F,SMALL(IF($A$2&""=Sheet4!$B$1:$B$9,ROW(Sheet4!$B$1:$B$8)),COUNTIF($A$2:$A2,$A2))),"")
E2=VLOOKUP($C2+0,สต๊อค!$A:$Q,8,0)
F2=VLOOKUP($C2+0,สต๊อค!$A:$Q,14,0)

puriwutpokin

ปรับตามนี้ครับ Sub Createhyper() Dim i As Integer Sheets("Main").Range("B6").Select Application.ScreenUpdating = False For i = 6 To Sheets.Count ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _ SubAddress:="'" & Sheets(i).Name & "'&quo...

puriwutpokin

ปรับตามนี้ครับ Sub Createhyper() Dim sh As Worksheet Dim wSheet As Worksheet Sheets("Main").Range("B6").Select Application.ScreenUpdating = False For Each wSheet In Worksheets If wSheet.Name <> "Main" Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="&qu...

puriwutpokin

ปรับตามนี้ครับ A6=IFERROR(INDEX(FILTER(INDEX(Transaction!$A$2:$K$5000,,XMATCH(A$5,Transaction!$A$1:$K$1)),(Transaction!$A$2:$A$5000>=$A$3)*(Transaction!$A$2:$A$5000<=$B$3)*(Transaction!$I$2:$I$5000=$J$3)),ROWS(A$6:A6)),"") Copy right and down และที่ J6 แก้ชื่อให้ตรงกับหน้าข้อมูลด้วยครับ

puriwutpokin

ลองปรับตามนี้ดูครับ Sub ShowPicture() Dim r As Range Dim obj As Object Dim imgIcon As Object Dim s As Shape On Error Resume Next With Worksheets("สารบัญ") Set r = .Range("y1") End With For Each s In ActiveSheet.Shapes If Intersect(r, s.TopLeftCell) Is Nothing Then Else s.Delete E...

puriwutpokin

แก้ส่วนนี้ครับ For Each r In ra Set imgIcon = ActiveSheet.Shapes.AddPicture( _ Filename:="D:\1.Personel งานบุคคล\7.รูปพนักงาน\2020\" & r.Offset(0, -1).Value & ".jpg", LinkToFile:=False, _ SaveWithDocument:=True, Left:=r.Left + 1, Top:=r.Top + 1, _ Width:=r.Width + 30, Hei...

puriwutpokin

อีกแบบครับ
D8=IF($B8="กล่องเล็ก",C8*D4,C8*D5) Copy to E8

puriwutpokin

suka wrote: ↑Tue Mar 26, 2024 9:20 pm ค่ะ ไฟล์ที่แชร์ร่วมกันไม่รัน vba ค่ะ เป็นไฟล์ .xlsx ค่ะะ โดยจะรัน vba ผ่านไฟล์ .xlsm ค่ะ

ลองทำตามรูปนี้ดูครับ

puriwutpokin

ไฟล์ที่เป็นแบบแชร์ ร่วมกันจะไม่สามารถรัน vba ได้ครับ

puriwutpokin

เอาโค้ดนี้ครอบระหว่างคำสั่งครับ

Code: Select all

Sub HideRows()
    Application.Calculation = xlManual
    'Code
    Application.Calculation = xlAutomatic
End Sub

puriwutpokin

ไฟล์ที่เป็น VBA อยู่ที่ Path ไหนก็ Copy ไว้ช่อง Add this website to zone ตามตัวอย่างครับ ที่Server \\xxx.xxx.xxx.xxx

puriwutpokin

puriwutpokin wrote: ↑Wed Mar 20, 2024 6:08 pm ไฟล์ที่ใช้ อยู่ใน เซิร์ฟเวอร์หรือเปล่าครับ
ถ้าไม่ใช่การติ๊กค่าตามรูปก็ถูกแล้วครับ

ถ้าหมายถึง กระทู้นี้ ดูตามภาพครับ ที่ Control Panel เซ็ตตามรูปครับ

puriwutpokin

f2=IF((D2>=8/24)*(E2<=12/24),"กะเช้า","กะบ่าย") copy down

puriwutpokin

ลองทำตัวอย่างแบบที่แจ้งมาดูครับ ว่าข้อมูลประมาณไหนครับ

puriwutpokin

E3=IF(B3="08:00 - 12:00","กะเช้า-1","กะเช้า-2") Copy down

puriwutpokin

C3=IFERROR(INDEX(Databases!$C$4:$AG$19,ROWS(C$3:C3),MATCH($A3,Databases!$C$3:$AG$3,0)),"") Copy down

Excel Forum

EXCEL TOOLS

Search found 3704 matches

Re: หาเงินเดือนเพิ่มขึ้นตามระดับจากฐานเงินเดือน

Re: ลบข้อมูลในตาราง table

Re: สูตรนับจำนวนตัวเลข

Re: หาเงินเดือนเพิ่มขึ้นตามระดับจากฐานเงินเดือน

Re: ทำ vlookup ค่าไม่ขึ้น

Re: ขอคำแนะนำเรื่อง Hyperlink ใน VBA

Re: ขอคำแนะนำเรื่อง Hyperlink ใน VBA

Re: สูตร FILTER มันแสดง #VALUE! ครับ ใช้ MS H&B 2021 เกิดจากสาเหตุอะไร

Re: อยากให้ แสดงรูป ตามชื่อที่กำหนดได้มัยครับ....

Re: อยากให้ แสดงรูป ตามชื่อที่กำหนดได้มัยครับ....

Re: หาผลรวม ผลรวมอัตโนมัติ เมื่อเลือก dropdown list

Re: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ

Re: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ

Re: VBA ซ่อนแถวที่มีค่าเป็น 0

Re: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ

Re: ขอวิธีปรับ Excel VBA ให้พร้อมใช้กับ Excel 2007 และ 2021 ค่ะ

Re: สอบถามการหาข้อมูลมาแสดงมากกว่า 2 เงื่อนไข

Re: สอบถามการหาข้อมูลมาแสดงมากกว่า 2 เงื่อนไข

Re: สอบถามการหาข้อมูลมาแสดงมากกว่า 2 เงื่อนไข

Re: สอบถามการหาข้อมูลมาแสดงมากกว่า 2 เงื่อนไข