Note: The other languages of the website are Google-translated. Back to English
English English

Bagaimana cara menghubungkan warna sel secara otomatis ke warna lain di Excel?

Saat menggunakan Microsoft Excel, tahukah Anda cara menautkan warna sel ke warna lain secara otomatis? Artikel ini akan menunjukkan kepada Anda metode untuk mencapainya.

Tautkan warna sel ke warna lain secara otomatis dengan kode VBA


Tautkan warna sel ke warna lain secara otomatis dengan kode VBA

Misalkan Anda ingin menautkan warna isian sel A1 ke C1, saat mengubah warna isian A1, warna C1 akan berubah menjadi sama secara otomatis. Silakan lakukan sebagai berikut.

1. Klik kanan tab lembar yang Anda perlukan untuk menghubungkan warna sel ke yang lain, lalu klik Lihat kode dari menu klik kanan.

2. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode VBA di bawah ini ke Kode jendela.

Kode VBA: Otomatis menautkan warna sel ke warna lain di Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("C1").Interior.Color = Me.Range("A1").Interior.Color
End Sub

Note: Anda dapat mengubah referensi sel dalam kode sesuai kebutuhan.

3. Silakan tekan lain + Q kunci sekaligus untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Mulai sekarang, saat mengubah warna isian sel A1, warna isian sel C1 akan diubah ke warna yang sama secara otomatis.


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (46)
Rated 4.5 dari 5 · peringkat 1
Komentar ini diminimalkan oleh moderator di situs
bagaimana dengan antar lembar dalam buku kerja yang sama - mohon saran bagaimana rumusnya berubah? terima kasih!
Komentar ini diminimalkan oleh moderator di situs
tutorial yang bagus. Terima kasih :) !!!!
Komentar ini diminimalkan oleh moderator di situs
ya saya ingin tahu cara mencerminkan warna ke lembar lain??? Saya memiliki formula di kedua kotak tetapi saya ingin warna yang satu mencerminkan warna pada lembar utama ketika berubah. yaitu.. Lembar Tanggal Pelatihan adalah w/dalam 30 hari dan kotak berubah menjadi merah; kotak yang sesuai pada lembar utama, kotak dengan "X" berubah menjadi merah juga.
Komentar ini diminimalkan oleh moderator di situs
Hai Jessica,
Apakah yang Anda maksud: kotak Kolom tulisan?
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk melakukan ini jika kedua sel berada di buku kerja yang berbeda?
Komentar ini diminimalkan oleh moderator di situs
Hai Dustin,
Tidak dapat menangani buku kerja yang berbeda. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Saya melihat di sini, dalam penjelasan, bagaimana untuk satu sel, bagaimana melakukannya untuk beberapa sel?
Komentar ini diminimalkan oleh moderator di situs
Hai Rogerio,
Apakah maksud Anda menautkan warna isian sel ke beberapa sel secara bersamaan?
Komentar ini diminimalkan oleh moderator di situs
y su el la celda A1 tiene un format condicional ?
Komentar ini diminimalkan oleh moderator di situs
Jika sel adalah lembaran yang tidak berbeda?
Komentar ini diminimalkan oleh moderator di situs
Hai Mario,
Misalkan Anda ingin menautkan warna sel A1 di lembar kerja saat ini ke rentang B1:J19 di Sheet2, harap terapkan kode VBA di bawah ini. Setelah mengubah warna isian A1, silakan klik sel lain di lembar kerja saat ini untuk mengaktifkan kode.

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRg Sebagai Rentang
Redupkan xStrAddress Sebagai String
xStrAddress = "Sheet2!$B$1:$J$19"
Tetapkan xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1").Interior.Color
End Sub
Komentar ini diminimalkan oleh moderator di situs
Itu berhasil. Bagaimana cara kerjanya jika Anda memiliki perubahan A1 di Sheet1 yang terjadi pada B1 di Sheet2, tetapi juga perubahan A2 di Sheet1 terjadi pada B2 di Sheet2?
Komentar ini diminimalkan oleh moderator di situs
Hai Adakah yang bisa membantu dengan pertanyaan di atas secepatnya, saya sangat membutuhkannya dan kehabisan waktu.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Kode VBA di bawah ini dapat membantu Anda memecahkan masalah. Terima kasih atas komentarmu.

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRg Sebagai Rentang
Redupkan xStrAddress Sebagai String
xStrAddress = "Lembar2!$B$1"
Tetapkan xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1").Interior.Color
xStrAddress = "Lembar2!$B$2"
Tetapkan xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A2").Interior.Color
xStrAddress = "Lembar2!$B$3"
Tetapkan xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A3").Interior.Color
End Sub
Komentar ini diminimalkan oleh moderator di situs
Sayangnya itu tidak berhasil untuk saya. Saya bertanya-tanya apakah itu karena sel asal adalah daftar dengan aturan pemformatan bersyarat untuk mengubah warna latar belakang tergantung pada opsi apa yang dipilih dalam daftar.
Komentar ini diminimalkan oleh moderator di situs
Hai Amanda,
Kode ini tidak berfungsi untuk warna isian yang ditetapkan oleh aturan pemformatan bersyarat. Maaf untuk ketidaknyamanannya.
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin untuk menghubungkan warna dari satu rentang pada satu lembar ke rentang lain dengan ukuran yang sama pada lembar yang berbeda? Misalnya, saya memiliki warna bergantian setiap beberapa baris, dan saya ingin skema warna itu disalin ke lembar lain.
Komentar ini diminimalkan oleh moderator di situs
Hai Charles,
Kode di bawah ini dapat membantu Anda. Jika Anda ingin menautkan warna dari rentang A1:A19 di Sheet1 ke rentang yang sama "A1:A19" di Sheet2, silakan salin kode ke jendela Kode Sheet1, setelah itu, klik sel mana saja di Sheet1 untuk mengaktifkan kode. Semoga saya bisa membantu. Terima kasih atas komentarmu.

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRg Sebagai Rentang
Redupkan xStrAddress Sebagai String
xStrAddress = "Lembar2!$A$1:$A$19"
Tetapkan xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1:A19").Interior.Color
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai,
kode ini tampaknya berfungsi jika saya mereferensikan satu sel tetapi jika saya memasukkan rentang, rentang pada lembar 2 menjadi hitam alih-alih mengatasi warna interior.

