vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest sobota, 18 maja 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

 jak wstawić arkusz excela do userforma?


otwartyotwarty rozpoczął: alicelee postów: 6


napisał: alicelee
postów: 57


umieszczony:
5 lutego 2007
00:22

  
wstawiony w frm_sprawozdanie przeze mnie arkusz Spreadsheet1 ma jedną zakladke, ktora nazywa sie Arkusz1. Chcialabym, zeby do arkusza na user formie wklejalo mi dane z excela z arkusza do_druku.wpisalam tak i nie dziala dalej. ehhh trudne to...

Private Sub frm_sprawozdanie_Initialize()
With Me.Spreadsheet1   ' kontrolka Spreadsheet
         With .Worksheets(1) ' jej przykladowo 1-szy arkusz
             .Range("A1:A150").Value = Worksheets("do_druku").Range("A1:A150").Value ' tu po prawej jest zakres arkusza skoroszytu do_druku ; po lewej zakres arkusza 1-den kontrolki
         End With
         With .ActiveWindow
             .ViewableRange = "A1:A150"
         End With
     End With
With MyLabel
     .Height = 2000
     .Width = 2000
     .Caption = "This is MyLabel"
End With

End Sub
napisał: jalamas
postów: 316


umieszczony:
4 lutego 2007
23:29

edytowany:
4 lutego 2007
23:34
  
With Me.Spreadsheet1 to jest kontrolka Spreadsheet.
Ona ma również arkusze, na przykład nr 1, one mogą też miec nazwy...
Worksheets("do_druku") - jest jak rozumien arkusz Twojego skoroszytu
With Me.Spreadsheet1   ' kontrolka Spreadsheet
        With .Worksheets(1) ' jej przykladowo 1-szy arkusz
            .Range("A1:A150").Value = Worksheets("do_druku").Range("A1:A150").Value  ' tu po prawej jest zakres arkusza skoroszytu do_druku ; po lewej zakres arkusza 1-den kontrolki
        End With
        With .ActiveWindow
            .ViewableRange = "A1:A150"
        End With
    End With

Trzeba stosować wcięcia w kodzie wówczas będzie widać co jest co.
With MyLabel
    .Height = 2000
    .Width = 2000
    .Caption = "This is MyLabel"
End With

widać iż odnosi sie do 1-dnej labelki... i tylko do niej
napisał: alicelee
postów: 57


umieszczony:
4 lutego 2007
22:04

  
Hmmm... wpisuje tak:

Private Sub UserForm_Initialize()
With Me.Spreadsheet1
With .Worksheets("do_druku")
.Range("A1:A150").Value = ActiveSheet.Range("A1:A150").Value
End With
With .ActiveWindow
.ViewableRange = "A1:H150"
End With
End With
End Sub

-nie działa :/ i sie wysypuje

wiec wpisuje tak:
Private Sub UserForm_Initialize()
With Me.Spreadsheet1
With .Worksheets("do_druku")
.Range("A1:A150").Value = Worksheets("do_druku").Range("A1:A150").Value
End With
With .ActiveWindow
.ViewableRange = "A1:H150"
End With
End With
End Sub

i też się sypie :/
napisał: alicelee
postów: 57


umieszczony:
4 lutego 2007
14:30

  
OK w sumie to juz sobie poradzilam :)
i mam taki kod:

Private Sub UserForm_Initialize()
With Me.Spreadsheet1
With .ActiveSheet
.Range("A1:A150").Value = ActiveSheet.Range("A1:A150").Value
End With
With .ActiveWindow
.ViewableRange = "A1:H150"
End With
End With
End Sub

Ale ponieważ jest wpisane ActiveSheet wyswietla mi to co jest w aktualnie otwartym arkuszu, a ja potrzebuje sie odwolac do konretnego arkusza. Gidze mam to wpisac? Bo jak za ActiveSheet podstawiam nazwe mojego arkusza to nie dziala i sie program wysypuje.
napisał: alicelee
postów: 57


umieszczony:
4 lutego 2007
13:21

  
Mam pytanie:
jak wstawić arkusz excela do userforma?
I czy bedzie jakis problem gdy wstawie go na jednej z zakladek.


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z
Zarejestrowanych użytkowników: 6380 free counters
© A. Szarek 2003-2024