Tekan
+ T untuk menelusuri kombinasi. Tabel berikut meringkas apa yang terjadi jika rumus di sel A1, yang berisi referensi, disalin. Secara khusus, rumus disalin dua sel ke bawah dan dua sel ke kanan, ke sel C3
Spesial Saat Ini. Kursus Pelatihan Excel Excel Lengkap untuk Excel 97 - Excel 2003, hanya $145. 00. $59. 95 Pembelian/Unduh Instan Termasuk Excel Tingkat Lanjut dan 2 Kursus Excel VBA
Punya Pertanyaan Excel? . Mengonversi Rumus dari Absolut ke Referensi Relatif
Kode makro Excel di bawah ini dapat digunakan untuk mengonversi semua rumus Excel dari absolut ke relatif dan/atau relatif ke absolut. Itu juga dapat memberikan campuran baris relatif, referensi kolom absolut, atau baris absolut, referensi kolom relatif. Cukup pilih sel yang harus diubah, jalankan kode dan pilih jenis referensi yang Anda inginkan. Ada 2 makro Excel di bawah, yang pertama adalah yang tercepat tetapi dapat menyebabkan masalah dengan rumus mega dan/atau rumus larik. Yang kedua lebih lambat, tetapi kecil kemungkinannya menyebabkan masalah. Terima kasih kepada Andy Paus. Seperti halnya kode apa pun, simpan Buku Kerja Anda SEBELUM menjalankan kode
TIP. Anda dapat beralih melalui 4 jenis referensi yang dapat digunakan formula dengan memilih sel yang menampung formula, lalu klik di Bilah Formula, lalu bagian referensi (mis. g A1, $A$1 dll) dan tekan F4. Setiap menekan F4 akan mengaktifkan tipe referensi
Jika Anda tidak terbiasa menjalankan kode makro Excel, ikuti langkah-langkah di bawah ini;
1) Buka Editor Visual Basic, Alat>Makro>Editor Visual Basic (Alt+F11)
2) Masukkan Modul standar, Sisipkan>Modul
3) Salin kode dan tempel langsung di Modul yang baru saja ditambahkan
4) Kembali ke Excel dengan benar, klik kanan atas X, atau tekan Alt+Q dan simpan
5) Simpan Buku Kerja Anda. Pilih rentang sel Anda untuk menjalankan kode
6) Jalankan makro, buka Alat>Makro>Makro (Alt+F8) pilih nama makro dan klik "Jalankan"
Sub MakeAbsoluteorRelativeFast()
'Written by OzGrid Business Applications
'www.ozgrid.com
Dim RdoRange As Range
Dim i As Integer
Dim Reply As String
'Ask whether Relative or Absolute
Reply = InputBox("Change formulas to?" & Chr(13) & Chr(13) _
& "Relative row/Absolute column = 1" & Chr(13) _
& "Absolute row/Relative column = 2" & Chr(13) _
& "Absolute all = 3" & Chr(13) _
& "Relative all = 4", "OzGrid Business Applications")
'They cancelled
If Reply = "" Then Exit Sub
On Error Resume Next
'Set Range variable to formula cells only
Set RdoRange = Selection.SpecialCells(Type:=xlFormulas)
'determine the change type
Select Case Reply
Case 1 'Relative row/Absolute column
For i = 1 To RdoRange.Areas.Count
RdoRange.Areas(i).Formula = _
Application.ConvertFormula _
(Formula:=RdoRange.Areas(i).Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlRelRowAbsColumn)
Next i
Case 2 'Absolute row/Relative column
For i = 1 To RdoRange.Areas.Count
RdoRange.Areas(i).Formula = _
Application.ConvertFormula _
(Formula:=RdoRange.Areas(i).Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsRowRelColumn)
Next i
Case 3 'Absolute all
For i = 1 To RdoRange.Areas.Count
RdoRange.Areas(i).Formula = _
Application.ConvertFormula _
(Formula:=RdoRange.Areas(i).Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
Next i
Case 4 'Relative all
For i = 1 To RdoRange.Areas.Count
RdoRange.Areas(i).Formula = _
Application.ConvertFormula _
(Formula:=RdoRange.Areas(i).Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
Next i
Case Else 'Typo
MsgBox "Change type not recognised!", vbCritical, _
"OzGrid Business Applications"
End Select
'Clear memory
Set RdoRange = Nothing
End Sub
Sub MakeAbsoluteorRelativeSlow()
'Written for www.ozgrid.com
'By Andy Pope
'www.andypope.info/
Dim RdoRange As Range, rCell As Range
Dim i As Integer
Dim Reply As String
'Ask whether Relative or Absolute
Reply = InputBox("Change formulas to?" & Chr(13) & Chr(13) _
& "Relative row/Absolute column = 1" & Chr(13) _
& "Absolute row/Relative column = 2" & Chr(13) _
& "Absolute all = 3" & Chr(13) _
& "Relative all = 4", "OzGrid Business Applications")
'They cancelled
If Reply = "" Then Exit Sub
On Error Resume Next
'Set Range variable to formula cells only
Set RdoRange = Selection.SpecialCells(Type:=xlFormulas)
'determine the change type
Select Case Reply
Case 1 'Relative row/Absolute column
For Each rCell In RdoRange
If rCell.HasArray Then
If Len(rCell.FormulaArray) < 255 Then
rCell.FormulaArray = _
Application.ConvertFormula _
(Formula:=rCell.FormulaArray, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlRelRowAbsColumn)
End If
Else
If Len(rCell.Formula) < 255 Then
rCell.Formula = _
Application.ConvertFormula _
(Formula:=rCell.Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlRelRowAbsColumn)
End If
End If
Next rCell
Case 2 'Absolute row/Relative column
For Each rCell In RdoRange
If rCell.HasArray Then
If Len(rCell.FormulaArray) < 255 Then
rCell.FormulaArray = _
Application.ConvertFormula _
(Formula:=rCell.FormulaArray, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsRowRelColumn)
End If
Else
If Len(rCell.Formula) < 255 Then
rCell.Formula = _
Application.ConvertFormula _
(Formula:=rCell.Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsRowRelColumn)
End If
End If
Next rCell
Case 3 'Absolute all
For Each rCell In RdoRange
If rCell.HasArray Then
If Len(rCell.FormulaArray) < 255 Then
rCell.FormulaArray = _
Application.ConvertFormula _
(Formula:=rCell.FormulaArray, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
End If
Else
If Len(rCell.Formula) < 255 Then
rCell.Formula = _
Application.ConvertFormula _
(Formula:=rCell.Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
End If
End If
Next rCell
Case 4 'Relative all
For Each rCell In RdoRange
If rCell.HasArray Then
If Len(rCell.FormulaArray) < 255 Then
rCell.FormulaArray = _
Application.ConvertFormula _
(Formula:=rCell.FormulaArray, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
End If
Else
If Len(rCell.Formula) < 255 Then
rCell.Formula = _
Application.ConvertFormula _
(Formula:=rCell.Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
End If
End If
Next rCell
Case Else 'Typo
MsgBox "Change type not recognised!", vbCritical, _
"OzGrid Business Applications"
End Select
'Clear memory
Set RdoRange = Nothing
End Sub
_Laporan Dasbor Excel & Bagan Dasbor Excel Diskon 50% Menjadi Afiliasi Pengguna Excel & Dapatkan Uang
Spesial. Pilihan Gratis Kursus Pelatihan Excel Lengkap ATAU Koleksi Add-in Excel untuk semua pembelian senilai lebih dari $64. 00. SEMUA pembelian dengan total lebih dari $150. 00 membuat Anda KEDUA. Pembelian HARUS dilakukan melalui situs ini. Kirim bukti pembayaran ke [email protected] 31 hari setelah tanggal pembelian
Bagaimana Anda mengubah dari relatif menjadi absolut di Excel?
Beralih antara referensi relatif, absolut, dan campuran .
Pilih sel yang berisi rumus
Di bilah rumus. , pilih referensi yang ingin Anda ubah
Tekan F4 untuk beralih di antara tipe referensi
Bagaimana Anda mengonversi relatif ke absolut di VBA?
Cara lain untuk mengonversi dari relatif ke absolut adalah dengan menggunakan tombol F4 . Untuk melakukannya, pilih sel atau rentang sel yang ingin Anda ubah. Kemudian, tekan tombol F4 pada keyboard Anda. Ini akan menggilir opsi referensi yang berbeda dan akhirnya mendarat di referensi absolut.
Bisakah makro menggunakan referensi sel absolut atau relatif?
Makro Excel dapat direkam dengan referensi absolut atau referensi relatif . Makro yang direkam dengan referensi absolut menempatkan langkah-langkah yang direkam tepat di sel tempatnya direkam, terlepas dari sel yang aktif.
