Excel Forum

ขอบคุณครับ เจออีกปัญหาครับ - ถ้ามีมากกว่า 1 sheet เกิด error Run-time error '9': subscript out of range Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim ws As Worksheet, SaveToDirectory As String SaveToDirectory = "C:\Users\servers\Desktop\Print\" Applicati...

ถ้าต้องการระบุชื่อ sheet สามารถทำได้ไหมครับ

snasui wrote: ↑Sun Aug 15, 2021 8:08 pm ตัวอย่างการลบ 2 บรรทัดแรกครับ

Code: Select all

'Other code
With ActiveWorkbook
    Sheets(1).Range("a1:a2").EntireRow.Delete shift:=xlUp
'Other code

Sheets(1) อันนี้ใช่ชื่อ sheet ไหมครับ เพราะผมลองเปลี่ยนเป็นชื่อ worksheet ที่ต้องการแล้ว error

ขอบคุณครับ

พอดีว่าผมจะเอาไป import ใส่ mysql เลยจะลบบรรทัดที่ไม่จำเป็นออก

code นี้น่าจะใกล้เคียง ต้องการลบ row ที่ A1 , A2 (2 แถวบนสุดนั้นแหละครับ) Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim ws As Worksheet, SaveToDirectory As String SaveToDirectory = "C:\Users\servers\Desktop\Print\" Application.DisplayAlerts = False For E...

:D คำว่า Save ให้เองมันจะต้องมีเหตุการณ์ ( Event ) ที่จะใช้ตรวจสอบเพื่อให้ Code ทำงานเมื่อเกิดเหตุการณ์นั้น เช่นการเลือกเซลล์ การเปลี่ยนค่าในเซลล์ การเลือกชีต การ Save การปิดไฟล์ ฯลฯ ไม่ทราบว่าต้องการให้ Save Backup เองในจังหวะไหนหรือเกิดเหตุการณ์ใดครับ save backup ตอนกด save ไฟล์ครับ (อันนี้ืทำได้...

ก็ยังไม่ save ให้เองอยู่ดีครับ ต้องกด run ถึงจะทำงาน Sub SaveBackup() Dim D As String, FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") D = "backup.xlsm" ActiveWorkbook.Save FSO.CopyFile ActiveWorkbook.FullName, "C:\Users\servers\Desktop\Print\" & ...

ต้องการให้เมื่อเราเซฟไฟล์งาน.
1. ให้เซฟอีกไฟล์นึงไว้อัตโนมัติ
2. และบันทึกตั้งแต่ Row ที่ 3 เป็นตั้นไป

รบกวนด้วยครับ.

ขอบคุณครับ

Field "price" ครับ Field "gold-rate" ถ้ามีค่า 18k ให้คูณ 8 ถ้ามีค่า 10k ให้คูณ 6 ถ้ามีค่า 5k ให้คูณ 5 ถ้ามีค่า 9k ให้คูณ 1 เช่น ถ้าที่ gold -rate คือ 18k ก็คูณด้วย 8 field " price " เท่ากับ 2500 field " gold-rate " เท่ากับ 18k คำตอบที่ได้คือ 20000

ข้อมูลเยอะครับ จะมาคูณทีละตัวก็ลำบากไป

ขอบคุณครับ

ต้องการคิด Rate แบบมีเงื่อนไขครับ ที่คอลัมน์ gold-rate ถ้ามีค่า 18k ให้คูณ 8 ถ้ามีค่า 10k ให้คูณ 6 ถ้ามีค่า 5k ให้คูณ 5 ถ้ามีค่า 9k ให้คูณ 1 https://lh3.googleusercontent.com/pw/ACtC-3fIGbhfJqFBou0CcjB15Ss4MqLC4jpbQsun6yR1WC66pDNO2kMUDPV2j7IkB1lujaF162Dum0FbiJxMsHLdTmkSpgAmYJKZTG0xFrb2R-HBtcBT0ueDRw...

puriwutpokin wrote: ↑Mon Jul 13, 2020 2:15 pm ที่ B2=SUBSTITUTE(A2,CHAR(10),)

แถวบนหายก็จริงครับ แต่ทุกแถวดันมากองรวมกันหมดเลยครับ

18k WG w/ Ruby  & Diamond Gold Weight : 000 gmsDiamond  : 00 pcs / 00 ctsDiamond  PS: 00 pcs / 00 ctsRuby  : 00 pcs / 00 cts151

ต้องการลบแถวบนสุดออกครับ

ขอบคุณครับ

ได้แล้วครับ ขอบคุณครับ

ผมลองดูแล้ว ได้เป็นบาง cell ครับ

ตามไฟล์แนบครับ

บรรทัดว่างเกิดจากการทำ Alt+Enter ครับ

ขึ้น no cells were found

*** บรรทัดว่างจะอยู่ข้างใน cell เดียวกันน่ะครับ