Excel Forum

สั่งให้ พิมค่าใน เซล แบบ วนลูปตามเงื่อนไข ยังไงครับ

Range("H2").Select
Dim rng As Range
Set rng = ActiveCell
Dim i As Integer
i = 0
Do Until rng.Offset(i, -1).Value = ""
If rng.Offset(i, 0).Value <> "" Then
With rng.Offset(i, -7).Resize(, 8).Borders(xlEdgeBottom)
.LineStyle = xlDouble ...

แก้ไข ปัญหา ได้แล้ว ครับ

ลองใช้ คำสั่ง ได้ผลเฉพาะ selection ที่จงเจาะเซล ที่ไม่ติด ตัวแปร r ลองดัดแปลงโค๊ดแล้ว ยังติด debug ครับ

ถ้าเลือก range เซล ที่ไม่ติดกันเช่น เลือก range a และ range c เราจะเขียนว่าอย่างไรครับ

Sub Macro1()
Dim LR As Long, i As Long, r As Range
LR = Range("a" & Rows.Count).End(xlUp).Row
For i = 1 To LR
If Range("a" & i).Value = "11" Then
If r Is Nothing Then
Set r = Range("b" & i)
Else
Set r = Union(r, Range("b" & i))
End If
End If
Next i
r.Select
End Sub

ในโค๊ดนี้ เมื่อกด รัน แล ...

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

ผม ใส่ เข้าไป แบบนี้ แล้ว eror แก้อย่างไร ครับ

รบกวน เจ้า ของกระทู้ แชร์ โค๊ดที่สำเร็จ ทีครับ

สอบถามเพิ่มเติม ครับ

ถาม เราจะเอา option หน้าต่าง เลือกไฟล์ ออก

โดย เรากำหนด แหล่งที่อยู่ไฟล์ไป เลย สามารถ แก้ไข โค๊ดได้อย่างไรครับ

<r>ด้านล่างเป็น Code VBA สามารถส่งข้อความช่อง "DW14" ได้แล้ว แต่กำลังหาวิธีส่งรูปภาพ<br/>
ซึ่งอยู่ที่ C:/Users/tten5566/Google Drive/000000/S50.jpg แต่ยังส่งไม่ได้เลยครับ<br/>
ท่านใดพอจะมีแนวทางไหมครับ ขอบคุณครับ<br/>
<br/>

<CODE><s>[code]</s>Public Sub SendLine()

Dim myURL As String
Dim Message ...

สำเร็จแล้วครับ ของคุณครับ

ที่เขียน code สำเร็จได้เพราะ นำตัวอย่าง มาจากอาจารย์ snasui ในเว็บไซต์นั้นะครับ

https://snasui.com/wordpress/collect-by-condition/

ผมต้องการ ดึงไฟล์จาก excell โดยข้อมูล เป็นไดนามิกไม่เหมือนกันในทุกๆวัน และ ชื่อไฟล์เป็นไดนามิกไม่เหมือนกันใน ทุกๆวัน

โดยผมได้เขียนโค๊ด นี้ครับ แต่ติดไม่รู้ว่าจะแก้อย่างไร


ตัวอย่างงานที่ดึงเสร็จแล้ว จะนำมาต่อกันลงมาด้านล่าง ของคอลัมครับ ไฟล์ ตัวอย่างที่ดึงแล้วผมอัปโหลดใว้แล้วครับ

ผมควรจะแก้โค ...

ผมต้องการ ดึงไฟล์จาก excell โดยข้อมูล เป็นไดนามิกไม่เหมือนกันในทุกๆวัน และ ชื่อไฟล์เป็นไดนามิกไม่เหมือนกันใน ทุกๆวัน

โดยผมได้เขียนโค๊ด นี้ครับ แต่ติดไม่รู้ว่าจะแก้อย่างไร
Dim wb As Workbook, s As Worksheet, db As Worksheet
Dim strPath As Variant, i As Integer, f As Byte
strPath = Application ...

ผมต้องการ ดึงไฟล์จาก excell โดยข้อมูล เป็นไดนามิกไม่เหมือนกันในทุกๆวัน และ ชื่อไฟล์เป็นไดนามิกไม่เหมือนกันใน ทุกๆวัน

โดยผมได้เขียนโค๊ด นี้ครับ แต่ติดไม่รู้ว่าจะแก้อย่างไร
Dim wb As Workbook, s As Worksheet, db As Worksheet
Dim strPath As Variant, i As Integer, f As Byte
strPath = Application ...

ขอบคุณครับ
ได้โค๊ดไปต่อยอด สำเร็จได้คำสั่งดังต่อไปนี้ครับ

Sub test()

If Range("a1").Value = "" Then
Range("d1:e1").Select
Selection.Copy
Dim a As Range
Set a = Range("A1").Resize(Range("c1").Value)
a.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone ...

Sub test()

Dim a As Range
Set a = Range("A1").End(xlDown).Offset(Range("c1").Value, 0).Select

Range("a1:a" & Range("c1").Value).Select
End Sub

โค๊ดคืออันนี้นะครับ
ผมอยากจะเขียนคำสั่งให้เลือก แถวสุดท้ายของ a1 ลงมา 5แถว โดยจำนวน 5 แถวไม่ตายตัวเสมอไป จำนวนที่ ให้ใช้คำสั่ง Range("a1:a".. ต่างๆน ...

Sub test()

Dim a As Range
Set a = Range("A1").End(xlDown).Offset(Range("c1").Value, 0).Select

Range("a1:a" & Range("c1").Value).Select
End Sub

โค๊ดคืออันนี้นะครับ
ผมอยากจะเขียนคำสั่งให้เลือก แถวสุดท้ายของ a1 ลงมา 5แถว โดยจำนวน 5 แถวไม่ตายตัวเสมอไป จำนวนที่ ให้ใช้คำสั่ง Range("a1:a".. ต่างๆน ...

อีกวิธีถ้าแก้แล้ว vba ยังไงก็ไม่อ่าน ภาษาไทย เหตุเพราะวินโดคุณไม่ได้เซ็กเป็นภาษาไทย แก้ดังนี้

วิธีการแก้ไข

1.ไปที่ ปุ่ม Start > Control Panel (แผงควบคุม)
2. เลือก Clock, Language, and Region เพื่อเปลี่ยนภาษา
3. เลือก Change display language
4. ไปที่แถบ Administrative ที่ส่วน Language for Non ...