Erotisi gia excell

[badvariemai]

Paidia xreiazomai tin voitheia sas sto exis

thelw na grapsw se ena keli ena keimeno pou na periexei ena noumero pou na auxanei kata 1 pros ta katw...px

 

tret:dgf=05346,DN=20000,tyurt=90,rtyru=90,rtutr=pb,cos=cwact;

tret:dgf=05346,DN=20001,tyurt=90,rtyru=90,rtutr=pb,cos=cwact;

 

Gnwrizei kaneis pws mporei na ginei auto... exw dokimasei na to grapsw se xechwrista kelia kai meta na to swsw san txt alla dipla apo to ; evgaine "... kammia idea?

[gv]

tools - macro - macros

dose ena macro_name kai pata create

kane paste ta parakato kai pata F5 (gia na tin tre3eis)

paradeigma timon pou mporeis na doseis

 

2

3

20000

20006

 

'arxi kodika

Dim r As Integer

Dim c As Integer

Dim sva As Integer

Dim fva As Integer

Dim k As Integer

 

r = InputBox("dose ari9mo grammis ekkinisis")

c = InputBox("dose ari9mo kolonas")

sva = InputBox("dose arxiki timi metavlitis")

fva = InputBox("dose teliki timi metavlitis")

 

k = sva

 

For ro = r To fva - sva + 2

ActiveSheet.Cells(ro, c) = "tret:dgf=05346,DN=" & k & ",tyurt=90,rtyru=90,rtutr=pb,cos=cwact;"

k = k + 1

Next ro

'telos kodika

[badvariemai]

Ekana oti mou grafeis alla mou vgazei runtime error kai mou zitaei kati na grapsw... px mou leei 2 kai apo katw exei ena keno, an grapsw kati paei stin alli metavliti k kanei ta idia. an den grapsw tpt vgazei runtime error... thanx pantws

[badvariemai]

File mou telika ok doulepse... eixa kanei vlakeia otan eftiaxna tin macroentoli... twra ola entaxei... alitheia an itela na allazei kai kapoio allo noumero tis idias seiras pws tha ginota? euxaristw poli...

 

<small>[ 18-07-2002, 04:14: Το μήνυμα επεξεργάστηκε από: badvariemai ]</small>

[gv]

Dim r As Integer

Dim c As Integer

Dim sva1 As Integer

Dim fva1 As Integer

Dim sva2 As Integer

Dim k1 As Integer

Dim k2 As Integer

 

r = InputBox("dose ari9mo grammis ekkinisis")

c = InputBox("dose ari9mo kolonas")

sva1 = InputBox("dose arxiki timi metavlitis 1")

fva1 = InputBox("dose teliki timi metavlitis 1")

sva2 = InputBox("dose arxiki timi metavlitis 2")

 

k1 = sva1

k2 = sva2

 

For ro = r To fva1 - sva1 + 2

ActiveSheet.Cells(ro, c) = "aaa" & k1 & "bbb" & k2 & "ccc"

k1 = k1 + 1

k2 = k2 + 1

Next ro

 

<small>[ 19-07-2002, 00:30: Το μήνυμα επεξεργάστηκε από: gv ]</small>

[badvariemai]

euxaristw poli file kai pali...

[badvariemai]

Proekipse kai alli aporia... einai kati pio poliploko... thelw autes oi dio seires na emfanizontai polles fores os exis

 

aa aaa:aa=T!,aaa=0250-x!-y!-z!,aaa=aa,aaaaa=aa,aaa=3333,aaa1=999,

#aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa;

 

i metavliti T! na auxanei kata 1 sinexws

i metavliti z! apo to 1 ws to 15

i metavliti y! auxanei kata 1 kathe fora pou simplirwnetai mia 15ada tis z! (episis y! apo 1 ws 15)

i metavliti x! auxanei kata 1 kathe fora pou oloklirwnetai mia 15ada tis y!

 

Mas endiaferei i metavliti T! as poume theloume apo tin timi 10000 ws 12000 ta alla tha xekinoun apo 0-0-0 kai tha auxanoun...

Einai ligo poliploko to xerw alla fantazomai oxi poli diskolo an mporeis file gv (i k opoios allos mporei) as voithiseis... Thanx k pali...

[badvariemai]

Mallon einai pio poliploko apo oti nomiza... estw kapoia idea re paidia...

[gv]

arx_t = InputBox("dose arxiko T")

tel_t = InputBox("dose teliko T")

 

z = 1

y = 1

x = 1

 

For t = 1 To tel_t - arx_t + 1

 

If z = 16 Then

y = y + 1

z = 1

End If

 

If y = 16 Then

x = x + 1

y = 1

End If

 

ActiveSheet.Cells(2 * t + 1, 1) = "aa aaa:aa=" & arx_t + t - 1 & "!,aaa=0250-" & x & "!-" & y & "!-" & z & "!,aaa=aa,aaaaa=aa,aaa=3333,aaa1=999,"

If t <> 1 Then ActiveSheet.Cells(2 * t, 1) = "#aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa;"

 

z = z + 1

 

Next t

[gv]

re megale ti ta 9es auta mporeis na mou peis ? <img border="0" title="" alt="[Cool]" src="images/icons/cool.gif" />

[badvariemai]

Se ena programma pou prepei na dilwsoume arketes times... kai enai xiliades kai aporousa pws to ekanan oi alloi. Alla k gia ekpaideutikous logous na ipothesw oti exoun sxesi me visual basic etsi?

Euxaristw pantws poli re file...

[gv]

Ta prota paradeigmata ginontai kai xoris VB px. A1=aaa B1=1 C1=bbb kai D1 = A1 & B1 & C1.

An arxiseis na au3aneis to B kata 1 kai gemiseis to D exeis mia ekfrasi pou enas xaraktiras tis au3anei kata 1.

 

To teleutaio omos erotima soy, mou fenetai pos vgainei pio eukola me VB.

 

Auta kai an vre9oume pote .... kernas kafe. <img border="0" title="" alt="[big Grin]" src="images/icons/grin.gif" />