< návrat zpět

MS Excel

Téma: Nakopírování komentářů do samostatných buněk rss

Zaslal/a Marie_1 6.2.2013 9:47

Dobrý den, potřebovala bych poradit, jak dostat text z komentáře jedné buňky do buňky vedle ní jako normální text. Děkuji.

Zaslat odpověď >
Strana:  1 2   další »
icon AL(6.2.2013 16:25)#011433
avatar
povedzme, že to chcete do aktívnej bunky, kedy bunka s komentárom sa nachádza o jednu bunku vľavo od aktívnej na tom istom riadku, do kódu vo VBA si zakomponujte (pochopiteľne, s nejakými kontrolami):

ActiveCell = ActiveCell.Offset(0, -1).Comment.Textcitovat
Marie_1(7.2.2013 10:32)#011464
avatar
Děkuji za radu, ale jsem úplný začátečník. Napsala jsem

Sub Vloz_komentar()
'ActiveCell = ActiveCell.Offset(0, -1).Comment.Text
End Sub

a pak
Sub Vloz_komentar()
'ActiveCell = ActiveCell.Offset(0, -1).Comment.Text
Debug.Print ActiveCell
End Sub

ale makro buď vykazuje chybu nebo nepracuje
This command will stop the deguger.

Moc prosím, jak by to mělo být správně?citovat
icon AL(7.2.2013 10:43)#011465
avatar
Všetko čo sa v kóde nachádza na riadku za apostrofom, je v kódom chápané ako poznámka a nie je to pre prekladač inštrukcia, čiže správne má byť:

Sub Vloz_komentar()
ActiveCell = ActiveCell.Offset(0, -1).Comment.Text
End Sub

Kód vypíše do aktívnej bunky komentár z bunky o jednu pozíciu vľavo od aktívnej bunky, čiže, pokiaľ je bunka s komentárom v bunke A1, je potrebné postaviť sa do bunky B1 a spustiť makro. Pokiaľ v bunke, na ktorú sa kód odkazuje, nie je komentár, kód vyhodí chybu.citovat
Marie_1(7.2.2013 11:29)#011468
avatar
Děkuji, už to funguje.

Ještě bych potřebovala poradit, jestli by bylo možné toto makro použít u celého sloupce najednou (vybrané buňky ve sloupci). Mám několik listů a na každém třeba 200 řádek, které takto potřebuji zobrazit.

Pak už není problém přes CONCATENATE sloučit původní text s vygenerovaným textem z komentáře a popřípadě v další buňce přes "Úpravy-Vložit jinak-hodnoty" text upravit. Mám představu, že původní text (buňka A) by byl tučně jako nadpis a komentář obyčejně.
Zkusím na toto formátování udělat také makro.citovat
icon AL(7.2.2013 12:25)#011469
avatar
Označte si bunky v stĺpci (nevyberajte ale celý stĺpec, to by bežalo zbytočne dlho, asi nemáte dáta na 65tis. či 1mil. riadkov) , z ktorého chcete vypísať komentáre (budú sa zapisovať do stĺpca J) a spustite kód:

Sub Vloz_komentar()
Dim cell As Range
For Each cell In Selection.Cells
On Error Resume Next
Cells(cell.Row, "J") = cell.Comment.Text
Next cell
End Subcitovat
Marie_1(7.2.2013 16:46)#011483
avatar
Děkuji, to je to, co jsem potřebovala.

Pořád se snažím udělat druhé makro, ale nedaří se druhá část, kdy potřebuji sloučený obsah buněk převést ze vzorečku na text a první řádku (RC(-2)nadpis) udělat tučně. Opět najednou ve vybraných buňkách sloupce.
Moc prosím ještě o pomoc.

Sub Makro5()
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],CHAR(10),RC[-1])"
Dim cell As Range
Selection.Copy
Range("RC[+1]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("RC[+1)").Select
End Sub

Sub Makro6()
'
Selection.Copy
Range("F20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("F21").Select
End Subcitovat
icon AL(8.2.2013 7:37)#011512
avatar
Takto nejako asi:

Sub MAKRO5()
Dim Len1 As Integer
With ActiveCell
Len1 = Len(.Offset(0, -2)) 'urci dlzku prveho retazca
.Value = .Offset(0, -2) & Chr(10) & .Offset(0, -1) 'do aktivnej bunky zapise spojeny prvy a druhy retazec
.Characters(Length:=Len1).Font.Bold = True 'vytucni prvu cast spojeneho retazca
End With
End Subcitovat
Marie_1(8.2.2013 8:04)#011513
avatar
Děkuji, to je přesně ono.

Mám ještě poslední prosbu, šlo by toto makro upravit, aby se nechalo použít pro celý sloupec najednou. Teď se i při výběru více buněk ve sloupci převede pouze první buňka.citovat
icon AL(8.2.2013 9:15)#011514
avatar
Isteže, ale schválne som to pojal ako 2 oddelené prípady a predpokladal, že v rámci vlastného zdokonaľovania si to dotvoríte. Ale pokiaľ si s tým neviete rady, vložte sem nejaký vzorový súbor s popisom, čo s čím a kam chcete spojiť.
Tzn. stĺpec X s komentárom, stĺpec Y s druhou časťou textu a stĺpec Z so želaným výsledkom. Kód Vám potom napíšem. Ja ten vzor pred sebou nemám a je to takto pre mňa trochu hádanka...citovat
Marie_1(8.2.2013 10:17)#011517
avatar
Je to přesně tak, jak píšete:
sloupec C (s komentářem) tučně jako nadpis + text ze sloupce D (vygenerovaný komentář) = sloupec E (výsledek)

Jinak už jsem si stáhla nějaké příručky a chci se naučit tvořit makra. Začínám úplně od začátku.
Příloha: zip11517_2013_01_opravy_cenik_vzor.zip (47kB, staženo 28x)
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje