Ayuda para escribir programas, excel vba o VB, vc, ambos son aceptables
Sub? Button1_Click()
bbbb:
¿Número de reordenamientos? =? 1
Rango ("A1").Select
ActiveCell.Formula R1C1?=?"=RAND()"
Rango("A1").Select
Selección .AutoFill?Destino:=Rango("A1:A100")
Rango("A1:A100").("B1").Select
ActiveCell.FormulaR1C1 =? " =RANGO(RC[-1],R1C1:R100C1)-1"
Rango("B1").Seleccione
Selección.AutoRelleno?Destino:=Rango( "B1 :B100")
Rango("B1:B100" ).Select
Rango("B1:B100").Select
ActiveCell.FormulaR1C1 ?= ?Seleccionar
Rango("P13").Seleccionar
ActiveCell.FormulaR1C1?=?" =SUM(R[-10]C[-9]:R[- 1] C)"
Columnas("B:B").Select
Selection.PasteSpecial?PasteSpecial?Paste:=xlPasteValues,?Operation:=xlNone,?SkipBlanks?_
:=False,?Transpose:=FalseRange("G3:P12").Select
Selección.
>Selection.ClearContents
Fila actual=?3
For?i?=?1?To?100
If?Range("c"? & ?i)? >?-Entonces
Rango("g"? &? Fila actual)? =?Rango("c"? &? i)
Fila actual? ¿DE ACUERDO? +?1
Rango("c"? &?i)? =?0
Fin?Si
Siguiente?i
aaa:
¿Para?
Si?Range("p"? &?hang)?
shiwei?=?" s "? &?Derecha(Rango("g"? &?hang),?1)
gewei?="? g"? &?Derecha("g"? &?hang), ?1)
¿Para?
¿Para?i?=?1?A?100
If?Range("c"? &?i)? >?0?Entonces
Si?(Rango("c"? &?i)?
tempshi?=?"0"
tempge?=?Range("c"? &?i)? &?"
Else
tempshi?=?Left(Range("c"? &? i),?1)? &?""
tempge?=?Derecha(Rango("c"? &?i),?1)?
'MsgBox?"["? [" ? &?gewei?&?"]" ? &?tempshi?&?"/"? &?tempge
If?InStr(shiwei,?tempshi)? >?0?Or?InStr (gewei,?tempge)? >?0?O?InStr(shiwei,?tempge)? >?0?Y?(InStr(shiwei,?tempge)? =?InStr(gewei,?tempshi))? p>
Else
'MsgBox?"["?["? &?gewei?&?"]" ? &?tempshi?&?"/"? &?tempge
Celdas(hang,?lie)? =?Rango("c"? &?i)
shiwei?=?shiwei?&?tempshi
gewei?=? gewei?&?tempge Range("c"? &? i)?i)? >¿Fin?Si
¿Siguiente?i
¿Siguiente?lie
If?Range("p"? &?hang)?
'MsgBox?"Volver"
Para?lie?=?8?to?16
If?Cells(?hang,?lie)? > ?0?Entonces
¿Para?
Si?Rango("c"? &?ii)? =?0?Entonces
Rango("c" ?&
amp;?ii)? =?Cells(hang,?lie)
¿Salir?Para
Fin?Si
Siguiente?ii
Celdas(colgar,?mentir)? =?0
¿Fin?Si
¿Siguiente?mentir
Fin?Si
¿Fin?Si
Fin?Si
Siguiente?colgar
Si?Rango("p13")?<>?4950?Entonces
Columnas("B:B").Seleccionar
Selección.Copiar
Columnas("D:D").Seleccionar
Selección.PegarEspecial? Pegar :=xlPasteValues,?Operación:=xlNone,?SkipBlanks?_
:=False,?Transpose:=False
Columnas("C:D").Select
Application.CutCopyMode?CutCopyMode?=?False
Selection.Sort?Key1:=Range("D1"),?Order1:=xlAscending,?Header:=xlGuess,? /p>
OrderCustom:=1,?MatchCase:=False,?Orientation:=xlTopToBottom,?SortMethod?_
:=xlPinYin,?DataOption1:=xlSortNormal
Columns("D:D").Select
Selection.ClearContents
'MsgBox?"Rearrange"
¿Número de reordenamientos? Número de reordenamientos
Si el número de reordenamientos es 30, entonces
GoTo?bbb
Finalizar si
GoTo?aaa
Finalizar si
'MsgBox?Reorganizar número
Columnas("A:C").Selection.ClearContents
Rango("P13" ).Seleccionar
Selección.BorrarContenido
¿Fin?