: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 ให้สร้างอีก 1 คอลัมน์

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 ให้สร้างอีก 1 คอลัมน์

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#89

by snasui » Wed Aug 26, 2020 8:12 am

:D ถ้าจะทำเลียนแบบภาพ สามารถยกเลิกการแสดงหัวคอลัมน์+หัวบรรทัดแล้วระบายสีครับ
Attachments
Hd.png
Hd.png (55.22 KiB) Viewed 64 times

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#88

by aroydee » Wed Aug 26, 2020 7:16 am

การซ่อนเนื้อหาทุกอย่างใน Sheet แบบในรูปภาพนี้ ทำได้โดยวิธีการใด บ้างครับ
Attachments
001.png
001.png (48.8 KiB) Viewed 66 times

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#87

by snasui » Mon Aug 10, 2020 10:25 pm

:D เมื่อมีการ Lock รหัสป้องกันการ Save As หากจะใช้วิธีการ Save As ก็ต้องถอดรหัสก่อนครับ

สำหรับการถอดรหัสผมขออภัยที่จะขอไม่แจ้งวิธีการ คงต้องหาวิธีการจากแหล่งอื่น ๆ ครับ

ถ้าจะลองก็เปลี่ยนชื่อไฟล์ด้วยการเปลี่ยนนามสกุลไฟล์เอง แต่ไม่รับรองว่าจะทำได้ และแม้ทำได้ก็ไม่รับรองว่าไฟล์นั้นจะสมบูรณ์ใช้การได้ครับ

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#86

by aroydee » Mon Aug 10, 2020 9:36 pm

อาจารย์ครับ...
ไฟล์งานนามสกุล .xlsb ที่ป้องกันการ Save และ VBA ก็ถูกล็อครหัสไว้ละครับ
มีวิธีที่จะ Save ไฟล์โดยเปลี่ยนเป็น .xlsm ได้ไหมครับ

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#85

by snasui » Mon Aug 10, 2020 7:48 pm

:D ตัวอย่าง Code ครับ

Code: Select all

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ActiveSheet.Name <> "Sheet1" Then
        Cancel = True
        MsgBox "Cannot to save file"
    End If
End Sub

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#84

by aroydee » Mon Aug 10, 2020 4:29 pm

ขอวิธีแก้ไขชีทที่โดนป้องกันการ Save มาหน่อยครับ
นี่คือ Code คำสั่งที่ป้องกันการ Save ที่เจอใน VBA ครับ

Code: Select all

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "Cannot to save file"
End Sub

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#82

by snasui » Fri Jul 10, 2020 10:46 pm

:D การ Active Workbook ใด ๆ สามารถใช้ Activate เช่น Workbooks("AAA.xlsm").Activate ครับ

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#81

by aroydee » Thu Jul 09, 2020 9:29 pm

อาจารย์ครับ
ถ้าเราเปิดแฟ้มไว้ 3 แฟ้ม แฟ้มปัจจุบันคือ BBB แล้วเราจะรัน VBA ที่ทำงานกับแฟ้ม AAA
เราจะเขียน Code อย่างไรเพื่อเรียกแฟ้ม AAA ขึ้นมาเป็น Active ครับ

Code: Select all

    Workbooks("AAA.xlsm").Select
    Workbooks("AAA.xlsm").Open true

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#80

by snasui » Fri Jul 03, 2020 11:21 pm

:D ใช้คำสั่ง Select เพื่อให้อยู่หน้าปัจจุบันหรือหน้าไหนก็ได้ตามต้องการ คำสั่งนี้ใช้เมื่อจำเป็นครับ

แต่เดิมถ้า Select เยอะหน้าจอก็จะวูบวาบ Code จะทำงานช้า ปัจจุบัน Microsoft ได้ปรับเรื่องนี้ให้มีการทำงานที่เร็วขึ้นด้วยครับ

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#79

by aroydee » Fri Jul 03, 2020 6:59 pm

อาจารย์ครับ มีคำสั่งที่ให้อยู่ในหน้าชีทที่ทำงานปัจจุบัน
ก่อน End Sub ไหมครับ

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#78

by snasui » Thu Jul 02, 2020 8:34 pm

:D ไม่ให้ย้ายไปชีตไหนก็ตัดลบบรรทัดที่ให้ Select ชีตนั้นออกครับ

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#77

by aroydee » Thu Jul 02, 2020 7:17 pm

แต่มีข้อเสียตรง ไม่ว่าจะทำงานอยู่หน้าไหน พอกดคีย์ {W} หรือ {L} มันก็จะเด้งไป
อยู่ที่หน้าชีท ("Second Last") ตลอดครับ
น่าจะเป็นเพราะบรรทัดนี้ Sheets("Second Last").Select
แต่ถ้าไม่มี มันก็เด้งไป ("7 Class") ตลอดเหมือนกันครับ
ถ้าจะไม่ให้เป็นแบบนี้ ควรแก้ยังไงครับ

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#76

by snasui » Thu Jul 02, 2020 6:37 pm

:D เมื่อทดสอบแล้วไม่แสดงผลผิดพลาดก็ถือว่าใช้ได้ครับ

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#75

by aroydee » Thu Jul 02, 2020 10:44 am

ถ้าแก้เป็นแบบนี้ ได้ยุครับ
แต่ไม่รู้ว่าถูกต้องตามหลักการหรือเปล่า

