Snasui Excel Forum

ถ้าค่าที่ได้ มีค่าน้อยกว่า C3 ให้ แสดงที่ Low ถ้ามากกว่า ให้ แสดงที่ High

มีที่มาจาก sheet cal ค่ะ

ขอโทษนะค่ะ

ข้อมูลที่ยกมาตัดมาแค่ตัวอย่างเลยไม่ได้เอาทั้งหมดมาให้ ขอส่งไฟล์แนบตัวอย่างทั้งหมดใหม่นะค่ะ

ขอบคุณค่ะ

ไฟล์ตัวอย่างค่ะ

รบกวนผู้รู้

ต้องการ Sort ข้อมูล บางข้อมูลในคอลัมน์ โดยอัตโนมัติ โดยไม่ต้องการกดปุ่ม Sort

มีวิธีไหนบ้างไหมค่ะ

อยากจะขอรบกวน อีกครั้งหนึ่งค่ะ

ค่าที่ได้ ออกมา มีค่า 0 ออกมาด้วยค่ะ ไม่ต้องการให้ค่า 0 ออกมาทำอย่างไรได้บ้างค่ะ

** ลองแก้ แล้ว จุดทศนิยม ออกแล้วค่ะ ขอบคุณค่ะ ขอเช็ค ความถูกต้องของข้อมูลก่อนค่ะ

Sub check()
Dim rall As Range, icount As Long
Dim r1 As Range, r2 As Range
Dim c As New Collection, item As Variant
With Sheets("cal")
Set rall = Union(.[b5:f21], .[b31:h49], .[x31:ac49], .[j5:n21], .[r5:v21], .[z5:ad21], .[m31:s49], .[ag31:al49], .[ah5:al21], .[ap5:at21], .[ao29:at36]) 'select ...

เรื่องการ กำหนด Range ข้าม Sheet สามารถทำได้แล้วค่ะ

แต่ว่า ข้อมูลที่ต้องการให้มาแสดงยังไม่ถูกต้อง ไม่รู้ว่า ใช้คำสั่งผิดตรงไหนค่ะ

รบกวนผู้รู้ช่วยตอบหน่อยค่ะ ตามตัวอย่างไฟล์ที่แนบมาให้ค่ะ

แก้ไข** พบว่า vba ไม่แสดงค่า ตัวเลขที่เป็นทศนิยม 2 ตำแหน่งค่ะ

รบกวนแก้ไข code ให้ ด้วยค่ะ
ในกรณีที่ Range อยู่ กันคนละ Sheet ค่ะ

Sub check()
Dim rall As Range, icount As Long
Dim r1 As Range, r2 As Range
Dim c As New Collection, item As Variant
With ActiveSheet
Set rall = Union(.[b5:f21], .[j5:n21], .[r5:v21], .[z5:ad21], .[ah5:al21]) 'select Range
.Range("b6:b1000,p6:p1000").ClearContents 'Clear Range
For Each r1 In rall ...

ใน Sheet Result ต้องการ อ้าง ถึง Range ที่อยู่ใน Sheet cal

ต้องใช้คำสั่งอะไรค่ะ

หมายเหตุ ขอตั้งกระทู้ใหม่นะค่ะ กระทู้ที่แล้วไม่ได้แนบไฟล์ ตอบกลับไม่ได้

Sub Button1_Click()
Dim rall As Range, icount As Long
Dim r1 As Range, r2 As Range
Dim c As New Collection, item As Variant
With ActiveSheet
Set rall = Union(.[b3:e5], .[b19:e24]) 'select Range
.Range("j6:j1000,o6:o1000").ClearContents 'Clear Range
For Each r1 In rall 'loop Range rall1
icount ...

แนบไฟล์ไม่ได้ค่ะ

สวัสดีค่ะ

รบกวนสอบถามคำสั่ง VBA หน่อยค่ะว่า ถ้าเราสร้างข้อมูล (Range) ไว้ที่ Sheet หนึ่ง แล้ว ต้องการให้ ผลลัพธ์มาแสดงอีก Sheet หนึ่ง
ใช้คำสั่งอะไรค่ะ

ขอ คำสั่งการกำหนด Range ข้าม Sheet ด้วยค่ะ

ตัวอย่าง ที่ส่งมาให้ ดู เป็น Whit ActiveSheet ซึ่ง ข้อมูลอยู่ใน Sheet เดียวกัน

ขอบคุณมากเลยนะค่ะ ที่สละเวลามาช่วยดู code ให้ และจะพยายามฝึกให้มากๆค่ะ สำหรับกระทู้นี้ ขอจบคำถามไว้แค่นี้ค่ะ

ในโอกาสหน้าอาจต้องรบกวนอาจารย์อีกนะค่ะ

ขอบพระคุณอย่างสูงค่ะ

c.Add CStr(r1.Value), CStr(r1.Value) คำสั่งนี้ คืออะไรหรอค่ะ

อยากมองสูตรเป็นจังค่ะ อยากเก่งๆบ้าง

ขอบคุณมากเลยนะค่ะ

ตัวแปร Collection คืออะไรหรอค่ะ

ไม่ error แล้วค่ะ แต่ไม่เข้าใจสูตรอยู่ค่ะ [j2] มาจากไหนค่ะ คือตัวแปร Array แต่เราไม่ได้ประกาศตัวแปรเป็น Array เลยนะค่ะ

On Error Resume Next ---> คืออะไรค่ะ
If icount > 1 Then
c.Add CStr(r1.Value), CStr(r1.Value)
End If
On Error GoTo 0
Next r1
For Each item In c
If CLng(item) <= .[j2] Then --> CLng คืออะไรค่ะ ตัวแปรหรือ คำสั่งค่ะ
.Range("j" & .Rows.Count).End(xlUp) _
.Offset(1, 0).Value = CLng(item)
Else ...

เอา code มาใส่แล้ว ลอง run ดู

error ค่ะ ตรง with activesheet