Snasui Excel Forum

snasui wrote: บรรทัดแรกเป็นการกำหนดค่าให้กับ rall โดยให้เป็นเซลล์ทั้งหมดที่เป็นค่าว่างในคอลัมน์ I

บรรทัดที่สองเป็นการตรวจสอบว่าหากเกิด Err ก็ให้ออกจาก Sub Procedure

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

อาจารย์ครับรบกวนอธิบายโค้ดสองบรรทัดนี้ด้วยครับ ขอบคุณครับ

snasui wrote: จาก Statement นี้ q.Value = Z.Offset(0, -2) * q.Offset(0, -1) / 1000 ไม่ทราบว่า Z.Offset(0, -2) นั้นเป็นการลืมแก้หรืออ้างอิงมาใช้จากไหนครับ

ได้แล้วครับ ไม่ได้เปลี่ยนตรง Z.Offset(0, -2) ครับ ขอบคุณครับ

snasui wrote: Code ที่เขียนมาได้ผลลัพธ์ไม่ตรงกับที่ต้องการอย่างไรครับ

มันไม่ขึ้นผลลัพธ์ใน Column I ครับ หรือผมเขียน Code โปรแกรมเลยไม่คำนวณให้

:D สองบรรทัดในตัวอย่างมีความแตกต่างกันอย่างไรหรือต้องพิจารณาอะไรจึงใช้สูตรไม่เหมือนกันครับ
ถ้าผมจะหาร 1000 เขียนแบบนี้ได้ไหมครับหรือต้องแก้ยังไงครับ ตรง q.Value = Z.Offset(0, -2) * q.Offset(0, -1) / 1000
ขอบคุณครับ :D

Public Sub dbod()
On Error Resume Next
Set rall = Range("i:i ...

:D ตัวอย่าง Code ตามด้านล่างครับ
Public Sub qvww()
On Error Resume Next
Set rall = Range("g:g").SpecialCells(xlCellTypeBlanks)
If Err <> 0 Then Exit Sub
For Each Z In rall
Z.Value = Z.Offset(0, -3) * Z.Offset(0, -2)
Next Z
End Sub
ขอบคุณครับ ได้แล้วครับ :D
แต่ผมขอถามอีกอย่างครับว่า ถ ...

:| ที่ G2 คีย์ =IFERROR(D2*E2,"") แล้วคัดลอกสูตรลงมาครับ
ขอบคุณครับ
แล้วถ้าผมจะใช้สูตรนี้ร่วมกับ VBA ได้ไหมครับ ให้มันคูณกันทีเดียวทั้งคอลัมน์
อันนั้นโค้ดครับ โดยจะให้ผลลัพธ์มันขึ้นใน Column g ในช่องที่ว่างๆอยู่ครับ
Public Sub qvww()
[Table].SpecialCells(xlCellTypeBlanks).Select
For Each m In ...

เงื่อนไขคืออะไรครับ ลองยกตัวอย่างคำตอบมาให้ดูหน่อยครับ
เช่นแถวที่ 2 Column d = 100 คูณกับ แถวที่ 2 Column e = 3 คำตอบเท่ากับ โดยคำตอบขึ้นในแถวที่ 2 Column g
แถวที่ 3 Column d = 0.5 คูณกับ แถวที่ 3 Column e = 56 คำตอบเท่ากัน 28 โดยคำตอบขึ้นในแถวที่ 3 Column g ทำแบบนี้ไปเรื่อยๆครับจนครบทุกข้อมูล ...

คือผมมี Sheet งานอยู่ 3 Sheet ใน Sheet ที่ 3 ผมจะทำการคูณค่าใน Column d ทั้ง Column กับ Column e ทั้ง Column (สมมติมีข้อมูลใน Column เยอะ)แล้วผลลัพธ์ไปขึ้นที่ Column G ต้องเขียนสูตรยังไงครับ

:D จาก Set srAll = .Range("a4", .Range("a" & Rows.Count).End(xlUp)) เป็นการกำหนดให้ตัวแปร srAll มีค่าเริ่มจากเซลล์ a4 จนถึงเซลล์ a บรรทัดสุดท้ายที่มีข้อมูล

จาก For Each tg In tgAll
If Application.CountIf(srAll, tg) > 0 Then
m = Application.Match(tg, srAll, 0)
tg.Offset(0, 1).Resize(1, 8).Value ...

:D ไม่เข้าใจบรรทัดใดบ้าง ให้ยกมาถามเฉพาะบรรทัดนั้นครับ
ตรงนี้ครับ :D
For Each tg In tgAll
If Application.CountIf(srAll, tg) > 0 Then
m = Application.Match(tg, srAll, 0)
tg.Offset(0, 1).Resize(1, 8).Value = srAll(m).Offset(0, 1).Resize(1, 8).Value
End If
Next tg


Set srAll = .Range("a4 ...

:D ช่วยแนบ Code แนบไฟล์ตัวอย่างที่ลองทำเอาแล้วไม่สำเร็จมาด้วย จะได้ช่วยดูต่อไปจากนั้นครับ

สำหรับคำว่า "ครับ" ใช้ตรง ๆ ได้เลยครับ ไม่ควรใช้เป็น " อะครับ " ครับ

อาจารย์ครับรบกสนช่วยอธิบาย code นี้ให้ผมที่ครับ ยังไม่ค่อยเข้าใจ :D
Sub test()
Dim tg As Range
Dim srAll As Range
Dim tgAll As Range ...

:D ควรวาง Code ให้แสดงเป็น Code เพื่อจะได้สะดวกในการอ่านและ Copy ไปทดสอบ ดูวิธีการที่นี่ครับ http://snasui.com/viewtopic.php?f=3&t=1187

สำหรับที่ถามมานั้น ลองดูตัวอย่าง Code ตามด้านล่างครับ
Sub test()
Dim tg As Range
Dim srAll As Range
Dim tgAll As Range
Dim m As Long
With Sheets("Sheet1 ...

Public Sub search()
Dim stepin As Variant
Dim search_a As Byte
Dim check_a As Byte
Dim search_b As String
Dim check_b As String
Dim b As Variant
Dim c As Variant
Dim d As Variant
Dim e As Variant
Dim f As Variant
Dim g As Variant
Dim h As Variant
Dim i As Variant
Dim z As Integer
Dim ...

คือผมมี sheet งานอยู่ 2 sheet ใน sheet 1 เป็นตารางข้อมูล ใน sheet ที่ 2 เป็นตารางสำหรับกรอกข้อมูลลงไป ผมอยากกรอกข้อมูลลงใน sheet 2 คอลัมน์ a ที่เดียว 3 อัน แล้ว search ให้มันขึ้นเหมือนตารางในsheet 1 ต้องเขียนโค้ดยังไงครับ
[img]<a%20href="http://pic.free.in.th/id/f96099022bbac442f4d60677a5279630"%20 ...