Code: Select all

Sub I_To_P()
Application.ScreenUpdating = False
    Dim rng As Range, sel As Range
    Set rng = Worksheets("7 Class").Range("E5")
    Dim I As Integer
    I = 0
        Do Until rng.Offset(I, 0).Value = ""
        Sheets("7 Class").Select
        rng.Offset(I, 0).Select
    Set sel = Worksheets("7 Class").Range("I5")
        sel.Offset(I, 0).Value = sel.Offset(I - 1, 0).Value + rng.Offset(I, 0).Value
        I = I + 1
        Loop
        Sheets("Second Last").Select
Application.ScreenUpdating = True
End Sub

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#74

by aroydee » Thu Jul 02, 2020 10:01 am

พอคีย์ {W} หรือ {L} ในหน้าชีท ("Second Last") มันขึ้น bug ดังรูปที่แนบมาครับ

Code: Select all

Sub I_To_P()
Application.ScreenUpdating = False
    With Sheets("7 Class")
    Dim rng As Range
    Set rng = Worksheets("7 Class").Range("E5")
    Dim I As Integer
    I = 0
        Do Until rng.Offset(I, 0).Value = ""
        rng.Offset(I, 0).Select
    Dim sel As Range
    Set sel = Worksheets("7 Class").Range("I5")
        sel.Offset(I, 0).Value = sel.Offset(I - 1, 0).Value + rng.Offset(I, 0).Value
        I = I + 1
        Loop
    End With
Application.ScreenUpdating = True
End Sub
Attachments
Untitled.png
Untitled.png (115.87 KiB) Viewed 109 times
2020-06-30 บันทึกผล.xlsm
(50.85 KiB) Downloaded 8 times

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#73

by aroydee » Thu Jul 02, 2020 9:38 am

เข้าใจละครับ
ขอถามครับ...
ตรงที่กำหนด With Sheets("7 Class") ตรงนี้ยังไม่ครอบคลุมใช่ไหมครับ
แล้วสามารถลบบรรทัดนี้เลยได้ไหมครับ

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#72

by snasui » Thu Jul 02, 2020 6:53 am

aroydee wrote: Wed Jul 01, 2020 3:41 pm ปัญหาคือ ถ้ากดปุ่มมาโครในหน้าชีท "7 Class" คอลัมน์ I จะได้ผลลัพธิ์ตามปกติ
แต่ถ้ากดปุ่มมาโครที่อยู่ในหน้าชีท "Second Last" ผลลัพธิ์ในคอลัมน์ I ไม่ขึ้นแสดงครับ
:D ที่เป็นเช่นนั้นเพราะมี Code ที่ระบุเซลล์ที่ไม่ได้ระบุว่าเป็นของชีตใดครับ ยกตัวอย่างเช่น Set rng = [E5] หากคลิกเลือกชีต 7 Class ก่อน Run Code ก็จะหมายถึง E5 ของชีต 7 Class และหากคลิกเลือกชีต Second Last ก่อน Run Code ก็จะหมายถึง E5 ของชีต Second Last

ดังนั้น การอ้างถึง Object ใด ๆ ใน Excel ให้าคำนึงถึงกรณีนี้เสมอ คือจะต้องระบุว่าเป็นเซลล์ของชีตใด หากทำงานข้ามไฟล์ก็ต้องระบุว่าเป็นของชีตใด ไฟล์ใด เข้าไปด้วยครับ

เช่นระบุเป็น Set rng = Worksheets("7 Class").Range("E5") เป็น ต้น

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#71

by aroydee » Wed Jul 01, 2020 3:41 pm

Code อยู่ใน Module1, Sub I_To_P2()
คอลัมน์ I คือ Code แสดงผลการบวกของตัวเลขในคอลัมน์ E ลงมาทีละแถว
คีย์ {W} ผลชนะ ได้เป็นเลขบวก
คีย์ {L} ผลแพ้ ได้เป็นเลขลบ
ปัญหาคือ ถ้ากดปุ่มมาโครในหน้าชีท "7 Class" คอลัมน์ I จะได้ผลลัพธิ์ตามปกติ
แต่ถ้ากดปุ่มมาโครที่อยู่ในหน้าชีท "Second Last" ผลลัพธิ์ในคอลัมน์ I ไม่ขึ้นแสดงครับ
ติดแถบเหลืองที่บรรทัดนี้ sel.Offset(I, 0).Value = sel.Offset(I - 1, 0).Value + rng.Offset(I, 0).Value

Code: Select all

Sub I_To_P2()
Application.ScreenUpdating = False
With Sheets("7 Class")
    Dim rng As Range
        Set rng = [E5]
        Dim I As Integer
        I = 0
        Do Until rng.Offset(I, 0).Value = ""
        rng.Offset(I, 0).Select
        Dim sel As Range
        Set sel = [I5]
        sel.Offset(I, 0).Value = sel.Offset(I - 1, 0).Value + rng.Offset(I, 0).Value
        I = I + 1
        Loop
    End With
Application.ScreenUpdating = True
End Sub
Attachments
2020-06-30 บันทึกผล.xlsm
(51.24 KiB) Downloaded 8 times

Re: เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

#70

by snasui » Sat Jun 06, 2020 9:53 am

:D ลองปรับใช้จาก Link นี้ครับ ==> Blinking Text

Top