[Yardım]  Değer Atama

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Değer Atama

İleti#1)  Adıgüzel » 10 Oca 2021 22:30

Merhaba yazdığım kodda bir yerde takıldım.

(E5)Hücrede yer alan 6 harf "ABCDEF" aşağıdaki hücrelere rassal bir şekilde dağılmalı.(F-K arası )İlk hücredeki harf ile de sondaki harf( Fve L'deki) aynı olmalı.

Daha sonra da (sağ üst köşedeki gibi) harflerin üstünde yer alan rakamların uygun harfin altına gelecek şekilde olan bir kodu yazamadım.

Yardımcı olabilir misiniz?
alıntı.JPG
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Adıgüzel
 
Kayıt: 01 Oca 2021 13:00
Meslek: öğrenci
Yaş: 22
İleti: 9
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

Cevap: Değer Atama

İleti#2)  halily » 10 Oca 2021 23:18

konumlar sabit mi değişken mi?
harf sayısı sabit mi değişken mi
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 232
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Değer Atama

İleti#3)  Adıgüzel » 11 Oca 2021 00:03

halily yazdı:konumlar sabit mi değişken mi?
harf sayısı sabit mi değişken mi

Konumlar ve harf sayısı ikisi de sabittir.
Kullanıcı avatarı
Adıgüzel
 
Kayıt: 01 Oca 2021 13:00
Meslek: öğrenci
Yaş: 22
İleti: 9
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

Cevap: Değer Atama

İleti#4)  Erkan Akayay » 11 Oca 2021 01:41

Dosyanızdaki konumlara göre kodunuz

Kod: Tümünü seç
Sub test()

Dim harf As String, kelime As String, pozisyon As Integer, i As Integer, alan As Range

Randomize
kelime = "abcdef"
   
    For i = 1 To Len(kelime)
        harf = VBA.Mid(kelime, i, 1)
        pozisyon = VBA.Int((Len(kelime)) * VBA.Rnd + 1)
        Mid(kelime, i, 1) = VBA.Mid(kelime, pozisyon, 1)
        Mid(kelime, pozisyon, 1) = harf
    Next i
   
    dizi = (Split(UCase(StrConv(kelime, 64)), Chr(0)))
    dizi(UBound(dizi)) = dizi(0)
   
    Range("F7").Resize(, UBound(dizi) + 1) = dizi
   
    For j = 6 To 12
    Set alan = Range("K3:P3").Find(Cells(7, j).Value)
        Cells(8, j).Value = alan.Offset(-1, 0).Value
    Next
    Erase dizi: kelime = vbNullString: harf = vbNullString: i = Empty: j = Empty: pozisyon = Empty

End Sub
Sorularınızı düzgün bir Türkçe ile detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Alıntı ile gereksiz şişirilen başlıkları takip edemiyorum. Lütfen Cevap Yaz butonunu kullanın.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 50
İleti: 4218
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yalova

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Değer Atama

İleti#5)  Adıgüzel » 11 Oca 2021 11:17

Çok teşekkür ederim.
Kullanıcı avatarı
Adıgüzel
 
Kayıt: 01 Oca 2021 13:00
Meslek: öğrenci
Yaş: 22
İleti: 9
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 1 misafir

Bumerang - Yazarkafe