napisał: Trebor postów: 1209
umieszczony: 12 grudnia 2012 16:58
|
|
Pętla o którą pytasz służy tylko do przykładowego wpisywania danych.
Z samego wskazania komórki:
Cells(i, "B") nie wynika co chcesz zrobić. |
|
napisał: Buszkowice postów: 4
umieszczony: 12 grudnia 2012 13:53
|
|
Zastanawiam się dlaczego w pętli:
For i = 1 To 5
Cells(i, "B") = i
Next i
End Sub
użyłeś Cells(i, "B") = i czy samo Cells(i, "B") nie wystarczyło by? |
|
napisał: Trebor postów: 1209
umieszczony: 4 grudnia 2012 18:46
|
|
Samo przysuwanie nie jest skomplikowane.
Sub wprowadz_Click()
Range("B1:B5").Insert Shift:=xlToRight
For i = 1 To 5
Cells(i, "B") = i
Next i
End Sub
Jednak formułę i tak będziesz musiał przepisywać. Oczywiście można to robić przy pomocy makra. |
|
napisał: maniekvba postów: 1
umieszczony: 4 grudnia 2012 16:42
|
|
Witam,,chce napisać formularz w którym dane będą wprowadzane do komórek od B1:B5,a następnie gdy wpisze nowe dane to te nowe dane też wpisze do komórek B1:B5,a te wcześniejsze dane przeniesie do następnej kolumny i takie coś stworzyłem,lecz mam problem gdyż chciałbym pod tymi danymi umieścić formułe która będzie zliczać wpisane dane i gdy wpisuje nowe dane to przenosi mi cała kolumnę B a chciałbym żeby przenosiło tylko to co będzie wpisane czyli zawartość komórek B1:B5,jak mogę zmodyfikować taki kod?
Zamieszczam to co stworzyłem:
Private Sub wprowadz_Click()
Sheets("Arkusz1").Select
Columns("B:B").Select
Selection.Insert Shift:=xlRight
Range("A1:A5").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
'wpisanie co wybrano
[Arkusz1!B1] = data.Value
[Arkusz1!B2] = FN.Value
[Arkusz1!B3] = nr_kontrolny.Value
[Arkusz1!B4] = wada.Value
[Arkusz1!B5] = wada1_1.Value
End Sub |
|
wstecz 1 dalej wszystkich stron: 1
|