Excel Forum

ขอบคุณครับ

นำไปลองแล้วครับ โปรแกรมค้างเลยครับ เครื่องอื่นก็เป็นครับ

เขียน vba ให้ copy จากหน้า sheet "BBS" ไปหน้า sheet "tag"

โค้ด ทำงานได้ปกติ บางครั้ง copy สมบูรณ์
แต่บางครั้ง เกิดมี error 104 กลางทาง copy ไปไม่หมด ต้องกด end แล้วกดใหม่
พยายามแก้แล้ว ก็ไม่หาย
1718770217276.jpg

ไม่แน่ในเป็นบัคหรือบัคหรือเปล่าครับ

ลองใช้ทั้ง excel 365 excel2019 เปลี่ยนเคร ...

ขอบคุณมากๆครับ
ได้แล้วครับ
แค่นิดเดียวจริงๆ

ผมต้องการให้เปรียบเทียบค่าใน แถว a ว่าเซลไหนเท่ากับค่าที่กำหนดไว้ ให้ก้อบข้อมูลจากที่อีกมาวาง

ตอนนี้ติดปัญหา มันไม่วางต้องที่ค่ามันเท่ากันครับ

สมมุต

แถว a ค่ากำหนด คือ 3 ให้วางข้อมูลที่ก้อปมา หลังเซลที่มีค่าเท่ากัน

1
2
3
4
5

Sub test()

Dim mon As Integer
Dim i As Integer
i = 1

mon ...

เราสามารถกำหนด พื้นที่การพิมพ์ โดยการรับข้อมูลได้มั้ยครับ

เช่น
รับข้อมูลมาเป็น 2 ให้กำนดพื้นที่พิมพ์ a1:j21

รับข้อมูล เป็น 3 ให้กำนดพื้นที่พิมพ์ a1:j53

กำหนดพื้นที่พิมพ์ที่เป็นเส้นน้ำเงินเข้มๆ

เพราะตอนนี้ต้องลากมาเองตามข้อมูลที่เยอะขึ้น

ผมไม่มีโค้ด เพราะไม่รู้ว่าต้องใช้คำสั่งอะไร ...

ขอบคุณมากๆครับ

สั้นๆ ง่ายๆเลย
ผมลืมไปเลยว่าเอาตัวแปลมาใส่ตรงจำนวนหน้าได้

ผมไปลองทำ loop ตั้งนาน

select case ของไฟลผม จำนวนเคสเยอะ ประมาณ 20 เคส และที่รับค่ามีประมาณ 10 ค่า
อยากทำให้สั้นลง ใช้วิธีไหนได้บ้างครับ


ตัวอย่างเช่น

รับค่าจากเซล a1
ถ้าเท่ากับ 1
ให้ปริ้นหน้า 1 - 1
ถ้าเท่ากับ 2
ให้ปริ้นหน้า 1 - 2
.
.
ถ้าเท่ากับ 20
ให้ปริ้นหน้า 1 - 20
--------
ถ้าเซล b1 มากกว่า 0
ถ้าเท่ากับ 1 ...

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

ผมใช้เวลาปรับอยู่หลายวันกว่าจะได้

นำโค้ดนี้ไปใส่ไฟล์ใหม่ใช้ได้ปกติ

แต่นำไปใ่ไฟล์ที่ใช้งาน เกิดบัคเหมือนเดิม

ขอบคุณครับ
ใช่ครับ
พอยกเลิกส่วนนี้
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub





VBA Event นั้นต้องการให้มีการแก้ไขโดยตรงที่ เซลนั้นๆ ที่กำหนดไว้ ถ้าเป็นการลิ้งค์ค่ามาน่าจะไม่
ได้ครับ
ไม่ใช่นั้นต้องยกเลิก ส่วนนี้ 'If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
แต่ก ...

puriwutpokin wrote: Mon Mar 28, 2022 2:50 pm ุลองแนบไฟล์ ที่เป็นแบบที่แจ้งมาดูครับว่าค่า ที่ใส่เป็นอะไรครับ เพราะ ถ้า 1 กับ "1" จะไม่เหมือนกันในความหมายนี้ครับ

อันนี้ครับ

test (1).xlsm ขอบคุณมากครับ
กด undo ได้ปกติละครับ

แต่ติดปัญหาเพิ่มตรงที่

เซลๆนั้นต้องรับค่าโดยตรงจากคีย์บอร์ด

ถ้าอ้างอิงมาจากเซลอื่นจะไม่ทำงานครับ

จากไฟล์ ถ้าพิมพ์ที่ a1 จะทำงานได้

ถ้า a1 รับค่า มาจาก c1 จะไม่ทำงานครับ

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect ...

สวัสดีครับ

โค้ vba เกี่ยวกับการ ซ่อนปุ่ม button เมื่อรันแล้วใช้งานได้ปกติ

แต่โค้ดมีบัค หรือสูตรผิดผมไม่แน่ใจครับ
อาการที่เจอคือ
1.เมื่อพิมพ์ข้อมูลลงในแผ่นงานแล้วไม่สามารถกด undo หรือย้อนกลับได้
2. ถ้าพิมพ์ตัวเลข 1 2 ลงมา แล้วลากสูตร จะไม่ขึ้น ให้เลือกมุมขวา


Private Sub Worksheet_Change(ByVal ...

puriwutpokin wrote: Wed Mar 23, 2022 5:47 pm ผมลองแอด ปุ่มแล้วลองโค้ดก็ปกตินะครับ ตามไฟล์แนบ

ขอบคุณมากครับ

ผมงงมากเลย ตอนนี้ได้ละครับ

แนบไฟล์ครับ

สวัสดีครับ
ผมอยากให้ button แสดง และ ไม่แสดงตามเงื่อนไขครับ

เช่น เมื่อเซล a1 ไม่ว่างให้ โชวปุ่มออกมา
ถ้าว่างไม่โชวปุ่ม

ผมได้ลองทำ เกิด error ไม่สามารถแก้ได้ครับ



Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Cells(1, 1).Value <> "" Then
Me ...

ทำได้แล้วนะครับ ขอบคุณมากเลยครับ ทำความเข้าใจกับโค๊ด แล้วปรับแค่นิดเดียวจริงๆ

ขอบคุณมากครับ ขอไปปรับก่อนครับ แล้วจะมาแจ้งให้ทราบครับ

โห สุดยอดมากเลยครับ ขอบคุณมากเลยครับ


ผมขอถามอีกนิดครับ

ตรง sheet pic2 จะเขียนโค็ดยังไงให้วางรูปไปทางขวาก่อนครับ ตามไฟล ที่แนบไปครั้งก่อนครับ จะเรียงจากซ้ายมาขวา พอครบ 3 แล้วเริ่มใหม่

ขอบคุณมากครับ ตัวอย่างโค๊ดที่ให้มา สั้นและดีมากเลยครับ

แต่ผมติดปัญหาเพิ่มครับ


โดยปกติ sheet pic1 ผมจะ วางรูป ลงมาแค่ 20 รูป (อันนี้ทำได้) แล้วข้ามลงไปอีกไปมาณ 10 cell ถึงจะวางรูปอีกที่ ตามไฟล์ตัวอย่างที่แนบมา

และ sheet pic2 วางรูปแนวคอลัม

ผมลองแก้โค้ดที่ให้ตัวอย่างมา

ลองไปศึกษาดูครับ

ผมได้แนบไฟล์ใหม่ไปแล้วครับ