Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Anulare contract vanzare cumparar...

scoala postliceala sanitara si hi...

Copiere 2 sau mai multe valuri cu...
 La multi ani @AlexFCSB4!

La multi ani @silcar!

La multi ani @Cipry7!

Intretinere F30 vs Audi A4 vs Mer...
 drept de autor pentru o poezie

Inlocuire lichid cooler procesor ...

Baterie atv

Proroblema cu centre de greutate
 Gasire cheie in iarba

Contract nou cablu/internet fix

aparat auditiv

Casa marcat pentru PFA
 

Creare macro pt Excel

- - - - -
  • Please log in to reply
5 replies to this topic

#1
maciu1

maciu1

    Junior Member

  • Grup: Members
  • Posts: 131
  • Înscris: 25.09.2002
Salut!

Va cer ajutorul pentru crearea unui macro pt Excel. Ideea e urmatoarea: am o coloana cu x celule "pline". Vreau ca la "textul" (caracterele sau cum se numesc) ce se gaseste in fiecare celula, sa adaug (cu ajutorul comenzii alt+enter), un text predefinit (ex: subaru).

Nu am tangenta cu programarea, incerc doar sa-mi usurez munca. Am cunostiinte foarte limitate de programare si nu reusesc sa creez macroul asa cum trebuie...nu imi iese reiteratia asa cum ar trebui...
Sper ca din poza si din editarea macro-ului sa ma puteti ajuta

Multumesc frumos!

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/26/2010 by User
'
' Keyboard Shortcut: Ctrl+m
'
    Dim i As Single
    For i = 1 To 8 Step 1
       Range("D7").Select
    ActiveCell.FormulaR1C1 = "subaru"
    Cells(i, "a").Select     ------------------------------------------------ aici cred ca e buba
     ActiveCell.FormulaR1C1 = "sadf" & Chr(10) & "subaru" ---------- si aici
    With ActiveCell.Characters(Start:=1, Length:=11).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Next i
    End Sub

Attached Files



#2
Sandstorm

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
De ce te complici cu macro atunci cand poti si cu formule.
Folosesti o formula care sa concateneze Subaru cu textul din celelalte celule (vezi atasament).
Trebuie doar sa pui alta masina in loc de subaru si formula face toata treaba.

#3
maciu1

maciu1

    Junior Member

  • Grup: Members
  • Posts: 131
  • Înscris: 25.09.2002
Stiu de efectul formulei "concatenate", dar pentru tabele multe si lungi ca numar de celule imi e mult mai util sa aplic un macro.

#4
tibizar

tibizar

    New Member

  • Grup: Members
  • Posts: 3
  • Înscris: 30.06.2010

View PostSandstorm, on 26th June 2010, 20:45, said:

De ce te complici cu macro atunci cand poti si cu formule.
Folosesti o formula care sa concateneze Subaru cu textul din celelalte celule (vezi atasament).
Trebuie doar sa pui alta masina in loc de subaru si formula face toata treaba.


sal,
nu stiu daca e bine sa scriu aici, sunt nou si inca nu m-am obisnuit cu acest forum
m-ar interesa daca poti sa ma ajuti sa modific un macro; am macro facut, tastez litera "a" si intr-o anumita coloana afiseaza ora
Sub on_keypress_activate_a()

u = 7
While Cells(u, 6) <> ""
u = u + 1
Wend

Cells(u, 6) = Time

End Sub

cum pot schimba sa afiseze ora,zi,luna, an?
ms

#5
gabirds

gabirds

    Junior Member

  • Grup: Members
  • Posts: 129
  • Înscris: 09.10.2006

View Posttibizar, on 30th June 2010, 15:41, said:

sal,
nu stiu daca e bine sa scriu aici, sunt nou si inca nu m-am obisnuit cu acest forum
m-ar interesa daca poti sa ma ajuti sa modific un macro; am macro facut, tastez litera "a" si intr-o anumita coloana afiseaza ora
Sub on_keypress_activate_a()

u = 7
While Cells(u, 6) <> ""
u = u + 1
Wend

Cells(u, 6) = Time

End Sub

cum pot schimba sa afiseze ora,zi,luna, an?
ms

ciao!

modifica Cells(u, 6) = Time
cu
Cells(u, 6) = Time & " - " & Date

#6
tibizar

tibizar

    New Member

  • Grup: Members
  • Posts: 3
  • Înscris: 30.06.2010

View Postgabirds, on 2nd July 2010, 21:10, said:

ciao!

modifica Cells(u, 6) = Time
cu
Cells(u, 6) = Time & " - " & Date


ms! a mers
stii cum se poate face un macro ca fisierul sa se salveze singur dupa o saptamana?

View Postgabirds, on 2nd July 2010, 21:10, said:

ciao!

modifica Cells(u, 6) = Time
cu
Cells(u, 6) = Time & " - " & Date


ms! a mers
stii cum se poate face un macro ca fisierul sa se salveze singur dupa o saptamana?

View Postgabirds, on 2nd July 2010, 21:10, said:

ciao!

modifica Cells(u, 6) = Time
cu
Cells(u, 6) = Time & " - " & Date


ms! a mers
stii cum se poate face un macro ca fisierul sa se salveze singur dupa o saptamana?

Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate