Excel Forum

ปรับตามนี้ครับ 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...

ปรับตามนี้ครับ 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...

ปรับตามนี้ครับ 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 แก้ชื่อให้ตรงกับหน้าข้อมูลด้วยครับ

ลองปรับตามนี้ดูครับ 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...

แก้ส่วนนี้ครับ 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...

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

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

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

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

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

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

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

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

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

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

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

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

ปรับ A2=IFERROR(INDEX(template!$A:$A,AGGREGATE(15,6,ROW(template!$B$5:$B$999)/(template!$B$5:$B$999=A$1),ROWS(A$2:A2))),IF(ROWS(A$2:A2)=1,"--- No Data ---",""))

ปรับตามนี้ครับ Sub CopyData_to_otherFile() Dim srb As Workbook, tgb As Workbook, srcRngs As Range, x As Long Set srb = Workbooks("Test_2024_addition total.xlsx") Set tgb = Workbooks("Copy_runLastdata.xlsx") myy = Format(Date, "mmyy") With srb.Worksheets(myy) x = Applica...

A2=IFERROR(INDEX(template!$A:$A,AGGREGATE(15,6,ROW(template!$B$5:$B$999)/(template!$B$5:$B$999=A$1),ROWS(A$2:A2))),"") Copy right and down

ปรับตามนี้ Sub CopyData_to_otherFile() Dim srb As Workbook, tgb As Workbook, srcRngs As Range, x As Long Set srb = ThisWorkbook Set tgb = Workbooks("Copy_runLastdata.xlsx") myy = Format(Date, "mmyy") With srb.Worksheets(myy) x = Application.Match(9E+99, .Range("b1:b999"...

D3=140+5*INT((ROWS($D$3:$D3)-1)/5) Copy right and down