Excel Forum

Sub à¤ÅÕÂÃì()
Range("A18:E36,D3:D17").Select
Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A18:E36").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False ...

ได้แล้วค่ะ ขอบคุณนะค่ะ

รบกวนด้วยนะค่ะ

ขอบคุณนะค่ะ

รบกวนด้วยนะค่ะ

รบกวนผู้รู้ด้วยนะค่ะ
ขอบคุณมากๆค่ะ

ขอบคุณนะค่ะ

รบกวนผู้รู้ช่วยด้วยนะค่ะ

ที่ N2=IFERROR(INDEX(J$2:J$7,SMALL(IF(I$2:I$7=N$1,ROW(J$2:J$7)-ROW(J$2)+1),ROWS(N$2:N2))),"") ใส่สูตรแล้วกด Ctrl+Shift+Enter แล้วลากสูตรลงครับ ถึง N7
ส่วนอีก ตารางก็ลองปรับดูครับ
ส่วนของตารางชีต2 ที่ R4=IFERROR(VLOOKUP($Q4,OFFSET($A$1,MATCH(R$3,$A$1:$A$16,0),7,6,5),5,0),"") คัดลอกไปทั้งตารางครับ ...

ช่วยแนะนำด้วยนะค่ะ

sheetหลัก จะมีวันที่ อยู่ที่ cell C3
อยาก copy sheetหลัก แล้วเปลี่ยนชื่อ sheet เป็น วันที่ ที่อยู่ใน cell C3
จะเขียน code VBA อย่างไรได้บ้างค่ะ