როგორ განაახლოთ Excel-ის სამუშაო ფურცელი პერიოდულად VBA ტაიმერით

Excel გადაწყვეტილებები ოქტომბერი 3, 2025
გააზიარე ახლა:

ეს სტატია გვიჩვენებს, თუ როგორ უნდა განაახლოთ სამუშაო ფურცელი ან დიაგრამა რეგულარული ინტერვალებით. ეს სავარჯიშო ქმნის ტაიმერს, რომელიც განაახლებს სამუშაო ფურცელს ყოველ წუთში, რაც ასახავს ცვლილებებს წყაროს მონაცემებში.

ეს სტატია ვარაუდობს, რომ მკითხველს აქვს დეველოპერის ლენტი ნაჩვენები და იცნობს VBA რედაქტორს. თუ არა, გთხოვთ Google „Excel Developer Tab“ ან „Excel Code Window“.

შეგიძლიათ ნახოთ ამ სავარჯიშოში გამოყენებული სამუშაო წიგნის მაგალითი აქ დაწკაპუნებით.

დინამიური მოხსენების გამოყენება შეიძლება იყოს:

  • ზარების გასაანალიზებლად, თქვენი კომპანიის სატელეფონო სისტემასთან ერთად მოწოდებული საკუთრების მონაცემთა ბაზის წაკითხვა.
  • შექმენით შემთხვევითი ნომერი ყოველ 15 წუთში პრიზის ან გათამაშების მიზნით.
  • ავტომატური ელფოსტის გაგზავნა თქვენი ადგილობრივი მონაცემთა ბაზიდან, როდესაც გარკვეული დონეები დაკმაყოფილებულია. (აქ ტაიმერი გადაწყვეტს, გაააქტიუროს პროცესი თუ არა, მიღწეული დონის მიხედვით).

ან, რომელსაც ჩვენ გამოვიყენებთ:

  • აჩვენეთ უახლესი აშშ დოლარი/ევრო გაცვლითი კურსი ინტერნეტიდან.

მონაცემები ამოღებულია Yahoo Finance ვებსაიტზე ყოველ წუთში. წარმატებული ტესტირების შემდეგ, დამუშავების უფრო გრძელი ინტერვალი უნდა შეიცვალოს.

ინტერფეისი

გახსენით ახალი სამუშაო წიგნი;

დაასახელეთ პირველი ფურცელი „ჩვენება“. ვინაიდან ცხრილი D8-დან E11-მდე იქნება შევსებული ვებიდან, მნიშვნელობები ან მწკრივის სათაურები არ არის საჭირო. დანარჩენი არჩევითია.მოამზადეთ ინტერფეისი

კოდექსი

გახსენით VBA კოდის ფანჯარა და ჩადეთ მოდული. დააკოპირეთ ქვემოთ მოცემული კოდი მოდულში.

Auto_Open მოვლენა იწყებს ტაიმერს სამუშაო წიგნის გახსნისას და ჩერდება წიგნის დახურვისას, თუ კოდის მუშაობას დეველოპერი არ შეწყვეტს შემუშავების დროს.VBA კოდი

Sub Auto_Open()
AlertTime = Now + TimeValue("00:01:00") 'interval in minutes
Application.OnTime AlertTime, "Ticker"      'call Sub Ticker, below
End Sub

Sub Ticker()
    Dim currBuy As String
    Dim currSell As String

    Range("D8:F11").ClearContents            'prepare the destination for the web data
    currBuy = "USD"
    currSell = "EUR"
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://finance.yahoo.com/q?s=" & currBuy & currSell & "=X", Destination:=Range("$D$8"))
        .Name = "q?s=" & currSell & currBuy & "=X"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """table1"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    AlertTime = Now + TimeValue("00:01:00") ‘move trigger on a minute
    Application.OnTime AlertTime, "Ticker"
End Sub

შედეგი

ყოველ n წუთში ცხრილი ფურცელში „Display“ განახლდება Yahoo-ს ვებსაიტიდან. უფრო რთული მონაცემთა კავშირებისთვის ეწვიეთ Microsoft-ის ვებსაიტს.

დაზიანებული სამუშაო წიგნების აღდგენა

ცნობილია, რომ Excel-ი მოულოდნელ მომენტებში ითიშება, რაც, სავარაუდოდ, რესურსების ნაკლებობას უკავშირდება. ასეთ შემთხვევებში, საწყისი ფაილი შეიძლება შეუქცევადად დაზიანდეს და ხელახლა გახსნაზე უარი თქვას. ხშირი სარეზერვო ასლის არარსებობის შემთხვევაში, აღდგენის ინსტრუმენტი დაზიანებული Excel ფაილები ფასდაუდებელი იქნება.

ავტორი შესავალი:

ფელიქს ჰუკერი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის rar-ის შესწორება და sql აღდგენის პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად

გააზიარე ახლა:

კომენტარები დახურულია.