OBAT HERBAL UNTUK KULIT YANG ALERGI

Alergi pada kulit biasanya ada beberapa jenis dari bentuk dan efek yang di timbulkan, seperti kulit terdapat bercak-bercak merah kecil, bintik merah, bentol-bentol halus dan kasar ( bidur:ind/ giduhen:jawa).

hal ini biasaya juga bisa di sebabkan karena beberapa faktor hasil efek samping seperti : Alergi makanan, alergi cuaca, alergi benda, dsb, yang biasanya rasanya gatal bahkan sangat gatal atau tand lainya.

untuk mengatasi dan membantu dalam pengobatan alergi dengan metode herbalis antara lain sbb :

SIAPKAN :

1. 6 gram / beberapa lembar daun sirih yang bertemu uratnya.
2. 1  potong bangle.
3. 1 sendok teh minyak kayu putih.

CARANYA :

Tumbuk daun sirih dan bangle campur jadi satu, tumbuk sampai halus,  kemudian setelah halus campurkan minyak kayu puih tadi, satukan hingga rata,

dan oleskan herbal ini pada kulit yang tersasa alrginya/gatelnya.

REAKSI dari herbal ini setelah di oleskan adalah panas dan perih, akan tetap tidak perlu khawatir karena ini hal wajar dan memang harusnya ada reaksi seperti itu, yang menunjukan bahwa herbal bekerja, oleskan seperlunya dan jangan lupa sambil berdoa karena kesembuhan hanya milikNYA, kita wajib ikhtiar.

semoga bermanfaat.

Referensi: di kutib dari Buku Penyembuhan Alami dengan Herbal, karya MB.Rahimsyah. AR,Lintas Media, 

MEMBUAT NOMOR ACAK UNTUK TIKET TIDAK URUT / RANDOM MACRO VBA

membuat nomor unik acak bisa di gunakan seperti nomer tiket.

Private Sub NEWTIKET_Click()

Dim Low As Long
Dim High As Long
Dim r As Double 'Note r should be a double

Low = 111
High = 999
r = Int((High - Low + 1) * Rnd() + Low)
LABELFIFO.LTIKET.Caption = r

End Sub

silahkan di kembangkan pada form

MENAMPILKAN USERFORM FULLSCREEN PADA LAYAR DENGAN MACRO VBA

Menampilkan UserForm tampil FullScreen ,

ini scriptnya.

Private Sub UserForm_Initialize()

With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 80)
Width = .Width
Height = .Height
End With

End Sub

note = 80 bisa di ganti sesuaikan karena ini tampil fullscreen yg bersifat zoom.

MEMBUAT LIST DI COMBOBOX VBA

Masukan Nama2 nya di UserForm_Initialize()

Private Sub UserForm_Initialize()

With ComboBox1
.AddItem "40-19 BIG ROLL"
.AddItem "40-95 BIG ROLL"
.AddItem "40-14 BIG ROLL"
.AddItem "50-95 PLAIN"
.AddItem "45-15 SIKADA"
.AddItem "35-210"
.AddItem "45-210 EMBOSS"
.AddItem "30-15 MINI"
.AddItem "45-15 EMBOSS"
End With

End Sub

COPY DATA SESUAI ANGKA YANG DI BUTUHKAN DENGAN MACRO VBA

Misal jika di textBox1 isi 5

maka baris juga akan di copy menjadi lima, dengan acuan cell A3:L3 adalah cell Aktif ( di Block )

Dim xCount As Integer
    xCount = TextBox1.Value
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False

tEXTbOX1 = Bisa di ganti cell

------------------------------------------------------------------------------------------------

SEDANG UNTUK Membuat Nomor Otomatis dan urut Macro sbb :

Sheet4.Select
Range("a4").Select
Dim i As Integer 'akad perjanjian dalam kode
i = TUTKJMLPRINT.Value
For i = 1 To i   'Menentukan dari bilangan 1 hingga i
ActiveCell.Value = i 'Menetukan cell yang akan di input dari InputBox
ActiveCell.Offset(1, 0).Activate 'Hanya terjadi ada cell aktif
Next i '

Range A4 menjadi patokan untuk menentukan mulainya angka,

misal textBox 1 diisi angka 5, makan akan muncul 5 nomor urut di mulai dari cell A4.

tinggal di pahami dan di kembangkan.

MEMASUKAN DATA BERDASARKAN DATA YANG DI CARI DENGAN MACRO VBA

Mencari dan memasukan data Berdasarkan data yang di cari ( lookup )

Private Sub POST1_Click()

Set WS = Sheet5
KODE = Me.BARCODE1.Value
With WS.Range("BARCODE")
Set b = .Find(KODE, lookat:=xlWhole)
If Not b Is Nothing Then
    Baris = b.Row
    WS.Cells(Baris, 14).Value = TBIN1.Value
    WS.Cells(Baris, 15).Value = W1.Value
    WS.Cells(Baris, 16).Value = N1.Value

End Sub

MENAMPILKAN DATA PADA LISTBOX SESUAI ISI DI WORKSHEET MACRO VBA

Cara Lain menampilkan data pada ListBox, Berdasarkan list yang di worksheet.

isi dan judulnya.

Sub DATAMB52()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("REPORT")
Dim Last_Row As Long
Last_Row = Application.WorksheetFunction.CountA(sh.Range("A:F"))
With Me.ListBox1
    .ColumnHeads = True
    .ColumnCount = 6
    .ColumnWidths = "80,150,80,50,50,50"
    If Last_Row = 1 Then
        .RowSource = "REPORT!A2:F2"
    Else
        .RowSource = "REPORT!A2:F" & Last_Row
    End If
End With
End Sub