[VBA] work with cells

[poipoi]

เรียบอาจารยร์ทุกท่านครับ

วันนี้ผมมีปัญหาเกี่ยวกับ VBA การใส่สูตรให้เซล์ครับ

จากไฟล์แนบเวลาใช้งานจะล็อคทุกคอลัมน์ ยกเว้น!! คอลัมน์ A และ B ครับ

โดยที่คอมลัมน์ D นั้นกำหนดสุตรเกี่ยวกับวันเอาไว้ครับ

แล้วทีนี้รายงานตัวนี้เป็นรายงานวันต่อวันที่ต้องบันทึกลงมาเรื่อยๆครับ

หากเปิดทำวันไหนที่คอลัมน์ดีก็จะโชว์วันนั้นๆออกมาครับ

ปัญหามีอยู่ว่า หากเราทำแบบนี้จะต้องให้ user เคลีย์สุตรโดยการ copy paste ในวันที่เราทำอยู่ หรือตั้งแต่บรรทัดที่ 4 จนถึงบรรทัดสุดท้ายที่มีข้อมูลครับ

เพื่อที่เวลาขึ้นวันใหม่แล้วให้สุตรดึงวันที่ที่ทำปัจจุบันออกมา

จากโค้ด

Code: Select all

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Worksheets("DATA").Select
Range("D4").Select
Range(Selection, Selection.End(xlDown).Offset(-1, 0)).Select
Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Range("D4").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveCell.Value =[b] "=if(b4="","",(today()))"[/b]



Application.ScreenUpdating = True

End Sub

ที่ ActiveCell.value นั้นผมอยากให้มันไปลิ้๊งที่คอลัมน์ B ที่อยู่ทางซ้ายครับ

สมมติ บรรทัดที่ 4 ถึง 28 มีข้อมูลและ copy paste แล้วร้อยแล้ว

อยากให้ตัว VBA สร้างสูตรต่อจากข้อมูลสุดท้ายท้ายครับ แต่เราไม่รู้ได้ว่าตัวทุดท้ายในจะไปสุดที่เท่าไหร่

จึงมาขอคำชี้แนะจากอาจารย์ทุกท่านครับ

ขอบคุรครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

'Other code
ActiveCell.Value = "=if(b" & ActiveCell.Row & "="""","""",(today()))"
'Other code

[poipoi]

ขอบคุณสำหรับคำแนะนำครับผม

สามารถใช้การได้ดีครับ

ขอบคุณครับ

[poipoi]

เรียนอาจารย์ครับ ช่วยตรวจสอบให้หน่อยครับว่าสูตรนี้ผมผิดตรงไหนครับ เมื่อนำไปใช้กับ VBA ครับ

Code: Select all

ActiveCell.Formula = "=if(D" & ActiveCell.Row & "="""","""",index(List!$B$2:$B$366,match(D" & ActiveCell.Row, List!$A$2:$A:$366,0)))

อันนี้คือต้นฉบับบครับ

Code: Select all

=IF(D4="","",INDEX(List!$B$2:$B$366,MATCH(D4,List!$A$2:$A$366,0)))

ขอบคุณครับ

[poipoi]

สามารถทำได้แล้วครับโดยใช้ code ตามนี้ครับ

Code: Select all

ActiveCell.Formula = "=if(D" & ActiveCell.Row & "="""","""",index(List!$B$2:$B$366,match(D" & ActiveCell.Row & ",List!$A$2:$A$366,0)))"

ผมดูไม่ทั่วเอง ขอบคุณครับ