...birleştirebilirim.
ÖRNEK: Ali dün 12 soru , bugün 15 soru çözmüştür.Ali iki günde toplam kaç soru çözmüştür? Bu problemdeki 12 ve 15 sayıları başka sayfadan rastgele arada olarak yada belirli bir kurala göre çekmek istiyorum.=Sayfa1!Z2 kodunu bu problemdeki 12 yada 15 yerine nasıl yazabilirim?
Boş bir excel açtım.
A sütununa bir başlık ekledim.
Altına rastgele veriler yazdım. Sizin kriterleride yazdım.
Sonra MAKRO KAYDET yöntemi ile gerekli filtre işlemini yaptım. Oluşan kodu aşağıdaki gibi düzenledim.
Oluşan Kod;
Sub Makro1()
'
' Makro2 Makro
'
'...
Merhaba.
Kod ile işinizi görürse
Sub Test()
Dim Harfler As String
Dim Bak As Integer
Dim Rastgele As Integer
Harfler = "ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ"
For Bak = 1 To 29
Rastgele = Int((Len(Harfler) * Rnd) + 1)
Cells(Bak, 1).Value = Mid(Harfler, Rastgele, 1)...
Arkadaşlar, sayın hocalarım, belki size basit gelecek ama A1'den A29'a kadar. Harfleri rastgele nasıl yazdırabilirim. Yaptım aslında ama mükerrer oluyor. Her harf sadece 1 kere olacak. 29 satır olacak. Yardımcı sütun da kullandım. Mükerrer harf oluyor.
Teşekkür ederim. Saygılarımla.
Merhaba herkese;
Excelde benim belirlediğim değerler arasında rastgele sayı oluşturmasını istiyorum örnek olarak ben 40,15 ile 45,27 değerlerini girdiğimde bana 25 adet bu değerler arası ondalıklı sayı vermesini istiyorum.
=A2+(B2-A2)*RASTGELE()
bu şekilde formuller buldum ama işe yaramadı...
...bulunun ortaokul (5-6-7-8. Sınıf) öğrencileri için hazırladığımız hedefler dosyasında "Bilgi Girişi" sayfasında Adı Soyadı ve sınıfları rastgele yazılan öğrencilerden alınan hedeflerin, sınıflarına göre ayırmış olduğumuz diğer sekmelere (5.sınıf Test) kendi sınıfından en fazla 20 kişi olacak...
Hocam ilgi ve alakanız için çok teşekkür ederim.
Şu an ufak bir sıkıntı var, A sütunu 2. satırdan başlıyor, yalnız B sütununa yazarken 1. satırdan başlıyor.
ws.Range("B2").Resize(sonSatir, 1).Value = degerler
şeklinde düzenledim, bu seferde en altta bir satır fazla yazıyor.
Çok önemli değil...
istediğini kodlar.
Sub RastgeleSirala()
Dim ws As Worksheet
Dim sonSatir As Long
Dim degerler As Variant
Dim i As Long, j As Long, temp As Variant
' Çalışma sayfasını belirt (Sayfa1 yerine gerçek sayfa adınızı kullanın)
Set ws = ThisWorkbook.Worksheets("Sayfa1")
'...
...Sayfada A sütununda yer alan yaklaşık 1000 satırda birbirinden farklı değerler yazılı;
yapmak istediğim "A" sütununda yazan bu değerleri rastgele(karışık) olarak B sütunundaki satırlara dağıtması,
Özetle A sütununda sıralı bir şekilde yazan değerleri B sütuna karışık olarak yazılması ...
...' Tek seferde yazılacak dizi için boyut belirleme
ReDim dataArray(1 To numCount, 1 To 1)
' Rastgele benzersiz sayıları üret
Randomize
i = 1
Do While i <= numCount
Dim randNum As Long
randNum = Int((999999) * Rnd + 1)
' Eğer sayı daha...
...Next i
' Sayıları karıştırmak (Fisher-Yates algoritması)
For i = n To 2 Step -1
randIndex = Int((i - 1 + 1) * Rnd + 1) ' Rastgele indeks
temp = numList(i)
numList(i) = numList(randIndex)
numList(randIndex) = temp
Next i
' İlk 8000 sayıyı...
...Next i
' Sayıları karıştırmak (Fisher-Yates algoritması)
For i = n To 2 Step -1
randIndex = Int((i - 1 + 1) * Rnd + 1) ' Rastgele indeks
temp = numList(i)
numList(i) = numList(randIndex)
numList(randIndex) = temp
Next i
' İlk 8000 sayıyı aktif...
100 ile 300 arasinda 30 tane sayi oluştur. Sonra bu sayilarin normal dagilim olup olmadığına bak. Eger normal dağılım ise diger islemlere gec. Normal dagilim degil ise rakamlari degistir. Normal dagilim yapmaya calis. Normal dagilim olduktan sonra diger islemleri yap
...oluşturduğunuz veriler için histogram grafiğini çiziniz.
gibi şeyler isteniyor. Bu ne anlama geliyor acaba? Soldan sağa ve üstten aşağı 30 adet Gözlem1 anlamına gelen G1 yazdım. Öyle mi olacak yoksa sadece yukarıdan aşağıya G1den G30a kadar yazıp yanlarına rastgele sayılar yazmak yeterli mi?
...olarak aşağıdaki çözümü inceleyiniz. # ve $ karakterleri için yazılı. Açıklamaları okuyup, seçtiğiniz karakterlere göre düzenleyiniz.
Sub RastgeleKarakterBirleştir()
Randomize Timer
Dim ifade1 As String
Dim ifade2 As String
Dim birlesim As String
Dim sonuc As String...
Rastgele arada ile sayı oluşturup oluşan sayı kadar otomatik imgeleri çoğaltabilir miyim?Örnek ektedir.
https://docs.google.com/spreadsheets/d/1IH1mMrJiwN30LYd2LYoeDRnWj3E5uN8K/edit?usp=sharing&ouid=111067043006256854833&rtpof=true&sd=true
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.