-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
válasz thomas50.000 #26697 üzenetére
Ez a makró az elsőtől a 100. sorig írja be a Nem szót a B-be.
Sub Piros()
Dim sor As Long
For sor = 1 To 100
If Cells(sor, "A").Interior.ColorIndex = 3 Then Cells(sor, "B") = "Nem"
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz thomas50.000 #26699 üzenetére
Sajnos a színezés az Excel számára nem jelent "esemény"-t, amire egy makró reagálhatna.
Írd át a ciklus végét 100-ról annyira, ahány sort szándékozol kitölteni az A oszlopban.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz thomas50.000 #26701 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Grodd
tag
válasz thomas50.000 #30812 üzenetére
Alapból nem lehet (VBA nélkül), de van rá egy trükk:
Állítsd be a vastag szegélyt alapértelmezettnek az egész kérdéses tartományra, és utána csinálj egy feltételes formázást, ami ezt eltávolítja ezt a vastag szegélyt az eredeti feltételed negáltját megadva feltételként.
-
Delila_1
Topikgazda
válasz thomas50.000 #30814 üzenetére
A másik fórumon, ahol először tetted fel a kérdést, ott a válasz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz thomas50.000 #31002 üzenetére
Megoldható, ha a jelzett cellák (B4:B23, L4:L23, AF4:AF23) a képek nevével azonosak, csak a kiterjesztést kell hozzájuk venni. Ezt kell átírnod a csillagozott sorokban, ha nem jpg a kiterjesztés, na meg az útvonalat.
Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long
utvonal = "D:\Mappa\Almappa\" '***
For sor = 4 To 23
Kepneve = Cells(sor, "B") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor).Top
.Height = Rows(sor).Height
.Left = Columns(2).Left + Columns(2).Width - .Width
End With
Kepneve = Cells(sor, "L") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor).Top
.Height = Rows(sor).Height
.Left = Columns(12).Left + Columns(12).Width - .Width
End With
Kepneve = Cells(sor, "AF") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor).Top
.Height = Rows(sor).Height
.Left = Columns(32).Left + Columns(32).Width - .Width
End With
Next
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz thomas50.000 #31008 üzenetére
Valószínűleg jó magasak a sorok, ahova a képeket be akarod illeszteni. A sormagassághoz igazítottam a képek magasságát.
A makró lefutása után az egyik képet állítsd be a kívánt méretre, majd nézd meg, mennyi a magassága.
A 3 With–End With között a.Height = Rows(sor).Height
sorban az egyenlőségjel jobb oldalára ezt az értéket írd be a mostani helyett.
Érdemes még a makró elejére beírni a következő sort:
ActiveSheet.DrawingObjects.Select
ez törli az előző képeket.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz thomas50.000 #31015 üzenetére
Örülök neki, szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
-
Delila_1
Topikgazda
válasz thomas50.000 #32415 üzenetére
Kijelölöd a céltartománynak nevezett területet, felveszed az ecsetet, és végighúzod azon a tartományon, amit az előbbivel egyező formátumban szeretnél látni.
Vagy
Sub Formatum()
Selection.PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz thomas50.000 #32417 üzenetére
Az alkalmazása úgy történik, hogy kijelölöd a formázott területet, Ctrl+c-vel másolod, kijelölöd azt a területet, ahova a formátumot szeretnéd beilleszteni, és indítod a makrót.
Az utolsó lépés helyett jó a bill. kombináció, ha adtál a makrónak olyant.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz thomas50.000 #32419 üzenetére
Selection.PasteSpecial Paste:=xlValues
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz thomas50.000 #32421 üzenetére
Készítesz egy sablon füzeted a saját formátumaiddal. Innen másolod a formátumot arra a lapra (tartományra), ahova letöltötted a webes adatokat.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz thomas50.000 #32423 üzenetére
Tedd azt az ikont a gyorselérési eszköztárra. Ikonon jobb klikkre gyorsmenüt kapsz, ahol egy kattintással átmásolhatod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
válasz thomas50.000 #32437 üzenetére
=HA(DARABTELI(C3:C5;"*ara*")>0;1;0)
foglald egy ha fgv-be és ha a darabteli nagyobb min 0 akkor színes ha nem akkor marad fehér[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Fferi50
őstag
válasz thomas50.000 #32437 üzenetére
Szia!
Egyezésnél ilyen lehetőség nincs, viszont használlhatod a SZÖVEG.KERES vagy SZÖVEG.TALÁL függvényt szerintem, ahol van joker karakter lehetőség is.
Üdv.
-
Fferi50
őstag
válasz thomas50.000 #32557 üzenetére
Szia!
A formátumkód: #0":"# helyett: #0":"0
A # csak akkor ír számjegyet, ha nem 0 az érték, a 0 minden esetben megjelenik,
Üdv.
-
Delila_1
Topikgazda
válasz thomas50.000 #32804 üzenetére
A másik fórumon, ahol feltetted a kérdést, válaszoltam.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz thomas50.000 #32902 üzenetére
Az End With sor fölé vidd be:
.Width = 22.67717
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz thomas50.000 #32913 üzenetére
Nincs mit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mutt
aktív tag
válasz thomas50.000 #39062 üzenetére
Szia,
"...whatsmycolor függvény sajnos nem frissíti önmagát...."
A tippem azt lett volna, hogy elég egy Application.Volatile parancsot tenni az UDF-be, de az Excel-ben a cella szinének megváltozásakor nincs esemény indítás, azért ez sem megoldás.
A legjobb megoldás, hogy azon munkalap selectionchange eseményéhez, ahol használod a függvényt rendelsz egy Application.CalculateFull parancsot.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CalculateFull
End SubEnnek a hátránya ugyebár, hogy MINDEN értéket újraszámol a munkalapon ami lassabbá teszi a műkődést.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen