Metini koşullara göre oluşturma

[OnurKY]

Herkese merhaba şöyle bir sorum var.

Kaç karakter olsun : 10
Kaç kelime olsun : 2
Büyük,Küçük,Karışık harf : Karışık

Böyle hücrelere yazılan değer karşılığında metin oluşturmasını istiyorum nasıl yapabilirim. Finale puan eklenicek yapabilrisem eğer.

 

[Asri]

Karakter sayısı ve kelime sayısı en fazla kaç olmalı?
Her bir kelimenin uzunlukları farklı mı olacak?
Kelime uzunlukları nedir? En fazla kaç olmalı?
Rastgele metinler mi oluşturacak?
Veilen karakterleri kullanarak tüm ihtimalleri içeren kelimeleri mi?

Sizin bu konuda bir ön çalışmanız var mı?

dosya.tc yada dosya.co dan yükleyebilirsiniz.

 

[OnurKY]

Karakter sayısı ve kelime sayısı en fazla kaç olmalı?
Her bir kelimenin uzunlukları farklı mı olacak?
Kelime uzunlukları nedir? En fazla kaç olmalı?
Rastgele metinler mi oluşturacak?
Veilen karakterleri kullanarak tüm ihtimalleri içeren kelimeleri mi?

Sizin bu konuda bir ön çalışmanız var mı?

dosya.tc yada dosya.co dan yükleyebilirsiniz.

Karakter ve kelime sayıları hakkında birşey söylenmedi fark etmiyor. Ön çalışmam yok çünkü yeni öğreniyoruz bunu böyle bir bonus ödev verdi yapabilene fazladan puan vericekmiş.

 

[Asri]

Basit matıkla bu şekilde, kalanını üzerine siz birşeyler ekleyin. : )

Sub kelimeuret()
 karaktersayisi = 10
 kelimesayisi = 2
 kelimeseti = "ABCDEFGHIİJKLMNOÖPRSŞTUÜVYZabcdefghıijklmnoöprsştuüvyz"
 kacadeturetilecek = 5
 
 For j = 1 To kacadeturetilecek
basadon:
   Randomize
   kelime1sayi = Int((karaktersayisi * Rnd) + 1)
   kelime2sayi = Int((karaktersayisi * Rnd) + 1)
 
   If kelime1sayi < 3 Then GoTo basadon
   If kelime2sayi < 3 Then GoTo basadon
   If kelime1sayi + kelime2sayi <> karaktersayisi Then GoTo basadon
 
   kelimeler = ""
   For i = 1 To kelime1sayi
     Randomize
     sira = Int((Len(kelimeseti) * Rnd) + 1)
     kelimeler = kelimeler & Mid(kelimeseti, sira, 1)
   Next i
 
   kelimeler = kelimeler + " "
 
   For i = 1 To kelime2sayi
      Randomize
      sira = Int((Len(kelimeseti) * Rnd) + 1)
      kelimeler = kelimeler & Mid(kelimeseti, sira, 1)
   Next i
 
   Cells(j + 10, 1).Value = kelimeler
 Next j
End Sub