TextBox - zmiana nazwy - Thread - go-pugleaf | RockSolid RetroBBS NetNews Server

Thread View: pl.comp.lang.vbasic

7 messages

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

7 total messages Started by Diver Tue, 30 Mar 2010 09:09

TextBox - zmiana nazwy

#104560

Author: Diver
Date: Tue, 30 Mar 2010 09:09

44 lines
2784 bytes

Witam!
Bardzo proszę o pomoc w następującej kwestii. W arkuszu Excela na
początek muszę wstawić 2 tekstboxy do których użytkownik będzie
wpisywał dane. Podczas uaktualniania arkusza chcę pobrać do zmiennej
dane wpisane do textbox-ów, wyczyścić cały arkusz i na nowo wstawić
textbox-y łącznie z poprzednią zawartością. Problem w tym że po
skasowaniu textbox-ów i wstawieniu nowych Excel automatycznie nadaje
nazwy textbox-om. W jaki sposób zmienić nazwę  textbox-ów tak aby
zawsze po wykonaniu procedury miały nazwy TextBox1 i TextBox2?
Po pierwszym uruchomieniu makra TextBoxy nazywają się odpowiednio
TextBox1 i TextBox2
po drugim TextBox3 i TextBox1
po trzecim TextBox2 i TextBox3
po czwartym TextBox1 i TextBox2, .....


Sub weryfikacja()
Dim text1, text2 As String

On Error Resume Next
text1 = Sheets("Arkusz1").OLEObjects("TextBox1").Object.Value
text2 = Sheets("Arkusz1").OLEObjects("TextBox2").Object.Value

Sheets("Arkusz1").OLEObjects("TextBox1").Delete
Sheets("Arkusz1").OLEObjects("TextBox2").Delete
Sheets("Arkusz1").OLEObjects("TextBox3").Delete


Sheets("Arkusz1").OLEObjects.Add ClassType:="Forms.TextBox.1",
Link:=False, _
        DisplayAsIcon:=False, Left:=10.5, Top:=10, Width:=695,
Height:=62
Sheets("Arkusz1").OLEObjects("TextBox1").Object.Value = text1

Sheets("Arkusz1").OLEObjects.Add ClassType:="Forms.TextBox.1",
Link:=False, _
        DisplayAsIcon:=False, Left:=10.5, Top:=100, Width:=695,
Height:=62
Sheets("Arkusz1").OLEObjects("TextBox2").Object.Value = text2

End Sub

Dziękuję i pozdrawiam wszystkich grupowiczów
Diver

Re: TextBox - zmiana nazwy

#104561

Author: Jacek
Date: Wed, 31 Mar 2010 16:40

1 lines
913 bytes

Cos mi sie nie podoba takie rozwiazanie.

Re: TextBox - zmiana nazwy

#104562

Author: Diver
Date: Thu, 01 Apr 2010 10:03

5 lines
1494 bytes

On 31 Mar, 18:40, Jacek <a...@ola.pl> wrote:
> Cos mi sie nie podoba takie rozwiazanie.

No mnie też bo nie chce działać tak jak sobie to wymyślilem
Jak to rozwiązać???

Re: TextBox - zmiana nazwy

#104563

Author: Jacek
Date: Thu, 01 Apr 2010 11:07

9 lines
1296 bytes

Dnia Thu, 1 Apr 2010 03:03:18 -0700 (PDT), Diver napisał(a):

> On 31 Mar, 18:40, Jacek <a...@ola.pl> wrote:
>> Cos mi sie nie podoba takie rozwiazanie.
> 
> No mnie też bo nie chce działać tak jak sobie to wymyślilem
> Jak to rozwiązać???

Dlaczego nie korzystasz np. z InputBox, czy po prostu z komorek arkusza?

Re: TextBox - zmiana nazwy

#104564

Author: Diver
Date: Thu, 01 Apr 2010 13:38

14 lines
2048 bytes

