Excel Forum

ถามอีกนิดครับ
ถ้ากรณีที่เราต้องการดึงข้อมูลจากหลายๆ sheet ต้องปรับสูตร เพิ่มอย่างไรครับ
=IFERROR(INDEX(data1!A$4:A$500,SMALL(IF(data1!$A$4:$A$500>=$E$2,IF(data1!$A$4:$A$500<=$G$2,ROW(data1!$A$4:$A$500)-ROW(data1!$A$4)+1)),ROWS(A$9:A9))),"")

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

ขอเพิ่มอีกนิดครับ
1. พิมพ์วันที่ค้นหาแล้ว ข้อมูลยังไม่เปลี่ยนครับ
2. ต้องกดปุ่ม save file ก่อนครับข้อมูลถึงเปลี่ยน
3. จะต้องเพิ่มปุ่มอะไรไหมครับ หรืออย่างไร ครับ
4.ถ้าเพิ่มปุ่มจะทำอย่างไรครับ เช่นปุ่มค้นหา ครับ

เรียนท่านที่เคารพทุกท่าน มีปัญหาอยู่ว่า
1.ผมต้องการค้นข้อมูลกรอกวันที่ e2 และ g2 โดยใช้ข้อมุล จาก data1 ครับ
2.ให้ข้อมูลแสดงที่ report1 ที่ cell a6 ถึง f6 ครับ (ไปทางขวา และลงล่าง ผมลองใส่สูตรแล้วครับ ข้อมูลไม่แสดง ครับ) ต้องปรับสูตรส่วนไหนบ้างครับ

ผลลัพทธืที่ต้องการครับ
1.กรอกข้อมูล ราคา กับ จำนวน จะคูณออกมาเป็นเงินของสินค้าแต่ละรายการ
2.นำจำนวนเงินของแต่ละ รายการมารวมกันให้ทราบยอดเงิน
3 ผมทำแล้วใส่ code Private Sub TextBox6_Enter()
Dim x, y, sum As Double
x = Val(TextBox3.Text)
y = Val(TextBox5.Text)
sum = x * y
TextBox6.Text = Format(sum ...

ผมต้องการหาผลรวมของ textbox19 ครับ โดยเป็นการรวมเงินของสินค้าแต่ละรายการ แต่ติดปัญที่ ถ้ารายการสินค้าเป็นจุดทศนิยม จะรวมเงินไมได้ ครับ

ขอบคุณครับ

แนบไฟล์ใหม่ครับ

ผมต้องการหาผลรวม ใน Userform ครับ เป็นการหาผลรวมของสินค้าครับ

ขอบคุณครับ

เรียนทุกท่าน ครับ
ผมต้องการ นำข้อมูล จาก b3:b5
แสดงผลลัพธ์ ที่ textbox 1 ครับ ให้เป็น
1,000.00 ครับ ไม่ทราบว่าจะกำหนด code ตรงไหนครับ
Private Sub ComboBox1_Change()
On Error Resume Next
Set myRange = Worksheets("data1").Range("a3:b5")
TextBox1.Value = Application.WorksheetFunction.VLookup(CLng ...

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

ขอโทษ ครับ แนบไฟล์ที่มีโค้ด มาใหม่แล้วครับ

Sub TextBox2_Click()
Range("h3:l43").Select
Selection.Copy
Sheets("Alldata").Select
If Range("a1") = "" Then
lastrow = 1
Else
lastrow = Range("a100000").End(xlUp).Offset(1, 0).Row
End If
Range("a" & lastrow).Select
Selection.PasteSpecial xlPasteValues
Sheets("edit").Select
Range("i3:l43 ...

ข้อมูลจะบันทึกเป็นชุด ๆละ 30 แถว ที่ผมต้องการ คือให้บันทึกที่ Alldata เป็นการบันทึกต่อ จากข้อมูลเดิม ครับ

เรียนถามครับ
จากไฟล์แนบ ผมต้องการบันทึกข้อมูลจาก edit ช่วง h3:l43 ไปบันทึกข้อมูลที่ Alldata โดยเริ่มที่ B ต่อแถวไปเรื่อยๆ ครับ เพราะที่บันทึกข้อมูล จะบันทึกเป็นชุดครับ

กรณีข้อมูลมี 3 แถว มันจะเว้นแถว ครับ เช่น ข้อมูลชุดที่ 1 มี 3 แถว ก็จะเว้นแถวไม่มีข้อมูล มันบันทึกไม่ต่อแถวกันครับ

Sub กล่องข้อความ1_คลิก()
Range("a2:d8").Select
Selection.Copy
Sheets("2").Select
lastrow = Application.Match(9.99999999999999E+307, Sheets("2").Range("a:a")) + 1
Range("a" & lastrow).Select
Selection.PasteSpecial xlPasteValues
Sheets("1").Select
Range("a2:d8").Select
Application.CutCopyMode ...

ปัญหาตอนนี้ คือ เวลาสั่งพิมพ์ จะใช้เวลาอ่านข้อมูลนานครับ เวลานำไปใช้งานจริงครับ
ข้อมูลที่ Sheet data มีประมาณ 40 แถว ครับ ข้อมูลที่ Sheet print มีประมาณ 130 แถว ครับ ตามไฟล์ที่แนบมาข้างต้น นั้น ก็ทำงานได้ครับ

ผมต้องการพิมพ์เอกสารพร้อมกัน 2 Sheet คือ Sheet data และ Sheet print ครับ แต่ก็สั่งพิมพ์ได้ ครับ ลองปรับให้ผมหน่อยครับ
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("data").Visible = True
Sheets("data").Select
ActiveSheet.PageSetup.PrintArea = "$b$5:$h$32"
ActiveWindow ...