IZBORNIK HOME FORUM ACCESS 2003 EXCEL 2003 WORD 2003  .
   
   
HOME
FORUM Win Tips&Tricks
   
KAKO INSTALIRATI
WINDOWS XP ?
Kako instalirati Win XP sa USB STICKA
Kako instalirati WINDOWS 7 ?
Naučite za 15 minuta raditi u Windows XP
Naučite Internet Explorer i Outlook Express
za 15 minuta
Kako kreirati BOOT CD za instalaciju Win95
   
MS OFFICE 2003
MS OFFICE 2007
   
   
HOME NETWORK
tutorijal za mreže
Network Windows 7 - XP
   
ZANIMLJIVI LINKOVI
BROJEVNI SUSTAVI
(DEC, OKT, BIN, HEX )
CMD - Command Prompt
CISCO - CCNA tutoriali
VLSM and SUBNETTING
   
Tutorijali za phpBB forum
JAVASCRIPT
VISUAL BASIC 6.0
AUTOCAD 2007
 



MICROSOFT EXCEL 2007 - kako kopirati Specifične radne listove u novu excel datoteku i snimiti

Promjena podatka u ćeliji poslije pritiska na tipku Enter
(automatic replace cell after pressing Enter key)




Kako automatski promijeniti podatak u ćeliji nakon pritiska na tipku Enter

U koliko imate potrebu da upisujete određenu vrijednost ili tekstni podatak u nekoj ćeliji i nakon što pritisnete tipku ENTER, želite da se dotični podatak u ćeliji promijeni u neki drugi podatak ili vrijednost.

Prva situacija je slijedeća:
Imam stupac u kojem su imena djelatnika firme. S obzirom da znam njihove redne brojeve želim da upišem samo njihov redni broj i nakon pritiska na tipku Enter da mi se u dotičnoj ćeliji taj broj konvertira u ime i prezime dotičnog radnika.

Rješenje ovog zadatka (problema) možemo kreirati tako da svaku ćeliju u kojoj se nalazi ime i prezime radnika imenujemo (definiramo naziv ili Define Name). To imenovanje moramo osmisliti na najlakši način i da bude pamtljiv. S obzirom da ime neke ćelije ili raspona ne može biti broj ako koristimo brojeve tada upotrijebimo podvlaku (underline) ispred broja. To možemo napraviti na bilo kojem radnom listu (Sheetu)

Nadalje koristimo te definirane "unikatne" nazive za svakog djelatnika. Kada želimo napisati nečije ime jednostavno upišemo znak jednakosti i definirani naziv. npr: =_1 (ili ako smo slovima definirali imena tada =A)

Ovaj primjer može se iskoristiti i u drugim slučajevima gdje imamo puno teksta za pisanje.







Automatska zamjena podatka ćelije poslije pritiska na tipku ENTER

U drugom slučaju imamo situaciju da pišemo određene brojeve 1 ili 2 (a može i druge). Želimo da nam se ti brojevi nakon pritiska na tipku Enter preoblikuju u određeni znak ili tekst.

Za rješavanje ovakvog problema možemo koristiti VBA makronaredbu. Ovu makronaredbu kopirajte u VBE u dotični Sheet na kojem želite raditi ove radnje. (npr: ako radite na Sheet1 tada kliknite desnom tipkom miša na naziv Sheeta => View Code i kopirajte makronaredbu u Code Window). Morate imati dozvoljeno izvršavanje makronaredbi u Excelu, određena razina sigurnosti.

U ovom slučaju vezani smo za stupac "B". Kada u bilo kojoj ćeliji stupca B upišemo broj 1 ili 2 automatski će se dotični broj promijeniti u znak koji smo definirali u makronaredbi. Naravno ovdje možemo koristiti i imena djelatnika iz prvog primjera ili nekakav tekst koji je poduži.

Private Sub Worksheet_Change(ByVal Target As Range) 'promjena je trenutna nakon pritiska na tipku Enter
Dim xy As Integer
'definiranje xy
xy = ActiveCell.Row - 1
Select Case Range("B" & xy).Value
'raspon u kojem se sve događa je stupac B
Case 1: Range("B" & xy) = "/"
'zamjenjuje broj 1 sa znakom /
Case 2: Range("B" & xy) = "//"
 'zamjenjuje broj 2 sa znakom //
'Case 3: Range("B" & xy) = "tekst tekst"  'zamjenjuje broj 3 sa tekstnim podatkom "tekst tekst" itd itd

End Select
End Sub





©- 2006 - 2021 - IvanC  - Sva prava pridržana.  ic.ims.hr