mehranmohajeri
2019/08/31, 17:47
سلام به اساتید محترم
بنده از طریق پیوت یه چارت داینامیک ساختم و می خوام با تغییر Slicer دیتام تغییر کنه و داینامیک چارتم به روز بشه ولی هرکاری کردم این اتفاق نیافتاد. نمونه کد وی بی رو هم در زیر براتون ارسال می کنم و فایل رو هم Attach می کنم لطفا" راهنمائی بفرمائید.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Address = "$V$33" Then
For i = 0 To Int(Target.Value * 100)
DoEvents
ActiveSheet.Range("H2").Value = i / 100
Next i
ActiveSheet.Range("H2").Value = Target.Value
End If
End Sub
بنده از طریق پیوت یه چارت داینامیک ساختم و می خوام با تغییر Slicer دیتام تغییر کنه و داینامیک چارتم به روز بشه ولی هرکاری کردم این اتفاق نیافتاد. نمونه کد وی بی رو هم در زیر براتون ارسال می کنم و فایل رو هم Attach می کنم لطفا" راهنمائی بفرمائید.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Address = "$V$33" Then
For i = 0 To Int(Target.Value * 100)
DoEvents
ActiveSheet.Range("H2").Value = i / 100
Next i
ActiveSheet.Range("H2").Value = Target.Value
End If
End Sub