Dwicahyopian Channel

01/04/2021

(31/03/2021)

Cara menetaskan artemia dan review artemia sea dragon.

https://youtu.be/hSxFeNGuTzo

Follow us on:

Facebook:
Dwiky Dwicahyo
Dwicahyopian Guppy
Dwicahyopian Farm
Dwicahyopian Channel

Instagram:
dwiky.dwicahyo
dwicahyopian.farm

Whatsapp:
083812165925

31/03/2021

(31/03/2021)

Cara menetaskan artemia dan review artemia sea dragon.

https://youtu.be/hSxFeNGuTzo

Follow us on:

Facebook:
Dwiky Dwicahyo
Dwicahyopian Guppy
Dwicahyopian Farm
Dwicahyopian Channel

Instagram:
dwiky.dwicahyo
dwicahyopian.farm

Whatsapp:
083812165925

(31/03/2021)Video kali ini saya akan menjelaskan cara menetaskan artemia dan review artemia merk Sea Dragon.Follow us on:Facebook:Dwiky DwicahyoDwicahyopian ...

21/03/2021

https://youtu.be/HqI_rRRDtNI

Follow us on:

Facebook:
Dwiky Dwicahyo
Dwicahyopian Guppy
Dwicahyopian Farm
Dwicahyopian Channel

Instagram:
dwiky.dwicahyo
dwicahyopian.farm

Whatsapp:
083812165925

Jangan lupa Like and Subcribe Dwicahyopian Channel di Youtube

(21/03/2021)Video kali ini saya akan membahas bagaimana cara meracik pupuk untuk kultur atau budidaya chlorella untuk pakan air . Ada 2 Cara dari bahan yang ...

21/03/2021

Comingsoon insyaallah

Follow us on:

Facebook:
Dwiky Dwicahyo
Dwicahyopian Guppy
Dwicahyopian Farm
Dwicahyopian Channel

Instagram:
dwiky.dwicahyo
dwicahyopian.farm

Whatsapp:
083812165925

Jangan lupa Like and Subcribe Dwicahyopian Channel di Youtube

20/03/2021

Cara merubah/konversi dari link tautan berisi gambar menjadi gambar pada Microsoft Excel.

Berikut coding/rumus microsoft visual basicnya:

Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With PshpLockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3Top = xRg.Top + (xRg.Height - .Height) / 2Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Video ini sangat berguna sekali bagi kalian yang sedang merapihkan absensi daring yang mana terkadang tandatangan pada form absensi daringnya tidak berbentuk jpg/gambar melainkan tautan yang berisi tandatangan .

19/03/2021

(20/03/2021)
Alhamdulillah Logo resmi Dwicahyopian Channel telah selesai.

Mohon doa dan dukungannya .

Terima kasih jazakumullah khairan katsiran

11/03/2021

Bismillah Halaman untuk upload berbagai macam informasi dan hiburan melalui video

Terima kasih