Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Beyin Fırtınası
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Beyin Fırtınası Bu başlıkta, ilginç olduğunu düşündüğünüz sorularınızı, bir problem şeklinde sorabilir, alternatif olduğunu düşündüğünüz çözümlerinizi paylaşabilirsiniz. (Bu başlıkta yeni konu açılması onaya bağlıdır.)
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 29-01-2010, 16:28   #11
dizemen
 
Giriş: 29/01/2010
Şehir: manisa
Mesaj: 4
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

güvenlik ayarlarını en düşük moda almama rağmen güvenlik hatası verdi neden yapabilir
dizemen Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-02-2010, 10:38   #12
elif196
 
Giriş: 19/09/2008
Şehir: istanbul
Mesaj: 6
Excel Vers. ve Dili:
2007 enterprise
Varsayılan 3 haneli

Alıntı:
xxcell tarafından gönderildi Mesajı Görüntüle
Herkese Selam,

İhtiyaç duyduğum bir konuda aşağıda anlatacağım husus hakkında bir kod geliştirmem gerekti ve birkaç değişik alternatif ile sorunumu çözdüm.

Sonra bu konunun Kod Geliştirme Açısından güzel bir konu olduğunu, Beyin Fırtınası açısından iyi bir örnek teşkil ettiği kanaatine nayil olup, tarafınıza yayınlamayı uygun buldum.

Soru şu'dur;

3 Haneli, 1 – 2 – A karakterlerinden oluşan bir Metinsel İfadenin alabileceği değerler.

1 1 1
1 1 2
1 1 A
1 2 1
1 2 2
1 2 A
1 A 1
1 A 2
1 A A
2 1 1
2 1 2
2 1 A
2 2 1
2 2 2
2 2 A
2 A 1
2 A 2
2 A A
A 1 1
A 1 2
A 1 A
A 2 1
A 2 2
A 2 A
A A 1
A A 2
A A A

Yukarıdaki gibi olup toplam 27 tanedir.

Örneğin toplam uzunluğu 6 Haneli, Herhangi Bir Harf Ya da Sayılardan oluşan bir Metinsel İfadenin Alabileceği Değerleri bulan Kod (yada fonksiyon) alternatifleri nelerdir?

Herkese iyi çalışmalar.



Makro yazmaya yeni başlayan biri olarak 3 haneli sorunun cevabını ekte gönderiyorum.
6 haneli için de bir çalışma yapacağım.

İyi çalışmalar herkese.

Dosya eklemede bir problem olmuştur.



Sub deneme()
Dim a
Dim b
Dim c


For a = 1 To 3
For b = 1 To 3
For c = 1 To 3



If (a = 3) And (b = c) And (c = 3) Then
a = "A"
b = "A"
c = "A"

ElseIf (a = 3) And (b = 3) Then
a = "A"
b = "A"
ElseIf (b = 3) And (c = 3) Then
b = "A"
c = "A"
ElseIf (a = 3) And (c = 3) Then
a = "A"
c = "A"

ElseIf a = 3 Then
a = "A"

ElseIf b = 3 Then
b = "A"

ElseIf c = 3 Then
c = "A"
End If
abc = a & b & c

MsgBox abc

If (a = "A") And (b = "A") And (c = "A") Then

a = 3
b = 3
c = 3


ElseIf (a = "A") And (b = "A") Then
a = 3
b = 3

ElseIf (b = "A") And (c = "A") Then
b = 3
c = 3

ElseIf (a = "A") And (c = "A") Then
a = 3

c = 3

ElseIf a = "A" Then
a = 3

ElseIf b = "A" Then
b = 3

ElseIf c = "A" Then
c = 3
End If



Next
Next
Next


End Sub

Bu mesaj en son " 01-02-2010 " tarihinde saat 10:41 itibariyle elif196 tarafından düzenlenmiştir.... Neden: Dosya ekleme problemi
elif196 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2013, 14:25   #13
cranehook
 
Giriş: 09/12/2012
Mesaj: 3
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Selam herkese ;

MANTIĞININ BENZER OLACAĞINI DÜŞÜNDÜĞÜM,
BİR PROBLEMİM VAR

elimde
75,80,100,120,150 sayıları var,

bu sayılar ile 1200 rakamına ulaşmak istiyorum.

En fazla 11 sayı kullanmak zorundayım.

Her sayıyı birden fazla kullanabilirim (en fazla 11)

bu sayıları örnek olarak verdim .. Amac mantığını kavramak

bana bu sayılarla sonuca ulaşılacak tüm kombinasyonları verebilecek bir makro nasıl yazılabilir?
Eklenmiş Dosyalar
Dosya Türü: xls ÖRNEK.xls (17.5 KB, 16 Görüntülenme)
cranehook Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 04:32


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden