Arkadaşlar selam,
Aşağıdaki sayfa kodu olarak oluşturulmuş makrodaki A2 girişini "InputBox" olarak değiştirmek istedim ama konulara hakim değilim.
Hücre girişi değil de Inputbox olarak , bir butona bağlı olarak çalıştırmamız gerekiyor.
Bir diğer konu da sayfa sürekli yatay sağa doğru ilerliyor fakat bu kod çalışında oluşan açı her zaman sayfa başında kalıyor.
Son dolu hücre yakınlarında görünür bir noktada oluşturmak da mümkün mü ?
Bir lise öğrencisinin trigonometrik hesaplarında görsel yardımı olan bir kod , yardımcı olursanız sevinirim.
Aşağıdaki sayfa kodu olarak oluşturulmuş makrodaki A2 girişini "InputBox" olarak değiştirmek istedim ama konulara hakim değilim.
Hücre girişi değil de Inputbox olarak , bir butona bağlı olarak çalıştırmamız gerekiyor.
Bir diğer konu da sayfa sürekli yatay sağa doğru ilerliyor fakat bu kod çalışında oluşan açı her zaman sayfa başında kalıyor.
Son dolu hücre yakınlarında görünür bir noktada oluşturmak da mümkün mü ?
Bir lise öğrencisinin trigonometrik hesaplarında görsel yardımı olan bir kod , yardımcı olursanız sevinirim.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Shape, shLeft As Single, shTop As Single, shRadius As Single, Theta As Single
' Set parameters
shLeft = 50
shTop = 200
shRadius = 300
' Read in Theta
Theta = -45 ' Default setting
On Error Resume Next
Theta = Range("A2").Value * -1
On Error GoTo 0
' Delete all existing shapes
For Each sh In Shapes
sh.Delete
Next
' Draw current sshape
With Shapes.AddShape(msoShapePie, shLeft, shTop, shRadius, shRadius)
.Fill.Visible = msoFalse
.Adjustments(1) = Theta
.Adjustments(2) = 0
.Line.Visible = msoTrue
.LockAspectRatio = msoTrue
.Line.ForeColor.RGB = RGB(35, 35, 35)
.Line.Weight = 1
End With
End Sub