Snasui Excel Forum

ทำได้แล้ว ขอบพระคุณครับ

สวัสดีครับ ขออนุญาตสอบถามวิธีการเติมตัวเลขที่กำหนดในเซลล์ว่าง โดยเติมตัวเลข 2 ในเซลล์ถัดลงมาหนึ่งเซลล์ และเติมตัวเลข 3 ถัดลงมาอีกสองเซลล์ครับ

Sub Macro1()
Dim X As Single, Y As Single
For X = 5 To 19
If Cells(X, 3).Value = 0 Then
For Y = 2 To 3
Cells(X, 3).Value = Y
Next Y
End If
Next X
End ...

สวัสดีครับผมอยากนำข้อมูลซึ่งเว้น 2 บรรทัดในcolumn A ให้ไปเรียงต่อกันโดยไม่เว้นบรรทัดใน Column E ทำยังไง รบกวนแก้ไข code ให้หน่อยนะครับ

Sub CopyData()

Dim i As Single, j As Single, LastRow As Single
For i = 2 To 11 Step 3
Cells(i, 1).Select
Selection.Copy
Cells(i - 1, 5).Select
ActiveSheet ...

parakorn wrote: Tue Sep 10, 2019 5:40 pm แกเป็น

Code: Select all

Sub CopyData()

Dim i As Single, j As Single, LastRow As Single

For i = 1 To 11


    Cells(((3 * i) + 1) - 2, 1).Select
    Selection.Copy
    Cells(i, 5).Select
    ActiveSheet.Paste
    
Next i


End Sub

ได้แล้วครับ ขอบพระคุณมากครับ

สวัสดีครับผมอยากนำข้อมูลซึ่งเว้น 2 บรรทัดในcolumn A ให้ไปเรียงต่อกันโดยไม่เว้นบรรทัดใน Column E ทำยังไง รบกวนแก้ไข code ให้หน่อยนะครับ

Sub CopyData()

Dim i As Single, j As Single, LastRow As Single
For i = 2 To 11 Step 3
Cells(i, 1).Select
Selection.Copy
Cells(i - 1, 5).Select
ActiveSheet ...

สวัสดีครับผมอยากนำข้อมูลซึ่งเว้น 2 บรรทัดในcolumn A ให้ไปเรียงต่อกันโดยไม่เว้นบรรทัดใน Column E ทำยังไง รบกวนแก้ไข code ให้หน่อยนะครับ

Sub CopyData()

Dim i As Single, j As Single, LastRow As Single
For i = 2 To 11 Step 3
Cells(i, 1).Select
Selection.Copy
Cells(i - 1, 5).Select
ActiveSheet ...

ได้แล้วครับ..ขอบคุณทุกๆ ท่านที่เสียสละเวลามาตอบคำถามนะครับ

ตัวเลข 5/3 พอฟอร์แมตเซลล์เป็นข้อความมันจะกลายเป็น 43588 แทนครับ

สวัสดีครับ พอดีผมได้รับข้อมูลบ้านเลขที่มาหลายพันบรรทัด แต่มีข้อมูลบ้านเลขที่บางตัวมีขีดทับเช่น 25/2 ใน Excel ก็จะกลายเป็นข้อมูลวันที่อัตโนมัติ 25/2/2019 ทีนี้ถ้าจะมานั่งลบปี คศ. ออกแล้วจัดฟอร์แมตเซลล์มันก็หลายบรรทัดเกิน มีวิธีอื่นใดเช่นสูตร หรือ code vba แก้ปัญหามั้ยครับ

Sub test()

Dim i As ...

การสอบถามข้อมูลเกี่ยวกับ VBA ผู้ถามต้องเขียนตัวอย่างโค้ดมาก่อนครับ เพื่อที่ผู้ตอบจะได้รู้ว่าผู้ถามรู้จัก VBA และสามารถนำโค้ดไปใช้ต่อได้ไม่เสียเปล่า ตามกฎของบอร์ดข้อที่ 5 ครับ

สูตรที่ให้มาข้างต้นก็สามารถนำไปเขียนใน cell.formula แล้วลากมาหาบรรทัดสุดท้ายแล้วเขียน vlookup ไว้ข้างๆ ก็หาข้อมูลได้อย ...

ขอบคุณครับ แล้วถ้าเราจะใช้ VBA ใช้ code แบบไหนครับ พอดีอยากดึงข้อมูลคอลัมน์ B ข้างๆ คอลัมน์ A ไปด้วยกันนะครับ

เรียนสอบถามท่านผู้รู้ทุกท่าน พอดีผมต้องการเรียงลำดับชุดข้อมูลที่ 1 ให้เรียงลำดับตามข้อมูลชุดที่ 2 มีวิธีการใดบ้างครับ (ใช้ฟังก์ชั่น หรือ VBA ก็ได้ครับ)...ขอบคุณล่วงหน้าครับ

เดี๋ยวจะนั่งลองทำดูครับ ติดขัด หรือได้ผลประการใด จะแจ้งให้ทราบครับ

เรียนสอบถามอาจารย์ ท่านผู้รู้ทั้งหลาย คือผมได้ทำโปรแกรม vba ขึ้นมา และอยากให้โปรแกรมทำงานได้เรื่อยๆ จนถึงวันที่กำหนดไว้ และแสดงข้อความว่าโปรแกรมหมดอายุแล้ว และปิดโปรแกรม ซึ่งผมใช้ฟังก์ชั่น Today ใน range A1 เป็นตัวกำหนดเงื่อนไข แต่ปัญหามีอยู่ว่าเมื่อ User แก้วันที่ในระบบ window โดยการย้อนวันที่ ก ...