teşekkürler
sadece ikinci + - olsun
dersek birinci değişmesin
nasıl yazmalıyız
@benbendedeilem
Dim sonuc As String
Dim nerde As Integer
Dim oncesi As String
nerde = InStr(1, Metin0, "+", vbTextCompare) ' ilk + nın nerede kaçıncı sırada olduğunu bulalım
oncesi = Left(Metin0, nerde) ' İlk + ya kadar olan yazıları/bölümü oncesi değişkenine atayalım
sonuc = Replace(Metin0, "+", "-", nerde + 1, 1, vbTextCompare) ' Metin kutusunda ilk + nın pozisyonundan sonraki + değiştirelim.
MsgBox oncesi & sonuc ' iki değişkeni birleştirerek tam metni alalım
(27/08/2010, 12:40)accessman yazdı: çok teşekkürler
yapmak istediğime adım adım yaklaşıyorum
hazıra konmamak için kendim yapamadığım kısımları sormaya çalışıyorum
asıl amacım daha öncede dediğim gibi
dört işlem işaretlerini tüm ihtimalleri kullanacak bir döngü oluşturmak
şöyleki
a + b + c + d
a + b + c - d
a + b - c + d
a - b + c + d
a + b - c - d
a - b - c + d
a - b - c - d
a + b + c * d
a + b * c + d
a * b + c + d
a + b * c * d
a * b * c + d
a * b * c * d
a + b + c / d
a + b / c + d
a / b + c + d
a + b / c / d
a / b / c + d
a / b / c / d
a b c d değişkenleri metin kutusuna yazılan sayılar olacak
bunun gibi 6 veya daha fazla sayıl olabilir
amacım
bu dört veya daha fazla olabilecek olan sayılardan dört işlemle elde edilebilecek tüm sayıları bulmak
tabiki her sayı bir kez kullanılacak
şimdi bu replace komutunu kullanarak formuldeki " + , - , * , / " işaretlerini değiştirmek
kolay gibi gelmişti
ama işin içinden çıkamıyorum
nasıl yapabilirim
yardımlarınız için teşekkürler