On 1 Kwi, 13:07, Jacek <a...@ola.pl> wrote:
> Dnia Thu, 1 Apr 2010 03:03:18 -0700 (PDT), Diver napisa (a):
>
> > On 31 Mar, 18:40, Jacek <a...@ola.pl> wrote:
> >> Cos mi sie nie podoba takie rozwiazanie.
>
> > No mnie te bo nie chce dzia a tak jak sobie to wymy lilem
> > Jak to rozwi za ???
>
> Dlaczego nie korzystasz np. z InputBox, czy po prostu z komorek arkusza?

Bo wpisywany będzie tekst o różnej długości - czasami 1 zdanie a
czasami 10 i więcej, wydaje mi się że TextBox bardziej sie do tego
celu nadaje a poza tym - co też jest ważne - lepiej wygląda

Re: TextBox - zmiana nazwy

#104565

Author: Jacek
Date: Thu, 01 Apr 2010 14:06

18 lines
1791 bytes

Dnia Thu, 1 Apr 2010 06:38:46 -0700 (PDT), Diver napisał(a):

> On 1 Kwi, 13:07, Jacek <a...@ola.pl> wrote:
>> Dnia Thu, 1 Apr 2010 03:03:18 -0700 (PDT), Diver napisa (a):
>>
>>> On 31 Mar, 18:40, Jacek <a...@ola.pl> wrote:
>>>> Cos mi sie nie podoba takie rozwiazanie.
>>
>>> No mnie te bo nie chce dzia a tak jak sobie to wymy lilem
>>> Jak to rozwi za ???
>>
>> Dlaczego nie korzystasz np. z InputBox, czy po prostu z komorek arkusza?
> 
> Bo wpisywany będzie tekst o różnej długości - czasami 1 zdanie a
> czasami 10 i więcej, wydaje mi się że TextBox bardziej sie do tego
> celu nadaje a poza tym - co też jest ważne - lepiej wygląda

Wg mnie kombinujesz... Ale to Twoj wybor.

Re: TextBox - zmiana nazwy

#104566

Author: Michal AKA Miki
Date: Fri, 02 Apr 2010 08:29

42 lines
2354 bytes

Użytkownik "Diver" <lach@magma-net.pl> napisał w wiadomości 
news:cabc57a9-861a-4e68-b211-31b84e9e817e@l25g2000yqd.googlegroups.com...
On 31 Mar, 18:40, Jacek <a...@ola.pl> wrote:
>> Cos mi sie nie podoba takie rozwiazanie.

> No mnie też bo nie chce działać tak jak sobie to wymyślilem
> Jak to rozwiązać???

No chyba najprosciej to nazwac je po swojemu, zaraz po utworzeniu - wtedy 
zawsze beda mialy twoja nazwe...
np cos takiego (tylko po wklejeniu pewnie sie linie polamia):

Sub weryfikacja2()
Dim text1, text2 As String
Dim obj As OLEObject

On Error Resume Next
text1 = Sheets("Arkusz1").OLEObjects("txtPole1").Object.Value
text2 = Sheets("Arkusz1").OLEObjects("txtPole2").Object.Value

Sheets("Arkusz1").OLEObjects("txtPole1").Delete
Sheets("Arkusz1").OLEObjects("txtPole2").Delete


Set obj = Sheets("Arkusz1").OLEObjects.Add(ClassType:="Forms.TextBox.1", 
Link:=False, _
        DisplayAsIcon:=False, Left:=10.5, Top:=10, Width:=695, Height:=62)
obj.Name = "txtPole1"
obj.Object.Value = text1

Set obj = Sheets("Arkusz1").OLEObjects.Add(ClassType:="Forms.TextBox.1", 
Link:=False, _
        DisplayAsIcon:=False, Left:=10.5, Top:=100, Width:=695, Height:=62)
obj.Name = "txtPole2"
obj.Object.Value = text2

End Sub


Pozdrawiam
Michal

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