-
IT café
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 aviator #26427 üzenetére
Gondolom, az időértéket tartalmazó cellák szöveg formátumúak, azért kell a ":"-ot keresni bennük.
Kijelölöd az oszlopot, és indítod a makrót.Sub Kijelol()
Dim CV As Object, ter As String
For Each CV In Selection
If CV = "" Then
Exit For
Else
If InStr(CV, ":") > 0 Then ter = ter & CV.Address & ","
End If
Next
ter = Left(ter, Len(ter) - 1)
Range(ter).Select
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.
-
Fferi50
őstag
válasz aviator #32043 üzenetére
Szia!
Az Excel nem tud ilyet, csak a VBA (a makró).
Makróban a Control.Parent tulajdonsága visszaadja, hogy melyik objektum az adott vezérlő "szülője".
Pl, ha egy Userformon létrehozol egy Frame-et, majd abba beleteszel vezérlőket, akkor
Userform1.Controls(1).Parent is Userform1.Controls(0) igaz értéket ad vissza, mert az első (0 indexű) vezérlő a Frame és a második (1 indexű) vezérlő a Framen belül van.Ezzel kicsit még ügyeskedve, minden vezérlőről megtudhatod, hova tartozik.
A vezérlők különböző tulajdonságai - mérete, színe, rajta levő vezérlők száma stb.szintén lekérdezhető a VBA-ban. Javaslom a HELP tanulmányozását.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz aviator #32045 üzenetére
Szia!
"Összefüggő" irodalmat én még nem találtam (igaz,nem is nagyon kerestem) a Kovalcsik könyvön kívül. Sokat segít a makrórögzítés - bár abba elég sok felesleges művelet is bekerül, van pár jó fórum, A Microsoft MSDN, MS expertek fórumai.
Keresni kell a neten és találsz biztosan használhatót kérdés specifikusan.Üdv.
-
Fferi50
őstag
válasz aviator #48458 üzenetére
Szia!
A Pivot tábla és a belőle készült chart együtt mozog. Ha az egyiket változtatod, változik a másik is.
1. A kimutatásban a mezőlistát megnyitod. Ott látod, hogy az oszlopokban melyik mező szerepel. Azt kiveszed és így csak a Végösszeg marad.
2. A diagramon látszik az oszlop mező. Jobb egérgomb - mező eltávolítása.
Előtte:
Utána:
Üdv. -
félisten
válasz aviator #51690 üzenetére
A Key nem lehet azonos, annak minden esetben egyedinek kell lennie, akár Parent, akár Child esetén.
Helyes
Private Sub CommandButton1_Click()
TreeView1.Nodes.Clear
TreeView1.Nodes.Add Key:="key1", Text:="Same Parent Text"
TreeView1.Nodes.Add Key:="key2", Text:="Same Parent Text"
TreeView1.Nodes.Add Key:="key3", Text:="Same Parent Text"
TreeView1.Nodes.Add "key1", tvwChild, "p1", "Same Child Text"
TreeView1.Nodes.Add "key2", tvwChild, "p2", "Same Child Text"
TreeView1.Nodes.Add "key3", tvwChild, "p3", "Same Child Text"
End SubHelytelen - Parent-nél is mindig key1-t adtam meg, child-eknél meg mindig p1-t.
Private Sub CommandButton1_Click()
TreeView1.Nodes.Clear
TreeView1.Nodes.Add Key:="key1", Text:="Same Parent Text"
TreeView1.Nodes.Add Key:="key1", Text:="Same Parent Text"
TreeView1.Nodes.Add Key:="key1", Text:="Same Parent Text"
TreeView1.Nodes.Add "key1", tvwChild, "p1", "Same Child Text"
TreeView1.Nodes.Add "key2", tvwChild, "p1", "Same Child Text"
TreeView1.Nodes.Add "key3", tvwChild, "p1", "Same Child Text"
End SubAhány eleme van a TreeView-nak, annyi különböző Key kell, fenti képet alapil véve 6 db különböző Key kell, az alábbi képen látható a hiba
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz aviator #51696 üzenetére
Lehet, hogy a Treeview betűkészletével (font) van gond. Válassz valami gyakori, alapértelmezett stb betűt pl. a Tahoma-t, abban nem lehet ilyen gond.
Private Sub CommandButton1_Click()
TreeView1.Nodes.Clear
TreeView1.Nodes.Add Key:="key1", Text:="ÖÜÓŐÚÉÁŰÍ"
TreeView1.Nodes.Add "key1", tvwChild, "key4", "öüóőúéáűí"
End Sub
UI: ha esetleg meg valami szöveges fájlt/egyéb adatforrást stb. dolgozol fel és abból építed fel a treeview elemeit, akkor magában a külső adatok karakterkódolásával lehet gond.[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)