ada ide mengapa itu bisa terjadi?
Komentar ini diminimalkan oleh moderator di situs
Hai Joey,
Maaf atas kesalahannya. Coba kode ini:

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRg Sebagai Rentang
Redupkan xCRg Sebagai Rentang
Redupkan xStrAddress Sebagai String
Redupkan xFNum Sebagai Integer
xStrAddress = "Lembar2!$A$1:$A$10"
Tetapkan xRg = Application.Range(xStrAddress)
Tetapkan xCRg = Me.Range("$A$1:$A$10")
On Error Resume Next
Untuk xFNum = 1 Ke xRg.Hitung
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai Kristal,
Terima kasih banyak. Bekerja dengan sempurna!
Anda menakjubkan! O_o
Komentar ini diminimalkan oleh moderator di situs
Hai Crystal!
Seperti apa tampilan kode yang sama jika saya ingin menyalin ke Sheet2 dan Sheet3 secara bersamaan?
Komentar ini diminimalkan oleh moderator di situs
Hai ada yang bisa jawab pertanyaan ini. Saya mencoba melakukan hal ini dan tidak beruntung.
Komentar ini diminimalkan oleh moderator di situs
ini tidak bekerja untuk saya. Saya terus mendapatkan kesalahan tentang "kesalahan kompilasi, nama ambigu terdeteksi"....
Komentar ini diminimalkan oleh moderator di situs
ini tidak bekerja untuk saya. mungkin rentang sel tidak sama di kedua lembar. dapatkah Anda membantu memberi saran apa yang harus dilakukan atau bagaimana menyesuaikan kode?
Komentar ini diminimalkan oleh moderator di situs
Hai LG,
Ada dua baris yang dapat Anda modifikasi: rentang "$A$1:$A$10" dari baris kedelapan, dan "Lembar2!$A$1:$A$10" dari baris keenam, yang menunjukkan Anda akan menautkan warna isian rentang A1: A10 di lembar kerja (misalkan Sheet1, dan kode harus ditambahkan ke jendela kode lembar ini) ke kisaran yang sama di Sheet2.
Anda dapat menentukan dua rentang berbeda sesuai kebutuhan. Dan pastikan nama sheet yang Anda ketik pada baris keenam adalah nama sheet yang sudah ada.
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan ini untuk membuat pola tenun. Saya ingin memiliki beberapa set grup jadi saya hanya perlu mengubah satu sel untuk melihat apa yang akan terjadi dalam pola saya. Ini berfungsi dari sel a1 ke c1 tetapi ketika saya mencoba menambahkan set baru a2 ke c1 tidak. Saya mungkin salah paham, tetapi saya menyalin rumus yang sama di bawah yang pertama dan mengubah referensi sel. Apakah itu masalahnya? Apakah ada cara lain?
Komentar ini diminimalkan oleh moderator di situs
Yang ini bekerja untuk saya ketika menempelkan referensi lembar kedua - tetapi saya harus melakukan modifikasi, saya akan menunjukkan modifikasi di bawah ini sehingga Anda dapat melihat versi pertama Crystal, kemudian milik saya dengan modifikasi yang berfungsi ketika saya perlu memasukkan dua set sebagai gantinya dari satu. Ini yang Crystal berikan kepada Joey setelah dia mengatakan jangkauan target menjadi hitam ketika dia mencobanya:
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRg Sebagai Rentang
Redupkan xCRg Sebagai Rentang
Redupkan xStrAddress Sebagai String
Redupkan xFNum Sebagai Integer
xStrAddress = "Lembar2!$A$1:$A$10"
Tetapkan xRg = Application.Range(xStrAddress)
Tetapkan xCRg = Me.Range("$A$1:$A$10")
On Error Resume Next
Untuk xFNum = 1 Ke xRg.Hitung
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Next
End Sub
Mod saya yang berfungsi untuk memasukkan dua set (misalnya referensi kolom atau baris yang berbeda atau apa yang Anda miliki) adalah memasukkan bagian ini:
On Error Resume Next
Untuk xFNum = 1 Ke xRg.Hitung
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Next
setelah setiap "set" saya
Jadi, tanpa memodifikasi set sampel yang diberikan Crystal agar berbeda satu sama lain (yang mungkin menjadi milik Anda jika Anda mencoba merujuk ke baris yang berbeda, dll.), akan terlihat seperti ini:
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRg Sebagai Rentang
Redupkan xCRg Sebagai Rentang
Redupkan xStrAddress Sebagai String
Redupkan xFNum Sebagai Integer
xStrAddress = "Lembar2!$A$1:$A$10"
Tetapkan xRg = Application.Range(xStrAddress)
Setel xCRg = Me.Range("$A$1:$A$10")Pada Kesalahan Lanjutkan Berikutnya
Untuk xFNum = 1 Ke xRg.Hitung
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Next
xStrAddress = "Lembar2!$A$1:$A$10"
Tetapkan xRg = Application.Range(xStrAddress)
Tetapkan xCRg = Me.Range("$A$1:$A$10")
On Error Resume Next
Untuk xFNum = 1 Ke xRg.Hitung
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Next
End Sub

