Çözüldü Dinamik Değişken Oluşturmak

Jeeday · 18 Ocak 2021

Dim S0 As Worksheet
Dim O1 As Shape, O2 As Shape, O3 As Shape, O4 As Shape, O5 As Shape, O6 As Shape, O7 As Shape, O8 As Shape, O9 As Shape
Set S0 = Sheets("AKAD")

OYUNCU_ADET = InputBox("KAÇ KİŞİYLE OYNAMAK İSTİYORSUNUZ?")
OYUNCU = 1
H = 30
Do Until OYUNCU = OYUNCU_ADET
SET O1 = S0.Shapes.AddShape(msoShapeOval, 1116, H, 30, 30) 'BURADAKİ "O1" DEĞİŞKENİ "OYUNCU" DEĞERİ ARTTIKÇA O2, O3 GİBİ OLACAK...
OYUNCU = OYUNCU + 1
H = H + 30
Loop

wexplorerx · 18 Ocak 2021

Merhaba aşağıdaki gibi deneyebilirsiniz.

C++:

Dim S0 As Worksheet
Dim O1 As Shape, O2 As Shape, O3 As Shape, O4 As Shape, O5 As Shape, O6 As Shape, O7 As Shape, O8 As Shape, O9 As Shape
Set S0 = Sheets("AKAD")

OYUNCU_ADET = InputBox("KAÇ KİŞİYLE OYNAMAK İSTİYORSUNUZ?")
OYUNCU = 1
H = 30
Do Until CDBl(OYUNCU) = CDbl(OYUNCU_ADET) + 1
X = "O" & CDbl(OYUNCU)
Set X = S0.Shapes.AddShape(msoShapeOval, 1116, H, 30, 30) 'BURADAKİ "O1" DEĞİŞKENİ "OYUNCU" DEĞERİ ARTTIKÇA O2, O3 GİBİ OLACAK...
OYUNCU = OYUNCU + 1
H = H + 30
Loop

Jeeday · 19 Ocak 2021

Teşekkür ederim.

Peki diyelim userform kullanıyorum. Do until - loop döngüsünde aşağıda kırmızı ile işaretlediğim 1'leri nası 2,3,4... şeklinde arttırabilirim...

Kodun orijinali:
OY1 = SX.OYUNCU1.Value
Set O1 = S0.Shapes.AddShape(msoShapeOval, S0.[A1:AJ1].Width, 30, 30, 30)
O1.Line.Visible = False
Set ARA = SD.[A2:A10].Find(SX.RENK1.Value)
O1.Fill.ForeColor.RGB = SD.Cells(ARA.Row, ARA.Column).Interior.Color
O1.TextFrame.Characters.Text = OY1

NOT:
SX = Userform'un adı
OYUNCU1 = Textbox1'in adı

wexplorerx · 19 Ocak 2021

Do Until OYUNCU = OYUNCU_ADET

OYUNCU =OYUNCU +1
Loop

Jeeday · 19 Ocak 2021

Son verdiğim koddaki;
OY1
SX.OYUNCU1.VALUE
SET O1
O1.FILLCOLOR

'daki 1ler değişken olacak...

wexplorerx · 20 Ocak 2021

Merhaba aşağıdaki gibid deyebilirsin

OYUNCU_ADET = InputBox("KAÇ KİŞİYLE OYNAMAK İSTİYORSUNUZ?")

For i = 1 to OYUNCU_ADET
xShape = "0" & i

OY1 = SX.OYUNCU1.Value
Set xShape = S0.Shapes.AddShape(msoShapeOval, S0.[A1:AJ1].Width, 30, 30, 30)
xShape.Line.Visible = False
Set ARA = SD.[A2:A10].Find(SX.RENK1.Value)
xShape.Fill.ForeColor.RGB = SD.Cells(ARA.Row, ARA.Column).Interior.Color
xShape.TextFrame.Characters.Text = OY1

Next i

Jeeday · 20 Ocak 2021

OY1 = SX.OYUNCU1.Value
OY2 = SX.OYUNCU2.Value

olan kısmı nasıl halledeceğiz?
burası da 1'den başlayıp oyuncu adetine kadar değişmesi gerekiyor...

wexplorerx · 20 Ocak 2021

OYUNCU_ADET = InputBox("KAÇ KİŞİYLE OYNAMAK İSTİYORSUNUZ?")

For i = 1 to OYUNCU_ADET

xShape = "0" & i : yShape ="OY" & i

yShape= SX.OYUNCU1.Value

Set xShape = S0.Shapes.AddShape(msoShapeOval, S0.[A1:AJ1].Width, 30, 30, 30)

xShape.Line.Visible = False

Set ARA = SD.[A2:A10].Find(SX.RENK1.Value)

xShape.Fill.ForeColor.RGB = SD.Cells(ARA.Row, ARA.Column).Interior.Color

xShape.TextFrame.Characters.Text =yShape

Next i

Jeeday · 20 Ocak 2021

yShape= SX.OYUNCU1.Value

SX.OYUNCU2.Value
SX.OYUNCU3.Value

burası ne olacak?

wexplorerx · 20 Ocak 2021

Merhaba
Algoritmanda ciddi hata var sanırım , oyuncu sayısını 5.000 girerse kullanıcı ne olacak ?
5.000 tane textbox mı ekleyeceksiniz ? İlk sorunuzdan epeyce uzak şuan sorduğunuz sorular.
Ben tam anlayamadım ne yapmak istediğinizi

Jeeday · 20 Ocak 2021

toplam 9 adet oyuncu var. merak etmeyin

Jeeday · 20 Ocak 2021

size özelden dosyayı gönderebilirim isterseniz...

Jeeday · 20 Ocak 2021

kod çalışında bir userform açılıyor.
Oyuncu1: Textbox1 (OYUNCU1 - ismi) Combobox1 (RENK1- oyuncu rengi)
9 adet oyuncu var.

İsim ve renkler belirlendikten sonra hücrelere oyuncuların piyonlarını koyacağım. Yapmak istediğim o.

Jeeday · 22 Ocak 2021

bakabildiniz mi?

Jeeday · 25 Ocak 2021

ben çözdüm konuyu. teşekkür ederim gösterdiğin yol için

wexplorerx · 25 Ocak 2021

Merhaba
Rica ederim.