Snasui Excel Forum

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

ในช่อง G23 ต้องการให้ G10หารG5
ในช่อง G24 ต้องการให้ G10ลบ G5

ในช่อง I23 ต้องการให้ I12หารI7 ขยับเซลลงมาจากข้อมูลแรก2ช่อง
ในช่องI24 ต้องการให้ I12ลบI7 ขยับเซลลงมาจากข้อมูลแรก2ช่อง

ซึ่งถ้าปกติลากมาเฉยๆจะได้เป็น I10หารI5

ขอคำแนะนำครับมีการหาค่าของแต่ละเดือนโดยค่าที่คำนวณจะขยับเซลลงมา2ช่องโดยใช้เซลช่องสีน้ำเงินลบช่องสีเหลืองไปเรื่อยๆ
โดยถ้าลากสูตรจะเป็นการเลื่อนคอลัมน์แต่แถวไม่ขยับลง พอมีวิธีให้เมื่อขยับคอลัมน์แล้วเซลขยับลง2ช่องได้ไหมครับ
ตัวอย่างตามไฟล์แนบครับ

ช่วยดู Private Sub CmdInsertRow ด้วยครับ
ต้องการที่จะแทรกบรรทัดที่ข้อมูลไม่ซ้ำกันออก โดยข้อมูลจะเรียงกัน ตรง คอลัมน์ D เช่น
01
01
01
01
แทรกข้อมูลเข้ามาครับ
02
02
02
แทรกข้อมูลเข้ามา
03
03
03
03
ตรงนี้ผมไม่รู้จะวนอย่างไรให้เจอบันทัดที่ข้อมูลในคอลัมน์ D ที่บรรทัดบนกันล่างไม่เหมือนกัน

เมื่อเจอแล ...

ตรง listbox ตัวซ้ายผมจะดึงข้อมูลจากคอลัมน์ D เข้ามาทั้งหมดแล้วเมื่อกดเลือก add ข้อมูลจะเข้ามา listbox ตัวขวาครับ
ทีนี้ผมต้องการให้ข้อมูลที่เลือกไว้ใน listbox ด้านขวาสมมติว่าเลือก 21M0008244 , 21M0008259 , 21M0008263
ทีนี้ผมต้องการแทนที่ข้อมูล 21M0008244 , 21M0008259 , 21M0008263 ลงไปในตำแหน่งที่ข ...

ขอบคุณครับ
ทีนี้ผมดึงข้อมูลในคอลัมน์ D ที่ใส่ไว้ใน excel ขึ้นมาใส่ไว้ใน listbox1 แล้วผมต้องการที่จะเลือกข้อมูลที่อยู่ใน listbox1 ออกมาจำนวนหนึ่งแบบ move มาใส่ไว้ใน textbox2 แล้วพิมพ์ค่าที่จะแทนที่นั้นลงไปในคอลัมน์ D อย่างเช่นเลือก 21M0008243 21M0008255 21M0008262 21M0008266 4จำนวนนี้ออกมาแล้วแทน 4 ต ...

ตรงส่วนของผลรวมครับ ไฮไลสีเหลืองไว้ครับ

ไฟล์ที่ต้องการจะเป็นแบบนี้ครับ

ต้องการให้บรรทัดสุดท้ายรวมราคาทั้งหมดแต่ error ครับ
ลองใส่ผลรวมได้แค่ผมรวมของรอบสุดท้าย ไม่แน่ใจว่าใส่ผิดตรงไหนคือลองใส่ใน loop ก็ได้ตัวสุดท้ายตัวเดียว
ใส่นอก loop ก็ไม่คำนวณเลยครับ

Private Sub CmdConvrt_Click()
Dim Handle As Integer, File_Name As String
Dim WriteRow As Long, TemArr, OneLine As ...

ลองใช้โค๊ดของท่านแล้วเมื่อเปิดกับเครื่องอื่นก็รันไม่ได้ครับ โปรดชี้แนะด้วยครับท่าน

นำโค๊ดมารันแล้วเป็นดังรูปครับ รบกวนด้วยครับท่าน

ขอบคุณมากครับ กรณีต้องการกรอกตัวเลขหลายหลักและมีทศนิยมด้วยทำอย่างไรครับ ลองใส่เป็น ###.## เครื่องไม่รับครับ
Private Sub CmdConvrt_Click()
Dim Handle As Integer, File_Name As String
Dim WriteRow As Long, TemArr, OneLine As String
Dim price1, price2, price3 As String
Handle = FreeFile
File_Name = "D ...

เครื่องผมใช้ excel 2007 เครื่องอื่นก็ใช้ 2007 เช่นเดียวกันครับ
ที่เครื่องผมเองรันผ่านแต่พอรันที่เครื่องอื่นขึ้นแบบนี้ครับ

ขอบคุณครับ ตัวอย่างไฟล์ที่ดึงมาครับ

โปรดช่วยดูด้วยครับ ขอบคุณมากครับ
แล้วต้องการที่จะดึงอีกไฟล์ด้วยครับ

โปรดชี้แนะด้วยครับ
ต้องขอโทษด้วยครับ กลัวท่านจะไม่ได้กลับมาอ่านเพราะโพสต์ไว้ตั้งแต่วันศุกร์ครับ
Private Sub CmdConvrt_Click()
Dim Handle As Integer, File_Name As String
Dim WriteRow As Long, TemArr, OneLine As String
Dim price1, price2, price3 As String
Handle = FreeFile
File_Name = "D:\Testrun.txt ...

มือใหม่มากครับ ลองทำ vba เซฟเป็น xlxm เปิดที่เครื่องตัวเองลองกดก็รันได้ปกติ แต่ copy ที่เครื่องอื่นพอกด run ก็ error code ต้องทำอย่างไรครับ