Artikel ini memperlihatkan cara merefresh lembar kerja atau bagan secara berkala. Latihan ini membangun pengatur waktu yang menyegarkan lembar kerja setiap satu menit, mencerminkan perubahan dalam data sumber.
Artikel ini mengasumsikan bahwa pembaca memiliki pita Pengembang yang ditampilkan dan terbiasa dengan Editor VBA. Jika tidak, harap Google "Tab Pengembang Excel" atau "Jendela Kode Excel".
Contoh buku kerja yang digunakan dalam latihan ini dapat ditemukan di sini.
Kegunaan pelaporan dinamis mungkin:
- Membaca basis data eksklusif yang disertakan dengan sistem telepon perusahaan Anda, untuk menganalisis panggilan.
- Hasilkan nomor acak setiap 15 menit untuk tujuan hadiah atau undian.
- Kirim otomatis email dari database lokal Anda saat level tertentu terpenuhi. (di sini pengatur waktu akan memutuskan apakah akan menghentikan proses atau tidak, berdasarkan level yang dicapai).
atau, yang akan kami gunakan:
- Tampilkan nilai tukar USD / EUR terbaru dari internet.
Data diekstrak dari Situs web Yahoo Finance setiap satu menit. Setelah berhasil diuji, interval pemrosesan yang lebih lama harus diganti.
Antarmuka
Buka buku kerja baru;
Beri nama lembar pertama "Tampilan". Karena tabel D8 hingga E11 akan diisi dari web, nilai atau judul baris tidak perlu dimasukkan. Sisanya opsional.
Kode
Buka jendela kode VBA dan masukkan modul. Salin kode di bawah ini ke dalam modul.
Peristiwa Auto_Open memulai Timer saat buku kerja dibuka dan berhenti saat buku kerja ditutup, kecuali jika kode tersebut diinterupsi oleh pengembang selama pengembangan.
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
Hasil tersebut
Setiap n menit tabel dalam Lembar “Tampilan” akan diperbarui dari situs web Yahoo. Lihat situs web Microsoft untuk koneksi data yang lebih kompleks.
Memulihkan buku kerja yang rusak
Excel dikenal sering mengalami crash secara tiba-tiba, kemungkinan terkait dengan kurangnya sumber daya saat itu. Dalam kasus seperti itu, file sumber dapat rusak secara permanen dan tidak dapat dibuka kembali. Tanpa pencadangan berkala, alat untuk memulihkan data sangat diperlukan. Excel rusak file akan sangat berharga.
Pengantar Penulis:
Felix Hooker adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaikan rar dan produk perangkat lunak pemulihan sql. Untuk informasi lebih lanjut kunjungi www.datanumen.com