Փոխեք բջիջները դեպի աջ այնքանով, որքանով փոխվել է ընթացիկ բջիջը

եթե գիտեք, թե որքան է տարբերությունը ժամանակների միջև, ապա կարող եք հաշվարկել նոր ժամանակը՝ հիմնվելով այդ տարբերության վրա:

օր. A1-ը 10:07 է, A2-ը՝ 10:14: Ամեն անգամ առանձին մուտքագրելու փոխարեն, դուք կարող եք ունենալ A2 որպես =A1+TIME(0,7,0): Այնուհետև, երբ դուք փոխում եք A1-ը 10:15-ի, A2-ն ինքնաբերաբար կփոխվի 10:22ի

Լավ, սա կարող է ստիպել ձեզ սկսել ճիշտ ուղղությամբ.

Դուք նախ ցանկանում եք պահպանել բոլոր բնօրինակ բջիջների արժեքները: Այսպիսով, հետևյալ VBA կոդը A սյունակի արժեքները պահում է զանգվածի մեջ առաջին 200 տողերի համար: Դուք նախ պետք է գործարկեք այս կոդը, հավանաբար, երբ աշխատանքային գիրքը բացվի.

Dim contents(200) As Variant
Public Sub StoreOriginalValues()
    ' save all existing values
    For r = 1 To 200  ' change for number of rows you have
        contents(r) = Worksheets(1).Cells(r, 1).Value
    Next
End Sub

Բջջի սկզբնական արժեքները պահվելուց հետո կարող եք կոդը տեղադրել Worksheet_Change իրադարձությունում, որպեսզի երբ օգտագործողը փոխի A սյունակի բջիջը, կարողանաք համեմատել սկզբնական և նոր արժեքը և պարզել տարբերությունը: Այնուհետև կարող եք կիրառել այս տարբերությունը այդ շարքի մնացած սյունակների վրա.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 Then  ' only check for changes in column A
        originalvalue = contents(Target.Row)
        newvalue = Target.Value
        contents(Target.Row) = Target.Value

        difference = newvalue - originalvalue
        Set chgcell = Cells(Target.Row, Target.Column + 1)

        Do While Not IsEmpty(chgcell)
            chgcell.Value = chgcell.Value + difference
            Set chgcell = chgcell.Offset(0, 1)  ' move one column to right
        Loop
End If

End Sub

Այժմ այս կոդը ոչ մի կերպ կատարյալ չէ: Այն չի ստուգում, որ նրանք, օրինակ, վավեր ժամանակ են մուտքագրել: Այն նաև չի ստուգում, թե արդյոք տողի մնացած սյունակներում մուտքագրված արժեքները ժամանակներ են, թե տեքստ, թե ոչ: Բայց ինչպես ասացի, հուսով եմ, որ դա ձեզ ճիշտ ուղղություն կտա:

Իմ լուծումը.

Dim oldVal
Dim diff

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
oldVal = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
ActiveCell.Offset(-1, 0).Select
Application.EnableEvents = True
diff = Target.Value - oldVal

If Not diff = 0 Then
While Not ActiveCell.Offset(0, 1) = "#"
Application.EnableEvents = False
ActiveCell.Offset(0, 1).Select
Application.EnableEvents = True

If Not ActiveCell Is Nothing _
And Not ActiveCell = "" _
And TypeName(ActiveCell) = TypeName(ActiveCell.Offset(0, -1)) Then

Application.EnableEvents = False
ActiveCell.Value = ActiveCell.Value + diff
Application.EnableEvents = True

End If
Wend
End If

End Sub

Սա իմ առաջին փորձն էր VB-ի հետ շատ երկար ժամանակ, ուստի կոդը սարսափելի է, բայց այն աշխատում է: