Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
сравнить String в структуре IF..ELSE че ту неправельно???
 
#1
05.03.2011 01:43:43
Private Sub Btn_Generar_Click()  
   Dim j, k, inicio, fin As Integer  
   Dim equipo1, equipo2 As String  
   Dim salir As Boolean  
     
   salir = False  
   inicio = 3  
   fin = 22  
     
   For j = inicio To fin  
       equipo1 = EquipoAlter()//выбираю рандомно команду футбольную  
       equipo2 = EquipoAlter()  
         
       While Not salir //крутим цикл пока небудет "лош", лош в том случаи если команды разные  
         If equipo1 = equipo2 Then //сравниваю их но почемуто не работает  
        equipo1 = EquipoAlter()//задаем новые команды  
        equipo2 = EquipoAlter() //тоже новая команда  
//значение salir не меняю на "лош" потомучто и так будет крутить пока оно неизменится в ельсе  
        Else  
           salir = True //в случаи команды разные то выходим с цикла  
        End If  
                     
  Wend  
       //передаю на ячейки переменые  
       Hoja3.Cells(j, 1) = equipo1  
       Hoja3.Cells(j, 3) = equipo2  
   Next j  
End Sub
 
 
 
#2
05.03.2011 10:23:32
Попробуй функции Lcase()или Ucase() ,Trim() для переменных quipo1 и quipo2
 
 
 
#3
08.03.2011 02:24:45
ЛЕС-ты случайно не донецкий Лес???))))  
смотрю команды,небось футбольные?
 
 
 
#4
08.03.2011 06:18:12
Попробуйте так:  
 
 
 
Private Sub Btn_Generar_Click()  
   Dim j As Integer, k As Integer, inicio As Integer, fin As Integer  
   Dim equipo1 As String, equipo2 As String    ' так будет правильно  
   inicio = 3: fin = 22  
 
   For j = inicio To fin  
       equipo1 = EquipoAlter()    'выбираю рандомно команду футбольную  
       equipo2 = EquipoAlter()  
 
       While equipo1 = equipo2    'в случае, если команды разные, выходим с цикла  
           equipo1 = EquipoAlter()    'задаем новые команды  
           equipo2 = EquipoAlter()    'тоже новая команда  
       Wend  
         
       'передаю на ячейки переменые  
       Hoja3.Cells(j, 1) = equipo1  
       Hoja3.Cells(j, 3) = equipo2  
   Next j  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
10.03.2011 21:11:15
Всем отписавшимся спасибо. помогли:)) Оч признателен  
п.с. Не, я не донецкий :))
 
 
 
#6
10.03.2011 21:13:22
{quote}{login=EducatedFool}{date=08.03.2011 06:18}{thema=}{post}Попробуйте так:  
 
 
 
Private Sub Btn_Generar_Click()  
   Dim j As Integer, k As Integer, inicio As Integer, fin As Integer  
   Dim equipo1 As String, equipo2 As String    ' так будет правильно  
   inicio = 3: fin = 22  
 
   For j = inicio To fin  
       equipo1 = EquipoAlter()    'выбираю рандомно команду футбольную  
       equipo2 = EquipoAlter()  
 
       While equipo1 = equipo2    'в случае, если команды разные, выходим с цикла  
           equipo1 = EquipoAlter()    'задаем новые команды  
           equipo2 = EquipoAlter()    'тоже новая команда  
       Wend  
         
       'передаю на ячейки переменые  
       Hoja3.Cells(j, 1) = equipo1  
       Hoja3.Cells(j, 3) = equipo2  
   Next j  
End Sub{/post}{/quote}  
я так зделал:  
Dim j, k, s, t, inicio, fin As Integer  
   Dim equipo1, equipo2 As Integer  
     
   s = 1: t = 3  
   inicio = 3: fin = 22  
     
   For j = inicio To fin  
       Do  
           equipo1 = NumeroAlter()  
           equipo2 = NumeroAlter()  
       Loop While equipo1 = equipo2  
       Hoja3.Cells(j, s) = EquipoAlter(equipo1)  
       Hoja3.Cells(j, t) = EquipoAlter(equipo2)  
   Next j  
End Sub
 
 
 
#7
10.03.2011 21:26:31
"я так зделал:  
Dim j, k, s, t, inicio, fin As Integer  
Dim equipo1, equipo2 As Integer"  
Лес, Вам же показывают, КАК нужно объявлять типы переменных - для КАЖДОЙ указывать тип, а Вы что делаете?
 
 
 
#8
10.03.2011 21:29:05
{quote}{login=Юрий М}{date=10.03.2011 09:26}{thema=}{post}"я так зделал:  
Dim j, k, s, t, inicio, fin As Integer  
Dim equipo1, equipo2 As Integer"  
Лес, Вам же показывают, КАК нужно объявлять типы переменных - для КАЖДОЙ указывать тип, а Вы что делаете?{/post}{/quote}ç  
 
а разве ефект не тот самый?? Визуал Басик очень "гибкий" азик..
 
 
 
#9
10.03.2011 21:31:54
{quote}{login=Юрий М}{date=10.03.2011 09:26}{thema=}{post}"я так зделал:  
Dim j, k, s, t, inicio, fin As Integer  
Dim equipo1, equipo2 As Integer"  
Лес, Вам же показывают, КАК нужно объявлять типы переменных - для КАЖДОЙ указывать тип, а Вы что делаете?{/post}{/quote}  
 
они у меня интежер, я сначала работаю с цифрами,  и как точно знаю что цифры разные то тогда перевожу их в имя команды. тоесть:Dim equipo1, equipo2 As Integer у мня а у EducatedFool так: Dim equipo1 As String, equipo2 As String    
 
тоесть они разные.
 
 
 
#10
10.03.2011 21:47:59
Вот здесь  
Dim equipo1, equipo2 As Integer    
"интежер" только equipo2, а equipo1 - вариант!
 
 
 
#11
11.03.2011 00:02:45
{quote}{login=}{date=10.03.2011 09:47}{thema=}{post}Вот здесь  
Dim equipo1, equipo2 As Integer    
"интежер" только equipo2, а equipo1 - вариант!{/post}{/quote}  
 
ясно, спасибо - будем знать! :))
 
 
 
Страницы: 1
Читают тему
Наверх