:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

Re: ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

#9

by Totem » Tue Dec 09, 2014 11:00 am

snasui wrote:
Totem wrote:
snasui wrote: :D ตัวอย่างการปรับ Code ตามด้านล่างครับ

เปลี่ยน .Range("b1" & LastRow & LastColumn).ClearContents เป็น .Range("b1").Resize(lastrow, lastcolumn).ClearContents
:D ปรับแล้วลบข้อมูลได้ แต่ ลบไปถึง column AG ไม่สามารถลบไปไม่ถึง LastColumn AP ครับ
:D หากต้องการลบข้อมูลทั้งชีทให้ใช้

Code: Select all

Cells.ClearContents
หรือหากต้องการลบเฉพาะเฉพาะช่วงข้อมูลที่เคยใช้งานให้ใช้

Code: Select all

ActiveSheet.UsedRange.ClearContents
ตัวอย่าง

Code: Select all

Dim answer As Long
With ActiveSheet
    answer = MsgBox("Clear?", vbYesNo + vbQuestion, "data")
    If answer = vbYes Then
        .UsedRange.ClearContents
    End If
End With
:D ขอบคุณครับ

Re: ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

#8

by snasui » Fri Dec 05, 2014 8:20 am

Totem wrote:
snasui wrote: :D ตัวอย่างการปรับ Code ตามด้านล่างครับ

เปลี่ยน .Range("b1" & LastRow & LastColumn).ClearContents เป็น .Range("b1").Resize(lastrow, lastcolumn).ClearContents
:D ปรับแล้วลบข้อมูลได้ แต่ ลบไปถึง column AG ไม่สามารถลบไปไม่ถึง LastColumn AP ครับ
:D หากต้องการลบข้อมูลทั้งชีทให้ใช้

Code: Select all

Cells.ClearContents
หรือหากต้องการลบเฉพาะเฉพาะช่วงข้อมูลที่เคยใช้งานให้ใช้

Code: Select all

ActiveSheet.UsedRange.ClearContents
ตัวอย่าง

Code: Select all

Dim answer As Long
With ActiveSheet
    answer = MsgBox("Clear?", vbYesNo + vbQuestion, "data")
    If answer = vbYes Then
        .UsedRange.ClearContents
    End If
End With

Re: ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

#7

by Totem » Thu Dec 04, 2014 3:09 pm

niwat2811 wrote:ขอโทษครับน่าจะตก . ไปตัว สำหรับ Code ผมลองใช้กับเครื่องผมแล้วก็ไม่ติด error นะครับ
ยังไงคงต้องรอผู้รู้ท่านอื่นช่วยตอบแล้วครับ
:D ขอโทษครับ ผมลองใหม่แล้วใช้งานได้ตามต้องการครับ ขอบคุณครับ

Re: ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

#6

by niwat2811 » Thu Dec 04, 2014 2:45 pm

ขอโทษครับน่าจะตก . ไปตัว สำหรับ Code ผมลองใช้กับเครื่องผมแล้วก็ไม่ติด error นะครับ
ยังไงคงต้องรอผู้รู้ท่านอื่นช่วยตอบแล้วครับ

Re: ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

#5

by Totem » Thu Dec 04, 2014 2:37 pm

niwat2811 wrote:กรณีที่ Rows หรือ Columns เป็นแบบไดนามิกลองปรับแบบนี้ดูครับว่าใช้ได้ตามต้องการไหม

Code: Select all

Sub answerYesNO()

Dim answer As Long


    With ActiveSheet

        answer = MsgBox("Clear?", vbYesNo + vbQuestion, "data")

            If answer = vbYes Then

                
                lastrow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
                lastcolumn = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
                
                .Range("b1").Resize(lastrow, lastcolumn).ClearContents
            

            Else
        
            
        End If
        
       End With

    End Sub
:D ขอบคุณครับ แต่ยัง error ตั้งแต่บรรทัด

Code: Select all

lastrow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
ส่วนบรรทัดนี้น่าจะตก .

Code: Select all

lastcolumn = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column

Re: ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

#4

by niwat2811 » Thu Dec 04, 2014 2:18 pm

กรณีที่ Rows หรือ Columns เป็นแบบไดนามิกลองปรับแบบนี้ดูครับว่าใช้ได้ตามต้องการไหม

Code: Select all

Sub answerYesNO()

Dim answer As Long


    With ActiveSheet

        answer = MsgBox("Clear?", vbYesNo + vbQuestion, "data")

            If answer = vbYes Then

                
                lastrow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
                lastcolumn = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
                
                .Range("b1").Resize(lastrow, lastcolumn).ClearContents
            

            Else
        
            
        End If
        
       End With

    End Sub

Re: ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

#3

by Totem » Thu Dec 04, 2014 1:55 pm

snasui wrote::D ตัวอย่างการปรับ Code ตามด้านล่างครับ

เปลี่ยน .Range("b1" & LastRow & LastColumn).ClearContents เป็น .Range("b1").Resize(lastrow, lastcolumn).ClearContents
:D ปรับแล้วลบข้อมูลได้ แต่ ลบไปถึง column AG ไม่สามารถลบไปไม่ถึง LastColumn AP ครับ

Re: ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

#2

by snasui » Thu Dec 04, 2014 1:19 pm

:D ตัวอย่างการปรับ Code ตามด้านล่างครับ

เปลี่ยน .Range("b1" & LastRow & LastColumn).ClearContents เป็น .Range("b1").Resize(lastrow, lastcolumn).ClearContents

ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

#1

by Totem » Thu Dec 04, 2014 1:07 pm

:D เรียนอาจารย์และเพื่อนสมาชิก

ต้องการลบข้อมูล ก่อนลบมี MsgBox เตือน และทำการลบข้อมูลที่มีอยู่ ซึ่งในแต่ละDateอาจจะมีข้อมูลไม่เท่ากัน ช่วยปรับ Code ให้หน่อยครับ

Code: Select all

Sub answerYesNO()

Dim answer As Long


    With ActiveSheet

        answer = MsgBox("Clear?", vbYesNo + vbQuestion, "data")

            If answer = vbYes Then

                
                LastRow = .Range("b" & .Rows.Count).End(xlUp).Row
                LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
                
                .Range("b1" & LastRow & LastColumn).ClearContents
            

            Else
        
            
        End If
        
       End With

    End Sub
code ที่ยังไม่ได้ตามที่ต้องการ

Code: Select all

                LastRow = .Range("b" & .Rows.Count).End(xlUp).Row
                LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
                
                .Range("b1" & LastRow & LastColumn).ClearContents
ขอบคุณครับ
Attachments
ลบข้อมูลที่ต้องการ.xlsm
(18.27 KiB) Downloaded 43 times

Top