Új hozzászólás Aktív témák

• #54582 Fferi50 Topikgazda Silious #54580

  Új Válasz 2025-08-08 11:20:26 #54582

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Silious #54580 üzenetére

  Szia!
  Csak makróval lehet megoldani, mert egy cella nem tartalmazhat képletet és számot is.
  Én azt javaslom, hogy ne gombot tegyél a cellába, hanem csak egy plusz ill. mínusz jelet. A cellát akár színezheted is.
  A cellára dupla kattintással kiváltod a növelést ill. csökkentést. Ehhez az alábbi makrót kell a munkalap kódlapjára bemásolnod:
  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
    Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + 1
End If
If Target.Column = 3 Then
    Target.Offset(0, -1).Value = Target.Offset(0, -1).Value - 1
End If
Cancel = True
End Sub
  Az első oszlop bármelyik cellájába írhatod a + jelet ill. a harmadik oszlopba a - jelet. Mindegyikre működik a makró.
  Figyelj rá, hogy hibakezelés és védelem nincs a makróban, tehát megváltoztathatók az értékek (a + és - jel is)!
  Nálam így néz ki (az első sorba tettem, de bármelyik sorba teheted, a lényeg az A és C oszlop):
  
  Üdv.

• #54581 lappy őstag Silious #54580

  Új Válasz 2025-08-08 11:16:44 #54581

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Silious #54580 üzenetére

  Esetleg ez nem jó neked

• #54265 Delila_1 veterán Silious #54264

  Új Válasz 2025-03-25 08:40:51 #54265

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Silious #54264 üzenetére

  Nézd meg a #54261-es hozzászólást is, amit véletlenül Geryson-nak címeztem.

• #54263 Mutt senior tag Silious #54262

  Új Válasz 2025-03-25 08:09:43 #54263

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz Silious #54262 üzenetére

  Szia,

  Excel 2016-tól létezik a KÉPLETSZÖVEG (FORMULATEXT) függvény illetve még használható a Képletek -> Képlet vizsgálat -> Képletek mutatása (Alt és pont a shortcut).

  Üdv

• #53033 lappy őstag Silious #53032

  Új Válasz 2024-08-06 08:11:49 #53033

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Silious #53032 üzenetére

  Adatok - adateszközök - szövegből oszlop - tagolt- szóköz

• #50631 Delila_1 veterán Silious #50630

  Új Válasz 2023-03-03 09:44:14 #50631

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Silious #50630 üzenetére

  Szívesen.
  Érdemes eltávolítanod a laphoz rendelt makrót, vagy minden sorát megjegyzésbe tenni (sorok elé aposztróf), hogy ha mégis szükség lenne rá, megmaradjon.

• #50629 Delila_1 veterán Silious #50625

  Új Válasz 2023-03-02 21:09:30 #50629

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Silious #50625 üzenetére

  Indítás előtt érdemes kitörölni az eddig bevitt képeket: Ctrl + g-re előjön az Ugrás menü, Irányított, Objektumok. Ez kijelöli az összes képet, Delete.
  Modulba tedd az alábbi makrót, ami az összes, A oszlopban szereplő képnév mellé beteszi a képet a C oszlopba..

  Sub Kepbeszuras()
Dim utvonal As String, kep As String, sor As Long, usor As Long

usor = Range("A" & Rows.Count).End(xlUp).Row
utvonal = "D:\Jpg\" ' itt add meg a saját útvonaladat

For sor = 1 To usor
kep = utvonal & Cells(sor, 1) & ".jpg"
Cells(sor, 3).Select
On Error Resume Next
ActiveSheet.Pictures.Insert(kep).Select
Selection.Left = Cells(sor, 3).Left + 5
Selection.Top = Cells(sor, 3).Top + 5
Selection.Width = 40 'a kép szélessége
Selection.Height = 30 'a kép magassága
On Error GoTo 0
Next
End Sub

• #50622 Delila_1 veterán Silious #50621

  Új Válasz 2023-03-02 13:16:15 #50622

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Silious #50621 üzenetére

  

• #50614 Delila_1 veterán Silious #50610

  Új Válasz 2023-03-02 07:04:23 #50614

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Silious #50610 üzenetére

  A makrót a lapodhoz rendeld a Téma összefoglaló szerint.
  Mikor beírsz az A oszlopba egy nevet, a megadott utvonal mappából betölti a kep nevű képet a C oszlop azonos sorába.
  A makró megjegyzései sorában módosíthatsz az útvonalon, kiterjesztésen, és a képek méretein.

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim utvonal As String, kep As String
If Target.Column = 1 Then
utvonal = "D:\Jpg\" ' itt add meg a saját útvonaladat
kep = utvonal & Target.Value & ".jpg" 'ha nem jpg a kiterjesztés, írd át
Range(Target.Address).Offset(0, 2).Select
On Error Resume Next
ActiveSheet.Pictures.Insert(kep).Select
Selection.Left = Target.Value.Offset(0, 2).Left + 5
Selection.Top = Target.Value.Offset(0, 2).Top + 5
Selection.Width = 40 'a kép szélessége
Selection.Height = 30 'a kép magassága
Range(Target.Address).Select
On Error GoTo 0
End If
End Sub

• #50611 lappy őstag Silious #50610

  Új Válasz 2023-03-01 19:30:36 #50611

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Silious #50610 üzenetére

  https://stackoverflow.com/questions/13773351/vba-excel-how-to-retrieve-photos-on-matching-file-name-and-place-them-in-cel

• #49381 Delila_1 veterán Silious #49380

  Új Válasz 2022-07-28 07:58:54 #49381

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Silious #49380 üzenetére

  Rendeld a lapodhoz (lásd Összefoglaló) a lenti makrót:
  Private Sub Worksheet_Change(ByVal Target As Range)
    Dim FN As Picture
    Dim KepHelye As String
    
    If Target.Column = 1 Then
        KepHelye = "C:\kepek\" & Target & ".jpg"
        With Cells(Target.Row, 2)
            Set FN = ActiveSheet.Pictures.Insert(KepHelye)
            .RowHeight = Rows(Target.Row).Height
            FN.Top = .Top + 1
            FN.Left = Columns(2).Left + 1
            FN.Height = Rows(Target.Row).Height - 5
            FN.Height = .Height
            FN.Placement = xlMoveAndSize
        End With
    End If
End Sub

• #49375 Delila_1 veterán Silious #49371

  Új Válasz 2022-07-27 12:10:40 #49375

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Silious #49371 üzenetére

  A B2 cella képlete =HIPERHIVATKOZÁS("C:\kepek\"&A2&".jpg";A2), amit másolhatsz a többi sorba.

• #49372 lappy őstag Silious #49371

  Új Válasz 2022-07-27 10:32:15 #49372

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Silious #49371 üzenetére

  akkor most neked olyan kellene, hogy az A sorban lévő szövegű kép elérései helye hol van? vagy létezik-e?

Új hozzászólás Aktív témák