dengan baris 6-8 dan 13-15 menjadi "set" dan baris 9-12 dan 16-19 menjadi kode yang harus diulang setelah setiap set.
Saya harap itu masuk akal karena saya tidak tahu apa-apa tentang ini, saya baru saja menemukan cara untuk menyalin apa yang terdaftar di sini yang berhasil. Pertama kali saya mencoba memiliki dua set dengan memasukkan kode apa adanya, set pertama mengubah sel menjadi hitam dan set kedua berfungsi dan mengubah sel target menjadi warna yang tepat. Saya akhirnya menemukan bahwa untuk bekerja, setiap set membutuhkan kode baris 9-12 setelahnya. Mod ini memungkinkan warna yang sesuai untuk (dalam kasus saya) mentransfer dari dua kolom berbeda pada lembar asal ke sel yang sesuai dalam rentang tertentu pada lembar target.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara menautkan warna sel berdasarkan nilai dan warna sel lain untuk ditautkan secara otomatis.

Contoh Benteng.



Saya memiliki nilai lembar 1 adalah 898 dan pada lembar 2 nilai adalah 898 dan sel itu berwarna merah muda. Bagaimana saya bisa menghubungkan warna yang sama menjadi sama berdasarkan petunjuknya adalah lembar 2 untuk ditautkan ke lembar 1 - sehingga dapat menunjukkan warna yang sama. Tapi itu akan menjadi kisaran; menggunakan seluruh baris untuk mencocokkan nilainya dan kemudian menautkan warnanya.



Bantuan apa pun sangat dihargai
Komentar ini diminimalkan oleh moderator di situs
Hai esad, saya memiliki kasus yang sama dengan Anda saat ini, saya akan sangat menghargai jika Anda berbagi
Komentar ini diminimalkan oleh moderator di situs
Saya mencari warna salinan yang dihasilkan dari tabel berformat bersyarat, ke tabel lain - secara otomatis dengan rumus/fungsi. Apakah ini mungkin?
Komentar ini diminimalkan oleh moderator di situs
hy,
Saya ingin itu ketika saya secara manual mengubah warna di kolom A sheet1 untuk secara otomatis mengubah warna di kolom A sheet2.
Saya meminta bantuan. Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai Ivana, Silakan coba kode di bawah ini. Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
'diperbaharui oleh Extendoffice 20201127
Redupkan xRg Sebagai Rentang
Redupkan xCRg Sebagai Rentang
Redupkan xStrAddress Sebagai String
Redupkan xFNum Sebagai Integer
xStrAddress = "Lembar2!$A$1:$A$100"
Tetapkan xRg = Application.Range(xStrAddress)
Tetapkan xCRg = Me.Range("$A$1:$A$100")
On Error Resume Next
Untuk xFNum = 1 Ke xRg.Hitung
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hola buenas tardes. Como hacer que cuando seleccione una celda se active otra, y si selecciono otro cambie a otro celda con que este vinculada. Contoh: si alecciono A1 se active celda H20, y si doy otro clic se desactive. Se que seria mucho trabajo porque tendria que programar cada celda, pero no importa, es solo saber como hacerlo. Gracias por su apoyo!
Komentar ini diminimalkan oleh moderator di situs
hai kode di atas berfungsi tetapi tidak akan berfungsi beberapa kali dalam satu lembar? 
Komentar ini diminimalkan oleh moderator di situs
Halo semua,

