Snasui Excel Forum

ทำได้แล้ว ถึงจะไม่เข้าใจ code ก็เหอะ
ขอบพระคุณอาจารย์อีกครั้งครับ

:mrgreen: :mrgreen: :mrgreen:

Private Sub Worksheet_Change(ByVal Target As Range)

'If Not Intersect(Target, Range("B1")) Is Nothing Then
If Target.Address = Range("c1").Range("a1").Address Then
' forms scrollbar
ActiveSheet.Shapes("Scroll Bar 23").ControlFormat.Max = Target.Offset(0, -1).Value

' ActiveX scrollbar
' ActiveSheet.Shapes("ScrollBar1").OLEFormat.Object.Object.Max = Target.Value

End If

End Sub

:D ลองปรับ Code เป็นตามด้านล่างครับ
[code]Private Sub Worksheet_Change(ByVal Target As Range)

'If Not Intersect(Target, Range("B1")) Is Nothing Then
If Target.Address = Range("c1").Range("a1").Address Then
' forms scrollbar
ActiveSheet.Shapes("Scroll Bar 23").ControlFormat.Max = Target.Offset(0, -1).Value

' ActiveX scrollbar
' ActiveSheet.Shapes("ScrollBar1").OLEFormat.Object.Object.Max = Target.Value

End If

End Sub[/code]

นี่ครับไฟล์
:)

:D แนบไฟล์ตัวอย่างมาด้วยเพื่อจะได้ช่วยทดสอบได้ครับ

Private Sub Worksheet_Change(ByVal Target As Range) 

If Not Intersect(Target, Range("A1")) Is Nothing Then 

' forms scrollbar 
ActiveSheet.Shapes("Scroll Bar 2").ControlFormat.Max = Target.Value 

' ActiveX scrollbar 
ActiveSheet.Shapes("ScrollBar1").OLEFormat.Object.Object.Max = Target.Value 

End If 

End Sub 

คือผมต้องการสร้าง Form ScrollBar แบบให้ค่า Max เปลี่ยนแปลงเองตามค่าใน cell

Search ไปเจอเว็บนอก ได้ code มาดังนี้

[code]Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then

' forms scrollbar
ActiveSheet.Shapes("Scroll Bar 2").ControlFormat.Max = Target.Value

' ActiveX scrollbar
ActiveSheet.Shapes("ScrollBar1").OLEFormat.Object.Object.Max = Target.Value

End If

End Sub [/code]

ติดอยู่ที่ว่า มันจะใช้ได้ผลเมื่อ cell A1 เราป้อนค่าเข้าไปเอง ทันทีที่กด Enter ค่า Max จะเปลี่ยนตามที่เราต้องการ

แต่ช่อง A1 ของผมตอนนี้ใส่สูตรไว้ เมื่อค่าที่ได้จากสูตรเปลี่ยน ค่า Max ของ ScrollBar มันไม่เปลี่ยนไปด้วย มันจะเปลี่ยนเมื่อเราป้อนเองด้วยมือเท่านั้น

ต้องแก้ไข code ตรงไหน รบกวนชี้แนะด้วยครับ

ขอบคุณทุกๆท่านล่วงหน้า