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) .LineS...

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

ลองใช้ คำสั่ง ได้ผลเฉพาะ 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 I...

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

ผม ใส่ เข้าไป แบบนี้ แล้ว 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 As ...

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

ที่เขียน 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.GetOpen...

ผมต้องการ ดึงไฟล์จาก excell โดยข้อมูล เป็นไดนามิกไม่เหมือนกันในทุกๆวัน และ ชื่อไฟล์เป็นไดนามิกไม่เหมือนกันใน ทุกๆวัน โดยผมได้เขียนโค๊ด นี้ครับ แต่ติดไม่รู้ว่าจะแก้อย่างไร Dim wb As Workbook, s As Worksheet, db As Worksheet Dim strPath As Variant, i As Integer, f As Byte strPath = Application.GetOpen...

ขอบคุณครับ ได้โค๊ดไปต่อยอด สำเร็จได้คำสั่งดังต่อไปนี้ครับ 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:=xlPasteValues...

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 แถวไม่ตายตัวเสมอไป จำนวนที...

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 แถวไม่ตายตัวเสมอไป จำนวนที...

อีกวิธีถ้าแก้แล้ว vba ยังไงก็ไม่อ่าน ภาษาไทย เหตุเพราะวินโดคุณไม่ได้เซ็กเป็นภาษาไทย แก้ดังนี้ วิธีการแก้ไข 1.ไปที่ ปุ่ม Start > Control Panel (แผงควบคุม) 2. เลือก Clock, Language, and Region เพื่อเปลี่ยนภาษา 3. เลือก Change display language 4. ไปที่แถบ Administrative ที่ส่วน Language for Non-Unicode...