Masalah saya adalah bahwa halaman rumah saya (lembar pertama) berisi ringkasan informasi yang disediakan di lembar berikut. Semua sel yang relevan telah diformat untuk mencerminkan nilai sel yang sesuai di lembar lainnya.

jadi misalnya, Sel beranda sel saya F7 sudah diformat sehingga menyalin nilai sel yang sesuai di lembar sumber:
=kuartal1!B15

Sekarang, yang benar-benar saya inginkan adalah agar sel di halaman beranda saya juga cocok dengan warna yang saya pilih secara manual untuk sel (sumber) yang sesuai di lembar lain. Apakah ini mungkin menggunakan pengkodean VBA?

Saya mendapat kode di bawah ini dari situs lain tetapi hanya berfungsi jika sel-selnya ada di lembar yang sama.
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Me.Range("C1").Interior.Color = Me.Range("A1").Interior.Color
End Sub

Apakah ada cara saya dapat mengubah kode ini untuk merujuk ke sel di lembar lain di buku kerja yang sama?

Terima kasih banyak atas bantuan Anda!
Komentar ini diminimalkan oleh moderator di situs
Hai, saya ingin tahu apakah Anda dapat membantu saya
Saya memiliki spreadsheet yang memiliki nama anggota tim (17 dari mereka) di Baris 2
Di kolom H kami akan mengalokasikan tugas ke anggota tim
Di kolom T kami memiliki data untuk menunjukkan pada tahap apa anggota tim berada untuk tugas ini ( hijau/ Kuning / Merah)
Yang ingin saya lakukan adalah membawa warna untuk tugas dari col T ke Col H dengan nama yang akan kita masukkan

Bantuan apa pun akan sangat dihargai
Komentar ini diminimalkan oleh moderator di situs
Hai Ann,
Maukah Anda memberikan tangkapan layar data Anda? Maaf untuk ketidaknyamanannya.
Komentar ini diminimalkan oleh moderator di situs
Sesuai terlampir
Nama tim ada di baris 2 (R ke AD)
Setiap baris di bawah nama tim terkait dengan tugas di Kol D
Apa yang saya inginkan adalah ketika sebuah nama dimasukkan di Col L itu mewarnai sel itu dengan warna dari anggota tim col pada baris itu
misalnya di Col L masukkan Emma itu melihat Emma di W1 dan membawa Green dari W2. jika itu Paula akan melihat Paula di T1 dan membawa amber dari T2 dll
Nama yang dimasukkan akan tetap seperti contoh di L2 & 3

Terima kasih atas bantuan Anda
Tidak yakin bagaimana melampirkan tangkapan layar atau FILE, saya dapat mengirimkannya melalui email
Komentar ini diminimalkan oleh moderator di situs
Hai Ann,
Saya telah mencoba beberapa metode dan masih tidak dapat menyelesaikan masalah Anda. Maaf untuk ketidaknyamanannya.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih telah mencoba
Komentar ini diminimalkan oleh moderator di situs
Aqui la tiene en bahasa inggris


Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRg Sebagai Rentang
Redupkan xCRg Sebagai Rentang
Redupkan xStrAddress Sebagai String
Redupkan xFNum Sebagai Integer
xStrAddress = ("Hoja2!A1")
Tetapkan xRg = Application.Range(xStrAddress)
Tetapkan xCRg = Me.Range("A1")
On Error Resume Next
Untuk xFNum = 1 Ke xRg.Hitung
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya telah menemukan kesuksesan menggunakan baris kode ini:
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Redupkan xRg Sebagai Rentang
Redupkan xCRg Sebagai Rentang
Redupkan xStrAddress Sebagai String
Redupkan xFNum Sebagai Integer
xStrAddress = "Lembar2!$A$1:$A$10"
Tetapkan xRg = Application.Range(xStrAddress)
Tetapkan xCRg = Me.Range("$A$1:$A$10")
On Error Resume Next
Untuk xFNum = 1 Ke xRg.Hitung
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Next
End Sub

Saya ingin dapat menggunakan satu rentang untuk memengaruhi beberapa rentang lainnya dalam satu bagian kode. Yaitu, jika saya mengubah warna di $A$1:$A$10, itu mengubah warna di $C$10:$C$19, $D$21:$D$30, dan $F$10:$F$19. Apakah ini mungkin? Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Halo semua, ada yang bisa membantu saya dengan kasus yang sama dengan esad
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan