- Katılım
- 14 Şubat 2006
- Mesajlar
- 3,426
- Excel Vers. ve Dili
- (Excel 2016 - İngilizce)
- Altın Üyelik Bitiş Tarihi
- 30-11-2022
KTF'da fonksiyona verdiğimiz değere göre aktif hücrenin sağına soluna 1 değerini koyabilirmiyiz?
Mantık aşağıdaki gibi olması gerekiyor ama işin içinden çıkamadım.
Not: KTF yerine makroda olabilir.
Mantık aşağıdaki gibi olması gerekiyor ama işin içinden çıkamadım.
Kod:
Function Veri(deg As Long)
If deg=1 Then
ActiveCell.Value=1
Activecell.Offset(0,1).Value=1
ElseIf deg=2 Then
ActiveCell.Value=1
Activecell.Offset(1,0).Value=1
End If
End Function
Son düzenleme: