Forum » Programiranje » Excel IF in macro
Excel IF in macro
jackson3 ::
Pozdravljeni.
Mi lahko kdo pove kako bi v eno celico združil več IF formul:npr. če je A1=1 je B1=1, če je A1=2 je B1=2,A1=3 B1=3..itn.Proval sem združit več IF funkcij B1=IF(A1=1;1;0),IF(A1=2;2;0)...pa ne gre.Ali pa kaka druga funkcija?
In pa če obstaja funkcija ki pi mi priklicala določen makro.
Hvala
Mi lahko kdo pove kako bi v eno celico združil več IF formul:npr. če je A1=1 je B1=1, če je A1=2 je B1=2,A1=3 B1=3..itn.Proval sem združit več IF funkcij B1=IF(A1=1;1;0),IF(A1=2;2;0)...pa ne gre.Ali pa kaka druga funkcija?
In pa če obstaja funkcija ki pi mi priklicala določen makro.
Hvala
jackson3 ::
Z IF-om je šlo- =IF(B10=1;HYPERLINK("c:\file1";"OK");IF(B10=2;HYPERLINK("c:\file2";"OK");IF(B10=3;HYPERLINK("c:\file3";"OK");IF(B10=4;HYPERLINK("c:\file4";"OK");"NAPAKA")))).
Kaj pa makroji?
Kaj pa makroji?
snow ::
2 opciji
Sub test_if()
r = "nic"
v = Range("B10").Value
If v = "1" Then
r = "11"
End If
If v = "2" Then
r = "22"
End If
Range("A1").Value = r
End Sub
Sub test_switch()
v = Range("B10").Value
Range("A1").Value = Switch(v = "1", 11, v = "2", 22, True, "nic")
End Sub Random mutation plus nonrandom cumulative natural selection - Richard Dawkins
jackson3 ::
snow hvala. Tudi makro mi bo prav prišel. Ampak pri konkretnem primeru sem z IF-om kar zadovoljen.
Lp
Lp
jackson3 ::
Me pa še zanima, kako bi kopiral ročno iz ene celice v drugo z OK s pomočjo Hyperlinka ali s kako drugo funkcijo. Rad bi da mi tako kot zgoraj napiše OK in s klikom izvedem prenos. Se pravi A1=vrednost1,B1=OK,C1=vrednost1.
Lp
Lp
BlackHole ::
Tudi brez makroja se da tole naredit. Pač, pravilno jih moraš vgnezdit. Torej:
=IF(A1=1;1;IF(A1=2;2;IF(A1=3;3;"tako naprej")))
=IF(A1=1;1;IF(A1=2;2;IF(A1=3;3;"tako naprej")))
LP Marko
snow ::
Gumb: http://www.mrexcel.com/tip068.shtml
Hyperlink: http://www.ozgrid.com/forum/showthread....
BlackHole daj preberi drugi post v tej temi.
Hyperlink: http://www.ozgrid.com/forum/showthread....
BlackHole daj preberi drugi post v tej temi.
Random mutation plus nonrandom cumulative natural selection - Richard Dawkins
jackson3 ::
snow še enkrat hvala. Ta gumbek je super,makro pa moram še pretuhtat, čeprav sem zadevo že prej naredil malo drugače. Pa še eno vprašanje-save as makro:
Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ActiveWorkbook.SaveAs FileName:=ThisFile
End Sub
Rabil bi zraven še pot - C:\blabla\haha\A1 pri čemer je A1-haha B1-C:\blabla\haha ..ali pa drugače
A1-haha B1-C:\blabla\mapa je vedno ista kot ime datoteke A1
Hvala še enkrat
Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ActiveWorkbook.SaveAs FileName:=ThisFile
End Sub
Rabil bi zraven še pot - C:\blabla\haha\A1 pri čemer je A1-haha B1-C:\blabla\haha ..ali pa drugače
A1-haha B1-C:\blabla\mapa je vedno ista kot ime datoteke A1
Hvala še enkrat
snow ::
Ni mi čist jasno kaj hočeš. A vedno v isti dir? Ali se dir spreminja glede na vrednost v A1 ali kako?
Če maš ime datoteke v A1 in hočeš vedno pripet nek direktorij narediš tako:
Če maš ime datoteke v A1 in hočeš vedno pripet nek direktorij narediš tako:
ThisFile = Range("A1").Value
Dir = "C:\blabla\"
FullPath = Dir & ThisFile
ActiveWorkbook.SaveAs FileName:=FullPath
Random mutation plus nonrandom cumulative natural selection - Richard Dawkins
jackson3 ::
Mogoče res malo nerazumljivo. Mapa c:\blabla\ je vedno ista. Naslednja mapa je vedno ista kot ime datoteke. Ime datoteke se spreminja in hkrati tudi mapa. Če je celica A1=1 je takrat v B1=c:\blabla\1\ in je pot c:\blabla\1\1.xls, če je A1=5 B1=c:\blabla\5\ je pot c:\blabla\5\5.xls itn. Nekaj takega to zdaj naredi(Matjazev.net):
Public Sub SaveAsA1()
ThisFile = Range("B1").Value & Range("A1").Value
ActiveWorkbook.SaveAs FileName:=ThisFile
End Sub
Ne vem, tvoj makro mi pa nekaj zašteka!
Public Sub SaveAsA1()
ThisFile = Range("B1").Value & Range("A1").Value
ActiveWorkbook.SaveAs FileName:=ThisFile
End Sub
Ne vem, tvoj makro mi pa nekaj zašteka!
snow ::
Sub SaveAs()
Sub SaveAs()
src = Range("B1").Value & Range("A1").Value
ActiveWorkbook.SaveAs Filename:=src, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Sub SaveAs2()
src = Range("B1").Value & Range("A1").Value
ActiveWorkbook.SaveAs Filename:=src
End SubPrvi macro je bil narejen s pomočjo recorda, zato vsi tisti dodatni argumenti.
V A1 test.xls
v B1 c:\
in dela.
Random mutation plus nonrandom cumulative natural selection - Richard Dawkins
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | [Excel]Vrednost celice = ime dokumentaOddelek: Programska oprema | 4969 (4391) | veteran |
| » | [excel]duplikatiOddelek: Programiranje | 1616 (1543) | baksuz |
| » | Visual Basic in ExcelOddelek: Programiranje | 2914 (2480) | Vesoljc |
| » | Excel vprašanjeOddelek: Programiranje | 1246 (1145) | matic |
| » | Kako v excelu shraniti kot sliko?Oddelek: Programska oprema | 2801 (2500) | Slavček |