Snasui Excel Forum

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

Sub test0()
Dim rAll As Range, r As Range
Set rAll = ActiveSheet.UsedRange
For Each r In rAll
If InStr(r, "MQ") > 0 Then
r.Offset(0, 1).ClearContents
End If
Next r
End Sub

ขอบคุณมากค่ะ สามารถรันได้เรียบร้อยแล้ว :thup:

ต้องการลบข้อมูลที่อยู่ในเซลล์ัดไปจาก เซลล์ที่เราค้นเจอ โดยมีขั้นตอนดังนี้ :

1) เซลล์ที่มีข้อความขึ้นต้นด้วย "MQ" ของข้อมูลในช่วงคอลัมภ์ A ถึงคอลัมภ์ D
2) จากนั้นลบข้อมูลของเซลล์ที่อยู่ในคอลัมภ์ัถัดไป (แถวเดียวกัน)
ตัวอย่างเช่น : เจอข้อมูล MQ38 ใน cells(5,1) จากนั้นต้องการลบข้อมูลใน cells(5,2)

ม ...

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

Dim rall As Range
With Sheets("Sheet1")
Set rall = .Range("ae1", .Range("ae1") _
.End(xlToRight).Resize(.UsedRange.Rows.Count))
End With
Sheets("Sheet2").Range("g1") _
.Resize(rall.Rows.Count, rall.Columns.Count).Value = rall.Value



ขอบคุณมากค่ะ สำหร ...

:) สอบถามเกี่ยวกับการคัดลอกข้อมูลหลายคอลัมภ์จาก Sheet 1 ไปยัง Sheet 2
โดยที่จำนวนคอลัมภ์ไม่แน่นอนค่ะ โดยใน Sheet 1 จะเริ่ม copy ตั้งแต่ คอลัมภ์ AE ไปจนถึงคอลัมภ์สุดท้าย
แล้วนำไปวางที่ Sheet 2 คอลัมภ์ G ค่ะ


เขียนโค้ดเบื้องต้น มาดังนี้ค่ะ :

Sub Copymulticolumn()

Dim LC As Integer

LC = Sheets ...

