Przenoszenie tekstu o różnych kolorach pomiędzy komórkami tabeli

Thread View: pl.comp.lang.vbasic

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Jerzy Tue, 14 Apr 2015 08:09

#105003

Author: Jerzy
Date: Tue, 14 Apr 2015 08:09

6 lines
1992 bytes

Witam.
Problem jak w temacie: jak przenieść pomiędzy komórkami tabeli w WORD teksty różniące się między sobą kolorem. 
Tabela ma dwie kolumny. W lewej są jedne pod drugimi zdania: jedne z kolorze jasnoszarym, poniżej w kolorze ciemnoszarym i tak na przemian cztery tysiące wierszy. Zdania w jednym kolorze należy przenieść do drugiej kolumny, ale w ten sposób aby zdanie przenoszone było w tym samym wierszu, co zdanie je poprzedzające (w innym kolorze) - czyli o jeden wiersz wyżej lub niżej.
Po takiej operacji co drugi wiersz będzie pusty. Tu też trzeba jakiegoś rozwiązania aby te puste wiersze potem usunąć.
Zupełnie nie wiem jak sobie z tym poradzić, tym bardziej, że nie mam żadnego doświadczenia w posługiwaniu się VBA.
To zapewne trudne wyzwanie ale może ktoś mógłby pomóc?

Re: Przenoszenie tekstu o różnych kolorach pomiędzy komórkami tabeli

#105007

Author: PM
Date: Wed, 15 Apr 2015 11:15

29 lines
2229 bytes

W dniu 2015-04-14 o 09:09, Jerzy pisze:
> Witam.
> Problem jak w temacie: jak przenieść pomiędzy komórkami tabeli w WORD teksty różniące się między sobą kolorem.
> Tabela ma dwie kolumny. W lewej są jedne pod drugimi zdania: jedne z kolorze jasnoszarym, poniżej w kolorze ciemnoszarym i tak na przemian cztery tysiące wierszy. Zdania w jednym kolorze należy przenieść do drugiej kolumny, ale w ten sposób aby zdanie przenoszone było w tym samym wierszu, co zdanie je poprzedzające (w innym kolorze) - czyli o jeden wiersz wyżej lub niżej.
> Po takiej operacji co drugi wiersz będzie pusty. Tu też trzeba jakiegoś rozwiązania aby te puste wiersze potem usunąć.
> Zupełnie nie wiem jak sobie z tym poradzić, tym bardziej, że nie mam żadnego doświadczenia w posługiwaniu się VBA.
> To zapewne trudne wyzwanie ale może ktoś mógłby pomóc?
>

Próbujesz przerobić coś takiego?
JASNY1
CIEMNY1
JASNY2
CIEMNY2
JASNY3
CIEMNY3

na:
JASNY1 CIEMNY1
CIEMNY2 JASNY2
JASNY3 CIEMNY3


Najlepiej pokaż jakby to miało wyglądać, to coś wymyślimy.

-- 
PM

--- news://freenews.netfront.net/ - complaints: news@netfront.net ---

Re: Przenoszenie tekstu o różnych kolorach pomiędzy komórkami tabeli

#105006

Author: Paweł
Date: Fri, 17 Apr 2015 15:16

42 lines
2306 bytes

Tak w ramach ciekawości zrobiłem sobie takie zadanie na arkuszu Excela. Na 
Wordzie też powinno działać, po zmianie indeksów komórek (wiersz, kolumna). 
Działa to tak jak opisałeś. Na początku makro tworzy "n" komórek, a potem 
przenosi i kasuje wiersze:
-------------------------------------------------------------
Sub komorki()
  Dim a, i, n As Integer
  i = 1
  a = 1
  n = 20
  For i = 1 To n Step 1
    Cells(i, 1).Value = a
    a = a + 1
  Next i
  For i = 1 To n Step 2
    Cells(i, 1).Interior.ColorIndex = 4
  Next i
  i = 2
  For i = 2 To n Step 2
    Cells(i, 1).Interior.ColorIndex = 6
  Next i
  For i = 2 To n Step 2
    Cells(i, 1).Select
    Selection.Copy
    Cells(i - 1, 2).Select 'gdzie ma być skopiowane
    ActiveSheet.Paste 'Wklejasz
  Next i
  i = 1
  For i = 1 To n Step 1
    Cells(i, 1).Interior.ColorIndex = 4
    Cells(i, 2).Interior.ColorIndex = 6
  Next i
  For i = 2 To n   'usuwanie pustego wiersza
   If (Cells(i, 2).Value = "") Then
     Rows(i).Delete
   End If
  Next i
End Sub
------------------------------------------------------------

Pozdrawiam
Paweł

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads