Red de conocimiento informático - Conocimiento informático - Ayuda para escribir programas, excel vba o VB, vc, ambos son aceptables

Ayuda para escribir programas, excel vba o VB, vc, ambos son aceptables

"¿Sin optimización? ¿Programación qq19443156?

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?