ปรับโค้ดตรง
lastcolumn = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToRight).Column
เป็น
lastcolumn = Sheets("Sheet1").Cells(1, Columns.Count).End(xlTo[color=#FF0000]Left[/color]).Column
ครับ

แล้วก็ หลังประกาศตัวแปรให้เพิ่ม
Application.Calculation = xlCalculationManual เพื่อหยุดการคำนวณ ...

:D Code นั้นเปลี่ยนเฉพาะเซลล์ที่มีข้อมูลหรือเซลล์ที่ไม่ว่าง หากเซลล์ใดมองเห็นด้วยตาว่าไม่มีข้อมูลแต่เห็นเป็นค่า X หลังจาก Run Code แสดงว่าเซลล์นั้นไม่ใช่เซลล์ว่างจริง ๆ ให้ทำการ Clear ให้เป็นค่าว่างจริง ๆ เสียก่อนด้วยวิธีการใด ๆ ครับ

รบกวนสอบถามอาจารย์เพิ่มเติมค่ะ

คือ ได้ทำการแก้ไขโค้ดตามท ...

snasui wrote: Code นั้นเปลี่ยนเฉพาะเซลล์ที่มีข้อมูลหรือเซลล์ที่ไม่ว่าง หากเซลล์ใดมองเห็นด้วยตาว่าไม่มีข้อมูลแต่เห็นเป็นค่า X หลังจาก Run Code แสดงว่าเซลล์นั้นไม่ใช่เซลล์ว่างจริง ๆ ให้ทำการ Clear ให้เป็นค่าว่างจริง ๆ เสียก่อนด้วยวิธีการใด ๆ ครับ

ขอบคุณมากค่ะ สำหรับคำชี้แนะ

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


Sub A3_ChangeNumberToX2()
Range("ae2").Resize(100000, 10000).SpecialCells(xlCellTypeConstants).Value = "X"
End Sub


สามารถเปลี่ยนตัวเลข 100000, 10000 ไปเป็นค่าที่ต้องการ โดยต้องปรับ 100000 เป็นค่าที่ไม่เกินจำนวนบรรทัดที่สามารถมีได้ และปรับ 10000 เป็นค่าคอลัมน์ท ...

้ต้องการเปลี่ยนข้อูลในเซลล์ของ Excel โดยเลือกข้อมูลตั้งแต่ AE2 จนถึงแถว และคอลัมภ์สุดท้าย ให้เป็น "X"

โดยมี Code ดังนี้ :

เปลี่ยนข้อมูลในคอลัมภ์ เป็น X.jpg



Sub A3_ChangeNumberToX2()

Dim i As Long
Dim j As Long
Dim lastrow As Long
Dim lastcolumn As Long

Sheets("Sheet1").Select

lastrow ...

snasui wrote: เป็นการกำหนดค่าให้กับตัวแปร LR โดยให้มีค่าเท่ากับบรรทัดสุดท้ายที่ไม่เป็นเซลล์ว่างครับ

ขอบคุณมากค่ะสำหรับคำอธิบายเพิ่มเติม

ขอถามเพิ่มติมได้หรือเปล่าค่ะ ว่า บรรทัดนี้ มีความหมายว่าอย่างไร

LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

ลองแบบนี้ดูว่าใช้ได้ตามต้องการไหมครับ

Sub combinetext()
Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
For Each r In Range("D2:D" & LR)
If r.Value <> "" And r.Offset(0, 1) = "" Then
r.Offset(0, -3).Value = r.Value
End If
If r.Value = "" And r ...

parakorn wrote:ใช้สูตรช่วย ก่อน ใช้คำสั่ง Copy ได้ไหมครับ หากได้
ที่ F2 พิมพ์ =IF(D2="",E2,IF(E2="",D2,IF(AND(D2<>"",E2<>""),D2&"/"&E2)))
Copy ลากลงด้านล่าง

หากต้องการแต่ VBA เดี๋ยวรอท่านอื่นๆมาตอบครับ

ขอบคุณค่ะ

สอบถามการรวมข้อมูลใน Excel โดยใ้คำสั่ง VBA

- ต้องการรวมข้อมูลในคอลัมภ์ D และ คอลัมภ์ E ไปไว้ในคอลัมภ์ A โดยมี "/ " ขั้นระหว่างข้อความ
- หากแถวใดมีข้อมูลเฉพาะ คอลัมภ์ D หรือ คอลัมภ์ E เพียงอย่าง เดียว ก็ให้ copy ข้อมูลไปวางใน คอลัมภ์ A โดยที่ไม่มีเครื่องหมาย "/ "

ที่ได้ลองเขียนโค้ดมา มีดังนี้

#1 ...

niwat2811 wrote:ลองปรับ Code เป็นแบบนี้ดูครับว่าได้ตามต้องการไหม

Code: Select all

Sub test()
With Columns("B")
  .Cells.NumberFormat = "General"
  .Value = .Value
End With
End Sub

เปลี่ยนได้แล้วค่ะ

ขอบคุณมากค่ะ

ลองปรับ Code เป็นแบบนี้ดูครับ
Sub deletePS()

lastrow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

For i = lastrow To 2 Step -1
If Left(Range("A" & i).Value, 2) = "PS" Then
Range("A" & i).EntireRow.Delete
End If
Next i

End Sub




รันได้แล้วค่ะ

ขอบคุณมากค่ะ :thup:

ต้องการลบทุกแถวที่มีข้อมูลที่ขี้นต้นด้วย PS ค่ะ

Sub deletePS()

lastrow = Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row

For i = 2 To lastrow

If Rows(i).Find("PS") Then
Rows(i).Delete

End If

Next i

End Sub




Delete PS.xlsm


ติดปัญหาไม่สาารถรันได้ค่ะ
รบกวนขอคำชี้แนะด้วยค่ะ

ขอบคุณสำหรับคำแนะนำค่ะ
แต่ยังติดปัญหาอยู่ พอเอาโค้ดไปวางแล้ว เลือกข้อมูลที่เราต้องการ ลองรันดู
ค่าในเซลล์ยังไ่เปลี่ยน ไม่ทราบว่าต้องแก้ไขอย่างไรดีคะ

ีมีไฟล์แนบมมาค่ะ

สอบถามการแปลงค่าในเซลล์เป็นตัวเลขค่ะ

เนื่องจากต้องการนำค่าในคอลัมภ์ Bไปใช้งาน จึงอยากเปลี่ยนเป็นตัวเลขค่ะ
ถ้าในกรณีที่เราต้องการเขียนโค้ด VBA ไม่ทราบว่าจะต้องใช้คำสั่งอะไรคะ เพราะลองใช้การบันทึก Macro ดู
โค้ดที่ได้ ไม่ปรากฎคำสั่งที่เปลี่ยนค่าในเซลล์ให้เป็นตัวเลขค่ะ

แปลงค่าในเซลล์ให้เป็นตัวเลข ...

ขอบคุณมากๆค่ะ สำหรับโค้ด